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

Объяснение кода листинга программы

  1. Ввод начальных и конечных значений интервала для вычисления функции (строки 2-3)
  2. Ввод точности вычислений (строка 4)
  3. Вычисление и вывод таблицы значений функции в заданном интервале (цикл while в блоке begin...end, строки 7-16)
  4. Вычисление и вывод значения арктангенса (строка 19)

Оцени полезность:

13   голосов , оценка 3.462 из 5
Похожие ответы