WS1 Teilnehmer11

Aus ProgrammingWiki

Meine erste Test-Seite

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