Найти с заданной точностью квадратный корень

@Alixa · Регистрация: 07.10.2012

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

С помощью рекурсивной функции найти с заданной точностью квадратный корень Y=√X, воспользовавшись интеграционной формулой Ньютона:
Y₀=1
Y_i=1/2(Y_i-1+X/Y_i-1) (i=1,2,3,....)
Вычисления производить пока |Y_i-Y_i-1| не станет меньше EPS.

@Puporev · 18.03.2013, 12:01

Pascal

function Sq(x,e,y0:real):real;
var yi:real;
begin
yi:=(y0+x/y0)/2;
if abs(yi-y0)<e then Sq:=yi
else Sq:=Sq(x,e,yi);
end;
 
var x,e:real;
begin
repeat
write('Введите значение x>=0  x=');
read(x);
until x>=0;
repeat
write('Введите точность  e>0  e=');
read(e);
until e>0;
writeln('Квадратный корень=',Sq(x,e,1):0:5);
end.

@Alixa 0 / 0 / 1 Регистрация: 07.10.2012 Сообщений: 20
		1
	Найти с заданной точностью квадратный корень 18.03.2013, 10:25. Показов 1742. Ответов 1 Метки нет (Все метки) С помощью рекурсивной функции найти с заданной точностью квадратный корень Y=√X, воспользовавшись интеграционной формулой Ньютона: Y₀=1 Y_i=1/2(Y_i-1+X/Y_i-1) (i=1,2,3,....) Вычисления производить пока \|Y_i-Y_i-1\| не станет меньше EPS. 0

	18.03.2013, 12:01

Найти с заданной точностью квадратный корень

Решение