Projekt: Stadt aus individuellen Häusern
Mit PrimaLogo lassen sich einzelne Programme als Unterprogramme über ein "Hauptprogramm" beziehungsweise ein übergeordnetes Programm öffnen. So können alle Lernende einer Klasse ein eigenes Haus als Programm erstellen und mit einem "Hauptprogramm" werden diese Häuser in zufälliger Reihenfolge zu einer "Stadt" zusammengefasst.
Hier ein Beispiel zum > Importieren.
Was wird gebraucht?
Die Lernenden erstellen ein Programm mit einem vorgegebenen Namen, beispielsweise To Haus1 - die Nummer ist dabei einzigartig (To Haus2, To Haus3...). Sie können dabei individuell vorgehen, zwei Dinge sind aber für alle gleich: Der Ausgangspunkt der Schildkröte ist immer gegen oben zeigend und am Ende von To Haus1 muss die Schildköte bei allen ausgerichtet werden - auf der Grundlinie eine Distanz von 10 nach rechts fahren und anschliessend wieder nach oben zeigen.
Diese Programme werden alle in dasselbe Editor-Blatt (K1, K2...) kopiert. Anschliessend braucht es die Möglichkeit, zufällige Haus-Programme auszuwählen und in einer Reihe anzuordnen. Weiterhin braucht es ein Ausrichten nach einer Reihe Häuser für eine nächste, unter der ersten gezeichneten, Reihe.
| To stadt :laenge :anz | Der Name des "Hauptprogramms: "Stadt". :laenge sagt, wieviele Häuser in der Reihe gezeichnet werden und :anz sagt, wieviele Reihen untereinander sind. |
| make "reihenzahl 180 | Die Reihenzahl wird am Anfang festgelegt und legt fest, wieviel nach unten die zweite Reihe gegenüber der ersten Reihe ist. |
| repeat :anz [ | Innerhalb der pinken repeat-Klammer ist mit dem Parameter :anzahl die Reihe drin. |
| repeat :laenge [ | Innerhalb der orangen repeat-Klammer ist die zufällige Ausgabe der Hausx-Programme der Lernenden in einer Reihe. |
| make "r (random 3)+1 | Die Zeile legt fest, dass es eine Variable r gibt, in der eine Zufallszahl von 1 bis 3 ist (die Klammern und das +1 sind nötig, weil die random 3 -Funktion eine Zahl von 0 bis 2 ausgibt). |
| if :r=1 [haus1] if :r=2 [haus2] if :r=3 [haus3] |
Hier wird mit if abgefragt, ob die oben mit random festgelegte Variable 1, 2 oder 3 ist - je nachdem wird dann das entsprechende Programm Haus1, Haus2 oder Haus3 ausgeführt. |
| ] | Die orangen repeat-Klammer wird geschlossen - eine Reihe von :laenge Häusern ist gezeichnet |
| home | Home setzt die Schildkröte an den Startpunkt zurück (ähnlich dem Befehl cs). Dabei wandert sie nicht, wie bei fd, sondern wird einfach versetzt. |
| pu | Pen-Up, damit die am Startort stehende Schildkröte keine Linie vom ersten Haus der ersten Reihe zum ersten Haus der zweiten Reihe zeichnet. |
| rt 180 fd :reihenzahl rt 180 pd | Die Schildkröte dreht sich, wandert um die Anfangs festgelegte :reihenzahl nach unten und dreht sich wieder mit dem Kopf nach oben: Die Ausgangssituation für jedes Haus. |
| make "reihenzahl :reihenzahl+180 | Weil die Schildkröte nach der orangen Klammer jeweils an den Startpunkt gesetzt wird, und erst von dort aus an den Ausgangspunkt einer neuen Reihe wandert, muss für jede Reihe nach der zweiten die :reihenzahl um jeweils 185 erhöht werden. So wird bei jedem Durchgang (für jede Reihe) die Schildkröte nach dem home-Befehl weiter nach unten versetzt (180, dann 360, dann 540 usw.) |
| ] | Die pinke repeat-Klammer wird geschlossen, wenn der ihr vorangehende Parameter :anz erreicht ist - die Anzahl Reihen der Stadt also erreicht ist |
| end | Das Programm wird beendet. |
Für eine ganze Klasse passen sich folgende Dinge an:
- Der random-Befehl wird auf die Anzahl Häuser erhöht und alle Namen der Haus-Programme müssen jeweils eine eigene Zeile mit "if :r=1 [haus1]" bekommen.
- Das Ausrichten mit :reihenzahl 180 (360, 540 usw) ist je nach Höhe der Häuser zu wenig - einfach die Zahl erhöhen - und zwar sowohl die Startzahl als auch die Addition.
So sieht der Logo-Programm-Code aus
To stadt :laenge :anz
make "reihenzahl 180
repeat :anz [
repeat :laenge [
make "h (random 3)+1
if :h=1 [haus1]
if :h=2 [haus2]
if :h=3 [haus3]
]
home
pu
rt 180 fd :reihenzahl rt 180 pd
make "reihenzahl :reihenzahl+180
]
end
Zeitungs- / Magazinartikel zu PrimaLogo
- > "Kluger Spass: Programmieren in der Primarschule" i Bildung Schweiz (2011)
- > "Programmieren macht Schule – wie die Schildkröte laufen lernt" in lie:zeit (2016)
- > "Die Schildkröte lebt" in profil (2017)
- > "Wie die Schildkröte das Laufen lernt" (2015)
- > "Programmieren, so wichtig wie schreiben und lesen" in Fritz und Fränzi (2016)
Literatur zum Informatikunterricht im Allgemeinen
- > "Informatik und allgemeine Bildung", Hromkovic Juraj (2010)
- > "Homo Informaticus", Hromkovic Juraj (2013)
- > "Programmierunterricht für Kinder und deren Lehrpersonen: Unterrichtsmaterialien, didaktische Herausforderungen und konkrete Erfahrungen", Giovanni Serafini (2015)
- > "Warum Informatik in der Schule", ABZ (2017)
- > "Das Zeitalter der Informatik. Lebenshilfe durch Automation – die Fortschritte in der Informationstechnologie haben unser Leben in den letzten 100 Jahren erheblich erleichtert. Doch von wie viel intellektueller Arbeit sollen Computer uns eigentlich «befreien»? Eine kritische Würdigung", Hromkovic Juraj (2016)
Aktualisiert am 04.09.2018
Kontakt: mit.ivp@phbern.ch