to deli1

staticdelete "odgovor
make "a 1 + (random 99)
make "b 1 + (random 99)
test :a < :b
iftrue [make "c :a
        make "a :b
        make "b :c]

buttoncreate "legenda "s1 :a 180 120 30 30 []
buttoncreate "legenda "op ": 210 120 20 30 []
buttoncreate "legenda "s2 :b 230 120 30 30 []
buttoncreate "legenda "rz "= 260 120 20 30 []

make "odg2 (int(:a/:b)*100+0.5)/100

make "np 0
catch "error [pr preveri]
  make "napaka error
  if not emptyp :napaka [
   (staticcreate "legenda "odgovor "|Ker pogumno! Vnesi vrednost v okence!| 180 100 50 50)
   make "np 1  
   ]

if :np=0 [
test :odg2 = :rez
iftrue [make "prav (:prav + 1)
	staticcreate "legenda "odgovor "|Cestitam! Tvoj odgovor je pravilen.| 180 100 50 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a ": :b "= :rez)
	show :izraz
	print "Pravilno
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "pr
	buttoncreate "legenda "pr :prav 250 260 30 30 []
	]
iffalse [make "nap (:nap + 1)
	staticcreate "legenda "odgovor "|Tvoj odgovor je nepravilen! Poskusi znova.| 180 100 50 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a ": :b "= :rez)
	show :izraz
	print "|Napacno. Pravilni odgovor je| print :odg2
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "nepr	
	buttoncreate "legenda "nepr :nap 310 260 30 30 []
	]
]

buttondelete "s1
buttondelete "op
buttondelete "s2
buttondelete "rz

end

to deli2

staticdelete "odgovor
make "a 1 + (random 99)
make "b 1 + (random 10000)/100
test :a<:b
iftrue [make "c :a
        make "s (:b - (int :b))
        make "a (int :b)
        make "b (:c + :s)
]

buttoncreate "legenda "s1 :a 180 120 30 30 []
buttoncreate "legenda "op ": 210 120 20 30 []
buttoncreate "legenda "s2 :b 230 120 30 30 []
buttoncreate "legenda "rz "= 260 120 20 30 []

make "odg2 (int(:a/:b)*100+0.5)/100

make "np 0
catch "error [pr preveri]
  make "napaka error
  if not emptyp :napaka [
   (staticcreate "legenda "odgovor "|Ker pogumno! Vnesi vrednost v okence!| 180 100 50 50)
   make "np 1  
   ]

if :np=0 [
test :odg2 = :rez
iftrue [make "prav (:prav + 1)
	staticcreate "legenda "odgovor "|Cestitam! Tvoj odgovor je pravilen.| 180 100 50 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a ": :b "= :rez)
	show :izraz
	print "Pravilno
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "pr
	buttoncreate "legenda "pr :prav 250 260 30 30 []
	]
iffalse [make "nap (:nap + 1)
	staticcreate "legenda "odgovor "|Tvoj odgovor je nepravilen! Poskusi znova.| 180 100 50 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a ": :b "= :rez)
	show :izraz
	print "|Napacno. Pravilni odgovor je| print :odg2
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "nepr	
	buttoncreate "legenda "nepr :nap 310 260 30 30 []
	]
]

buttondelete "s1
buttondelete "op
buttondelete "s2
buttondelete "rz

end

to deli3

staticdelete "odgovor
make "b (random 99)
make "a 1 + (random 10000)/100

test :a<:b
iftrue [make "c (int :a)
        make "s (:a - (int :a))
        make "a (:b + :s)
        make "b :c
]

buttoncreate "legenda "s1 :a 180 120 30 30 []
buttoncreate "legenda "op ": 210 120 20 30 []
buttoncreate "legenda "s2 :b 230 120 30 30 []
buttoncreate "legenda "rz "= 260 120 20 30 []

make "odg2 (int(:a/:b)*100+0.5)/100

make "np 0
catch "error [pr preveri]
  make "napaka error
  if not emptyp :napaka [
   (staticcreate "legenda "odgovor "|Ker pogumno! Vnesi vrednost v okence!| 180 100 50 50)
   make "np 1  
   ]

if :np=0 [
test :odg2 = :rez
iftrue [make "prav (:prav + 1)
	staticcreate "legenda "odgovor "|Cestitam! Tvoj odgovor je pravilen.| 180 100 50 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a ": :b "= :rez)
	show :izraz
	print "Pravilno
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "pr
	buttoncreate "legenda "pr :prav 250 260 30 30 []
	]
iffalse [make "nap (:nap + 1)
	staticcreate "legenda "odgovor "|Tvoj odgovor je nepravilen! Poskusi znova.| 180 100 50 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a ": :b "= :rez)
	show :izraz
	print "|Napacno. Pravilni odgovor je| print :odg2
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "nepr	
	buttoncreate "legenda "nepr :nap 310 260 30 30 []
	]
]

buttondelete "s1
buttondelete "op
buttondelete "s2
buttondelete "rz

end

to deli4

staticdelete "odgovor
make "a ((random 10000)/100)
make "b ((random 10000)/100)

test :a<:b
iftrue [make "c :a
        make "a :b
        make "b :c
]

buttoncreate "legenda "s1 :a 180 120 30 30 []
buttoncreate "legenda "op ": 210 120 20 30 []
buttoncreate "legenda "s2 :b 230 120 30 30 []
buttoncreate "legenda "rz "= 260 120 20 30 []

make "odg2 (int(:a/:b)*100+0.5)/100

make "np 0
catch "error [pr preveri]
  make "napaka error
  if not emptyp :napaka [
   (staticcreate "legenda "odgovor "|Ker pogumno! Vnesi vrednost v okence!| 180 100 50 50)
   make "np 1  
   ]

if :np=0 [
test :odg2 = :rez
iftrue [make "prav (:prav + 1)
	staticcreate "legenda "odgovor "|Cestitam! Tvoj odgovor je pravilen.| 180 100 50 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a ": :b "= :rez)
	show :izraz
	print "Pravilno
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "pr
	buttoncreate "legenda "pr :prav 250 260 30 30 []
	]
iffalse [make "nap (:nap + 1)
	staticcreate "legenda "odgovor "|Tvoj odgovor je nepravilen! Poskusi znova.| 180 100 50 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a ": :b "= :rez)
	show :izraz
	print "|Napacno. Pravilni odgovor je| print :odg2
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "nepr	
	buttoncreate "legenda "nepr :nap 310 260 30 30 []
	]
]

buttondelete "s1
buttondelete "op
buttondelete "s2
buttondelete "rz

end

to deli5

staticdelete "odgovor
make "a 1 + (random 100)
make "b 1 + (random 100)

test :a > :b
iftrue [make "c :a
        make "a :b
        make "b :c]


buttoncreate "legenda "s1 :a 180 120 30 30 []
buttoncreate "legenda "op ": 210 120 20 30 []
buttoncreate "legenda "s2 :b 230 120 30 30 []
buttoncreate "legenda "rz "= 260 120 20 30 []

make "odg2 (int(:a/:b)*100+0.5)/100

make "np 0
catch "error [pr preveri]
  make "napaka error
  if not emptyp :napaka [
   (staticcreate "legenda "odgovor "|Ker pogumno! Vnesi vrednost v okence!| 180 100 50 50)
   make "np 1  
   ]

if :np=0 [
test :odg2 = :rez
iftrue [make "prav (:prav + 1)
	staticcreate "legenda "odgovor "|Cestitam! Tvoj odgovor je pravilen.| 180 100 50 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a ": :b "= :rez)
	show :izraz
	print "Pravilno
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "pr
	buttoncreate "legenda "pr :prav 250 260 30 30 []
	]
iffalse [make "nap (:nap + 1)
	staticcreate "legenda "odgovor "|Tvoj odgovor je nepravilen! Poskusi znova.| 180 100 50 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a ": :b "= :rez)
	show :izraz
	print "|Napacno. Pravilni odgovor je| print :odg2
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "nepr	
	buttoncreate "legenda "nepr :nap 310 260 30 30 []
	]
]

buttondelete "s1
buttondelete "op
buttondelete "s2
buttondelete "rz

end

to deli6

staticdelete "odgovor
make "a 1 + (random 99)
make "b 1 +(random 10000)/100

test :a>:b
iftrue [make "c :a
        make "s (:b - (int :b))
        make "a (int :b)
        make "b (:c + :s)
]


buttoncreate "legenda "s1 :a 180 120 30 30 []
buttoncreate "legenda "op ": 210 120 20 30 []
buttoncreate "legenda "s2 :b 230 120 30 30 []
buttoncreate "legenda "rz "= 260 120 20 30 []

make "odg2 (int(:a/:b)*100+0.5)/100

make "np 0
catch "error [pr preveri]
  make "napaka error
  if not emptyp :napaka [
   (staticcreate "legenda "odgovor "|Ker pogumno! Vnesi vrednost v okence!| 180 100 50 50)
   make "np 1  
   ]

if :np=0 [
test :odg2 = :rez
iftrue [make "prav (:prav + 1)
	staticcreate "legenda "odgovor "|Cestitam! Tvoj odgovor je pravilen.| 180 100 50 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a ": :b "= :rez)
	show :izraz
	print "Pravilno
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "pr
	buttoncreate "legenda "pr :prav 250 260 30 30 []
	]
iffalse [make "nap (:nap + 1)
	staticcreate "legenda "odgovor "|Tvoj odgovor je nepravilen! Poskusi znova.| 180 100 50 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a ": :b "= :rez)
	show :izraz
	print "|Napacno. Pravilni odgovor je| print :odg2
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "nepr	
	buttoncreate "legenda "nepr :nap 310 260 30 30 []
	]
]

buttondelete "s1
buttondelete "op
buttondelete "s2
buttondelete "rz

end

to deli7

staticdelete "odgovor
make "b (random 99)
make "a 1 + (random 10000)/100

test :a>:b
iftrue [make "c (int :a)
        make "s (:a - (int :a))
        make "a (:b + :s)
        make "b :c
]

buttoncreate "legenda "s1 :a 180 120 30 30 []
buttoncreate "legenda "op ": 210 120 20 30 []
buttoncreate "legenda "s2 :b 230 120 30 30 []
buttoncreate "legenda "rz "= 260 120 20 30 []

make "odg2 (int(:a/:b)*100+0.5)/100

make "np 0
catch "error [pr preveri]
  make "napaka error
  if not emptyp :napaka [
   (staticcreate "legenda "odgovor "|Ker pogumno! Vnesi vrednost v okence!| 180 100 50 50)
   make "np 1  
   ]

if :np=0 [
test :odg2 = :rez
iftrue [make "prav (:prav + 1)
	staticcreate "legenda "odgovor "|Cestitam! Tvoj odgovor je pravilen.| 180 100 50 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a ": :b "= :rez)
	show :izraz
	print "Pravilno
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "pr
	buttoncreate "legenda "pr :prav 250 260 30 30 []
	]
iffalse [make "nap (:nap + 1)
	staticcreate "legenda "odgovor "|Tvoj odgovor je nepravilen! Poskusi znova.| 180 100 50 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a ": :b "= :rez)
	show :izraz
	print "|Napacno. Pravilni odgovor je| print :odg2
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "nepr	
	buttoncreate "legenda "nepr :nap 310 260 30 30 []
	]
]

buttondelete "s1
buttondelete "op
buttondelete "s2
buttondelete "rz

end

to deli8

staticdelete "odgovor
make "b ((random 10000)/100)
make "a ((random 10000)/100)

test :a>:b
iftrue [make "c :a
        make "a :b
        make "b :c
]

buttoncreate "legenda "s1 :a 180 120 30 30 []
buttoncreate "legenda "op ": 210 120 20 30 []
buttoncreate "legenda "s2 :b 230 120 30 30 []
buttoncreate "legenda "rz "= 260 120 20 30 []

make "odg2 (int(:a/:b)*100+0.5)/100

make "np 0
catch "error [pr preveri]
  make "napaka error
  if not emptyp :napaka [
   (staticcreate "legenda "odgovor "|Ker pogumno! Vnesi vrednost v okence!| 180 100 50 50)
   make "np 1  
   ]

if :np=0 [
test :odg2 = :rez
iftrue [make "prav (:prav + 1)
	staticcreate "legenda "odgovor "|Cestitam! Tvoj odgovor je pravilen.| 180 100 50 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a ": :b "= :rez)
	show :izraz
	print "Pravilno
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "pr
	buttoncreate "legenda "pr :prav 250 260 30 30 []
	]
iffalse [make "nap (:nap + 1)
	staticcreate "legenda "odgovor "|Tvoj odgovor je nepravilen! Poskusi znova.| 180 100 50 50
	openappend "vaja.txt
	setwrite "vaja.txt
	make "izraz (list :a ": :b "= :rez)
	show :izraz
	print "|Napacno. Pravilni odgovor je| print :odg2
	print "----------
	setwrite []
        close "vaja.txt
	buttondelete "nepr	
	buttoncreate "legenda "nepr :nap 310 260 30 30 []
	]
]

buttondelete "s1
buttondelete "op
buttondelete "s2
buttondelete "rz

end

to index

make "prav 0
make "nap 0

windowcreate "main "legenda "|Deljenje števil| 0 0 380 330 []
buttoncreate "legenda "n "NAVODILA  50 270 40 15 [navodila]
buttoncreate "legenda "z "KONCAJ  100 270 40 15 [windowdelete "legenda]

staticcreate "legenda "do "|DELJENJE ŠTEVIL| 130 10 300 10

staticcreate "legenda "do2 "|Namesto decimalne vejice piši decimalno piko!| 150 30 200 30
staticcreate "legenda "do3 "|Tam kjer je potrebno, rezultat zaokroži na dve decimalni mesti!| 150 50 200 40

staticcreate "legenda "do4 "|Želim deliti:| 15 75 100 10

staticcreate "legenda "do5 "|Prvo število vecje od drugega:| 15 90 120 10
buttoncreate "legenda "del1 "|celo št. s celim št.|  10 100 120 15 [deli1]
buttoncreate "legenda "del2 "|celo št. z decimalnim št.|  10 115 120 15 [deli2]
buttoncreate "legenda "del3 "|decimalno št. s celim št.|    10 130 120 15 [deli3]
buttoncreate "legenda "del4 "|decimalno št. z decimalnim št.|    10 145 120 15 [deli4]

staticcreate "legenda "do6 "|Prvo število manjše od drugega:| 15 175 120 10
buttoncreate "legenda "del5 "|celo št. s celim št.|  10 185 120 15 [deli5]
buttoncreate "legenda "del6 "|celo št. z decimalnim št.|  10 200 120 15 [deli6]
buttoncreate "legenda "del7 "|decimalno št. s celim št.|    10 215 120 15 [deli7]
buttoncreate "legenda "del8 "|decimalno št. z decimalnim št.|    10 230 120 15 [deli8]



staticcreate "legenda "odgovor "|CE  ŽELIŠ  ZACETI  Z  RACUNANJEM  SI  IZBERI  USTREZNI  GUMB  NA  LEVI!| 160 150 200 50
staticcreate "legenda "pp "|Nepravilni odg.| 310 230 40 40
staticcreate "legenda "nn "|Pravilni odg.| 250 230 50 50
buttoncreate "legenda "pr :prav 250 260 30 30 []
buttoncreate "legenda "nepr :nap 310 260 30 30 []

openwrite "vaja.txt
setwrite "vaja.txt
print "*****Vaja*****
print "|***************|
setwrite []
close "vaja.txt

end

to index1
cs
ct
index
end

to navodila

windowcreate "main "nav "Navodila 100 100 150 200 []
staticcreate "nav "navodila1 [Pozdravljen/a! S pomocjo tega programcka bos utrdil/a svoje znanje v deljenju števil.] 5 5 110 100
staticcreate "nav "navodila2 [Kako zacneš? Z miško klikni na izbrani gumb na levi. Program bo zgeneriral ustrezen izraz.] 5 30 110 60 
staticcreate "nav "navodila3 [V okno, ki se odpre, vpiši rezultat in klikni OK. ] 5 60 110 60
staticcreate "nav "navodila4 [Izrazi in odgovori se zapisujejo na datoteko vaja.txt, tako da lahko preveriš svoje odgovore. ] 5 80 110 60
staticcreate "nav "navodila5 [Pripravila Katja Zamernik ] 10 120 120 60
staticcreate "nav "navodila6 [september 2005 ] 10 170 120 60

buttoncreate "nav "zap "Zapri 10 140 20 15 [windowdelete "nav]

end

to preveri

make "rez rw
make "rez1 Form :rez 6 0
op :rez

end

to zacetek
 pr [Pozdravljen/a! Vstopil/a si v program s katerim lahko preveris svoje ]
 pr [znanje v deljenju stevil.]
 pr []
 pr [Zelim ti veliko uspeha!]
 pr []
 
 INDEX
end

Make "a 77
Make "b 90
Make "c 10.9
Make "izraz [13.1 + 11 / 10.9 = 14.109]
Make "nap 0
Make "napaka [7 [Form doesn't like as input] preveri [make "rez1 Form :rez 6 0]]
Make "np 1
Make "odg1 33700
Make "odg2 117
Make "prav 0
Make "rez "
Make "rez1 "
Make "startup [zacetek]