Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора - Turbo Pascal (33749)

Формулировка задачи:

помогите заменить формулу,пожалуйста) формулу прикрепил.
program demo;
var xn,xk,h,x,t,e,s,n,c:real;
begin
     repeat
     writeln('Vvedite nachalo i konec intervala xn,xk, xk>xn');
     readln(xn,xk);
     until (xk>xn);
     repeat
     writeln('vvedite shag tabulacii h>0 e<',xk-xn:0:1,' h=');
     readln(h);
     until(h>0)and(h<xk-xn);
     repeat
     writeln('vvedite tochnost(0,1) e=');
     readln(e);
     until(e>0)and(e<1);
     writeln('Tabulirovanie funkcii y=e^(x)');
     writeln('Na intervale [',xn:0:1,';',xk:0:1,'] s shagom ',h:0:1);
     writeln('---------------------------');
     writeln('|   x   |    S    |   n   |');
     writeln('---------------------------');
     x:=xn;
     while x<=xk+h/2 do
      begin
           s:=0;
           n:=0;
           c:=1;
           t:=1;
           while (t/c)>e do
            begin
             n:=n+1;
             s:=s+t/c;
             t:=t*x;
             c:=c*n;
            end;
          writeln('|',x:4:1,' |',s:8:4,' |',n:8:4,' |');
          x:=x+h;
         end;
        writeln('---------------------------');
        end.

Код к задаче: «Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора - Turbo Pascal (33749)»

textual
program demo;
uses crt;
var xn,xk,h,x,t,e,s:real;
    n:integer;
begin
repeat
writeln('Vvedite nachalo i konec intervala xn,xk, xk>xn>1');
readln(xn,xk);
until (xn>1)and(xk>xn);
repeat
writeln('vvedite shag tabulacii h>0 e<',xk-xn:0:1,' h=');
readln(h);
until(h>0)and(h<xk-xn);
repeat
writeln('vvedite tochnost(0,1) e=');
readln(e);
until(e>0)and(e<1);
writeln('Tabulirovanie funkcii y=arctg(x)');
writeln('Na intervale [',xn:0:1,';',xk:0:1,'] s shagom ',h:0:1);
writeln('-----------------------');
writeln('|  x  |    S    |  n  |');
writeln('-----------------------');
x:=xn;
while x<=xk+h/2 do
 begin
   n:=0;
   t:=-1/x;
   s:=pi/2+t;
   while abs(t/(2*n+1))>e do
    begin
     n:=n+1;
     t:=-t/(x*x);
     s:=s+t/(2*n+1);
    end;
   writeln('|',x:4:1,' |',s:8:4,' |',n:4,' |');
   x:=x+h;
 end;
writeln('-----------------------');
writeln('Proverka arctg(',x-h:0:1,')=',arctan(x-h):0:4)
end.

13   голосов, оценка 3.462 из 5


СОХРАНИТЬ ССЫЛКУ