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

Эта работа вам не подошла?
Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.
СДЕЛАЙТЕ РЕПОСТ
13 голосов, оценка 3.462 из 5
Похожие ответы