Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора - 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.
Объяснение кода листинга программы
- Ввод начальных и конечных значений интервала для вычисления функции (строки 2-3)
- Ввод точности вычислений (строка 4)
- Вычисление и вывод таблицы значений функции в заданном интервале (цикл while в блоке begin...end, строки 7-16)
- Вычисление и вывод значения арктангенса (строка 19)