Thema: Delphi 2 hoch 3 hoch 4 u.s.w .

Einzelnen Beitrag anzeigen

boxer123

Registriert seit: 18. Okt 2011
96 Beiträge
 
#18

AW: 2 hoch 3 hoch 4 u.s.w .

  Alt 1. Nov 2011, 19:45
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
  var basis,exponent,result,i:integer;
  begin
    Result := 1;
    for i := 1 to Exponent do
      Result := result * basis; //
      edit3.text:=inttostr(result);
aber ich weiß nicht
  Mit Zitat antworten Zitat