Вывод рекурентной формулы - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д