паскаль рекурсія

[dizzy69]

скласти програму обчисленя функції w=(sqrt(z))^6 використовуючи ітераційну формулу Wn+1=Wn+1/3((z/W0^2)-Wn).
обчислення закінчити якщо Wn+1-Wn<10^(-5); W0=6; z=220

[MacOSUser]

Я вот ничё не понял.

[Базиля]

На русском пожалуйста) Не все здесь по украински умеют разговаривать)

[LeBron]

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

Короче пришел человек, которому учится явно лень, и просит халяву

[MacOSUser]

Ему даже лень перевести.

[Google2010]

const w=6;
  z=220;
  e=0.00001;
 var w1,w2:Real;
begin
  w1:=w+1/3*((z/sqr(w))-w);
  w2:=w1+1/3*((z/sqr(w))-w1);
  Writeln(w1:0:5);
  Writeln(w2:0:5);
  while w2-w1 >=e do begin
   w1:=w2;
   w2:=w1+1/3*((z/sqr(w))-w1);
   Writeln(w2:0:5);
  end;
  Readln;
end.

и с рекурсией

const w=6;
  z=220;
  e=0.00001;
var i:Byte;
function Wn(n:byte):Real;
 begin
 if n=0 then Wn:=6
 else Wn:=Wn(n-1)+ 1/3*((z/sqr(w))-wn(n-1));
 end;
begin
  i:=0;
  while wn(i+1)-wn(i) >=e do begin
   inc(i);
   Writeln(wn(i):0:5);
  end;
  Readln;
end.