Разработать итерационный алгоритм вычисления суммы бесконечного ряда - Pascal ABC
Формулировка задачи:
Разработать итерационный алгоритм вычисления суммы бесконечного ряда с точностью до §=10^-4. В программе предусмотреть:
-ввод исходных данных с клавиатуры,
-проверку их корректности и вывод результатов на экран;
-вычисление точного значения заданной функции и количества слагаемых для достижения указанной точности.
Решение задачи: «Разработать итерационный алгоритм вычисления суммы бесконечного ряда»
textual
Листинг программы
var x,e,t,s:real;
n:integer;
begin
e:=0.0001;
write('x=');
readln(x);
n:=0;
t:=1;
s:=t;
while abs(t)>e do
begin
n:=n+1;
t:=-t*x/n;
s:=s+t;
end;
writeln('S=',s:0:4,' n=',n+1);
write('e^-x=',exp(-x):0:4);
end.