Potenz

[Noedel]

Delphi-Quellcode:

procedure TFAnwendung.BPotenzierenClick(Sender: TObject);
  var Basis,Exponent,Ergebnis : Integer;
begin
  Basis:= StrToInt(EZahl.Text);
Exponent:= StrToInt(EPotenz.Text);
EErgebnis.Text := FloatToStr(power(basis, exPonent));
end //edit hat gefehlt

fertig!