Turtlegrafik (Pascal)

Aus ProgrammingWiki

Quadratpflanze

Die Bilder zeigen die Entstehung einer Quadratpflanze.
Bei jedem neuen Aufruf beträgt die Seitenlänge jeweils nur noch ein Drittel der vorherigen.
Weitere Informationen sind unter www.inf-schule.de zu finden.

Aufgaben:

1. Beschreibe in der "Quadratpflanze" die Selbstähnlichkeiten.
   • Formuliere also die "grundlegenden Gedanken" für das Zeichnen der Pflanze.
   • Nach welcher Rekursionsvorschrift werden "Quadratpflanzen" erzeugt?
2. Zeichne den nächsten (vierten) Schritt in der Entwicklung.
3. Implementiere eine "Quadratpflanze" mit beliebiger Rekursionstiefe in der Turtlegrafik.
   
   

var laenge: real; procedure pflanze(l: real; n: integer); begin if n=1 then turtle_forward(l) else begin turtle_forward(l/3); turtle_left(90); pflanze(l/3,n-1); turtle_right(90); pflanze(l/3,n-1); turtle_right(90); pflanze(l/3,n-1); turtle_left(90); turtle_forward(l/3); end; end;

selectcanvas(1); canvas_clear(); //Zeichenfläche löschen laenge:=400; turtle_move((600-laenge)/2, 300); //Turtle ausrichten turtle_right(90); pflanze(laenge,5);

ausführen

Zurück zum Workshop zum Programmingwiki.