WS1 Teilnehmer3

Aus ProgrammingWiki

Archivierte Version vom 2013-03-13T12:41:18+00:00. Aktuelle Version

Das ist ein toller Text.

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;

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

WS1 Teilnehmer3

Suche