FOR-Schleife

 zurück

Bereits vor der Ausführung einer Schleife steht fest, wie oft der Schleifenkörper auszuführen ist.

Die FOR-Schleife wird auch Zählschleife genannt.

  

wiederhole für Zähler von Anfangswert bis Endwert Schritt Schrittweite
  Anweisung

Beispiel 1

Karol soll eine Strecke von 8 Ziegeln legen.
(Robot Karol) wiederhole 8 mal
   Hinlegen
   Schritt
*wiederhole

Lassen Sie Karol eine Pyramide bauen, verwenden Sie Schleifen wie oben.

Beispiel 2

Es sollen die ersten 20 Quadratzahlen ermittelt werden:
 

Wiederhole für i von 1 bis 20
Drucke i*i


Beispiel 3 (Delphi)

In einer Tabellenspalte sollenZahlen von 1 bis 10 ausgegeben werden.
Die Komponente StringGrid ist unter "Additional" zu finden. Gitter auf Form aufziehen, Doppelklick, Quelltext eingeben.

procedure TForm1.StringGrid1Click(Sender: TObject);
var i: Integer;                                    // Variable i soll vom Datentyp Ganzzahl sein.
begin
  StringGrid1.Cells[0,0]:= 'Jahr';        // In der Gitterzelle [0,0] steht die Zeichenkette Jahr.
  for i:= 1 to 10 do                            // Wiederhole für i von 1 bis 10 tue Folgendes
  StringGrid1.Cells[0,i]:=IntToStr(i);  // im Gitter [0,i] als Zeichenkette ausgeben. (Anweisung)
end;

Dieses und die drei folgenden Beispiele - gepackt.

Beispiel 4 (Delphi)

In einer Tabelle steht das Wort Buchstabe, bei Klick auf die Tabelle werden alle Buchstaben des Alphabets in einer Message ausgegeben.
Datentyp: generischer Zeichentyp Char

procedure TForm1.StringGrid1Click(Sender: TObject);
var c: Char;                                           // Variable c soll vom Datentyp Char sein.
begin
  StringGrid1.Cells[0,1] := 'Buchstabe';  // In der Gitterzelle [0,1] steht die Zeichenkette Buchstabe.
  for c := 'a' to 'z' do                              // Wiederhole für c von a bis z tue Folgendes
  ShowMessage(c);                               // Zeige Message (Anweisung)
end;

Beispiel 5 (Delphi)

In einer Tabelle steht das Wort Buchstabe, bei Klick auf die Tabelle werden alle Buchstaben des Alphabets nacheinander in einer Message ausgegeben.
Datentyp: generischer Zeichentyp Char
 

kommt noch heute ;-)

Hefteitrag