Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора - 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)»
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
СОХРАНИТЬ ССЫЛКУ
