Schleifen-Problem

[EineFrage]

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;