Найти квадратный корень с заданой точностью воспользовавшись итерационной формулой Ньютона Y=1/2(Y+X/Y). Напишите хотя бы процедуру с рекурсией.
volvo
10.12.2009 14:06
Что именно не получается? Знаешь, что такое рекурсия вообще? Где сложности?
ynitaz
10.12.2009 14:07
я не могу никак написать процедуру с рекурсией
Добавлено через 3 мин. прога постоянно зависает и приходиться перезагружать комп
Unconnected
10.12.2009 14:16
А может, надо функцию с рекурсией?
ynitaz
10.12.2009 14:17
не важно процедура или функция
volvo
10.12.2009 14:21
Ты покажи, как делаешь, посмотрим, чего там у тебя зависает... А то это все пустые слова. У меня вот не зависает, и что?
ynitaz
10.12.2009 14:22
Unconnected, если тебе не трудно напиши свой вариант функции.
Добавлено через 1 мин. Я сейчас не дома и проги под рукой нету.
volvo
10.12.2009 14:24
Нет, извини... Задание твое, у тебя есть какой-то вариант, который якобы "зависает". Вот и приведи его. А то складывается ощущение, что тебе это не очень-то и надо, так, пришел, взял готовое, ИЗОБРАЖАЯ ДЕЯТЕЛЬНОСТЬ, и пошел сдавать.
P.S. Значит, когда будешь дома - покажешь.
ynitaz
10.12.2009 14:26
Ok
Гость
11.12.2009 18:57
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;
beginwrite('vveditr chislo');
read(x);
prod(x);
writeln(prod:1:8);
readkey;
end.
М
Тэги! Lapp
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.