Einfache Logo-Beispiele zur Igelgrafik

Einfache Logo-Beispiele - Quellcode

Quadrat2 Dreieck1 Dreieck2
Treppe1 Treppe2 Treppe3
Summe1

Kursarbeit vom 29.3.06

Kursarbeit vom 31.3.06

quadrat2 (mit repeat) =LÖSUNG

to quadrat2 :a
repeat 4 [fd :a rt 90]
end

Aufgabe

gsd1 = Gleichseitiges Dreieck 1 =LÖSUNG

to gsd1 :a
fd :a
rt 120
fd :a
rt 120
fd :a
end

Aufgabe

gsd2 = Gleichseitiges Dreieck 2 =LÖSUNG

to gsd2 :a
rt 30
repeat 3 [fd :a rt 120]
lt 30
end

Aufgabe

treppe1 =LÖSUNG

to treppe1 :n :a
repeat :n [fd :a rt 90 fd :a lt 90]
rt 180
fd :n*:a
rt 90
fd :n*:a
rt 90
end

Aufgabe

treppe2 = LÖSUNG

to treppe2 :n :a
repeat :n [fd :a rt 90 fd 2*:a lt 90]
rt 180
fd :n*:a
rt 90
fd :n*2*:a
rt 90
end

Aufgabe

treppe3 = LÖSUNG

to treppe3 :n :a
make "b :a
repeat :n [fd :b rt 90 fd :b lt 90 make "b :b+:a]
rt 180
make "b :a
repeat :n [fd :b make "b :b + :a]
rt 90
make "b :a
repeat :n [fd :b make "b :b + :a]
rt 90
end

Aufgabe

Treppe3b

to treppe3b :n :a
make "c 0
make "b :a
repeat :n [fd :b rt 90 fd :b make "c :c+:b lt 90 make "b :b + :a]
rt 180
fd :c
rt 90
fd :c
rt 90
end

Aufgabe

Summe1

to summe :n
make "s 0
make "i 0
repeat :n [make "i :i+1 make "s :s+:i]
print :s
end

Aufgabe

Kette (Hauptprogramm kette)

to kette :n :a :d
pu lt 90 fd 300 rt 180 pd
fd :d
repeat :n [ make "z random 3
  ifelse :z=0 [quad :a]
              [ ifelse :z=1 [raute :a][kreis :a] ]
  fd :d ]
end

Kette1 (kreis)

to kreis :a
pu
fd :a/2
pd
circle :a/2
pu
fd :a/2
pd
end

Kette2 (quad)

to quad :a
lt 90 fd :a/2
rt 90
repeat 3 [fd :a rt 90]
fd :a/2
rt 90
pu
fd :a
pd
end

Kette3 (raute)

to raute :a
lt 45
repeat 4 [fd :a rt 90]
pu
fd :a
rt 90
fd :a
lt 45
pd
end

Logolösungen zur Kursarbeit vom 29.3.06 A

to treppe :n :s
repeat :n [fd :s rt 90 fd 2*:s lt 90]
rt 90
fd :s
rt 90
repeat :n [fd :s rt 90 fd 2*:s lt 90]
rt 90
fd :s
end

to pyramide :k :a
repeat :k [fd :a rt 90 fd :a  lt 90]
; Kreis ANFANG
pu
fd :a/2
pd
circle :a/2
pu
bk :a/2
pd
; Kreis ENDE
rt 90
repeat :k [fd :a rt 90 fd :a lt 90]
rt 180
fd 2*:k*:a
end

to haeuser :n :z
repeat :n [lt 45 fd :z*1.41 lt 90 fd :z*1.41 lt 45 fd :z rt 180]
rt 90
fd 2*:n*:z
lt 90
fd :n*:z
end

to kisten :n :a
make "b :a
repeat :n [repeat 4 [fd :b rt 90] rt 90 make "b :b+:a pu fd :b lt 90 pd]
end

Logolösungen zur Kursarbeit vom 29.3.06 B

to treppe :n :s
repeat :n [fd :s rt 90 fd 2*:s lt 90]
rt 90
fd :s
rt 90
repeat :n [fd :s rt 90 fd 2*:s lt 90]
rt 90
fd :s
end

to pyramide :m :h
repeat :m [fd :h lt 90 fd :h  rt 90]
; Kreis ANFANG
pu
fd :h/2
pd
circle :h/2
pu
bk :h/2
pd
; Kreis ENDE
lt 90
repeat :m [fd :h lt 90 fd :h rt 90]
rt 180
fd 2*:m*:h
end

to haeuser :n :x
repeat :n [fd :x rt 45 fd :x*1.41 rt 90 fd :x*1.41 lt 135]
rt 180
fd :n*:x
rt 90
fd 2*:n*:x
end

to kisten :n :d
make "b :d*:n
repeat :n [repeat 4 [fd :b lt 90] lt 90 pu fd :b+:d rt 90 make "b :b-:d pd]
end

Logolösungen zur Kursarbeit vom 31.3.06

to treppe :m :a
repeat :m [fd :a rt 90 fd :a lt 90]
rt 90
fd :a
rt 90
repeat :m [fd :a rt 90 fd :a lt 90]
rt 90
fd :a
end

to pyramide :n :h
make "m :n
repeat :n [repeat 2 [fd :h rt 90 fd 2*:m*:h  rt 90] fd :h rt 90 fd :h lt 90 make "m :m-1]
end

to tunnel :n :a
make "h :a
make "b :a
repeat :n [fd :h rt 90 fd :b rt 90 fd :h rt 90 pu fd :b+:a rt 90 pd make "h :h+:a make "b :b+:a+:a]
end

to qua :a
lt 90
repeat 3 [fd :a/2 rt 90 fd :a rt 90 fd :a/2]
lt 90
end

to kre :a
pu
fd :a/2
pd
circle :a/2
pu
fd :a/2
pd
end

to kette :n :a
repeat :n [make "z random 2 ifelse :z=0 [kre :a] [qua :a]]
end

Wird demnächst fortgesetzt / Helmut Klatt 17.3.06