Вывод рекурентной формулы - Pascal

Узнай цену своей работы

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

Для заданного одномерного массива X cоставить алгоритм и программу нахождения суммы ряда с заданной точностью E. Использовать рекуррентные соотношения при вычислении очередного элемента ряда. Для приведенных ниже рядов сходимость доказана при |X|<1.
Uses CRT;
VAR
 i,j:Integer;
 A,Eps:Real;
 x,F,s:array[1..100] of real;

Begin
clrscr;
x[1]:=-0.95;
x[2]:=-0.5;
x[3]:=0.1;
x[4]:=0.5;
x[5]:=0.95;
for j:=1 to 5 do
F[j]:=4*sqrt(sqrt(1+x[j]))-4;
Eps:=0.01;
writeln('Точность E=:  ',Eps);
writeln;
for j:=1 to 5 do
begin
 i:=0;
 A:=-1;
 S[j]:=0;
 Repeat
  Inc(i);
  A:=-A*
  S[j]:=S[j]+A;
 Until Abs(A)<Eps;
 end;
  for j:=1 to 5 do
  begin
  Writeln('N  X          S(x)      K        F(x)    Точность');
  writeln(j,'   ',x[j]:0:5,'    ',S[j]:0:5,'    ',i,'     ',F[j]:0:5,'      ',(S[j]-F[j]):0:5);
 end;
End.
помощь требуется в написании этой строки
  A:=-A*
(Ссылка на сторонний ресурс удалена) по ссылке - ряд и контрольная формула:

Решение задачи: «Вывод рекурентной формулы»

textual
Листинг программы
const
    eps: Single = 0.0001;
var
    sum, si, x: Double;
    i: Word;
begin
    repeat
        Write('Input x='); ReadLn(x);
    until (Abs(x) < 1);
    sum := 0; si := x; i := 1;
    while (Abs(si) >= eps) do
    begin
        sum := sum + si;
        Inc(i);
        si := -si * x * (4 * i - 5) / 4 / i;
    end;
    WriteLn('sum=', sum:0:4);
    Write('  f=', (4 * Sqrt(Sqrt(1 + x)) - 4):0:4);
end.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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