Anselm

Aus ProgrammingWiki

Hallo auf meiner Seite :-)

Wichtig: Auf der Seite "Hallo" gibt es noch ein praktisches Programm für Mathe!!!

writeln('Hallo');

ausführen

Addition

function addition4(a,b,c,d:integer):integer; begin result:=a+b+c+d; end;

writeln(inttostr(addition4(3,4,5,6)));

ausführen

Würfeln

function wurf(a:integer):integer; begin result:=(random(a)+1); end;

writeln(inttostr(wurf(6)));

ausführen

Achtung: Launischer Smiley

Laufende Schildkröte 1

var isUp:Boolean; i:integer;

selectCanvas(1); canvas_clear(); // Zeichenfläche löschen turtle_move(200,100); // Turtle in die Mitte stellen isUp := false; for i := 0 to 34 do begin turtle_penColor(i*10+50,0,250-10*i); turtle_penWidth(10); turtle_forward(10); turtle_left(10); isUp := not isUp; if isUp then turtle_penUp() else turtle_penDown(); end; isUp := false; for i := 0 to 34 do begin turtle_penColor(i*10+50,0,250-10*i); turtle_penWidth(10); turtle_forward(10); turtle_left(10); isUp := not isUp; if isUp then turtle_penUp() else turtle_penDown(); end; isUp := false; for i := 0 to 34 do begin turtle_penColor(i*100+50,0,2500-100*i); turtle_penWidth(10); turtle_forward(10); turtle_right(10); isUp := not isUp; if isUp then turtle_penUp() else turtle_penDown(); end; isUp:= false; for i := 0 to 34 do begin turtle_penColor(i*10+50,0,250-10*i);turtle_penWidth(10); turtle_forward(10); turtle_right(10); isUp:= not isUp; if isUp then turtle_penUp() else turtle_penDown(); end; turtle_move(800,140); isUp := false; for i := 0 to 300 do begin turtle_penColor(i*i-500*i,400-i,3*i-100); turtle_penWidth(8); turtle_forward(90); turtle_left(90); turtle_left (31); isUp := not isUp; if isUp then turtle_penUp() else turtle_penDown(); end; turtle_move(500,140); isUp := false; for i := 0 to 2500 do begin turtle_penColor(i*1-800,80000000*i-i*i*i-i*i*50000*i,-1700+i); turtle_penWidth(8); turtle_forward(100); turtle_left(90); turtle_left (45.1); isUp := not isUp; if isUp then turtle_penUp() else turtle_penDown(); end; turtle_hide;

ausführen

Laufende Schildkröte 2

selectCanvas(2); canvas_clear(); // Zeichenfläche löschen turtle_move(200,160); // Turtle in die Mitte stellen for i := 0 to 4 do begin // Haus 1 turtle_penColor(i*10+50,0,250-10*i); turtle_penWidth(5); turtle_forward(80); turtle_left(90); end; for i := 0 to 0 do begin turtle_penColor (255,0,0); turtle_right(60); turtle_penWidth(5); turtle_forward(80); end; for i := 0 to 0 do begin turtle_penColor (255,0,0); turtle_left(120); turtle_penWidth(5); turtle_forward(80); end; turtle_left(30); turtle_move(130,144); //Fenster for i := 0 to 3 do begin turtle_penColor (255,0,255); turtle_left(90); turtle_penWidth(5); turtle_forward(20); end; turtle_move(170,160); // Tür for i := 0 to 0 do begin turtle_penColor (0,255,255); turtle_left(90); turtle_penWidth(5); turtle_forward(20); turtle_left(90); turtle_forward(40); turtle_left(90); turtle_forward(20); turtle_left(90); turtle_forward(40); end; turtle_move(300,80); // Haus 2 turtle_penWidth(5); turtle_penColor(20,160,220); turtle_forward(80); turtle_right(90); turtle_forward(80); turtle_right(90); turtle_forward(80); turtle_right(90); turtle_forward(80); turtle_left(120); turtle_forward(80); turtle_left(120); turtle_forward(80); turtle_move(235,144); // Fenster turtle_left(30); turtle_penWidth(3); turtle_left(90); turtle_forward(20); turtle_left(90); turtle_forward(20); turtle_left(90); turtle_forward(20); turtle_left(90); turtle_forward(20); turtle_move(272,160); // Tür turtle_penWidth(3); turtle_left(90); turtle_forward(20); turtle_left(90); turtle_forward(40); turtle_left(90); turtle_forward(20); turtle_left(90); turtle_forward(40); turtle_move(350,145); // Schildkröte hinsetzen turtle_right(90);

ausführen

So jetzt nur noch etwas Rekursion.

procedure muster(l: real; n: integer); begin if n > 1 then begin muster(190/200*l,n-1); turtle_forward(l); turtle_right(120); turtle_forward(l); turtle_right(120); turtle_forward(l); turtle_right(120); end; end;

selectCanvas(3); canvas_clear(); // Zeichenfläche löschen turtle_move(300,350); muster(300,100);

ausführen