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
Quelltext überprüfen:
jetzt prüfen
