برنامه توان؟

[ah.amir]

با دروود
میشه لطفا بگید توی این برنامه i , sq چطور ارتباط برقرار میکنن که در خروجی توان محاسبه میشه؟
سپاس



var i :integer;
sq : real;
begin
sq:=1;
for i := 1 to strtoint(edit2.Text) do
sq:=sq*strtoint(edit1.Text);
for i := -1 downto strtoint(edit2.Text) do
sq := sq*1/strtoint(edit1.Text);
edit3.Text:=floattostr(sq);

end;

end.

[ah.amir]

دوستان لطفا اگر کسی میتونه کمک کنه

ممنون

[سعید صابری]

اگه به نحوه به توان رساندادن یک عدد توجه کنید ارتباط این دو را خواهید دانست برای به توان را رساندنیک عدد
باید آن عدد را به اندازه توانش در خودش ضرب کنید مثل 2 به توان 3 = 2*2*2
پس I که همون شمارنده حلقه هست برای تعداد مرحله ضرب عدد
sp که مقدار اولیه اش 1 می باشد(چون ضرب هر عدد در یک میشود همان عدد) هر با در خودش ضرب می شه

مثلا همون 2 به توان سه
حلقه For سه بار اجرا خواهد شد
روند تغییرات متغیر sp به صورت زیر خواهد بود
sp:=1*2 = 2
sp:=2*2 = 4
sp:=4*2 = 8