Einzelnen Beitrag anzeigen

EineFrage

Registriert seit: 3. Nov 2013
7 Beiträge
 
#2

AW: Schleifen-Problem

  Alt 3. Nov 2013, 03:00
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;

Geändert von EineFrage ( 3. Nov 2013 um 03:02 Uhr)
  Mit Zitat antworten Zitat