PMG/Kurs 11/Wdhlg Alg Prog III

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
== Beispiel Turtle (in Pascal) ==

Das nachfolgende Beispiel zeichnet einen farbigen Kreis. <br>
Versuche durch leichte Anpassung 
* die Turtle sich nach links drehen zu lassen
* die Anzahl der Kreissegmente zu verdoppeln ohne den Radius des Kreises zu vergrößern
* zwei Kreise (links und rechts) hintereinander durch die Turtle zu zeichnen
* dabei die Farben der Segmente zu verändern.

<code id="4f5ca85e25663">
var isUp:Boolean;
    i:integer;
</code>
<run id="4f5ca85e2571c">
selectCanvas(1);
canvas_clear(); // Zeichenfläche löschen
turtle_move(200,100); // Turtle in die Mitte stellen

isUp := false;

for i := 0 to 17 do begin
 turtle_penColor(i*10+50,0,250-10*i);  
 turtle_penWidth(10);
 turtle_forward(20);  
 turtle_right(20); 
 isUp := not isUp; 
 if isUp then turtle_penUp() else turtle_penDown();
end;
</run>

<canvas w=1000></canvas>

== Beispiel Turtle 2 ==

Zeichne in die nächste Zeichenfläche entweder:
* ein Quadrat
* ein Dreieck
* ein Haus <u>oder</u> 
* ein Haus mit Tür und Fenster
* ...



<run id="4f5ca85e2578e">
selectCanvas(2);
canvas_clear(); // Zeichenfläche löschen
turtle_move(200,100); // Turtle in die Mitte stellen
</run>

<canvas w=500></canvas>

<br><br>