to aritmeticna_sredina 
  make "pravilni 0
  make "napacni 0
  make "neodgovorjeni 0
  windowdelete "okno_igre
  windowdelete "izhod

  windowcreate "main "AS [UTRJUJEMO ARITMETIČNO SREDINO] 5 25 275 145[]
  buttoncreate "AS "konec "KONEC\ IGRE 199 115 60 13[konec_AS]
 
 groupboxcreate "AS "asgb 0 0 270 108
 staticcreate "AS "s1 [] 10 10 250 18
 staticcreate "AS "s2 [] 20 30 243 18
 staticcreate "AS "s3 [] 20 48 243 18
 staticcreate "AS "s4 [] 20 66 243 18
 staticcreate "AS "s5 [Pravilnih odgovorov:] 10 117 80 13
 staticcreate "AS "s6 [Napake:] 108 117 30 13
 buttoncreate "AS "c1 [POTRDI IZBIRO] 10 91 60 13 [preveri]
 buttoncreate "AS "c2 [NAPREJ] 199 91 60 13 [naprej]
 buttoncreate "AS "P :pravilni 83 115 15 13 []
 buttoncreate "AS "N :napacni 138 115 15 13 []
 radiobuttoncreate "AS "asgb "a [] 10 30 10 10
 radiobuttoncreate "AS "asgb "b [] 10 48 10 10
 radiobuttoncreate "AS "asgb "c [] 10 66 10 10

 make "pom_tab (array 14 1)
 setitem 1 :pom_tab "false
 setitem 2 :pom_tab "false
 setitem 3 :pom_tab "false
 setitem 4 :pom_tab "false
 setitem 5 :pom_tab "false
 setitem 6 :pom_tab "false
 setitem 7 :pom_tab "false
 setitem 8 :pom_tab "false
 setitem 9 :pom_tab "false
 setitem 10 :pom_tab "false
 setitem 11 :pom_tab "false
 setitem 12 :pom_tab "false
 setitem 13 :pom_tab "false
 setitem 14 :pom_tab "false
 zac
end

to beri
 ifelse :stevec > 14 [izhod][~
    if OR :stevec=1 :stevec=2 [DO.WHILE[make "izbor (1 + random 8)][:pomozni=:izbor] make "pomozni :izbor vprasanja]
   if OR :stevec=3 :stevec=4 [~
    DO.WHILE[make "izbor (9 + random 8)][:pomozni=:izbor] make "pomozni :izbor vprasanja]
   if OR :stevec=5 :stevec=6 [~
    DO.WHILE[make "izbor (17 + random 5)][:pomozni=:izbor] make "pomozni :izbor vprasanja]
   if OR :stevec=7 :stevec=8 [~
    DO.WHILE[make "izbor (22 + random 5)][:pomozni=:izbor] make "pomozni :izbor vprasanja]
   if OR :stevec=9 :stevec=10 [~
    DO.WHILE[make "izbor (27 + random 8)][:pomozni=:izbor] make "pomozni :izbor vprasanja]
   if OR :stevec=11 :stevec=12 [~
    DO.WHILE[make "izbor (35 + random 5)][:pomozni=:izbor] make "pomozni :izbor vprasanja]
   if OR :stevec=13 :stevec=14 [~
    DO.WHILE [make "izbor (40 + random 7)][:pomozni=:izbor] make "pomozni :izbor vprasanja]]

radiobuttondelete "a  
 radiobuttondelete "b  
 radiobuttondelete "c 

 radiobuttoncreate "AS "asgb "a [] 10 30 10 10
 radiobuttoncreate "AS "asgb "b [] 10 48 10 10
 radiobuttoncreate "AS "asgb "c [] 10 66 10 10
end

to igra
  make "snd "on
  windowdelete "okno_navodil
  windowdelete "prvo_okno
  windowcreate "main "okno_igre [IGRA O ARITMETIČNI SREDINI] 105 55 163 90[]
  
  Staticcreate "okno_igre "h1 [SI PRIPRAVLJEN? KOMAJ ČAKAŠ?] 25 7 130 10
  Staticcreate "okno_igre "h2 [NO POTEM PA KAR ZAČNI!] 35 14 100 10
  buttoncreate "okno_igre "AS "ZAČETEK 55 29 50 18 [aritmeticna_sredina]
     
  buttoncreate "okno_igre "konec "IZHOD 5 55 40 18 [konec_igre]
  buttoncreate "okno_igre "navodila "NAVODILA 50 55 45 18 [navodila]
  buttoncreate "okno_igre "zvok "IZKLJUČI\ ZVOK 100 55 55 18 [zvok]
  
end

to izhod
 cs
 windowcreate "AS "izhod [TVOJ REZULTAT] 10 50 188 90[]
 staticcreate "izhod "b1 [] 8 10 38 10
 staticcreate "izhod "b2 [] 49 10 9 10
 staticcreate "izhod "b3 [] 61 10 110 10
 staticcreate "izhod "b4 [] 8 22 78 10
 staticcreate "izhod "b5 [] 90 22 9 10
 staticcreate "izhod "b6 [] 101 22 80 10
 staticcreate "izhod "b7 [] 8 34 190 10
 staticcreate "izhod "b8 [] 8 46 190 10

 buttoncreate "izhod "bt1 [NOVA IGRA] 10 60 45 13 [windowdelete "izhod aritmeticna_sredina]
 buttoncreate "izhod "bt2 [IZHOD] 65 60 40 13 [windowdelete "izhod]
 buttoncreate "izhod "bt3 [PODROBNOSTI] 115 60 60 13 [windowdelete "izhod podrobnosti]

make "neodgovorjeni :neodgovorjeni-:pravilni-:napacni
ifelse :neodgovorjeni>0 [~
	if :neodgovorjeni=1 [make "bes [Preskočil si] staticupdate "b1 :bes ~
      make "bes :neodgovorjeni staticupdate "b2 :bes ~
 	make "bes "vprašanje! staticupdate "b3 :bes]
if :neodgovorjeni=2 [make "bes [Preskočil si] staticupdate "b1 :bes ~
      make "bes :neodgovorjeni staticupdate "b2 :bes ~
 	make "bes "vprašanji! staticupdate "b3 :bes]
if OR :neodgovorjeni=3 :neodgovorjeni=4 [make "bes [Preskočil si] staticupdate "b1 :bes ~
      make "bes :neodgovorjeni staticupdate "b2 :bes ~
 	make "bes "vprašanja! staticupdate "b3 :bes]
if :neodgovorjeni>4 [make "bes [Preskočil si] staticupdate "b1 :bes ~
      make "bes :neodgovorjeni staticupdate "b2 :bes ~
 	make "bes "vprašanj! staticupdate "b3 :bes]
][]
	make "bes [Pravilno si odgovoril na] staticupdate "b4 :bes ~
 	make "bes :pravilni staticupdate "b5 :bes ~
	make "bes [vprašanj od štirinajstih!] staticupdate "b6 :bes ~
 ifelse :pravilni>6 [~
	if OR :pravilni=7 :pravilni=8 [~
	   make "bes [To je približno polovica vprašanj. Še kar dobro.] staticupdate "b7 :bes]
	if OR :pravilni=9 :pravilni=10 [~
      make "bes [To je dobra polovica vprašanj. Dobro!] staticupdate "b7 :bes]
	if OR :pravilni=11 :pravilni=12 [~
      make "bes [To je več kot tri četrtine vprašanj. Zelo dobro!] staticupdate "b7 :bes]
	if OR :pravilni=13 :pravilni=14 [~
      make "bes [Tvoje znanje je naravnost odlično. Bravo!] staticupdate "b7 :bes]
][make "bes [Tvoje znanje ni niti zadostno!] staticupdate "b7 :bes make "bes [Dobro ponovi snov še preden poskusiš znova!] staticupdate "b8 :bes]    
end

to konec
  windowdelete "prvo_okno
  home
  st
end

to konec_AS
	CS pu home pd st
	windowdelete "AS
	st
end

to konec_igre
CS pu home pd st
  windowdelete "okno_igre
end

to naprej
	make "neodgovorjeni :neodgovorjeni + 1
      make "stevec :stevec + 1
      buttondelete "c1
      buttoncreate "AS "c1 [POTRDI IZBIRO] 10 91 60 13 [preveri]
	wait 20
	cs 
	beri
end

to navodila
   windowdelete "prvo_okno
   windowcreate "main "okno_navodil [PREVERJANJE ZNANJA O SREDNJIH VREDNOSTIH] 50 20 300 170[]
     Staticcreate "okno_navodil "N1 [KAKO UPORABLJATI IGRO?] 100 8 100 20
     Staticcreate "okno_navodil "N2 [Na začetku igre pritisni gumb ZAČETEK. Odprlo se ti bo novo okno z vprašanjem. Tvoja naloga je, da rešiš nalogo in izbereš pravilnega izmed treh možnih odgovorov.] 5 20 290 20
     Staticcreate "okno_navodil "N3 [Ko izbereš odgovor, klikni gumb POTRDI IZBIRO. Pri tem se preveri pravilnost odgovora in prišteje se točka bodisi k pravilnim bodisi k nepravilnim odgovorom.] 5 40 290 20
     Staticcreate "okno_navodil "N4 [Pravilnost oz. napačnost odgovora ti povesta tudi zvok (po izbiri) in napis na gumbu. Zvok lahko izključiš samo pred začetkom igre!] 5 60 290 20
     Staticcreate "okno_navodil "N5 [Vedno ko želiš videti naslednje vprašanje, klikni gumb NAPREJ.] 5 80 290 10
     Staticcreate "okno_navodil "N6 [Pri nekaj vprašanjih je zaradi preglednosti uporabljen redkejši način zapisa decimalnih števil - z vejico zgoraj (0'5 pomeni isto kot 0,5).] 5 93 290 20
     Staticcreate "okno_navodil "N7 [Odgovarjaš na 14 različnih vprašanj. Na koncu se ti izpiše tvoj rezultat, lahko pa si ogledaš tudi podrobnejšo analizo in poiščeš šibke oz. močne točke svojega znanja.] 5 113 290 20
     Staticcreate "okno_navodil "avtor [Tea Rajgelj, oktober 2003] 5 140 310 20
     buttoncreate "okno_navodil "konec_1 [ZAPRI NAVODILA] 210 139 80 15[zapri_navodila]
end

to podrobnosti
   windowdelete "okno_AS
   windowcreate "main "podr [POIŠČI SVOJE ŠIBKE IN MOČNE TOČKE!] 50 20 260 190[]
   buttoncreate "podr "ven [IZHOD] 190 162 60 13 [windowdelete "podr igra]
   staticcreate "podr "M1 [] 5 10 250 20
   staticcreate "podr "M2 [] 5 30 250 20
   staticcreate "podr "M3 [] 5 50 250 20
   staticcreate "podr "M4 [] 5 70 250 20
   staticcreate "podr "M5 [] 5 90 250 20
   staticcreate "podr "M6 [] 5 110 250 20
   staticcreate "podr "M7 [] 5 130 250 30
ifelse AND item 1 :pom_tab item 2 :pom_tab [make "h [Pravlino si rešil uvodni nalogi, ki preverjata poznavanje osnovnih lastnosti aritmetične sredine. To je dobro!] staticupdate "M1 :h][~
make "h [Zmotil si se že nekje pri prvih dveh nalogah, ki preverjata poznavanje osnovnih lastnosti aritmetične sredine. Dobro bi bilo zate, da ponoviš snov.] staticupdate "M1 :h] 

ifelse AND item 3 :pom_tab item 4 :pom_tab [make "h [Uspešno si rešil obe nalogi z lažjimi števili. Osnove torej že znaš.] staticupdate "M2 :h][~
make "h [Nisi pravilno izračunal obeh nalog z lažjimi števili. Morda ne razumeš dobro, kako se pravzaprav računa aritmetična sredina. Ponovi snov!] staticupdate "M2 :h]

ifelse AND item 5 :pom_tab item 6 :pom_tab [make "h [Računanje s količinami te ni zmotilo. Dobro si rešil obe nalogi. Lepo!] staticupdate "M3 :h][~
make "h [Zmotil si se pri računanju aritmetične sredine osnovnih količin. To so lažje naloge, zato ponovi snov in drugič bolj pazi pri računanju!] staticupdate "M3 :h] 

ifelse AND item 7 :pom_tab item 8 :pom_tab [make "h [Tudi pretvarjanje količin obvladaš. Dobro zate.] staticupdate "M4 :h][~
make "h [Narobe si izračunal aritmetično sredino količin z različnimi enotami. Si napačno pretvoril? Si bil površen? Premisli kje je težava.] staticupdate "M4 :h] 

ifelse AND item 9 :pom_tab item 10 :pom_tab [make "h [Ulomki te ne zmedejo, torej tudi aritmetična sredina ulomkov zate ni noben problem. Bravo!] staticupdate "M5 :h][~
make "h [Žal si napačno izračunal aritmetično sredino ulomkov. Naslednjič bodi bolj previden pri računanju.] staticupdate "M5 :h] 

ifelse AND item 11 :pom_tab item 12 :pom_tab [make "h [Rešil si obe besedilni nalogi! Zelo dobro.] staticupdate "M6 :h][~
make "h [Napačno si izračunal vsaj eno izmed besedilnih nalog. Naslednjič vsaj dvakrat preberi celotno besedilo, preden se lotiš reševanja!] staticupdate "M6 :h] 

ifelse AND item 13 :pom_tab item 14 :pom_tab [make "h [Zadnji dve nalogi sta zahtevali tudi branje podatkov iz preglednice, diagrama ali številskega traku. Tudi to že obvladaš. Super!] staticupdate "M7 :h][~
make "h [Zadnji dve nalogi sta zahtevali tudi branje podatkov iz preglednice, diagrama ali številskega traku. Nekje si se zmotil, a ne bodi preveč žalosten, saj se iz napak učiš. Naslednjič bo bolje.] staticupdate "M7 :h] 

end

to preveri
  cs 
  ifelse radiobuttonget :r [make "pravilni :pravilni + 1 ~
    buttondelete "P buttoncreate "AS "P :pravilni 83 115 15 13 []
    buttondelete "c1
    buttoncreate "AS "c1 [BRAVO!] 10 91 60 13 []
    if :snd="on [
      sound [131 100]
      sound [165 100]
      sound [196 100]
      sound [262 100]
      sound [196 100]
      sound [165 100]
      sound [131 100]
  setitem :stevec :pom_tab "true
 ]
][make "napacni :napacni + 1~
  buttondelete "N 
  buttoncreate "AS "N :napacni 138 115 15 13 [] 
  buttondelete "c1
  buttoncreate "AS "c1 [NAROBE!] 10 91 60 13 []
  if :snd="on [
    sound [262 100]
    sound [196 100]
    sound [165 100]
    sound [131 100]]] 
end

to prvo_okno
  	cs 
	ht
	windowcreate "main "prvo_okno [SREDNJE VREDNOSTI] 105 55 150 85[
	zacetek]
end

to vprasanja
make "vpr (array 46 1)
make "odga (array 46 1)
make "odgb (array 46 1)
make "odgc (array 46 1)
make "resitev (array 46 1)
make "slike (array 46 1)

setitem 1 :vpr [Izberi pravilen odgovor! Aritmetični sredini drugače rečemo tudi...]
setitem 1 :odga [a) ... središčnica.]
setitem 1 :odgb [b) ... gostiščnica.]
setitem 1 :odgc [c) ... povprečna vrednost.]
setitem 1 :resitev[c]
setitem 1 :slike[prazna_slika.gif]

setitem 2 :vpr [Izberi pravilen odgovor! Drugi izraz za aritmetično sredino je tudi...]
setitem 2 :odga [a) ... tipična vrednost.]
setitem 2 :odgb [b) ... povprečje.]
setitem 2 :odgc [c) ... polovička.]
setitem 2 :resitev[b]
setitem 2 :slike[prazna_slika.gif]

setitem 3 :vpr [Izberi pravilen odgovor!]
setitem 3 :odga [a) Aritmetično sredino računamo le za številske podatke.]
setitem 3 :odgb [b) Aritmetično sredino računamo le za opisne in številske podatke.]
setitem 3 :odgc [c) Aritmetično sredino lahko določamo vsem vrstem podatkov.]
setitem 3 :resitev[a]
setitem 3 :slike[prazna_slika.gif]

setitem 4 :vpr [Izberi pravilen odgovor!]
setitem 4 :odga [a) Včasih je mogoče najti tudi dve različni aritmetični sredini za iste podatke.]
setitem 4 :odgb [b) V določenih primerih aritmetične sredine lahko tudi ni.]
setitem 4 :odgc [c) Aritmetična sredina je natanko določena in je ena sama. ]
setitem 4 :resitev[c]
setitem 4 :slike[prazna_slika.gif]


setitem 5 :vpr [Ali moramo pri računanju aritmetične sredine upoštevati tudi tiste podatke, ki se ponavljajo?]
setitem 5 :odga [a) VSEENO]
setitem 5 :odgb [b) DA]
setitem 5 :odgc [c) NE]
setitem 5 :resitev[b]
setitem 5 :slike[prazna_slika.gif]

setitem 6 :vpr [Ali moramo pri računanju aritmetične sredine upoštevati tudi tiste podatke, katerih vrednost je nič?]
setitem 6 :odga [a) DA.]
setitem 6 :odgb [b) NE]
setitem 6 :odgc [c) VSEENO.]
setitem 6 :resitev[a]
setitem 6 :slike[prazna_slika.gif]

setitem 7 :vpr [*Kateri izmed spodnjih odgovorov je napačen? Pri računanju aritmetične sredine moramo vedno upoštevati...]
setitem 7 :odga [a) ... vse vrednosti podatkov, tudi tiste, katerih vrednost je nič in tiste, ki se ponavljajo.]
setitem 7 :odgb [b) ... vse vrednosti podatkov, razen tistih, katerih vrednost je nič.]
setitem 7 :odgc [c) ... vrednosti vseh podatkov.]
setitem 7 :resitev[b]
setitem 7 :slike[prazna_slika.gif]

setitem 8 :vpr [Izberi pravilen odgovor!]
setitem 8 :odga [a) Aritmetično sredino izračunamo tako, da število vseh podatkov delimo z vsoto vseh podatkov.]
setitem 8 :odgb [b) Aritmetično sredino izračunamo tako, da vsoto vseh številskih podatkov delimo s številom podatkov.]
setitem 8 :odgc [c) Aritmetično sredino izračunamo tako, da razliko največjega in najmanjšega podatka delimo s številom 2.]
setitem 8 :resitev[b]
setitem 8 :slike[prazna_slika.gif]

setitem 9 :vpr [Izračunaj aritmetično sredino naslednjih števil: 5, 2 in 8. Kateri izmed spodnjih rezultatov je pravilen?]
setitem 9 :odga [a) 5]
setitem 9 :odgb [b) 7'5]
setitem 9 :odgc [c) 5'5]
setitem 9 :resitev[a]
setitem 9 :slike[prazna_slika.gif]

setitem 10 :vpr [Izračunaj aritmetično sredino naslednjih števil: 10, 40, 50 in 60. Kateri izmed spodnjih rezultatov je pravilen?]
setitem 10 :odga [a) 80]
setitem 10 :odgb [b) 30]
setitem 10 :odgc [c) 40]
setitem 10 :resitev[c]
setitem 10 :slike[prazna_slika.gif]

setitem 11 :vpr [Izračunaj aritmetično sredino naslednjih števil: 101, 202 in 303. Kateri izmed spodnjih rezultatov je pravilen?]
setitem 11 :odga [a) 101]
setitem 11 :odgb [b) 202]
setitem 11 :odgc [c) 303]
setitem 11 :resitev[b]
setitem 11 :slike[prazna_slika.gif]

setitem 12 :vpr [Izračunaj aritmetično sredino naslednjih števil: 2, 3, 1, 8, 19, 2 in 7. Kateri izmed spodnjih rezultatov je pravilen?]
setitem 12 :odga [a) 6]
setitem 12 :odgb [b) 2]
setitem 12 :odgc [c) 5]
setitem 12 :resitev[a]
setitem 12 :slike[prazna_slika.gif]

setitem 13 :vpr [Izračunaj aritmetično sredino naslednjih števil: 13, 39, 41, 27, 19 in 11. Kateri izmed spodnjih rezultatov je pravilen?]
setitem 13 :odga [a) 35]
setitem 13 :odgb [b) 30]
setitem 13 :odgc [c) 25]
setitem 13 :resitev[c]
setitem 13 :slike[prazna_slika.gif]

setitem 14 :vpr [Izračunaj aritmetično sredino naslednjih števil: 0'3, 0'4, 0'5, 0'7 in 0'6. Kateri izmed spodnjih rezultatov je pravilen?]
setitem 14 :odga [a) 0'5]
setitem 14 :odgb [b) 0'4]
setitem 14 :odgc [c) 0'6]
setitem 14 :resitev[a]
setitem 14 :slike[prazna_slika.gif]

setitem 15 :vpr [Izračunaj aritmetično sredino naslednjih števil: 2, 2'5, 4 in 3'5. Kateri izmed spodnjih rezultatov je pravilen?]
setitem 15 :odga [a) 2'5]
setitem 15 :odgb [b) 3]
setitem 15 :odgc [c) 3'5]
setitem 15 :resitev[b]
setitem 15 :slike[prazna_slika.gif]

setitem 16 :vpr [Izračunaj aritmetično sredino naslednjih števil: 777, 666, 555, 333, 222 in 111. Kateri izmed spodnjih rezultatov je pravilen?]
setitem 16 :odga [a) 444]
setitem 16 :odgb [b) 532'8]
setitem 16 :odgc [c) 1332]
setitem 16 :resitev[a]
setitem 16 :slike[prazna_slika.gif]

setitem 17 :vpr [Izračunaj aritmetično sredino naslednjih količin: 3'5 m, 2'5 m, 4'1 m in 2'2 m. Izberi pravilno rešitev!]
setitem 17 :odga [a) 3'025]
setitem 17 :odgb [b) 3'075]
setitem 17 :odgc [c) 3'75]
setitem 17 :resitev[b]
setitem 17 :slike[prazna_slika.gif]

setitem 18 :vpr [Izračunaj aritmetično sredino naslednjih količin: 1'4 l, 2'4 l in 3'4 l. Izberi pravilno rešitev!]
setitem 18 :odga [a) 3'6 l]
setitem 18 :odgb [b) 2 l]
setitem 18 :odgc [c) 2'4 l]
setitem 18 :resitev[c]
setitem 18 :slike[prazna_slika.gif]

setitem 19 :vpr [Izračunaj aritmetično sredino naslednjih količin: 1'5 s, 2s, 7'5s, 3'5 s in 0'5 s. Izberi pravilno rešitev!]
setitem 19 :odga [a) 4 s]
setitem 19 :odgb [b) 2'5 s]
setitem 19 :odgc [c) 3 s]
setitem 19 :resitev[c]
setitem 19 :slike[prazna_slika.gif]

setitem 20 :vpr [Izračunaj aritmetično sredino naslednjih količin: 4 km, 2 km, 5 km, 6 km in 3 km. Izberi pravilno rešitev!]
setitem 20 :odga [a) 4 km]
setitem 20 :odgb [b) 5 km]
setitem 20 :odgc [c) 3 km]
setitem 20 :resitev[a]
setitem 20 :slike[prazna_slika.gif]

setitem 21 :vpr [Izračunaj aritmetično sredino naslednjih količin: 400 SIT, 200 SIT, 300 SIT, 100 SIT in 500 SIT. Izberi pravilno rešitev!]
setitem 21 :odga [a) 300 SIT]
setitem 21 :odgb [b) 375 SIT]
setitem 21 :odgc [c) 750 SIT]
setitem 21 :resitev[a]
setitem 21 :slike[prazna_slika.gif]

setitem 22 :vpr [Kakšna je aritmetična sredina količin: 1 min, 4 min, 1 min, 1 h?]
setitem 22 :odga [a) 0'65 h]
setitem 22 :odgb [b) 1'65 min]
setitem 22 :odgc [c) 16'5 min]
setitem 22 :resitev[c]
setitem 22 :slike[prazna_slika.gif]

setitem 23 :vpr [Kakšna je aritmetična sredina količin: 3 m 2 dm 9 cm, 2 m 13 cm, 4 m 6 dm 3 cm?]
setitem 23 :odga [a) 3 m 4 dm 5 cm]
setitem 23 :odgb [b) 3 m 3 dm 5 cm]
setitem 23 :odgc [c) 3 m 4 dm 1 cm]
setitem 23 :resitev[b]
setitem 23 :slike[prazna_slika.gif]

setitem 24 :vpr [Kakšna je aritmetična sredina količin: 3 h 5 min 20 sek, 4 h 15 min 30 sek?]
setitem 24 :odga [a) 3 h 25 min 40 sek]
setitem 24 :odgb [b) 3 h 25 min 25 sek]
setitem 24 :odgc [c) 3 h 40 min 25 sek]
setitem 24 :resitev[c]
setitem 24 :slike[prazna_slika.gif]

setitem 25 :vpr [Kakšna je aritmetična sredina količin: 1'2 dm, 23 cm, 57 cm, 58 cm, 2 cm?]
setitem 25 :odga [a) 30'4 dm]
setitem 25 :odgb [b) 30'4 cm]
setitem 25 :odgc [c) 29'4 cm]
setitem 25 :resitev[b]
setitem 25 :slike[prazna_slika.gif]

setitem 26 :vpr [Kakšna je aritmetična sredina količin: 24'36 m, 26'31 m, 17'31 m, 46 cm?]
setitem 26 :odga [a) 34'22 m]
setitem 26 :odgb [b) 17'11 m]
setitem 26 :odgc [c) 171'1 cm]
setitem 26 :resitev[b]
setitem 26 :slike[prazna_slika.gif]

setitem 27 :vpr [Izračunaj aritmetično sredino naslednjih ulomkov: 2/10, 3/10.]
setitem 27 :odga [a) 1/4]
setitem 27 :odgb [b) 3/100]
setitem 27 :odgc [c) 30/100]
setitem 27 :resitev[a]
setitem 27 :slike[prazna_slika.gif]

setitem 28 :vpr [Izračunaj aritmetično sredino naslednjih ulomkov: 1/2, 3/4.]
setitem 28 :odga [a) 5/2]
setitem 28 :odgb [b) 5/8]
setitem 28 :odgc [c) 5/4]
setitem 28 :resitev[b]
setitem 28 :slike[prazna_slika.gif]

setitem 29 :vpr [Izračunaj aritmetično sredino naslednjih ulomkov: 1/8, 2/3.]
setitem 29 :odga [a) 19/48]
setitem 29 :odgb [b) 19/24]
setitem 29 :odgc [c) 19/12]
setitem 29 :resitev[a]
setitem 29 :slike[prazna_slika.gif]

setitem 30 :vpr [Izračunaj aritmetično sredino naslednjih ulomkov: 2/3, 4/5, 5/6.]
setitem 30 :odga [a) 23/10]
setitem 30 :odgb [b) 13/30]
setitem 30 :odgc [c) 23/30]
setitem 30 :resitev[c]
setitem 30 :slike[prazna_slika.gif]

setitem 31 :vpr [Izračunaj aritmetično sredino naslednjih ulomkov: 1/7, 1/2.]
setitem 31 :odga [a) 1]
setitem 31 :odgb [b) 9/28]
setitem 31 :odgc [c) 9/14]
setitem 31 :resitev[b]
setitem 31 :slike[prazna_slika.gif]

setitem 32 :vpr [Izračunaj aritmetično sredino naslednjih ulomkov: 1/2, 1/4, 1/6.]
setitem 32 :odga [a) 7/24]
setitem 32 :odgb [b) 22/24]
setitem 32 :odgc [c) 11/36]
setitem 32 :resitev[c]
setitem 32 :slike[prazna_slika.gif]

setitem 33 :vpr [Izračunaj aritmetično sredino naslednjih ulomkov: 2/5, 3/11.]
setitem 33 :odga [a) 13/55]
setitem 33 :odgb [b) 37/55]
setitem 33 :odgc [c) 37/110]
setitem 33 :resitev[c]
setitem 33 :slike[prazna_slika.gif]

setitem 34 :vpr [Izračunaj aritmetično sredino naslednjih ulomkov: 3/5, 1/7.]
setitem 34 :odga [a) 13/70]
setitem 34 :odgb [b) 13/35]
setitem 34 :odgc [c) 26/35]
setitem 34 :resitev[b]
setitem 34 :slike[prazna_slika.gif]

setitem 35 :vpr [Miha, Tine, Tone in Jure so stari 12 let, 14 let, 12 let in 7 mesecev, 13 let in 5 mesecev. Kolikšna je njihova povprečna starost?]
setitem 35 :odga [a) Njihova povprečna starost je 13 let in 3 mesece.]
setitem 35 :odgb [b) Njihova povprečna starost je 13 let in 2 meseca.]
setitem 35 :odgc [c) Njihova povprečna starost je 13 let.]
setitem 35 :resitev[c]
setitem 35 :slike[prazna_slika.gif]

setitem 36 :vpr [Dana sta število in aritmetična sredina tega in še enega števila: 490, 452. Izračunaj drugo število!]
setitem 36 :odga [a) Drugo število je 404.]
setitem 36 :odgb [b) Drugo število je 414.]
setitem 36 :odgc [c) Drugo število je 404.]
setitem 36 :resitev[b]
setitem 36 :slike[prazna_slika.gif]

setitem 37 :vpr [Jure meri 1'59 m, Franci 1'62 m, Tina pa 1'58 m. Koliko meri Marija, če je skupna povprečna višina vseh 1'585m?]
setitem 37 :odga [a) Marija meri 1'56 m.]
setitem 37 :odgb [b) Marija meri 1'65 m.]
setitem 37 :odgc [c) Marija meri 1'55 m.]
setitem 37 :resitev[c]
setitem 37 :slike[prazna_slika.gif]

setitem 38 :vpr [Povprečna starost petih učencev je 13 let in 4 mesece, skupaj z učiteljico pa 15 let in 3 mesece. Koliko je stara učiteljica?]
setitem 38 :odga [a) Učiteljica je stara približno 24 let in 8 mesecev.]
setitem 38 :odgb [b) Učiteljica je stara približno 24 let in 10 mesecev.]
setitem 38 :odgc [c) Učiteljica je stara približno 24 let in 11 mesecev.]
setitem 38 :resitev[b]
setitem 38 :slike[prazna_slika.gif]

setitem 39 :vpr [Koliko v povprečju tehta ena čokolada, če so mase vzorcev: 253g, 256g, 251g, 250g, 249g, 262g, 259g, 256g, 257g in 255g?]
setitem 39 :odga [a) Povprečna masa čokolade je 245'8 g.]
setitem 39 :odgb [b) Povprečna masa čokolade je 245'8 dag.]
setitem 39 :odgc [c) Povprečna masa čokolade je 254'8 g.]
setitem 39 :resitev[c]
setitem 39 :slike[prazna_slika.gif]

setitem 40 :vpr [Stolpčni diagram kaže število sopotnikov v avtomobilih, ki so pripeljali mimo opazovalca v 5 minutah. Koliko sopotnikov je bilo povprečno v avtu?]
setitem 40 :odga [a) V avtu je bil povprečno manj kot en sopotnik.]
setitem 40 :odgb [b) V avtu je bil povprečno več kot en sopotnik.]
setitem 40 :odgc [c) V avtu je bil povprečno približno en sopotnik.]
setitem 40 :resitev[a]
setitem 40 :slike[Diagram_sopotniki.gif]

setitem 41 :vpr [Oglej si preglednico, v kateri so podatki o celotedenskem avtomobilskem izletu družine Kern. Koliko km povprečno so prevozili na dan?]
setitem 41 :odga [a) Na dan so prevozili povprečno 107'9 km.]
setitem 41 :odgb [b) Na dan so prevozili povprečno 109'7 km.]
setitem 41 :odgc [c) Na dan so prevozili povprečno 108'7 km.]
setitem 41 :resitev[b]
setitem 41 :slike[Pregl_izlet.gif]

setitem 42 :vpr [Petnajst ljudi je za malico plačalo različne zneske. Iz podatkov v preglednici ugotovi, koliko je v povprečju plačal vsak.]
setitem 42 :odga [a) Vsak je v povprečju plačal za malico približno 557 SIT.]
setitem 42 :odgb [b) Vsak je v povprečju plačal za malico približno 457 SIT.]
setitem 42 :odgc [c) Vsak je v povprečju plačal za malico približno 547 SIT.]
setitem 42 :resitev[c]
setitem 42 :slike[Pregl_malice.gif]

setitem 43 :vpr [Oglej si razpredelnico s plačami zaposlenih v podjetju TIR in izračunaj povprečno plačo zaposlenega v tem podjetju.]
setitem 43 :odga [a) Povprečna plača v tem podjetju znaša 450 000 SIT.]
setitem 43 :odgb [b) Povprečna plača v tem podjetju znaša 350 000 SIT.]
setitem 43 :odgc [c) Povprečna plača v tem podjetju znaša 400 000 SIT.]
setitem 43 :resitev[c]
setitem 43 :slike[Pregl_plače.gif]

setitem 44 :vpr [Oglej si razpredelnico o Tininih žepninah. Koliko znaša Tinina povprečna mesečna žepnina?]
setitem 44 :odga [a) Tinina povprečna mesečna žepnina znaša 2250 SIT.]
setitem 44 :odgb [b) Tinina povprečna mesečna žepnina znaša 2520 SIT.]
setitem 44 :odgc [c) Tinina povprečna mesečna žepnina znaša 2550 SIT.]
setitem 44 :resitev[a]
setitem 44 :slike[Pregl_zepnina.gif]

setitem 45 :vpr [Učenci so raziskovali koliko bonbonov je v enako težkih vrečkah. Iz njihove preglednice ugotovi, koliko bonbonov je povprečno v vrečki.]
setitem 45 :odga [a) V vsaki vrečki je povprečno približno 41 bonbonov.]
setitem 45 :odgb [b) V vsaki vrečki je povprečno približno 42 bonbonov.]
setitem 45 :odgc [c) V vsaki vrečki je povprečno približno 43 bonbonov.]
setitem 45 :resitev[b]
setitem 45 :slike[Raz_bonboni.gif]

setitem 46 :vpr [Kakšna je aritmetična sredina na sliki označenih točk?]
setitem 46 :odga [a) Aritmetična sredina točk je 3'05.]
setitem 46 :odgb [b) Aritmetična sredina točk je 3'15.]
setitem 46 :odgc [c) Aritmetična sredina točk je 3'25.]
setitem 46 :resitev[c]
setitem 46 :slike[Slika_osi.gif]

make "v item :izbor :vpr staticupdate "s1 :v
make "a1 item :izbor :odga staticupdate "s2 :a1
make "b1 item :izbor :odgb staticupdate "s3 :b1
make "c1 item :izbor :odgc staticupdate "s4 :c1
make "r item :izbor :resitev 
make "slika item :izbor :slike
cs ht pu rt 180 fd 170 lt 90 fd 75 pd
gifload :slika 
end

to zac
make "stevec 1
make "pomozni 1 + random 46

beri
end

to zacetek
  buttoncreate "prvo_okno "IZHOD "IZHOD 105 53 30 15[konec]
  buttoncreate "prvo_okno "igra "IGRA 62 53 30 15[igra]
  buttoncreate "prvo_okno "navod "NAVODILA 10 53 40 15[navodila]
  Staticcreate "prvo_okno "nadvrstica [IGRA O ARITMETIČNI SREDINI] 25 10 130 20
  Staticcreate "prvo_okno "uvod1 [Ta igra je namenjena utrjevanju znanja o najpogosteje uporabljani srednji vrednosti!] 10 23 130 25
end

to zapri_navodila
	windowdelete "okno_navodil
  	igra
end

to zvok
   ifelse :snd="on [make "snd "off buttondelete "zvok buttoncreate "okno_igre "zvok "VKLJUČI\ ZVOK 100 55 55 18 [zvok]
][make "snd "on buttondelete "zvok buttoncreate "okno_igre "zvok "IZKLJUČI\ ZVOK 100 55 55 18 [zvok]]
end

prvo_okno