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.