Вычислить сумму ряда и указать количество учтённых слагаемых - Turbo Pascal
Формулировка задачи:
Здравствуйте, можете помочь с написанием программы)
Даны действительные числа x, ε (x ≠0, ε > 0). Вычислить с -3, -4, -5, -6, точностью ε (ε = 10, 10, 10, 10) сумма ряда и указать количество учтенных слагаемых.
Решение задачи: «Вычислить сумму ряда и указать количество учтённых слагаемых»
textual
Листинг программы
function f(x,eps:real;var k:integer):real; var t,s,s1,s2:real; n,m:integer; begin k:=0; t:=x/2;//значение рекуррентной части члена при k=0 s:=t/(k+2); //значение суммы при k=0 while abs(t)/(k+2)>eps do begin k:=k+1; t:=-t*sqr((x/2))/k; //(-1)^k*(x/2)^(2k+1)//k! s:=s+t/(k+2)//t/(k+2) end; f:=s; end; var x,y:real; n:integer; begin repeat write('Введите x<>0 x='); readln(x); until x<>0; writeln('-----------------------------------------------------------------------------'); writeln('| | e=10^-3 | e=10^-4 | e=10^-5 | e=10^-6 |'); writeln('| x |----------------|----------------|----------------|----------------|'); writeln('| | f(x) | n | f(x) | n | f(x) | n | f(x) | n |'); writeln('----------------------------------------------------------------------------'); y:=f(x,0.001,n); write('| ',x:5:2, '|',y:11:8,' |',n:3); y:=f(x,0.0001,n); write('|',y:11:8,' |',n:3); y:=f(x,0.00001,n); write('|',y:11:8,' |',n:3); y:=f(x,0.000001,n); writeln ('|',y:11:8,' |',n:3,'|'); write('-----------------------------------------------------------------------------'); end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д