WS1 TUDD/WS1 Teilnehmer3

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
Das ist ein toller Text. 

<code id="514072696ccb2">
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;

</code>

<canvas w="600" h="400"></canvas>

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