Проблема с циклом..

[POPOV]

Вообщем нужно написать простую программу: x + x^2/2^2 + x^3/3^2 + x^4/4^2 и.т.д

Число x и длина ряда n - задаются с клавиатуры.

Вот вроде написал, мне кажется должно всё работать, но результат выдаётся неверный. Где чё неправильно, непонимаю. Попробовал убрать begin и end для цикла, результат меняется))

Помогите пожалуйста разобраться..

 procedure TForm1.Button1Click(Sender: TObject);
var
i,i1,n1,n:integer;
rez, rez2,          x,y,zn,x2,a,sum:double;
begin
n:=strtoint(edit1.Text);
x:=strtofloat(edit2.Text);
y:=1;
zn:=1;
x2:=x;
a:=0;
rez2:=0;
rez:=0;

for i:=1 to n do
begin
// Вычисление числителя
y:=y * x;
x:=x*x2;

// Вычисление знаменателя
a:=a+1;
zn:=a*a;

//  Числитель / знаменатель
rez:=y/zn;

// Прибавление результата деления
rez2:=rez2+rez;


Panel1.Caption:=FloattoStr(rez2);
end;
end;




end.

[Xardas]

Честно говоря, не понимаю зачем такие сложности Можно ведь вполне одним действием записать:

//......................
rez:=0;
for i:=1 to n do
rez:=rez+exp(i*ln(x))/sqr(i);
//.....................

[alexBlack]

2Popov
x/1^2 + x^2/2^2 + x^3/3^2 + x^4/4^2

Сумма, а не произведение

y=0
x2 = x
Цикл ----
--- y = y + x / (i*i)
--- x = x * x2

[POPOV]

Спасибо.. А я чё-та проще сделать не догадался) Делал так как делал бы решая математику ) Большое спасибо всем !