Wdhlg Alg Prog III

Aus ProgrammingWiki

Beispiel Turtle (in Pascal)

Das nachfolgende Beispiel zeichnet einen farbigen Kreis.
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.

var isUp:Boolean; i:integer;

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;

ausführen

Beispiel Turtle 2

Zeichne in die nächste Zeichenfläche entweder:

• ein Quadrat
• ein Dreieck
• ein Haus oder
• ein Haus mit Tür und Fenster
• ...

selectCanvas(2); canvas_clear(); // Zeichenfläche löschen turtle_move(200,100); // Turtle in die Mitte stellen

ausführen