to deli make "a (1 + random 20) make "b ((1 + random 5) * (1 + random 5)) type "Največji\ skupni\ delitelj\ števil\ type :a type "\ in\ type :b print "\ ? type "Odgovor:\ Staticcreate "okno4 "pr4 :p 130 95 10 10 Staticcreate "okno4 "nr4 :n 130 125 10 10 Staticcreate "okno4 "res " 30 120 80 15 Staticcreate "okno4 "rez " 30 130 40 15 buttoncreate "okno4 "prviA :a 10 30 25 15[] buttoncreate "okno4 "drugiA :b 40 30 25 15[] make "rez (delitelj :a :b) make "q (1 + random 4) if :q=1[ buttoncreate "okno4 "prviAr :rez 10 70 20 20[print :rez pravilno4] buttoncreate "okno4 "drugiAr (:rez * 2) 40 70 20 20[print :rez * 2 nepravilno4 ] buttoncreate "okno4 "tretjiAr (if :rez > 1 [:rez - 1] [:rez + 3]) 70 70 20 20[print (if :rez > 1 [:rez - 1] [:rez + 3]) nepravilno4 ] buttoncreate "okno4 "četrtiAr (:rez * 3) 100 70 20 20[print :rez * 3 nepravilno4 ] ] if :q=2[buttoncreate "okno4 "prviAr (:rez * 3) 10 70 20 20[print :rez * 3 nepravilno4 ] buttoncreate "okno4 "drugiAr :rez 40 70 20 20[print :rez pravilno4 ] buttoncreate "okno4 "tretjiAr (:rez * 2) 70 70 20 20[print :rez * 2 nepravilno4 ] buttoncreate "okno4 "četrtiAr (if :rez > 1 [:rez - 1] [:rez + 3]) 100 70 20 20[print (if :rez > 1 [:rez - 1] [:rez + 3]) nepravilno4 ] ] if :q=3[buttoncreate "okno4 "prviAr (if :rez > 1 [:rez - 1] [:rez + 3]) 10 70 20 20[print (if :rez > 1 [:rez - 1] [:rez + 3]) nepravilno4 ] buttoncreate "okno4 "drugiAr (:rez * 3) 40 70 20 20[print :rez * 3 nepravilno4 ] buttoncreate "okno4 "tretjiAr :rez 70 70 20 20[print :rez pravilno4 ] buttoncreate "okno4 "četrtiAr (:rez * 2) 100 70 20 20[print :rez * 2 nepravilno4 ] ] if :q=4[buttoncreate "okno4 "prviAr (:rez * 2) 10 70 20 20[print :rez * 2 nepravilno4 ] buttoncreate "okno4 "drugiAr (if :rez > 1 [:rez - 1] [:rez + 3]) 40 70 20 20[print (if :rez > 1 [:rez - 1] [:rez + 3]) nepravilno4 ] buttoncreate "okno4 "tretjiAr (:rez * 3) 70 70 20 20[print :rez * 3 nepravilno4 ] buttoncreate "okno4 "četrtiAr :rez 100 70 20 20[print :rez pravilno4 ] ] End to delitelj :a :b while [not equalp :a :b] [ifelse :a > :b [make "a :a - :b] [make "b :b - :a]] output(:a) End to izhod windowdelete "okno0 vstop End to koncaj windowdelete "okno windowdelete "okno1 windowdelete "okno2 windowdelete "okno3 windowdelete "okno4 print " print "-\ KONEC\ - print " type "REZULTAT:\ pravilnih:\ type :p type "\ \ nepravilnih:\ print :n ZapriDatoteko home st End to konkoncaj windowdelete "okno windowdelete "okno1 windowdelete "okno2 windowdelete "okno3 windowdelete "okno4 print " print "-\ KONEC\ - ZapriDatoteko home st End to najmanjsi make "p 0 make "n 0 make "i 0 print "NAJMANJŠI\ SKUPNI\ VEČKRATNIK print " windowdelete "okno1 windowcreate "main "okno3 [najmanjši skupni večkratnik] 70 20 200 200[] Staticcreate "okno3 "uvod3 [NAJDI PRAVILNO REŠITEV:] 10 60 120 25 Staticcreate "okno3 "naslov3 [NAJMANJŠI SKUPNI VEČKRATNIK] 30 10 120 25 buttoncreate "okno3 "konec3 "KONEC 130 170 40 15[koncaj] buttoncreate "okno3 "naprej3 "|Naslednji primer| 20 150 70 15[ifelse :i=1 [naslednji3] [naslednji3i]] buttoncreate "okno3 "zam3 "|Zamenjaj temo| 120 150 70 15[zamenjaj3] Staticcreate "okno3 "legenda31 [število PRAVILNIH] 130 80 50 20 Staticcreate "okno3 "prav3 :p 130 95 10 10 Staticcreate "okno3 "legenda32 [število NAPAČNIH] 130 110 50 20 Staticcreate "okno3 "nar3 :n 130 125 10 10 veckrat End to najvecji make "p 0 make "n 0 make "i 0 print "NAJVEČJI\ SKUPNI\ DELITELJ print " windowdelete "okno1 windowcreate "main "okno4 [največji skupni delitelj] 70 20 200 200[] Staticcreate "okno4 "uvod4 [NAJDI PRAVILNO REŠITEV:] 10 60 120 25 Staticcreate "okno4 "naslov4 [NAJVEČJI SKUPNI DELITELJ] 30 10 120 25 buttoncreate "okno4 "konec4 "KONEC 130 170 40 15[koncaj] buttoncreate "okno4 "naprej4 "|Naslednji primer| 20 150 70 15[ifelse :i=1 [naslednji4] [naslednji4i]] buttoncreate "okno4 "zam4 "|Zamenjaj temo| 120 150 70 15[zamenjaj4] Staticcreate "okno4 "legenda41 [število PRAVILNIH] 130 80 50 20 Staticcreate "okno4 "prav4 :p 130 95 10 10 Staticcreate "okno4 "legenda42 [število NAPAČNIH] 130 110 50 20 Staticcreate "okno4 "nar4 :n 130 125 10 10 deli End to naslednji3 make "i 0 buttondelete "prviA buttondelete "drugiA buttondelete "prviAr buttondelete "drugiAr buttondelete "tretjiAr buttondelete "četrtiAr Staticdelete "n3 Staticdelete "nr3 Staticdelete "pr3 Staticdelete "res Staticdelete "rez veckrat End to naslednji3i buttondelete "prviA buttondelete "drugiA buttondelete "prviAr buttondelete "drugiAr buttondelete "tretjiAr buttondelete "četrtiAr Staticdelete "nr3 Staticdelete "pr3 Staticdelete "res Staticdelete "rez make "n (:n + 1) print "brez\ odgovora. print " veckrat End to naslednji4 make "i 0 buttondelete "prviA buttondelete "drugiA buttondelete "prviAr buttondelete "drugiAr buttondelete "tretjiAr buttondelete "četrtiAr Staticdelete "n4 Staticdelete "nr4 Staticdelete "pr4 Staticdelete "res Staticdelete "rez deli End to naslednji4i buttondelete "prviA buttondelete "drugiA buttondelete "prviAr buttondelete "drugiAr buttondelete "tretjiAr buttondelete "četrtiAr Staticdelete "nr4 Staticdelete "pr4 Staticdelete "res Staticdelete "rez make "n (:n + 1) print "brez\ odgovora. print " deli End to navodila windowdelete "okno windowcreate "main "okno0 [PREVERJANJE ZNANJA O VEČKRATNIKIH IN DELITELJIH] 45 20 265 220[] Staticcreate "okno0 "nav1 [POZDRAVLJEN-A UPORABNIK/UPORABNICA!] 40 10 230 20 Staticcreate "okno0 "nav2 [Pred teboj so navodila za PREVERJANJE ZNANJA] 35 20 200 10 Staticcreate "okno0 "nav3 [Z nalogami, ki ti jih ponuja program, lahko preveriš svoje znanje o:] 10 35 250 10 Staticcreate "okno0 "nav4 [* najmanjšem skupnem večkratniku števil]10 45 200 10 Staticcreate "okno0 "nav5 [(tako, da dvema izbranima številoma, ki ti jih poda računalnik, poiščeš najmanjši skupni večkratnik in ga označiš med naštetimi odgovori.)]10 55 250 30 Staticcreate "okno0 "nav6 [in] 10 75 10 30 Staticcreate "okno0 "nav7 [* največjem skupnem delitelju števil]10 85 200 10 Staticcreate "okno0 "nav8 [(tako, da dvema izbranima številoma, ki jih izbere računalnik, poiščeš največji skupni delitelj izbranih števil in ga označiš med rezultati.)]10 95 250 30 Staticcreate "okno0 "nav9 [Avtorica: Alenka Gros]10 165 100 10 Staticcreate "okno0 "nav10 [PeF v Ljubljani]10 175 50 50 Staticcreate "okno0 "nav11 [junij 2003]10 185 50 50 buttoncreate "okno0 "nav "|Zapri navodila| 155 170 60 15 [izhod] nodribble close "odgovori.txt End to nepravilno3 make "i 1 Staticdelete "nr3 Staticdelete "pr3 Staticdelete "res Staticdelete "rez Staticcreate "okno3 "n3 [NEPRAVILNO!] 30 100 50 15 make "n (:n + 1) Staticcreate "okno3 "nr3 :n 130 125 10 10 Staticcreate "okno3 "pr3 :p 130 95 10 10 Staticcreate "okno3 "res [PRAVILNA REŠITEV:] 30 120 80 15 Staticcreate "okno3 "rez :rez 30 130 40 15 type "Odgovor\ ni\ pravilen.\ type "Pravilen\ odgovor\ je\ type :rez print ". print " End to nepravilno4 make "i 1 Staticdelete "nr4 Staticdelete "pr4 Staticdelete "res Staticdelete "rez Staticcreate "okno4 "n4 [NEPRAVILNO!] 30 100 50 15 make "n (:n + 1) Staticcreate "okno4 "nr4 :n 130 125 10 10 Staticcreate "okno4 "pr4 :p 130 95 10 10 Staticcreate "okno4 "res [PRAVILNA REŠITEV:] 30 120 80 15 Staticcreate "okno4 "rez :rez 30 130 40 15 type "Odgovor\ ni\ pravilen.\ type "Pravilen\ odgovor\ je\ type :rez print ". print " End to OdpriDatoteko openwrite "odgovori.txt dribble "odgovori.txt End to okno windowcreate "main "okno [PREVERJANJE ZNANJA O VEČKRATNIKIH IN DELITELJIH] 100 30 140 150[ ht setup] End to pravilno3 make "i 1 Staticdelete "nr3 Staticdelete "pr3 Staticcreate "okno3 "n3 [PRAVILNO!] 30 100 40 15 make "p (:p + 1) Staticcreate "okno3 "pr3 :p 130 95 10 10 Staticcreate "okno3 "nr3 :n 130 125 10 10 print "Odgovor\ je\ pravilen. print " End to pravilno4 make "i 1 Staticdelete "nr4 Staticdelete "pr4 Staticcreate "okno4 "n4 [PRAVILNO!] 30 100 40 15 make "p (:p + 1) Staticcreate "okno4 "pr4 :p 130 95 10 10 Staticcreate "okno4 "nr4 :n 130 125 10 10 print "Odgovor\ je\ pravilen. print " End to setup windowcreate "main "okno [POZDRAV VSEM UPORABNIKOM] 70 20 160 160[] buttoncreate "okno "konec1 "|KONEC| 85 120 40 15[konkoncaj] buttoncreate "okno "navodila "|NAVODILA| 20 55 100 15[navodila] buttoncreate "okno "vstop "|VSTOPI| 20 80 100 15[vstop] Staticcreate "okno "legenda [Preberi navodila preverjanja ali pa se loti reševanja primerov.] 10 30 120 20 Staticcreate "okno "uvod [Pozdravljen-a v LOGOVEM preverjanju znanja.] 10 5 130 20 OdpriDatoteko End to veckrat make "a (1 + random 20) make "b (1 + random 30) type "Najmanjši\ skupni\ večkratnik\ števil\ type :a type "\ in\ type :b print "? type "Odgovor:\ Staticcreate "okno3 "pr3 :p 130 95 10 10 Staticcreate "okno3 "nr3 :n 130 125 10 10 Staticcreate "okno3 "res " 30 120 80 15 Staticcreate "okno3 "rez " 30 130 40 15 buttoncreate "okno3 "prviA :a 10 30 25 15[] buttoncreate "okno3 "drugiA :b 40 30 25 15[] make "rez (veckratnik :a :b) make "ran (:rez * (3 + random 5)) make "q (1 + random 4) if :q=1[ buttoncreate "okno3 "prviAr :rez 10 70 20 20[print :rez pravilno3] buttoncreate "okno3 "drugiAr :ran 40 70 20 20[print :ran nepravilno3] buttoncreate "okno3 "tretjiAr (:rez * 2) 70 70 20 20[print :rez * 2 nepravilno3] buttoncreate "okno3 "četrtiAr (if :rez < 11 [:rez + 11] [:rez - 10] ) 100 70 20 20[print (if :rez < 11 [:rez + 11] [:rez - 10] ) nepravilno3] ] if :q=2[buttoncreate "okno3 "prviAr (if :rez < 11 [:rez + 11] [:rez - 10] ) 10 70 20 20[print (if :rez < 11 [:rez + 11] [:rez - 10] ) nepravilno3] buttoncreate "okno3 "drugiAr :rez 40 70 20 20[print :rez pravilno3] buttoncreate "okno3 "tretjiAr :ran 70 70 20 20[print :ran nepravilno3] buttoncreate "okno3 "četrtiAr (:rez * 2) 100 70 20 20[print :rez *2 nepravilno3] ] if :q=3[buttoncreate "okno3 "prviAr (:rez * 2) 10 70 20 20[print :rez * 2 nepravilno3] buttoncreate "okno3 "drugiAr (if :rez < 11 [:rez + 11] [:rez - 10] ) 40 70 20 20[print (if :rez < 11 [:rez + 11] [:rez - 10] ) nepravilno3] buttoncreate "okno3 "tretjiAr :rez 70 70 20 20[print :rez pravilno3] buttoncreate "okno3 "četrtiAr :ran 100 70 20 20[print :ran nepravilno3] ] if :q=4[buttoncreate "okno3 "prviAr :ran 10 70 20 20[print :ran nepravilno3] buttoncreate "okno3 "drugiAr (:rez * 2) 40 70 20 20[print :rez * 2 nepravilno3] buttoncreate "okno3 "tretjiAr (if :rez < 11 [:rez + 11] [:rez - 10] ) 70 70 20 20[print (if :rez < 11 [:rez + 11] [:rez - 10] ) nepravilno3] buttoncreate "okno3 "četrtiAr :rez 100 70 20 20[print :rez pravilno3] ] End to veckratnik :a :b output((:a * :b) / delitelj :a :b) End to vstop windowdelete "okno windowdelete "okno2 windowcreate "main "okno1 [večkratnik in delitelj] 70 20 160 160[] buttoncreate "okno1 "konec1 "KONEC 85 120 40 15[konkoncaj] buttoncreate "okno1 "navodila "NAVODILA 20 120 40 15[navodila] buttoncreate "okno1 "najm "|Najmanjši skupni večkratnik| 20 40 100 15[najmanjsi] buttoncreate "okno1 "najv "|Največji skupni delitelj| 20 65 100 15[najvecji] Staticcreate "okno1 "uvod1 [IZBERI TEMO:] 10 20 120 15 End to zamenjaj3 print " print "-\ KONEC\ - print " type "REZULTAT:\ pravilnih:\ type :p type "\ \ nepravilnih:\ print :n print " print " windowdelete "okno3 vstop End to zamenjaj4 print " print "-\ KONEC\ - print " type "REZULTAT:\ pravilnih:\ type :p type "\ \ nepravilnih:\ print :n print " print " windowdelete "okno4 vstop End to ZapriDatoteko nodribble ;vrne pisanje na zaslon close "odgovori.txt print "Shranjeno\ v\ datoteki\ \"odgovori.txt print "-\ KONEC\ - End setup