Программа

[ЗЛОбнаЯ]

y=1/√x можно вычислить по итерационной формуле y_(i+1)=3/2 y_i-1/2 y_(i^3 )с точностью Е и y_0=1/х. Вычислить Z=1/√(A_1 ) + 1/√(A_(2 ) )+…. +1/√(A_n ) для заданного массива А и заданной точности Eps.
Процедура есть нет только самой программы( Помогите пожалуйста.

[baster128]

Не понял в чем сложность если есть процедура?

Program XXXX;

procedure yyyy;
begin
......
end;
begin
yyyy 
end.

[ЗЛОбнаЯ]

не знаю как сумму ряда записать

[Mad_Cat]

не знаю как сумму ряда записать

процедуру то покажи

[p51x]

не знаю как сумму ряда записать

Как? Циклом...

[ЗЛОбнаЯ]

Сообщение от Mad_Cat

процедуру то покажи

Procedure(x,y0,eps:real;var y:real)
var V,d:real
begin
y:=y0;
V:=3\2*y-1\2*x*exp(3*ln(y));
d:=abs(v-y);
y:=V;
until d<eps;
end.

[Grag]

Until вижу, а хде Repeat???

[ЗЛОбнаЯ]

Сообщение от Grag

Until вижу, а хде Repeat???

Procedure(x,y0,eps:real;var y:real)
var V,d:real
begin
y:=y0;
repeat
V:=3\2*y-1\2*x*exp(3*ln(y));
d:=abs(v-y);
y:=V;
until d<eps;
end.
пойдет?

[ЗЛОбнаЯ]

оуу(( никто не знает?

[Z1000000]

А что это за преобразование:
y(i^3) = x*exp(3*ln(y(i)))

Program Prog1;
var
 A:array[0..99] of Real;
 i : Integer;
 Eps,Summa : Real;
 
function formula (x,eps:real) : Real;
var V,d,y:real;
begin
y:=1/x;
repeat
 V:=3/2*y-1/2*x*exp(3*ln(y));
 d:=abs(v-y);
 y:=V;
until d < eps;
formula := y;
end;


begin
for i := 0 to 99 do
 begin
 A[i] := random*200 + 1;
 end;

Eps := 0.001;
Summa := 0;
for i := 0 to 99 do
 Summa := Summa + formula(A[i],Eps);
writeln ('Значение функции : ',Summa);
end.