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