Вот, что у меня получилось:
Код:
program rekurrent6;
var a,a0:real;
x:integer;
begin
x:=3;
a0:=1.7;
a:=0.5*(a0+(x/a0));
repeat
a:=0.5*(a+(x/a));
until abs(a) > 1e-7;
writeln(a);
readln;
end.
На примере y=корень из 3. Число, похоже правильное выводится. Если взять 5, тоже уже видно различие с моим числом, и тем что на калькуляторе. Не понятно, с эпсилоном. Как его правильно задать ? Как написано в условии ? Спасибо)