Die kopfgesteuerte Schleife

Jeder kennt das Problem, man will etwas zeichnen und das nicht nur einmal. Am besten sollen das selbe Objekt öfter in dem Programm vorkommen. Natürlich ist es umständlich für jedes Objekt die Angaben einzeln einzugeben.

Deswegen gibt es in Delphi 2 Möglichkeiten eine Prozedur beliebig oft zu wiederholen. Zum einem die Zählergesteuerte Schleife und die Kopfgesteuerte Schleife. Und diese Kopfgesteuerte möchte wir nun genauer vorstellen.

Die Schleife  beginnt damit, dass er überprüft ob die Position des Stiftes  kleiner ist als die Breite der Leinwand.

Wenn ja soll er eine Prozedur ausführen.

Danach soll er sich von seiner aktuellen Stiftposition, die er nach dem Zeichnen hat, weiter bewegen und eine neue Position einnehmen von der er das nächste mal zu zeichnen beginnt. Dann geht er wieder bei while los und überprüft, ob die Bedingung noch erfüllt ist (Stiftposition < als Breite oder Höhe der Leinwand).

Wenn ja führt er die Prozedur wieder aus.

Allerdings ab der neuen Position (moveto(penpos.x+?,penpos.y+?)). Nach dem zweiten Zeichnen geht er wieder an eine andere Stelle und es geht von oben los. Sollte die Bedingung nicht erfüllt sein, d.h. der Stift ist über die Breite der Leinwand hinaus, wird die Prozedur  beendet.

Aufgabe1

Aufgabe2

Link zur While-Schleife

Link zur Zählerschleife

(Michael Schach, Daniel Manujlov, Denise Ewenz, Manuela Karbach)