Исправить код программы.

@Ynitaz · Регистрация: 22.11.2009

Author24 — интернет-сервис помощи студентам

С помощью рекурсивной функции вычислить значение квадратного корня с заданой точностью.
Вот что у меня получилось:

Pascal

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.

Программа постоянно зависает.

@Puporev · 11.12.2009, 12:54

Во-первых нет никакой рекурсии, а во вторых вообще сплошная ошибка, а не программа.

@Ynitaz · 11.12.2009, 12:57 **[ТС]**

А тогда в чём должна заключаться рекурсия.

@Puporev · 11.12.2009, 12:58

Ynitaz, За все это время уже можно было про это и почитать.

@Ynitaz · 11.12.2009, 13:03 **[ТС]**

А где именно в справочных материалах или FAQ

@WolfCF · 11.12.2009, 13:10

Сообщение от Ynitaz

А где именно в справочных материалах или FAQ

еще на гугле и википедии.

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	11.12.2009, 12:54	2
	Во-первых нет никакой рекурсии, а во вторых вообще сплошная ошибка, а не программа. 0

@Ynitaz 0 / 0 / 0 Регистрация: 22.11.2009 Сообщений: 15
	11.12.2009, 12:57 [ТС]	3
	А тогда в чём должна заключаться рекурсия. 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	11.12.2009, 12:58	4
	Ynitaz, За все это время уже можно было про это и почитать. 0

@Ynitaz 0 / 0 / 0 Регистрация: 22.11.2009 Сообщений: 15
	11.12.2009, 13:03 [ТС]	5
	А где именно в справочных материалах или FAQ 0

@WolfCF 3312 / 1374 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	11.12.2009, 13:10	6
	Сообщение от Ynitaz А где именно в справочных материалах или FAQ еще на гугле и википедии. 0