Помогите мученику.
Вот эта задача: Нажмите для просмотра прикрепленного файла
Полная версия: Нужна задачка
Пределы k каковы? От 0 или от -2 или может еще что?
Спойлер (Показать/Скрыть)
Цитата(Sozialist @ 23.06.2008 23:11) 
Пределы k каковы? От 0 или от -2 или может еще что?
Спойлер (Показать/Скрыть)
спасибо!!!, выручил!!!!
Вот твоя задача но работать не будет потому что все числа из под корня больше е(епселента 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.
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.
Вот твоя задача но работать не будет потому что все числа из под корня больше е(епселента 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.
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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.