Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора - 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.


textual

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник