Рекурсивная функция, найти квадратный корень с заданной точностью Опции

[ynitaz]

Найти квадратный корень с заданой точностью воспользовавшись итерационной формулой Ньютона
Y=1/2(Y+X/Y). Напишите хотя бы процедуру с рекурсией.

[volvo]

Что именно не получается? Знаешь, что такое рекурсия вообще? Где сложности?

[ynitaz]

я не могу никак написать процедуру с рекурсией


Добавлено через 3 мин.
прога постоянно зависает и приходиться перезагружать комп

[Unconnected]

А может, надо функцию с рекурсией?

[ynitaz]

не важно процедура или функция

[volvo]

Ты покажи, как делаешь, посмотрим, чего там у тебя зависает... А то это все пустые слова. У меня вот не зависает, и что?

[ynitaz]

Unconnected, если тебе не трудно напиши свой вариант функции.

Добавлено через 1 мин.
Я сейчас не дома и проги под рукой нету.

[volvo]

Нет, извини... Задание твое, у тебя есть какой-то вариант, который якобы "зависает". Вот и приведи его. А то складывается ощущение, что тебе это не очень-то и надо, так, пришел, взял готовое, ИЗОБРАЖАЯ ДЕЯТЕЛЬНОСТЬ, и пошел сдавать.

P.S. Значит, когда будешь дома - покажешь.

[ynitaz]

Ok

[Гость]

uses crt;
var x,y,y0,e:longint;
function prod(x,y0,e:longint):longint;
y0:=1;
prod:=1/2*(y0+x/y0);
write('e=');
read(e);
while abs(prod-y0)>e d0
begin
y0:=prod;
prod:=1/2*(y0+x*y0);
end;
begin
write('vveditr chislo');
read(x);
prod(x);
writeln(prod:1:8);
readkey;
end.

М

Тэги! Lapp