Нужна задачка, помогие решить Опции

[Till]

Помогите мученику.
Вот эта задача:

[Sozialist]

Пределы k каковы? От 0 или от -2 или может еще что?

Спойлер (Показать/Скрыть)

При нуле вроде так:

Var
   k:integer;
   eps:real;
   s,memb:double;
Begin
  s:=0; memb:=0; k:=0; {нижний предел}
  write('eps= ');
  readln(eps);
  while memb<=eps do
    begin
      s:=s+memb;
      memb:=sqrt(k*k*k+15);
      inc(k);
    end;
  write(s:5:5);
  readln
End.

Сообщение отредактировано: Sozialist - 23.06.2008 23:36

[Till]

Пределы k каковы? От 0 или от -2 или может еще что?

Спойлер (Показать/Скрыть)

При нуле вроде так:

Var
   k:integer;
   eps:real;
   s,memb:double;
Begin
  s:=0; memb:=0; k:=0; {нижний предел}
  write('eps= ');
  readln(eps);
  while memb<=eps do
    begin
      s:=s+memb;
      memb:=sqrt(k*k*k+15);
      inc(k);
    end;
  write(s:5:5);
  readln
End.

спасибо!!!, выручил!!!!

Сообщение отредактировано: Till - 24.06.2008 7:45

[Best]

Вот твоя задача но работать не будет потому что все числа из под корня больше е(епселента 0.0001) поэтому она зацикливается
uses crt;
Var i,j,y,c:integer;
a,k,s:real;
Begin
k:=1;
a:=sqrt((k*k*k)+15);
s:=a;
while (abs(a)>0.0001) do begin
a:=sqrt((k*k*k)+15);
s:=s+a;
k:=k+1;
end;
write('symma= ',s);
end.

[Best]

Вот твоя задача но работать не будет потому что все числа из под корня больше е(епселента 0.0001) поэтому она зацикливается
uses crt;
Var i,j,y,c:integer;
a,k,s:real;
Begin
k:=1;
a:=sqrt((k*k*k)+15);
s:=a;
while (abs(a)>0.0001) do begin
a:=sqrt((k*k*k)+15);
s:=s+a;
k:=k+1;
end;
write('symma= ',s);
end.