B BADBOYNET Unregistered / Unconfirmed GUEST, unregistred user! 2002-07-25 #4 var i,TempInteger:Integer; begin i:=5;//設定開方的次數 TempInteger:=StrToInt(Edit1.Text); Repeat TempInteger:=TempInteger*StrToInt(Edit1.Text); dec(i); Until i=0;
var i,TempInteger:Integer; begin i:=5;//設定開方的次數 TempInteger:=StrToInt(Edit1.Text); Repeat TempInteger:=TempInteger*StrToInt(Edit1.Text); dec(i); Until i=0;