№3:
Код:
Program geronloh;
Const
eps=0.001;
Var
x:Array[1..100] of integer;
i,b:integer;
y,z:real;
function geron4ik(b:integer;y:real):real;
begin
while (geron4ik(b,y)-geron4ik(b,y-1)>=eps) do
geron4ik:=(geron4ik(b,y-1)+b/geron4ik(b,y-1))/2;
end;
Begin
randomize;
for i:=1 to 100 do begin
x[i]:=random(102); b:=x[i];
y:=(1+b)/2;
geron4ik(b,y);
{while} end;
{readln(i);
for i:=1 to 100 do writeln(x[i])}
End.
Переполнение стека...( Как правильно организовать рекурсию?