у меня ошибка с плавающей запятой...

[Bublik]

http://imageshost.ru/links/759a117c3...417db0513383ec

вроде ошибка с плавающей запятой.. что исправить надо?


var
n : integer;
Eps,x,s,a : real;
begin
writeln('Eps=');
writeln(Eps);
writeln('x=');
readln(x);
s:=0;
n:=0;
a:=exp(n*ln(-1))*(1/(2*n+1)*exp((2*n+1)*ln(x));
repeat
if abs(x)>1 then
s:=s+a;
n:=n+1;
until (abs(a)<eps);
s:=2*s;
writeln('s=',s:10:4);
readln;
end.

[puporev]

ln(-1) это круто!
Напиши просто
if odd(n) then s:=s-a
else s:=s+a;

[puporev]

Вот исправил и проверил.

uses crt;
var n : integer;
    Eps,x,s,a : real;
begin
clrscr;
write('Eps=');readln(Eps);
repeat
write('x=');readln(x);
until abs(x)>1;
s:=0;
n:=0;
repeat
a:=1/((2*n+1)*exp((2*n+1)*ln(x)));
if odd(n) then s:=s-a
else s:=s+a;
n:=n+1;
until abs(a)<eps;
writeln('s=',2*s:10:4);
readln
end.

[Bublik]

спасибо большое пребольшое))