Вычислить сумму бесконечного ряда с точностью е - Free Pascal (213)

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

Написать программу для обчисления суммы ряда с точностью е.

                    Листинг программы
                
 
                        
                          
                    
program test;
var u, s :real;
z, n :integer;
fac :longint;
i :byte;
const e=1e-3; x=0.41;
begin
fac:=1;
s:=0;
n:=0;
u:=(exp(ln(ln(3))*n)/fac)*exp(ln(x)*n);
while abs(u)>e do
begin
for i:=2 to n do
fac:=fac*2*i;
s:=s+u;
n:=n+1;
u:=u+(exp(ln(ln(3))*n)/fac)*exp(ln(x)*n);
end;
writeln('s=', s:17:2);
end.

Выдает экситкод 215. Где ошибка? Что делать? Ряд в картинке

Решение задачи: «Вычислить сумму бесконечного ряда с точностью е»

textual
                            Листинг программы 
                        
 
                        
                          
                    
program test;
var u, s :real;
z, n :integer;
fac :longint;
i :byte;
const e=1e-3; x=0.25;
begin
fac:=1;
s:=0;
n:=0;
u:=(exp(ln(ln(3))*n)/fac)*exp(ln(x)*n);
while abs(u)>e do
begin
for i:=2 to n do
fac:=fac*i;
s:=s+u;
n:=n+1;
u:=u+(exp(ln(ln(3))*n)/fac)*exp(ln(x)*n);
end;
writeln('s=', s:17:2);
end.

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

13 голосов , оценка 3.923 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы