WS1 Teilnehmer17

Aus ProgrammingWiki

Das ist ein Test...

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 unter [http://www.inf-schule.de/ index.php?version=0&seite=informatik/rekursion/rekursionzahlen/uebungen]. 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