logo programmieren fuer kids
Verfasst: 13.01.2003 20:34:55
logo - das habe ich schon immer gesucht und unter debian gefunden. (debian ueberrascht mich immer wieder...
)
unter debian heisst das paket und programm: ucblogo.
Logo ist eine interpretersprache mit der idee, dass man eine schildkroete steuert, die einen stift bei sich hat. sehr schoen ist an logo, dass man sofort die resultate sieht und dass gerade kinder sich die idee der schildkroete gut vorstellen koennen.
beispiel:
pd - (pendown)stift runter
fd 10 (forward 10) - gehe 10 einheiten
rt 90 (rightturn 90 ) - drehe rechts um 90 grad.
hier ein programm, das ich mit meiner 7-jaehrigen tochter nach ca. 2stunden zusammenhatte:
oder noch eins (nicht von meiner tochter ...)

unter debian heisst das paket und programm: ucblogo.
Logo ist eine interpretersprache mit der idee, dass man eine schildkroete steuert, die einen stift bei sich hat. sehr schoen ist an logo, dass man sofort die resultate sieht und dass gerade kinder sich die idee der schildkroete gut vorstellen koennen.
beispiel:
pd - (pendown)stift runter
fd 10 (forward 10) - gehe 10 einheiten
rt 90 (rightturn 90 ) - drehe rechts um 90 grad.
hier ein programm, das ich mit meiner 7-jaehrigen tochter nach ca. 2stunden zusammenhatte:
Code: Alles auswählen
;logo datei
;wie wir ein viereck malen!
pd
home
clean
setpc 1 ; blue
fd 100 ; S. 1
wait 60 * 2 ;2 sec
rt 90
fd 100 ; S. 2
rt 90
wait 60 *3 ; 3 sec
fd 100 ; S. 3
rt 90
wait 60 * 2 ; 2 sec
fd 100 ; S. 4
;wie das viereck zum Haus wird!
;Dach
wait 60*2
rt 90
fd 100
rt 45
fd 71
rt 90
fd 71
;Tuer
wait 60*3
pu
setxy 50 0
seth 0
pd
fd 40
rt 90
fd 2 *10
rt 90
fd 40
Code: Alles auswählen
;logo datei
home
clean
pd
setpc 1 ; blue
st
;for [i 2 7 1.5] [print :i]
print "***************
print "jetzt-gehts-los
print "seite-1
for [i 1 20 1] [wait 5 fd 5]
print "90grad-drehen
for [i 1 90 10 ] [wait 5 rt 10]
print "seite-2
;
print "farbe-aussuchen
for [i 1 15 1] [wait 5 setpc :i]
setpc 6
;
for [i 1 20 1] [wait 5 fd 5]
print "90grad-drehen
for [i 1 90 10 ] [wait 5 rt 10 ]
;
print "farbe-aussuchen
for [i 1 15 1] [wait 5 setpc :i]
setpc 2
;
print "seite-3
for [i 1 20 1] [wait 5 fd 5]
print "90grad-drehen
for [i 1 90 10 ] [wait 5 rt 10 ]
;
print "farbe-aussuchen
for [i 1 15 1] [wait 5 setpc :i]
setpc 4
;
print "seite-4
for [i 1 20 1] [wait 5 fd 5]