Wenn ich das richtig verstanden habe, ungefähr so (sicher nicht perfekt, aber funktioniert und für einen Info-Kurs völlig ausreichend):
Delphi-Quellcode:
// for
procedure TForm1.Button1Click(Sender: TObject);
var
a, c: Double;
i: Integer;
begin
a := StrToFloat(Edit1.Text);
c := 1;
for i := 1 to StrToInt(Edit2.Text) do
begin
c := c * a;
end;
Edit3.Text := FloatToStr(c);
end;
// while
procedure TForm1.Button2Click(Sender: TObject);
var
a, c: Double;
i: Integer;
begin
a := StrToFloat(Edit1.Text);
c := 1;
i := 0;
while i < StrToInt(Edit2.Text) do
begin
inc(i);
c := c * a;
end;
Edit3.Text := FloatToStr(c);
end;
// repeat
procedure TForm1.Button3Click(Sender: TObject);
var
a, c: Double;
i: Integer;
begin
a := StrToFloat(Edit1.Text);
c := 1;
i := 0;
repeat
inc(i);
c := c * a;
until i = StrToInt(Edit2.Text);
Edit3.Text := FloatToStr(c);
end;