Разработать алгоритм и составить программу вычисления таблицы значений функции - Turbo Pascal (29002)

Формулировка задачи:

Помогите пожалуйста разработать алгоритм и составить программу вычисления таблицы значений функции, заданной в виде разложения в ряд. Значение функции вычислять с точностью z>0, т.е. вычисление суммы членов ряда необходимо прекратить, когда абсолютная величина очередного члена ряда разложения окажется меньше z: | ак | <z. При вычислении очередного члена целесообразно воспользоваться выражением: ак+1как; к= 0, 1, 2, ..., где ак - некоторый к-ый член ряда; ак+1 - следующий к+1-ый член ряда; ск - коэффициент, определяемый номером к. При составлении программы необходимо по возможности воспользоваться операторами организации циклов WHILE, REPEAT, FOR. Границы интервала вычислений функций a и b, величина шага изменения аргумента h и точность вычисления функции z задаются при вводе.

Код к задаче: «Разработать алгоритм и составить программу вычисления таблицы значений функции - Turbo Pascal (29002)»

textual
uses crt;
var a,b,h,z,x,s,t:real;
    k:integer;
begin
clrscr;
repeat
writeln('Введите диапазон a<b');
readln(a,b);
until a<b ;
repeat
write('Введите шаг h<',b-a:0:1,' h=');
readln(h);
until h<b-a;
repeat
write('Введите точность 0<z<1 z=');
readln(z);
until(z>0)and(z<1);
x:=a;
while x<b+h/2 do
 begin
  k:=0;
  t:=1;
  s:=t;
  while abs(t/(2*k+1))>z do
   begin
    k:=k+1;
    t:=-t*x*x/k;
    s:=s+t/(2*k+1);
   end;
  s:=2*x*s/pi;
  writeln('x=',x:6:2,' f=',s:8:4);
  x:=x+h;
 end;
readln;
end.

11   голосов, оценка 3.455 из 5


СОХРАНИТЬ ССЫЛКУ