WS1 TUDD/WS1 Teilnehmer3

Wiki-Quelltext dieser Seite.

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

<code id="5140744bdcb33">
var laenge:integer;
procedure koch(l:real; n:integer);
begin
  if n=1 then turtle_forward(l)
  else begin
    koch(l/3,n-1);
    turtle_left(60);
    koch(l/3,n-1);
    turtle_right(120);
    koch(l/3,n-1);
    turtle_left(60);
    koch(l/3,n-1);
  end
end;
</code>

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

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

</run>