Версия для печати темы

Автор: Till 23.06.2008 21:11

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

Автор: Sozialist 24.06.2008 3:11

Пределы 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 11:41

Цитата(Sozialist @ 23.06.2008 23:11)

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.

Автор: Best 4.07.2008 18:02

Вот твоя задача но работать не будет потому что все числа из под корня больше е(епселента 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 4.07.2008 18:03

Вот твоя задача но работать не будет потому что все числа из под корня больше е(епселента 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.