Einfaches Potenzieren

[haziii]

Vielen Dank für die Begrüßung und die Antworten! Sicherlich werde ich den Fließkomma-Datentyp weiterhin brauchen, da ich sonst keine Exponente < 0 verwenden kann.
Wie zu erwarten kann ich - aufgrund des benutzens dieses inkonsequenten Algorithmus - keine 0 > und < 1 nutzen. Nochmal Danke für alle Antworten. Die Lösung habe ich Ausgearbeitet:

Code:

procedure TForm1.Button1Click(Sender: TObject);

var base, exp, res, i : real;

begin

     base := strtofloat(edit1.text);
     exp := strtofloat(edit2.text);
     res := strtofloat(edit1.text);
     i := 1;


     if exp = 0 then
        res := 1
     else if exp = 1 then
          begin
               res := base;
               i := i+1
          end
     else
         repeat
               begin
                    res := res*base;
                    i := i+1;
               end;
         until i = exp;
         edit3.text := floattostr(res);

end;

Zur Nutzung des Codes werden folgende Komponente benötigt: Drei Edit-Boxen, Ein Button.
Ins Button1.Click Event gehört der Code!

Mit freundlichen Grüßen,

CorsiQa.