Вычисление корней по итерационной формуле с заданной точностью

@Aleksey21 · Регистрация: 30.03.2013

Y=1/sqrt(x) можно вычислить по итерационной формуле Y(i+1)=3/2*Y(i) - 1/2*x*Y(i)^3 с точностью Е и Y(0)=1/x.
Прошу помочь мне написать процедуру для данного вычисления.

@Puporev · 30.03.2013, 16:03

Pascal

uses crt;
procedure P(x,e:real);
var y0,y1:real;
begin
y0:=1/x;
y1:=3*y0/2-x*sqr(y0)*y0/2;
while abs(y0-y1)>e do
 begin
  y0:=y1;
  y1:=3*y0/2-x*sqr(y0)*y0/2;
 end;
writeln('y=',y1:0:5);
write('1/sqrt(x)=',1/sqrt(x):0:5)
end;
var x,e:real;
begin
clrscr;
e:=0.0005;
repeat
write('x>0 x=');
readln(x);
until x>0;
P(x,e);
readln
end.

@Aleksey21 · 30.03.2013, 16:14 **[ТС]**

Весьма Вам благодарен!

@Aleksey21 0 / 0 / 0 Регистрация: 30.03.2013 Сообщений: 2
		1
	Вычисление корней по итерационной формуле с заданной точностью 30.03.2013, 15:24. Показов 4171. Ответов 2 Метки нет (Все метки) Y=1/sqrt(x) можно вычислить по итерационной формуле Y(i+1)=3/2Y(i) - 1/2x*Y(i)^3 с точностью Е и Y(0)=1/x. Прошу помочь мне написать процедуру для данного вычисления. 0

@Aleksey21 0 / 0 / 0 Регистрация: 30.03.2013 Сообщений: 2
	30.03.2013, 16:14 [ТС]	3
	Весьма Вам благодарен! 0

Опции темы

Вычисление корней по итерационной формуле с заданной точностью

Решение