Anselm

Aus ProgrammingWiki

Archivierte Version vom 2013-05-20T17:01:13+00:00. Aktuelle Version

Hallo auf meiner Seite :-)

writeln(hallo);

Würfeln

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

writeln(wurf(6))

selectCanvas(2);
canvas_clear(); // Zeichenfläche löschen
turtle_move(200,100); // 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);

Anselm

Suche