Potenz

[Sharan_]

Delphi-Quellcode:

implementation
    uses math;

{$R *.dfm}

procedure TFAnwendung.BBeendenClick(Sender: TObject);
begin
close;
end;

procedure TFAnwendung.BPotenzierenClick(Sender: TObject);



  var Basis,Exponent,Ergebnis : Integer;
Begin
    Basis:= StrToInt(EZahl.Text);
  Exponent:= StrToInt(EPotenz.Text);
  EErgebnis.Text:= IntToStr(Power(basis, exponent));
  EErgebnis.Text := FloatToStr(power(basis, exPonent));

end;

Bitteschön.