Du könntest doch einfach ein kleines Progi machen, mit einen Edit-Feld, wo du Zahlen eingibst und zwei Labels, eine für die WHILE-Schleife und eine für die REPEAT-Schleife.
Beim Knöpfchen-Drücken, werden dann die Schleifen mit der eingegebenen Zahl ausgeführt. In den zwei Labels wird dann angezeigt, wie oft die Schleife ausgeführt wurde. Wenn die Schleife
Ich hab da mal was vorbereitet: (bitte das jetzt mit der legendären Jean Pütz-Stimme vorstellen)
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Zahl: Integer;
Beschriftung: String;
begin
if Trim(Edit1.Text)<>'' then
begin
Zahl:=StrToInt(Edit1.Text);
While Zahl<10 do
begin
Beschriftung:=lblWhile.Caption+#10#13+IntToStr(Zahl);
lblWhile.Caption:=Beschriftung;
Zahl:=Zahl+1;
end;
Zahl:=StrToInt(Edit1.Text);
Repeat
Beschriftung:=lblRepeat.Caption+#10#13+IntToStr(Zahl);
lblRepeat.Caption:=Beschriftung;
Zahl:=Zahl+1;
Until Zahl<10;
end;
end;
Ich weiß jetzt nicht, welches Delphi du nimmst, ggf. musst du bei dem Edit halt einstellen, dass da nur Zahlen 'reindürfen (NumbersOnly) oder halt kurz was kleines Schreibseln, dass da nur Zahlen 'rein können.
EDIT: Mir fällt gerade auch auf, dass bei der REPEAT-Schleife sich bei Zahlen, die größer als 10 sind, eine Endlosschleife bildet. Ich war schon immer Meisterin der Endlosschleifen. -.- Ich schau mal, ob ich das behoben bekomme.
