PMG/Kurs 1214/eigene Übungen/Nico

Wiki-Quelltext dieser Seite.

[[Bild:Stechern96_540943_255589004554470_902650104_n.jpg]]
''Beispiele''
#
#
#
#
#
#

=> '''Ich würde ja gerne mit "programmingwiki" arbeiten, jedoch mag mein Rechner einfach nichts ausführen.'''
<font color=red>'''=> zunächst Programmiersprache auswählen!'''</font>


----
----
----
----


'''Mathe'''


<code id="519a6dbee3be4">function add1(a,b,c,d:integer):integer;
begin
result:=a+b+c+d;
end;</code>
<run id="519a6dbee3c96">writeln(inttostr(add1(3,4,5,6)));</run>

<check>
result := ((add1(3,4,5,6) = 18)));
</check>







== Beispiel Turtle (in Pascal) ==
Das nachfolgende Beispiel zeichnet einen farbigen Kreis. <br>
Versuche durch leichte Anpassung 
'''* die Turtle sich nach links drehen zu lassen
* die Anzahl der Kreissegmente zu verdoppeln ohne den Radius des Kreises zu vergrößern
* zwei Kreise (links und rechts) hintereinander durch die Turtle zu zeichnen
* dabei die Farben der Segmente zu verändern.
'''


<code id="513b2f0fc0029">
var isUp:Boolean;
    i:integer;
</code>
<run id="513b2f0fc0095">
selectCanvas(1);
canvas_clear(); // Zeichenfläche löschen
turtle_move(150,100); // Turtle in die Mitte stellen

isUp := false;

for i := 0 to 17 do begin
 turtle_penColor(i*10+50,0,250-10*i);  
 turtle_penWidth(10);
 turtle_forward(20);  
 turtle_right(20); 
 isUp := not isUp; 
 if isUp then turtle_penUp() else turtle_penDown();
end;
</run>

<canvas w=1000></canvas>

== Beispiel Turtle 2 ==

Zeichne in die nächste Zeichenfläche entweder:
'''* ein Quadrat'''
'''* ein Dreieck'''
'''* ein Haus <u>oder</u>''' 
'''* ein Haus mit Tür und Fenster'''




<run id="513b2f0fc00eb">
selectCanvas(2);
canvas_clear(); // Zeichenfläche löschen
turtle_move(200,100); // Turtle in die Mitte stellen
</run>

<canvas w=500></canvas>

<br><br>



[[Bild:Stechern96_303658_225781400872180_127343064049348_375107_950759300_n.jpg]]