to izhod WindowDelete "GlavnoOkno CS end to izhodvpr WindowCreate "GlavnoOkno "IzhodVpr [Izhod iz programa] 80 70 130 50 [] StaticCreate "IzhodVpr "TextIzh [Ali želiš zapustiti program?] 5 5 100 10 ButtonCreate "IzhodVpr "GumbIzh1 "Da 5 20 55 10 [WindowDelete "IzhodVpr Izhod] ButtonCreate "IzhodVpr "GumbIzh2 "Ne 65 20 55 10 [WindowDelete "IzhodVpr] Sound [1000 5] end to zaporedje_me make "vrstnired_me zaporedna 40 make "vrstnired1_me premesaj :vrstnired_me vprmesano end to mesano make "pravilnime 0 make "napacnime 0 WindowDelete "main WindowCreate "Mes "Mesano [Mešane naloge] 20 20 300 140 [] GroupBoxCreate "Mesano "OdgMe 0 0 210 90 StaticCreate "Mesano "OdgMe1 [] 10 10 190 30 StaticCreate "Mesano "OdgMe2 [] 20 40 180 10 StaticCreate "Mesano "OdgMe3 [] 20 50 180 10 StaticCreate "Mesano "OdgMe4 [] 20 60 180 10 StaticCreate "Mesano "TockeP3 [Pravilnih odgovorov:] 140 105 60 20 ButtonCreate "Mesano "GumbTockeP3 :pravilnime 180 105 20 20 [] StaticCreate "Mesano "TockeN3 [Napačnih odgovorov:] 230 105 60 20 ButtonCreate "Mesano "GumbTockeN3 :napacnime 270 105 20 20 [] ButtonCreate "Mesano "GumbPreveri3 [Potrdi izbiro] 2 95 60 15 [preverime naprejme] ButtonCreate "Mesano "Racunalo [Računalo] 230 80 60 15 [racunalo] ButtonCreate "Mesano "GumbNazaj3 [Na prvo stran] 230 5 60 15 [CS WindowDelete "Mes valj,stozec] ButtonCreate "Mesano "GumbIzhod3 [Izhod] 230 25 60 15 [izhodvpr] RadioButtonCreate "Mesano "OdgMe "a3 [] 10 40 10 10 RadioButtonCreate "Mesano "OdgMe "b3 [] 10 50 10 10 RadioButtonCreate "Mesano "OdgMe "c3 [] 10 60 10 10 make "StevecMe 1 make "OdgovorMe (:StevecMe + random 3) vprmesano end to naprejme ifelse :StevecMe>18 [rezultatime stop][make "OdgovorMe (:StevecMe + random 3) make "StevecMe :StevecMe +3 vprmesano] RadioButtonDelete "a3 RadioButtonDelete "b3 RadioButtonDelete "c3 RadioButtonCreate "Mesano "OdgMe "a3 [] 10 40 10 10 RadioButtonCreate "Mesano "OdgMe "b3 [] 10 50 10 10 RadioButtonCreate "Mesano "OdgMe "c3 [] 10 60 10 10 end to naprejva ifelse :StevecVa>18 [rezultativa stop][make "OdgovorVa (:StevecVa + random 3) make "StevecVa :StevecVa +3 vprvalj] RadioButtonDelete "a1 RadioButtonDelete "b1 RadioButtonDelete "c1 RadioButtonCreate "Valj "OdgVa "a1 [] 10 40 10 10 RadioButtonCreate "Valj "OdgVa "b1 [] 10 50 10 10 RadioButtonCreate "Valj "OdgVa "c1 [] 10 60 10 10 end to naprejst ifelse :StevecSt>18 [rezultatist stop][make "OdgovorSt (:StevecSt + random 3) make "StevecSt :StevecSt +3 vprstozec] RadioButtonDelete "a2 RadioButtonDelete "b2 RadioButtonDelete "c2 RadioButtonCreate "Stozec "OdgSt "a2 [] 10 40 10 10 RadioButtonCreate "Stozec "OdgSt "b2 [] 10 50 10 10 RadioButtonCreate "Stozec "OdgSt "c2 [] 10 60 10 10 end to navodila WindowCreate "GlavnoOkno "Navodila "Navodila 10 10 350 170 [] StaticCreate "Navodila "TextNav1 [Navodila za uporabo programa:] 5 5 210 10 StaticCreate "Navodila "TextNav2 [V naslednjem programu lahko preizkusiš svoje znanje o valju in stožcu. S klikom na ustrezen gumb si izberi vaje iz valja, stožca ali mešane naloge.] 5 25 340 20 StaticCreate "Navodila "TextNav3 [Ob vsakem vprašanju imaš tri možne odgovore. Izberi pravilnega in klikni na gumb "Potrdi izbiro".] 5 50 340 10 StaticCreate "Navodila "TextNav4 [Ob zaključku reševanja ti program sporoči uspešnost reševanja nalog.] 5 65 340 10 StaticCreate "Navodila "TextNav5 [S klikom na gumb "Na prvo stran" se vrneš na začetek in si izbereš drugo temo za reševanje.] 5 80 340 10 StaticCreate "Navodila "TextNav7 [Klikni na gumb "Izhod", če želiš zapustiti ta program!] 5 95 340 10 StaticCreate "Navodila "TextNav8 [Za pomoč pri računanju klikni na gumb "Računalo".] 5 110 340 10 StaticCreate "Navodila "TextNav9 [Želim ti veliko uspeha pri reševanju!] 30 128 340 10 StaticCreate "Navodila "TextNav10 [Avtorica: Brigita Rustja] 5 145 130 15 ButtonCreate "Navodila "GumbNav1 "Nazaj 290 130 40 15 [WindowDelete "Navodila] end to valj,stozec CS HT WindowCreate "main "GlavnoOkno "valj,stozec 20 20 230 130 [] StaticCreate "GlavnoOkno "Text1 [Izberi katero snov želiš preveriti:] 5 5 130 10 ButtonCreate "GlavnoOkno "Gumb1 [Valj] 20 30 100 15 [Valj] ButtonCreate "GlavnoOkno "Gumb2 [Stozec] 20 55 100 15 [Stozec] ButtonCreate "GlavnoOkno "Gumb3 [Mešane naloge] 20 80 100 15 [Mesano] ButtonCreate "GlavnoOkno "GumbNav [Navodila] 150 42 50 15 [Navodila] ButtonCreate "GlavnoOkno "GumbIzhod [Izhod] 150 67 50 15 [IzhodVpr] end to valj make "pravilniva 0 make "napacniva 0 WindowDelete "main WindowCreate "Val "Valj [Valj] 20 20 300 140 [] GroupBoxCreate "Valj "OdgVa 0 0 210 90 StaticCreate "Valj "OdgVa1 [] 10 10 190 30 StaticCreate "Valj "OdgVa2 [] 20 40 180 10 StaticCreate "Valj "OdgVa3 [] 20 50 180 10 StaticCreate "Valj "OdgVa4 [] 20 60 180 10 StaticCreate "Valj "TockeP1 [Pravilnih odgovorov:] 140 105 60 20 ButtonCreate "Valj "GumbTockeP1 :pravilniva 180 105 20 20 [] StaticCreate "Valj "TockeN1 [Napačnih odgovorov:] 230 105 60 20 ButtonCreate "Valj "GumbTockeN1 :napacniva 270 105 20 20 [] ButtonCreate "Valj "GumbPreveri1 [Potrdi izbiro] 2 95 60 15 [preveriva naprejva] ButtonCreate "Valj "Racunalo [Računalo] 230 80 60 15 [racunalo] ButtonCreate "Valj "GumbNazaj1 [Na prvo stran] 230 5 60 15 [CS WindowDelete "Val valj,stozec] ButtonCreate "Valj "GumbIzhod1 [Izhod] 230 25 60 15 [izhodvpr] RadioButtonCreate "Valj "OdgVa "a1 [] 10 40 10 10 RadioButtonCreate "Valj "OdgVa "b1 [] 10 50 10 10 RadioButtonCreate "Valj "OdgVa "c1 [] 10 60 10 10 make "StevecVa 1 make "OdgovorVa (:StevecVa + random 3) vprvalj end to premesaj :vprMe (local "i "j "t) localmake "n count :vprMe localmake "r [] make "z (array :n 1) repeat :n [setitem repcount :z item repcount :vprMe] repeat :n [ make "i :n+1-repcount make "j 1+random :i make "t item :j :z setitem :j :z item :i :z make "r fput :t :r ] op :r end to preverime ifelse RadioButtonGet :rMe [make "pravilnime :pravilnime +1 ButtonDelete "GumbTockeP3 ButtonCreate "Mesano "GumbTockeP3 :pravilnime 180 105 20 20 []][make "napacnime :napacnime +1 ButtonDelete "GumbTockeN3 ButtonCreate "Mesano "GumbTockeN3 :napacnime 270 105 20 20 []] end to premesaj :vprVa (local "i "j "t) localmake "n count :vprVa localmake "r [] make "z (array :n 1) repeat :n [setitem repcount :z item repcount :vprVa] repeat :n [ make "i :n+1-repcount make "j 1+random :i make "t item :j :z setitem :j :z item :i :z make "r fput :t :r ] op :r end to preveriva ifelse RadioButtonGet :rVa [make "pravilniva :pravilniva +1 ButtonDelete "GumbTockeP1 ButtonCreate "Valj "GumbTockeP1 :pravilniva 180 105 20 20 []][make "napacniva :napacniva +1 ButtonDelete "GumbTockeN1 ButtonCreate "Valj "GumbTockeN1 :napacniva 270 105 20 20 []] end to premesaj :vprSt (local "i "j "t) localmake "n count :vprSt localmake "r [] make "z (array :n 1) repeat :n [setitem repcount :z item repcount :vprSt] repeat :n [ make "i :n+1-repcount make "j 1+random :i make "t item :j :z setitem :j :z item :i :z make "r fput :t :r ] op :r end to preverist ifelse RadioButtonGet :rSt [make "pravilnist :pravilnist +1 ButtonDelete "GumbTockeP2 ButtonCreate "Stozec "GumbTockeP2 :pravilnist 180 105 20 20 []][make "napacnist :napacnist +1 ButtonDelete "GumbTockeN2 ButtonCreate "Stozec "GumbTockeN2 :napacnist 270 105 20 20 []] end to stozec make "pravilnist 0 make "napacnist 0 WindowDelete "main WindowCreate "Sto "Stozec [Stožec] 20 20 300 140 [] GroupBoxCreate "Stozec "OdgSt 0 0 210 90 StaticCreate "Stozec "OdgSt1 [] 10 10 190 30 StaticCreate "Stozec "OdgSt2 [] 20 40 180 10 StaticCreate "Stozec "OdgSt3 [] 20 50 180 10 StaticCreate "Stozec "OdgSt4 [] 20 60 180 10 StaticCreate "Stozec "TockeP2 [Pravilnih odgovorov:] 140 105 60 20 ButtonCreate "Stozec "GumbTockeP2 :pravilnist 180 105 20 20 [] StaticCreate "Stozec "TockeN2 [Napačnih odgovorov:] 230 105 60 20 ButtonCreate "Stozec "GumbTockeN2 :napacnist 270 105 20 20 [] ButtonCreate "Stozec "GumbPreveri2 [Potrdi izbiro] 2 95 60 15 [preverist naprejst] ButtonCreate "Stozec "Racunalo [Računalo] 230 80 60 15 [racunalo] ButtonCreate "Stozec "GumbNazaj2 [Na prvo stran] 230 5 60 15 [CS WindowDelete "Sto valj,stozec] ButtonCreate "Stozec "GumbIzhod2 [Izhod] 230 25 60 15 [izhodvpr] RadioButtonCreate "Stozec "OdgSt "a2 [] 10 40 10 10 RadioButtonCreate "Stozec "OdgSt "b2 [] 10 50 10 10 RadioButtonCreate "Stozec "OdgSt "c2 [] 10 60 10 10 make "StevecSt 1 make "OdgovorSt (:StevecSt + random 3) vprstozec end to racunalo WindowCreate "Rac "Rac [Računalo] 20 165 200 60 [] GroupBoxCreate "Rac "Od 0 0 195 30 StaticCreate "Rac "T1 [Vpiši računski izraz in klikni gumb "="] 5 5 150 10 ComboBoxCreate "Rac "Od1 5 15 125 10 ButtonCreate "Rac "GumbJe [=] 135 16 10 10 [make "odg (ComboBoxGetText "Od1) ButtonCreate "Rac "Rez round(run(:odg)) 150 13 40 15 []] ButtonCreate "Rac "Zbrisi "Zbriši 110 33 40 15 [ComboBoxDelete "Od1 ComboBoxCreate "Rac "Od1 5 15 125 10 ButtonDelete "Rez] ButtonCreate "Rac "GumbZapri "Zapri 155 33 40 15 [WindowDelete "Rac] end to rezultatime make "prme :pravilnime make "tockeme round(:prme / 10)*100 WindowDelete "Mes WindowCreate "RezMe "RezultatiMe "Rezultati 20 20 140 70 [] StaticCreate "RezultatiMe "TextR9 [Rezultati reševanja:] 5 5 100 10 StaticCreate "RezultatiMe "TextR10 [Dosegel si ] 5 20 100 10 StaticCreate "RezultatiMe "TextR11 :tockeme 50 20 100 10 StaticCreate "RezultatiMe "TextR12 [%.] 60 20 100 10 ButtonCreate "RezultatiMe "GumbR3 [Na prvo stran] 15 35 50 15 [WindowDelete "RezMe valj,stozec] ButtonCreate "RezultatiMe "GumbIzhod4 [Izhod] 75 35 50 15 [IzhodVpr] end to rezultativa make "prva :pravilniva make "tockeva round(:prva / 10)*100 WindowDelete "Val WindowCreate "RezVa "RezultatiVa "Rezultati 20 20 140 70 [] StaticCreate "RezultatiVa "TextR1 [Rezultati reševanja:] 5 5 100 10 StaticCreate "RezultatiVa "TextR2 [Dosegel si ] 5 20 100 10 StaticCreate "RezultatiVa "TextR3 :tockeva 50 20 100 10 StaticCreate "RezultatiVa "TextR4 [%.] 60 20 100 10 ButtonCreate "RezultatiVa "GumbR1 [Na prvo stran] 15 35 50 15 [WindowDelete "RezVa valj,stozec] ButtonCreate "RezultatiVa "GumbIzhod2 [Izhod] 75 35 50 15 [IzhodVpr] end to rezultatist make "prst :pravilnist make "tockest round(:prst / 10)*100 WindowDelete "Sto WindowCreate "RezSt "RezultatiSt "Rezultati 20 20 140 70 [] StaticCreate "RezultatiSt "TextR5 [Rezultati reševanja:] 5 5 100 10 StaticCreate "RezultatiSt "TextR6 [Dosegel si ] 5 20 100 10 StaticCreate "RezultatiSt "TextR7 :tockest 50 20 100 10 StaticCreate "RezultatiSt "TextR8 [%.] 60 20 100 10 ButtonCreate "RezultatiSt "GumbR2 [Na prvo stran] 15 35 50 15 [WindowDelete "RezSt valj,stozec] ButtonCreate "RezultatiSt "GumbIzhod3 [Izhod] 75 35 50 15 [IzhodVpr] end to zaporedna :n localmake "vprMe [] repeat :n [make "vprMe lput repcount :vprMe] op :vprMe end to vprmesano make "VprMe(array 40 1) make "OdgMea(array 40 1) make "OdgMeb(array 40 1) make "OdgMec(array 40 1) make "ResitevMe(array 40 1) SetItem 1 :VprMe [Kakšno geometrijsko telo je valj?] SetItem 1 :OdgMea [a) okroglo] SetItem 1 :OdgMeb [b) oglato] SetItem 1 :OdgMec [c) ovalno] SetItem 1 :ResitevMe [a3] SetItem 2 :VprMe [Koliko osnovnih ploskev ima valj?] SetItem 2 :OdgMea [a) 1] SetItem 2 :OdgMeb [b) 2] SetItem 2 :OdgMec [c) nobene] SetItem 2 :ResitevMe [b3] SetItem 3 :VprMe [Osnovna ploskev valja je ...] SetItem 3 :OdgMea [a) elipsa] SetItem 3 :OdgMeb [b) polkrog] SetItem 3 :OdgMec [c) krog] SetItem 3 :ResitevMe [c3] SetItem 4 :VprMe [Kakšna ploskev je plašč valja?] SetItem 4 :OdgMea [a) kriva] SetItem 4 :OdgMeb [b) ravna] SetItem 4 :OdgMec [c) okrogla] SetItem 4 :ResitevMe [a3] SetItem 5 :VprMe [Koliko stranskih robov ima valj?] SetItem 5 :OdgMea [a) 1] SetItem 5 :OdgMeb [b) 2] SetItem 5 :OdgMec [c) 3] SetItem 5 :ResitevMe [b3] SetItem 6 :VprMe [Skozi središči osnovnih ploskev poteka ...] SetItem 6 :OdgMea [a) osni presek] SetItem 6 :OdgMeb [b) središčnica] SetItem 6 :OdgMec [c) os] SetItem 6 :ResitevMe [c3] SetItem 7 :VprMe [Površino valja izračunamo s pomočjo obrazca ...] SetItem 7 :OdgMea [a) P=2O+pl] SetItem 7 :OdgMeb [b) P=O+pl] SetItem 7 :OdgMec [c) P=2(O+pl)] SetItem 7 :ResitevMe [a3] SetItem 8 :VprMe [Ploščina osnovne ploskve je ...] SetItem 8 :OdgMea [a) O=2pir] SetItem 8 :OdgMeb [b) O=pir^2] SetItem 8 :OdgMec [c) O=2pir^2] SetItem 8 :ResitevMe [b3] SetItem 9 :VprMe [Kakšen lik je plašč valja?] SetItem 9 :OdgMea [a) trikotnik] SetItem 9 :OdgMeb [b) romb] SetItem 9 :OdgMec [c) pravokotnik] SetItem 9 :ResitevMe [c3] SetItem 10 :VprMe [Volumen valja izračunamo ...] SetItem 10 :OdgMea [a) V=Ov] SetItem 10 :OdgMeb [b) V=2Ov] SetItem 10 :OdgMec [c) V=Pv] SetItem 10 :ResitevMe [a3] SetItem 11 :VprMe [Koliko litrov vode potrebujemo, da čašo v obliki valja, ki ima premer osnovne ploskve 10cm in višino 18 cm, napolnimo do vrha?] SetItem 11 :OdgMea [a) 14,13l] SetItem 11 :OdgMeb [b) 1,413l] SetItem 11 :OdgMec [c) 1413l] SetItem 11 :ResitevMe [b3] SetItem 12 :VprMe [Polmer osnovne ploskve valja je 8cm, plašč pa je 4-krat večji od osnovne ploskve. Kolikšna je prostornina valja?] SetItem 12 :OdgMea [a) 124 cm^3] SetItem 12 :OdgMeb [b) 128pi cm^3] SetItem 12 :OdgMec [c) 124pi cm^3] SetItem 12 :ResitevMe [c3] SetItem 13 :VprMe [Površina enakostraničnega valja meri 312pi cm^2, osni presek pa 144 cm. Izračunaj volumen.] SetItem 13 :OdgMea [a) V=720pi cm^3] SetItem 13 :OdgMeb [b) V=120 cm^3] SetItem 13 :OdgMec [c) V=720 cm^3] SetItem 13 :ResitevMe [a3] SetItem 14 :VprMe [Če je osni presek kvadrat, je valj ...] SetItem 14 :OdgMea [a) enakokrak] SetItem 14 :OdgMeb [b) enakostranični] SetItem 14 :OdgMec [c) poševen] SetItem 14 :ResitevMe [b3] SetItem 15 :VprMe [Stranica pravokotnika, ki je plašč valja, je enaka ...] SetItem 15 :OdgMea [a) polmeru kroga] SetItem 15 :OdgMeb [b) ploščini kroga] SetItem 15 :OdgMec [c) obsegu kroga] SetItem 15 :ResitevMe [c3] SetItem 16 :VprMe [Višina poševnega valja je enaka ...] SetItem 16 :OdgMea [a) razdalji med osnovnima ploskvama] SetItem 16 :OdgMeb [b) stranskemu robu] SetItem 16 :OdgMec [c) premeru osnovne ploskve] SetItem 16 :ResitevMe [a3] SetItem 17 :VprMe [Najmanj koliko pločevine bi potrebovali za izdelavo lonca z višino 4 dm in premerom 0,5 m?] SetItem 17 :OdgMea [a) 32,5pi dm^2] SetItem 17 :OdgMeb [b) 26,25pi dm^2] SetItem 17 :OdgMec [c) 31,25pi dm^2] SetItem 17 :ResitevMe [b3] SetItem 18 :VprMe [Valj: V=4320pi cm^3, v=3 dm. P=?] SetItem 18 :OdgMea [a) P=1080pi cm^2] SetItem 18 :OdgMeb [b) P=100,8pi dm^2] SetItem 18 :OdgMec [c) P=10,08pi dm^2] SetItem 18 :ResitevMe [c3] SetItem 19 :VprMe [Koliko kubičnih metrov lesa je v 3 m dolgem deblu, če je premer osnovne ploskve enak 1,8 m?] SetItem 19 :OdgMea [a) 2,43pi m^3] SetItem 19 :OdgMeb [b) 5,4pi m^3] SetItem 19 :OdgMec [c) 4,86pi m^3] SetItem 19 :ResitevMe [a3] SetItem 20 :VprMe [Osni presek enakostraničnega valja je 900 cm^2. Koliko je njegova površina?] SetItem 20 :OdgMea [a) P=900pi m^2] SetItem 20 :OdgMeb [b) P=1350pi m^2] SetItem 20 :OdgMec [c) P=1125pi m^2] SetItem 20 :ResitevMe [b3] SetItem 21 :VprMe [Stožec je okroglo telo, ker ...] SetItem 21 :OdgMea [a) ima vsaj eno ploskev krivo] SetItem 21 :OdgMeb [b) ima vsaj en krog] SetItem 21 :OdgMec [c) nima robov] SetItem 21 :ResitevMe [a2] SetItem 22 :VprMe [Vrh pokončnega stožca leži ...] SetItem 22 :OdgMea [a) pravokotno nad krajiščem premera stožca] SetItem 22 :OdgMeb [b) natanko nad središčem osnovne ploskve] SetItem 22 :OdgMec [c) na osnovni ploskvi] SetItem 22 :ResitevMe [b2] SetItem 23 :VprMe [Osni presek stožca je ...] SetItem 23 :OdgMea [a) enakokraki ali pravokotni trikotnik] SetItem 23 :OdgMeb [b) enakostranični ali pravokotni trikotnik] SetItem 23 :OdgMec [c) enakokraki ali enakostranični trikotnik] SetItem 23 :ResitevMe [c2] SetItem 24 :VprMe [Plašč stožca je ...] SetItem 24 :OdgMea [a) krožni izsek] SetItem 24 :OdgMeb [b) trikotnik] SetItem 24 :OdgMec [c) pravokotnik] SetItem 24 :ResitevMe [a2] SetItem 25 :VprMe [Površina stožca je vsota ploščine kroga in ploščine krožnega izseka, ki tvori plašč. Enako nam pove formula:] SetItem 25 :OdgMea [a) P=2pir^2 + 2pirs] SetItem 25 :OdgMeb [b) P=pir^2 + pirs] SetItem 25 :OdgMec [c) P=pir^2 + 2pirs] SetItem 25 :ResitevMe [b2] SetItem 26 :VprMe [Koliko stožcev vode potrebujemo, da napolnimo valj z enako veliko osnovno ploskvijo in višino?] SetItem 26 :OdgMea [a) 2] SetItem 26 :OdgMeb [b) 6] SetItem 26 :OdgMec [c) 3] SetItem 26 :ResitevMe [c2] SetItem 27 :VprMe [Prostornino stožca izračunamo s pomočjo formule:] SetItem 27 :OdgMea [a) V=pir^2v/3] SetItem 27 :OdgMeb [b) V=pir^2v] SetItem 27 :OdgMec [c) V=3pir^2v] SetItem 27 :ResitevMe [a2] SetItem 28 :VprMe [Premer stožca meri 10 cm, višina pa 12 cm. Kolikšna je površina?] SetItem 28 :OdgMea [a) P=9pi dm^2] SetItem 28 :OdgMeb [b) P=90pi cm^2] SetItem 28 :OdgMec [c) P=90 cm^2] SetItem 28 :ResitevMe [b2] SetItem 29 :VprMe [Kozarec s prostornino 3 dl ima obliko stožca s premerom 8 cm. Kolikšna je višina stožčastega dela kozarca? Rezultat zaokorži na cele.] SetItem 29 :OdgMea [a) 16 cm] SetItem 29 :OdgMeb [b) 17 cm] SetItem 29 :OdgMec [c) 18 cm] SetItem 29 :ResitevMe [c2] SetItem 30 :VprMe [Pri enakostranične stožcu velja, da je ...] SetItem 30 :OdgMea [a) 2r=s] SetItem 30 :OdgMeb [b) v=s] SetItem 30 :OdgMec [c) r=s] SetItem 30 :ResitevMe [a2] SetItem 31 :VprMe [V stožcu je višina vedno ... od stranice.] SetItem 31 :OdgMea [a) daljša] SetItem 31 :OdgMeb [b) krajša] SetItem 31 :OdgMec [c) nasprotna] SetItem 31 :ResitevMe [b2] SetItem 32 :VprMe [Koliko papirja bi potrebovali za izdelavo stožca, ki ima s=5cm in v=3cm?] SetItem 32 :OdgMea [a) 32pi cm^2] SetItem 32 :OdgMeb [b) 32 cm^2] SetItem 32 :OdgMec [c) 24pi cm^2] SetItem 32 :ResitevMe [c2] SetItem 33 :VprMe [Kateri stožec ima največjo prostornino?] SetItem 33 :OdgMea [a) v=12, 2r=14] SetItem 33 :OdgMeb [b) v=9, 2r=12] SetItem 33 :OdgMec [c) v=15, 2r=10] SetItem 33 :ResitevMe [a2] SetItem 34 :VprMe [Premer osnovne ploskve pokončnega stožca je 30 cm, plašč pa meri 2-krat več od osnovne ploskve. Stranski rob potem meri ...] SetItem 34 :OdgMea [a) 15 cm] SetItem 34 :OdgMeb [b) 30 cm] SetItem 34 :OdgMec [c) 45 cm] SetItem 34 :ResitevMe [b2] SetItem 35 :VprMe [Stožčasta posoda ima prostornino 6,28 l in ana zgornjem robu premer 10 cm. Koliko je visoka?] SetItem 35 :OdgMea [a) v=0,24 dm] SetItem 35 :OdgMeb [b) v=2,4 dm] SetItem 35 :OdgMec [c) v=24 dm] SetItem 35 :ResitevMe [c2] SetItem 36 :VprMe [Stožec: O=4pi cm^2, v=3r, V=?] SetItem 36 :OdgMea [a) V=8pi cm^2] SetItem 36 :OdgMeb [b) V=4pi cm^2] SetItem 36 :OdgMec [c) V=24pi cm^2] SetItem 36 :ResitevMe [a2] SetItem 37 :VprMe [Osnovna ploskve pokončnega stožca je 81 cm^2, ploščina osnega preseka pa 54 cm^2. Kolikšna je površina?] SetItem 37 :OdgMea [a) 679 cm^2] SetItem 37 :OdgMeb [b) 560 cm^2] SetItem 37 :OdgMec [c) 523 cm^2] SetItem 37 :ResitevMe [b2] SetItem 38 :VprMe [Kolikokrat se poveča prostornina stožca, če višino 5-krat povečamo?] SetItem 38 :OdgMea [a) 2-krat] SetItem 38 :OdgMeb [b) 3-krat] SetItem 38 :OdgMec [c) 5-krat] SetItem 38 :ResitevMe [c2] SetItem 39 :VprMe [Os stožca je nosilka ...] SetItem 39 :OdgMea [a) višine] SetItem 39 :OdgMeb [b) stranskega roba] SetItem 39 :OdgMec [c) pomera] SetItem 39 :ResitevMe [a2] SetItem 40 :VprMe [Stožec je poševen, ko ...] SetItem 40 :OdgMea [a) višina ni pravokotna na osnovno ploskev] SetItem 40 :OdgMeb [b) stranski robovi niso enako dolgi] SetItem 40 :OdgMec [c) je višina daljša od stranskega roba] SetItem 40 :ResitevMe [b2] make "vMe item :OdgovorMe :VprMe StaticUpdate "OdgMe1 :vMe make "aMe item :OdgovorMe :OdgMea StaticUpdate "OdgMe2 :aMe make "bMe item :OdgovorMe :OdgMeb StaticUpdate "OdgMe3 :bMe make "cMe item :OdgovorMe :OdgMec StaticUpdate "OdgMe4 :cMe make "rMe item :OdgovorMe :ResitevMe end to zaporedna :n localmake "vprVa [] repeat :n [make "vprVa lput repcount :vprVa] op :vprVa end to vprvalj make "VprVa(array 20 1) make "OdgVaa(array 20 1) make "OdgVab(array 20 1) make "OdgVac(array 20 1) make "ResitevVa(array 20 1) SetItem 1 :VprVa [Kakšno geometrijsko telo je valj?] SetItem 1 :OdgVaa [a) okroglo] SetItem 1 :OdgVab [b) oglato] SetItem 1 :OdgVac [c) ovalno] SetItem 1 :ResitevVa [a1] SetItem 2 :VprVa [Koliko osnovnih ploskev ima valj?] SetItem 2 :OdgVaa [a) 1] SetItem 2 :OdgVab [b) 2] SetItem 2 :OdgVac [c) nobene] SetItem 2 :ResitevVa [b1] SetItem 3 :VprVa [Osnovna ploskev valja je ...] SetItem 3 :OdgVaa [a) elipsa] SetItem 3 :OdgVab [b) polkrog] SetItem 3 :OdgVac [c) krog] SetItem 3 :ResitevVa [c1] SetItem 4 :VprVa [Kakšna ploskev je plašč valja?] SetItem 4 :OdgVaa [a) kriva] SetItem 4 :OdgVab [b) ravna] SetItem 4 :OdgVac [c) okrogla] SetItem 4 :ResitevVa [a1] SetItem 5 :VprVa [Koliko stranskih robov ima valj?] SetItem 5 :OdgVaa [a) 1] SetItem 5 :OdgVab [b) 2] SetItem 5 :OdgVac [c) 3] SetItem 5 :ResitevVa [b1] SetItem 6 :VprVa [Skozi središči osnovnih ploskev poteka ...] SetItem 6 :OdgVaa [a) osni presek] SetItem 6 :OdgVab [b) središčnica] SetItem 6 :OdgVac [c) os] SetItem 6 :ResitevVa [c1] SetItem 7 :VprVa [Površino valja izračunamo s pomočjo obrazca ...] SetItem 7 :OdgVaa [a) P=2O+pl] SetItem 7 :OdgVab [b) P=O+pl] SetItem 7 :OdgVac [c) P=2(O+pl)] SetItem 7 :ResitevVa [a1] SetItem 8 :VprVa [Ploščina osnovne ploskve je ...] SetItem 8 :OdgVaa [a) O=2pir] SetItem 8 :OdgVab [b) O=pir^2] SetItem 8 :OdgVac [c) O=2pir^2] SetItem 8 :ResitevVa [b1] SetItem 9 :VprVa [Kakšen lik je plašč valja?] SetItem 9 :OdgVaa [a) trikotnik] SetItem 9 :OdgVab [b) romb] SetItem 9 :OdgVac [c) pravokotnik] SetItem 9 :ResitevVa [c1] SetItem 10 :VprVa [Volumen valja izračunamo ...] SetItem 10 :OdgVaa [a) V=Ov] SetItem 10 :OdgVab [b) V=2Ov] SetItem 10 :OdgVac [c) V=Pv] SetItem 10 :ResitevVa [a1] SetItem 11 :VprVa [Koliko litrov vode potrebujemo, da čašo v obliki valja, ki ima premer osnovne ploskve 10cm in višino 18 cm, napolnimo do vrha?] SetItem 11 :OdgVaa [a) 14,13l] SetItem 11 :OdgVab [b) 1,413l] SetItem 11 :OdgVac [c) 1413l] SetItem 11 :ResitevVa [b1] SetItem 12 :VprVa [Polmer osnovne ploskve valja je 8cm, plašč pa je 4-krat večji od osnovne ploskve. Kolikšna je prostornina valja?] SetItem 12 :OdgVaa [a) 124 cm^3] SetItem 12 :OdgVab [b) 128pi cm^3] SetItem 12 :OdgVac [c) 124pi cm^3] SetItem 12 :ResitevVa [c1] SetItem 13 :VprVa [Površina enakostraničnega valja meri 312pi cm^2, osni presek pa 144 cm. Izračunaj volumen.] SetItem 13 :OdgVaa [a) V=720pi cm^3] SetItem 13 :OdgVab [b) V=120 cm^3] SetItem 13 :OdgVac [c) V=720 cm^3] SetItem 13 :ResitevVa [a1] SetItem 14 :VprVa [Če je osni presek kvadrat, je valj ...] SetItem 14 :OdgVaa [a) enakokrak] SetItem 14 :OdgVab [b) enakostranični] SetItem 14 :OdgVac [c) poševen] SetItem 14 :ResitevVa [b1] SetItem 15 :VprVa [Stranica pravokotnika, ki je plašč valja, je enaka ...] SetItem 15 :OdgVaa [a) polmeru kroga] SetItem 15 :OdgVab [b) ploščini kroga] SetItem 15 :OdgVac [c) obsegu kroga] SetItem 15 :ResitevVa [c1] SetItem 16 :VprVa [Višina poševnega valja je enaka ...] SetItem 16 :OdgVaa [a) razdalji med osnovnima ploskvama] SetItem 16 :OdgVab [b) stranskemu robu] SetItem 16 :OdgVac [c) premeru osnovne ploskve] SetItem 16 :ResitevVa [a1] SetItem 17 :VprVa [Najmanj koliko pločevine bi potrebovali za izdelavo lonca z višino 4 dm in premerom 0,5 m?] SetItem 17 :OdgVaa [a) 32,5pi dm^2] SetItem 17 :OdgVab [b) 26,25pi dm^2] SetItem 17 :OdgVac [c) 31,25pi dm^2] SetItem 17 :ResitevVa [b1] SetItem 18 :VprVa [Valj: V=4320pi cm^3, v=3 dm. P=?] SetItem 18 :OdgVaa [a) P=1080pi cm^2] SetItem 18 :OdgVab [b) P=100,8pi dm^2] SetItem 18 :OdgVac [c) P=10,08pi dm^2] SetItem 18 :ResitevVa [c1] SetItem 19 :VprVa [Koliko kubičnih metrov lesa je v 3 m dolgem deblu, če je premer osnovne ploskve enak 1,8 m?] SetItem 19 :OdgVaa [a) 2,43pi m^3] SetItem 19 :OdgVab [b) 5,4pi m^3] SetItem 19 :OdgVac [c) 4,86pi m^3] SetItem 19 :ResitevVa [a1] SetItem 20 :VprVa [Osni presek enakostraničnega valja je 900 cm^2. Koliko je njegova površina?] SetItem 20 :OdgVaa [a) P=900pi m^2] SetItem 20 :OdgVab [b) P=1350pi m^2] SetItem 20 :OdgVac [c) P=1125pi m^2] SetItem 20 :ResitevVa [b1] make "vVa item :OdgovorVa :VprVa StaticUpdate "OdgVa1 :vVa make "aVa item :OdgovorVa :OdgVaa StaticUpdate "OdgVa2 :aVa make "bVa item :OdgovorVa :OdgVab StaticUpdate "OdgVa3 :bVa make "cVa item :OdgovorVa :OdgVac StaticUpdate "OdgVa4 :cVa make "rVa item :OdgovorVa :ResitevVa end to zaporedna :n localmake "vprSt [] repeat :n [make "vprSt lput repcount :vprSt] op :vprSt end to vprstozec make "VprSt(array 20 1) make "OdgSta(array 20 1) make "OdgStb(array 20 1) make "OdgStc(array 20 1) make "ResitevSt(array 20 1) SetItem 1 :VprSt [Stožec je okroglo telo, ker ...] SetItem 1 :OdgSta [a) ima vsaj eno ploskev krivo] SetItem 1 :OdgStb [b) ima vsaj en krog] SetItem 1 :OdgStc [c) nima robov] SetItem 1 :ResitevSt [a2] SetItem 2 :VprSt [Vrh pokončnega stožca leži ...] SetItem 2 :OdgSta [a) pravokotno nad krajiščem premera stožca] SetItem 2 :OdgStb [b) natanko nad središčem osnovne ploskve] SetItem 2 :OdgStc [c) na osnovni ploskvi] SetItem 2 :ResitevSt [b2] SetItem 3 :VprSt [Osni presek stožca je ...] SetItem 3 :OdgSta [a) enakokraki ali pravokotni trikotnik] SetItem 3 :OdgStb [b) enakostranični ali pravokotni trikotnik] SetItem 3 :OdgStc [c) enakokraki ali enakostranični trikotnik] SetItem 3 :ResitevSt [c2] SetItem 4 :VprSt [Plašč stožca je ...] SetItem 4 :OdgSta [a) krožni izsek] SetItem 4 :OdgStb [b) trikotnik] SetItem 4 :OdgStc [c) pravokotnik] SetItem 4 :ResitevSt [a2] SetItem 5 :VprSt [Površina stožca je vsota ploščine kroga in ploščine krožnega izseka, ki tvori plašč. Enako nam pove formula:] SetItem 5 :OdgSta [a) P=2pir^2 + 2pirs] SetItem 5 :OdgStb [b) P=pir^2 + pirs] SetItem 5 :OdgStc [c) P=pir^2 + 2pirs] SetItem 5 :ResitevSt [b2] SetItem 6 :VprSt [Koliko stožcev vode potrebujemo, da napolnimo valj z enako veliko osnovno ploskvijo in višino?] SetItem 6 :OdgSta [a) 2] SetItem 6 :OdgStb [b) 6] SetItem 6 :OdgStc [c) 3] SetItem 6 :ResitevSt [c2] SetItem 7 :VprSt [Prostornino stožca izračunamo s pomočjo formule:] SetItem 7 :OdgSta [a) V=pir^2v/3] SetItem 7 :OdgStb [b) V=pir^2v] SetItem 7 :OdgStc [c) V=3pir^2v] SetItem 7 :ResitevSt [a2] SetItem 8 :VprSt [Premer stožca meri 10 cm, višina pa 12 cm. Kolikšna je površina?] SetItem 8 :OdgSta [a) P=9pi dm^2] SetItem 8 :OdgStb [b) P=90pi cm^2] SetItem 8 :OdgStc [c) P=90 cm^2] SetItem 8 :ResitevSt [b2] SetItem 9 :VprSt [Kozarec s prostornino 3 dl ima obliko stožca s premerom 8 cm. Kolikšna je višina stožčastega dela kozarca? Rezultat zaokorži na cele.] SetItem 9 :OdgSta [a) 16 cm] SetItem 9 :OdgStb [b) 17 cm] SetItem 9 :OdgStc [c) 18 cm] SetItem 9 :ResitevSt [c2] SetItem 10 :VprSt [Pri enakostranične stožcu velja, da je ...] SetItem 10 :OdgSta [a) 2r=s] SetItem 10 :OdgStb [b) v=s] SetItem 10 :OdgStc [c) r=s] SetItem 10 :ResitevSt [a2] SetItem 11 :VprSt [V stožcu je višina vedno ... od stranice.] SetItem 11 :OdgSta [a) daljša] SetItem 11 :OdgStb [b) krajša] SetItem 11 :OdgStc [c) nasprotna] SetItem 11 :ResitevSt [b2] SetItem 12 :VprSt [Koliko papirja bi potrebovali za izdelavo stožca, ki ima s=5cm in v=3cm?] SetItem 12 :OdgSta [a) 32pi cm^2] SetItem 12 :OdgStb [b) 32 cm^2] SetItem 12 :OdgStc [c) 24pi cm^2] SetItem 12 :ResitevSt [c2] SetItem 13 :VprSt [Kateri stožec ima največjo prostornino?] SetItem 13 :OdgSta [a) v=12, 2r=14] SetItem 13 :OdgStb [b) v=9, 2r=12] SetItem 13 :OdgStc [c) v=15, 2r=10] SetItem 13 :ResitevSt [a2] SetItem 14 :VprSt [Premer osnovne ploskve pokončnega stožca je 30 cm, plašč pa meri 2-krat več od osnovne ploskve. Stranski rob potem meri ...] SetItem 14 :OdgSta [a) 15 cm] SetItem 14 :OdgStb [b) 30 cm] SetItem 14 :OdgStc [c) 45 cm] SetItem 14 :ResitevSt [b2] SetItem 15 :VprSt [Stožčasta posoda ima prostornino 6,28 l in ana zgornjem robu premer 10 cm. Koliko je visoka?] SetItem 15 :OdgSta [a) v=0,24 dm] SetItem 15 :OdgStb [b) v=2,4 dm] SetItem 15 :OdgStc [c) v=24 dm] SetItem 15 :ResitevSt [c2] SetItem 16 :VprSt [Stožec: O=4pi cm^2, v=3r, V=?] SetItem 16 :OdgSta [a) V=8pi cm^2] SetItem 16 :OdgStb [b) V=4pi cm^2] SetItem 16 :OdgStc [c) V=24pi cm^2] SetItem 16 :ResitevSt [a2] SetItem 17 :VprSt [Osnovna ploskve pokončnega stožca je 81 cm^2, ploščina osnega preseka pa 54 cm^2. Kolikšna je površina?] SetItem 17 :OdgSta [a) 679 cm^2] SetItem 17 :OdgStb [b) 560 cm^2] SetItem 17 :OdgStc [c) 523 cm^2] SetItem 17 :ResitevSt [b2] SetItem 18 :VprSt [Kolikokrat se poveča prostornina stožca, če višino 5-krat povečamo?] SetItem 18 :OdgSta [a) 2-krat] SetItem 18 :OdgStb [b) 3-krat] SetItem 18 :OdgStc [c) 5-krat] SetItem 18 :ResitevSt [c2] SetItem 19 :VprSt [Os stožca je nosilka ...] SetItem 19 :OdgSta [a) višine] SetItem 19 :OdgStb [b) stranskega roba] SetItem 19 :OdgStc [c) pomera] SetItem 19 :ResitevSt [a2] SetItem 20 :VprSt [Stožec je poševen, ko ...] SetItem 20 :OdgSta [a) višina ni pravokotna na osnovno ploskev] SetItem 20 :OdgStb [b) stranski robovi niso enako dolgi] SetItem 20 :OdgStc [c) je višina daljša od stranskega roba] SetItem 20 :ResitevSt [b2] make "vSt item :OdgovorSt :VprSt StaticUpdate "OdgSt1 :vSt make "aSt item :OdgovorSt :OdgSta StaticUpdate "OdgSt2 :aSt make "bSt item :OdgovorSt :OdgStb StaticUpdate "OdgSt3 :bSt make "cSt item :OdgovorSt :OdgStc StaticUpdate "OdgSt4 :cSt make "rSt item :OdgovorSt :ResitevSt end valj,stozec