procedure draw(); var b:Boolean; i:Integer; begin canvas_clear(); turtle_home(); b := false; for i:= 0 to 18 do begin turtle_penColor(i*10+50,0,250-10*i); turtle_penWidth(8); turtle_forward(20); turtle_right(20); b := not b; if b then turtle_penUp() else turtle_penDown(); end; end;
draw();
ausführen
Quelltext überprüfen:
jetzt prüfen