[cash]

Блин, опять что-то не получается. Посмотрите пожалуйста.
Вот условие задачи:
http://s61.radikal.ru/i174/1104/3a/20f901c6f15d.jpg

Вот какую ошибку выводит: http://s002.radikal.ru/i198/1104/72/809db5bf638e.jpg

Вот текст программы:

Код:

program Project1;
uses
  SysUtils,math;
var s,e:real;
j:integer;
begin
readln (e);
S:=0; j:=1;
while abs((power((-1),j+1))/(j*(j+1)*(j+2)))>e do
begin
s:=s+((power((-1),j+1))/(j*(j+1)*(j+2)));
inc(j);
end;
write (s:0:5);
readln;
end.

[Konrad]

[off]
Сурово ответить
или мягко?

Кстати, интересно, задача со школы? Или институт?
[/off]

[Konrad]

Ладно, чтоб ты не плодил темы, вот

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
s,sr,e:real;
j,a:integer;
begin
  e:=strtofloat(edit1.Text);
  j:=1;
  a:=-1;
  sr:=0;
  repeat
   a:=a*(-1);
   s:=a/(j*(j+1)*(j+2));
   j:=j+1;
   sr:=sr+s;
  until abs(s)<e;
  edit2.Text:=floattostr(sr);
end; 


[Konrad]

j=1 s=0,1667 (1*(1+1)*(1+2))=6
j=2 s=-0,0417 (2*(2+1)*(2+2))=24
j=3 s=0,0167 (3*(3+1)*(3+2))=60
j=4 s=-0,0083 (4*(4+1)*(4+2))=120
j=5 s=0,0048 (5*(5+1)*(5+2))=210
j=6 s=-0,003 (6*(6+1)*(6+2))=336
j=7 s=0,002 (7*(7+1)*(7+2))=504
j=8 s=-0,0014 (8*(8+1)*(8+2))=720
j=9 s=0,001 (9*(9+1)*(9+2))=990
j=10 s=-0,0008 (10*(10+1)*(10+2))=1320
j=11 s=0,0006 (11*(11+1)*(11+2))=1716
j=12 s=-0,0005 (12*(12+1)*(12+2))=2184
j=13 s=0,0004 (13*(13+1)*(13+2))=2730
j=14 s=-0,0003 (14*(14+1)*(14+2))=3360
j=15 s=0,0002 (15*(15+1)*(15+2))=4080
j=16 s=-0,0002 (16*(16+1)*(16+2))=4896
j=17 s=0,0002 (17*(17+1)*(17+2))=5814
j=18 s=-0,0001 (18*(18+1)*(18+2))=6840
j=19 s=0,0001 (19*(19+1)*(19+2))=7980
j=20 s=-0,0001 (20*(20+1)*(20+2))=9240
j=21 s=0,0001 (21*(21+1)*(21+2))=10626
S= 0,1363


S= 0,13629436