что -то не то

[Александра Раш]

есть код

const n=100;
var x: array[1..n] of real;
var i: integer;
a: real;
function aa(a: real; i:integer): real;
var c: real;
begin
aa:=(x[i]-(2/3)*x[i-1])*3*sqr(x[i-1]);
end;
begin
read(a);
x[1]:=1;
for i:=2 to 100 do
x[i]:=(2*x[i-1])/3+a/(3*sqr(x[i-1]));
read(i);
Writeln(exp(ln(aa(a,i))/3));
end.
end.


есть задание

Вычислить приближѐнное значение кубического корня из а, используя
соотношение:
(2*x[i-1])/3+a/(3*sqr(x[i-1]));


но сказано переделать что бы была рекурсия и использовался код:

if i=1 then aa:=1 else aa:=2\3 *aa(a, i-1)+a\3sqr(aa(a,i-1);

[BDA]

Во-первых, приведенный код не совсем правильный, на мой взгляд.
Во-вторых, вот:

var
  a: real;
  i: integer;

function aa(a: real; i: integer): real;
begin
  if i = 1 then 
    aa := 1
  else 
    aa := 2 / 3 * aa(a, i - 1) + a / (3 * sqr(aa(a, i - 1)));
end;

begin
  read(a, i);
  Writeln(aa(a, i));
end.

[Александра Раш]

спасибо ) посмотрю

[Serge_Bliznykov]

"что -то не то" - это название данной темы.

ТЕМА ЗАКРЫТА.