MSWLOGO RJEŠENJA (rješio Fredi Glavan, prof.)


ZADATAK 1 za 5 i 6 razrede "krug.lgo"
----------------------------------------------------
to krug
cs rt 45
circle 50
repeat 4 [fd 50 bk 50 rt 90]
end


ZADATAK 2 za 5 i 6 razrede "polje.lgo"
----------------------------------------------------

to kvad :str
repeat 4 [fd :str rt 90]
end

to polje :str
repeat 8 [stup :str]
lt 90 fd 8*:str rt 90
end

to stup :str
repeat 8 [kvad :str fd :str]
bk 8*:str rt 90 pu fd :str lt 90 pd
end



ZADATAK 3 za 5 i 6 razrede "pahulja.lgo"
----------------------------------------------------

to pahulja :br :duz
repeat :br [fd :duz bk :duz rt quotient 360 :br]
end



ZADATAK 4 za 5 i 6 razrede "trokuti.lgo"
----------------------------------------------------

to trok
pd repeat 3 [fd 20 lt 120] pu fd 20
end

to trokuti :a :b
cs rt 90
repeat :a [trok] bk product 20 :a
rt 90 fd 20 lt 90
repeat :b [trok] bk product 20 :b
rt 90 fd 20 lt 90
repeat sum :a :b [trok] bk product 20 sum :a :b
pd label se (se :a "+ :b "=) sum :a :b
end



ZADATAK 1 za 7 i 8 razrede "cesalj.lgo"
----------------------------------------------------

to cesalj :br
cs
rt 90 fd (:br-1)*10 rt 90 fd 5 rt 90
fd (:br-1)*20 rt 90 fd 5 rt 90
fd (:br-1)*10 lt 90
repeat :br [fd 50 pu bk 50 rt 90 fd 10 lt 90 pd]
end



ZADATAK 2 za 7 i 8 razrede "kolo.lgo"
----------------------------------------------------

to kolo :manje :vece :br
circle :manje
circle :vece
repeat :br [pu fd :manje pd fd :vece-:manje pu bk :vece rt 360/:br]
end


ZADATAK 3 za 7 i 8 razrede "okomito.lgo"
----------------------------------------------------

to okomito :rijec
if emptyp :rijec [stop]
rt 90 label first :rijec lt 90 pu bk 20 pd
okomito bf :rijec
end

to rijec
cs
pr [Molim Vas upisite jednu rijec!]
okomito readword
end

ZADATAK 4 za 7 i 8 razrede "kvadrati.lgo"
----------------------------------------------------

to kvadrati :poc :krat
if :poc<1 [stop]
repeat 4 [fd :poc rt 90]
fd :poc rt 90
kvadrati difference :poc :krat :krat
end



PCLOGO RJEŠENJA


ZADATAK 1 za 5 i 6 razrede "krug.lgo"
----------------------------------------------------
; Karlo Kotrba
;(dobra rjesenja napisali i Mladen Borovina, te Dorian Ribarić)
to krug 
stampoval 50 50 
rt 45 fd 50 bk 100 fd 50 
lt 90 fd 50 bk 100 fd 50 
end

ZADATAK 2 za 5 i 6 razrede "polje.lgo"
----------------------------------------------------
; Karlo Kotrba 
;(dobra rjesenja napisali i Mladen Borovina, te Dorian Ribarić)
to polje :vel
repeat 8 [repeat 8 [repeat 4 [fd :vel rt 90]pu bk :vel pd] pu fd :vel * 8 rt 90 bk :vel lt 90 pd]
end

ZADATAK 3 za 5 i 6 razrede "pahulja.lgo"
----------------------------------------------------
; Karlo Kotrba 
;(dobra rjesenja napisali i Mladen Borovina, te Dorian Ribarić)
to pahulja :br :krak
repeat :br [fd :krak bk :krak rt 360 / :br]
end

ZADATAK 4 za 5 i 6 razrede "trokuti.lgo"
----------------------------------------------------
; Karlo Kotrba 
;(dobra rjesenja napisali i Mladen Borovina, te Dorian Ribarić)
to trokuti :prvi :drugi
rt 90 repeat :prvi [ repeat 3[fd 20 lt 120] pu fd 25 pd]
pu bk 25 * :prvi rt 90 fd 25 lt 90 pd 
repeat :drugi [ repeat 3[fd 20 lt 120] pu fd 25 pd]
pu bk 25 * :drugi rt 90 fd 25 lt 90 pd 
repeat :drugi+:prvi [ repeat 3[fd 20 lt 120] pu fd 25 pd]
pu bk 25 * (:drugi+:prvi) rt 90 fd 25 lt 90 pd 
lt 90 tt (se :prvi "\+  :drugi   "\=  :prvi+:drugi)
end





ZADATAK 1 za 7 i 8 razrede "cesalj.lgo"
----------------------------------------------------
; Iva Kvasić
to cesalj :a
repeat :a[pd fd 50 bk 50 rt 90 fd 10 lt 90] rt 90 pe bk  10
pd lt 180 fd 20*(:a-1) lt 90 fd 5 lt 90 fd 20*(:a-1) lt 90 fd 5
end

ZADATAK 2 za 7 i 8 razrede "kolo.lgo"
----------------------------------------------------
; Iva Kvasić 
to kolo :a :b :c
pd stampoval :a :a stampoval :b :b 
repeat :c[pu fd :a pd fd :b-:a bk :b-:a pu bk :a rt 360/:c]
end

ZADATAK 3 za 7 i 8 razrede "okomito.lgo"
----------------------------------------------------
; Iva Kvasić
to rijec
cs ct pr [molim upisite jednu rijec!]
make "rjec read
rr :rjec
end

to rr :rjec
if empty? :rjec  [stop]
tt first :rjec pu bk 10 pd
rr bf :rjec
end

ZADATAK 4 za 7 i 8 razrede "kvadrati.lgo"
----------------------------------------------------
; Iva Kvasić
to kvadrati :a :b
if :a<1 [stop]
repeat 5[fd :a rt 90]
kvadrati :a-:b :b
end