home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 July / Chip_1998-07_cd.bin / tema / sgp / vyber / premysl / PREMYSL.SGP < prev    next >
Text File  |  1997-11-24  |  31KB  |  695 lines
  1. SGPC   5.00 S#4B1T12 23.05.1997 14:23:43                                        StructNo 3   3
  2. ; Vytvo²en ze vzoru: W:\SKOLA\SGP\BALT40\VZORBC.000
  3.  
  4. # include <sgpbalt.h>
  5.  
  6. /*-hf(*/
  7. /*-hf-*/
  8. void Obrazovka( long Banka )
  9. /*-hf-*/;
  10. void Zkouτení( void )
  11. /*-hf-*/;
  12. void Seznam( void )
  13. /*-hf-*/;
  14. /***** hlavní program *****/
  15. void main()
  16. /*-hf)*/;
  17. ;-h---------------------------------------------------------------------------
  18. /***** globální prom╪nné *****/
  19.  
  20.  
  21.  
  22.  
  23.  
  24. ;-h---------------------------------------------------------------------------
  25. void Obrazovka( long Banka )
  26. -s--Obrazovka                                                                   ■  10  -2  -4 259
  27.                                Obrazovka
  28.                                    │
  29.                                   0!
  30.                                :i=1!
  31.                                :j=0!
  32.                               :Banka*=1000
  33.                          :GrNastavPaletu(Banka)
  34.                                  Rady
  35.                                 Opakuj
  36.                                   #N:(b,10)
  37.                         _________Rady________
  38.                       Opakuj              Dosad
  39.                         #N:(a,15)     :j=j+1!
  40.                       Rada1             :i=1!
  41. X:((15*j+i)+Banka,i,j+1)!
  42.                   :i=i+1!
  43. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  44. 0 ;prom╪nné celoƒíselné: a,b,c,d,e,f,g,h,i,j,Klávesa;      -32768..32767
  45.                     int  a,b,c,d,e,f,g,h,i,j,Klávesa,
  46.                          I¼íslo1,I¼íslo2,I¼íslo3,PàvBarvy;
  47.  
  48.   ;prom╪nné reálné: D¼íslo1,D¼íslo2,D¼íslo3;           5.0E-324..1.7E308
  49.             double  D¼íslo1,D¼íslo2,D¼íslo3;
  50.   ;prom╪nná znak:   Znak;
  51.             char    Znak;
  52.   ;prom╪nná ²et╪zec:ⁿet╪zec;
  53.             string  ⁿet╪zec;
  54. [ Vytvo²Prostor()
  55. ] ZruτProstor()
  56. a Klávesa= ¼tiKlávesuZFronty()
  57. b P²epniNaBaltazara()
  58. c ¼aruj(¼tverec)
  59. d Gr¼tiZnak("?",Znak,1,0x07)             /*      edit ano, ƒerná/sτedá*/
  60. e BezObláƒku()
  61. f VyprázdniFrontuKláves()
  62. g Gr¼tiSⁿet╪zec("?",ⁿet╪zec,40,1,0x3f)   /*40zn, edit ano, modrá/bílá */
  63. h Gr¼tiI¼íslo("?",I¼íslo1,6,0,0x0e)      /* 6zn, edit  ne, ƒerná/ºlutá*/
  64. i Gr¼tiD¼íslo("?",D¼íslo1,20,1,0x0f)     /*20zn, edit  ne, ƒerná/bílá */
  65. j GrPiτZnak(Znak)
  66. k Klávesa= ¼tiKlávesuZFrontyS¼ekáním()
  67. l VlevoVbok()
  68. m ;vypiτ ⁿet╪zec do grafického okénka
  69.    PàvBarvy=GrNastavBarvy(Modrá<<4|ªlutá); /* ºlutá na modré          */
  70.    GrPiτⁿet╪zec(ⁿet╪zec);            /* vypíτe obsah prom╪nné ⁿet╪zec */
  71.    GrNastavBarvy(PàvBarvy);          /* nastaví pàvodní barvy         */
  72. n Neviditeln∞()
  73. o SObláƒkem()
  74. p Popojdi(1)
  75. q GrPiτL¼íslo(I¼íslo1,-1)             /* -1 = nejkratτí v∞pis          */
  76. r VpravoVbok()
  77. s Klávesa= ¼tiKlávesuS¼ekáním()
  78. t P²epniNaText()
  79. u GrPiτD¼íslo(D¼íslo1,10,2)           /* 10 ƒíslic, z toho 2 desetinné */
  80. v Viditeln∞()
  81. w ;ƒekej na klávesu, smaº klávesu
  82.    ¼ekejNaKlávesu();
  83.    VyprázdniFrontuKláves();
  84. x
  85. y
  86. z ;ƒelem vzad
  87.    VlevoVbok(); VlevoVbok()
  88. B NastavBarvu¼arování   /*       B:(barva)!   0-15                    */
  89. C ¼aruj                 /*     C:(p²edm╪t)!   1-150                   */
  90. L NaƒtiScénu            /*    L:("soubor")!   "c:\\pavel\\soubor.bsc" */
  91. N Náhodn╪¼aruj          /*     N:(p²edm╪t)!   1-150                   */
  92. P Popojdi               /*  P:(poƒet_polí)!   0-14                    */
  93. R RychlostBaltazara     /*    R:(rychlost)!   0-9                     */
  94. S UloºScénu             /*    S:("soubor")!   "c:\\pavel\\soubor.bsc" */
  95. W ¼ekej                 /*  W:(milisekund)!   0-32000                 */
  96. X ¼arujNaPozici         /* X:(p²edm╪t,x,y)!   1-150, 1-15, 1-10       */
  97. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  98. /n ;kdyº p²edm╪t p²ed Baltazarem je nepràchodn∞
  99.     PràchodnostP²edm╪tuP²edB() Je 0
  100. /p ;kdyº p²edm╪t p²ed Baltazarem je pràchodn∞
  101.     PràchodnostP²edm╪tuP²edB() Je 1
  102. /B ;kdyº barva ƒtverce p²ed Baltazarem ....     /B:Je~Barva    0-15
  103.     Barva¼tverceP²edB()
  104. /P ;kdyº p²edm╪t p²ed Baltazarem ....           /P:<=P²edm╪t   1-150
  105.     P²edm╪tP²edB()
  106. /S ;kdyº sm╪r Baltazara ....                    /S:Není~4      1-4
  107.     Sm╪rBaltazara()
  108. *n ;dokud p²edm╪t p²ed Baltazarem je nepràchodn∞
  109.     PràchodnostP²edm╪tuP²edB() Je 0
  110. *p ;dokud p²edm╪t p²ed Baltazarem Je pràchodn∞
  111.     PràchodnostP²edm╪tuP²edB() Je 1
  112. *B ;dokud barva ƒtverce p²ed Baltazarem ....    *B:>Barva      0-15
  113.     Barva¼tverceP²edB()
  114. *P ;dokud p²edm╪t p²ed Baltazarem ....          *P:>P²edm╪t    1-150
  115.     P²edm╪tP²edB()
  116. *S ;dokud sm╪r Baltazara ....                   *S:<=Sm╪r      1-4
  117.     Sm╪rBaltazara()
  118. #A ;opakuj vzestupn╪ pro prom╪nnou od,do,krok   #A:(i,2,10,2)  i=2,4..10
  119.     OdDoKrok
  120. #D ;opakuj sestupn╪  pro prom╪nnou od,do,krok   #D:(i,10,2,2)  i=10,8..2
  121.     OdDolàDoKrok
  122. #M ;opakuj n-krát sestupn╪  pro prom╪nnou       #M:(i,8)  (8x) i=7,6..0
  123.     DolàDo0
  124. #N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  125.     Od0
  126. =SP---------------------------------------------------------------------------
  127.  
  128. ;-h---------------------------------------------------------------------------
  129. void Zkouτení( void )
  130. -s--Zkouτení                                                                    ■  43  -2  -3   3
  131.                         Zkouτení
  132.                _________Zkouτení________
  133.             P²íklady                 Konec
  134.               0!                     62!
  135.               :e=0
  136.               :i=0
  137.             :Zadání:
  138.               5!
  139.         Správné~Zadání?__________
  140.                /:e>0            /
  141.               Ano               Ne
  142.              Cyklus        :goto~Zadání
  143.                #N:(i,e)
  144.              Konec?
  145.                /:Klávesa~Není~KlEsc
  146.   :¼íslo~=~Náhodné¼íslo(32)+1
  147.        :Obrazovka(¼íslo)
  148.              :a11:
  149.               G!
  150.          ___Kontrola_____
  151.          /2             /
  152.    Správné~zadání   :goto~a11
  153.   Správná~odpov╪╘
  154.   /3           /
  155.  Ano           Ne
  156. 4k!          3k!
  157. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  158. 0 ;prom╪nné celoƒíselné: a,b,c,d,e,f,g,h,i,j,Klávesa;      -32768..32767
  159.                     int  a,b,c,d,e,f,g,h,i,j,Klávesa,
  160.                          I¼íslo1,I¼íslo2,I¼íslo3,PàvBarvy,Panovník,
  161.                          Druh,¼íslo,Odpov╪╘,Odpov╪╘2[32];
  162.            unsigned Hodnocení[2];
  163.  
  164.   ;prom╪nné reálné: D¼íslo1,D¼íslo2,D¼íslo3;           5.0E-324..1.7E308
  165.             double  D¼íslo1,D¼íslo2,D¼íslo3;
  166.   ;prom╪nná znak:   Znak;
  167.             char    Znak;
  168.   ;prom╪nná ²et╪zec:ⁿet╪zec;
  169.             string  ⁿet╪zec,Otázky2[32],k,l;
  170.  
  171.             long  S2, S1;
  172.  
  173.   Otázky2[1] = "1) 870-888/9  2) 894-915  3) 915-921";
  174.   Otázky2[2] = "1) 870-888/9  2) 894-915  3) 915-921";
  175.   Otázky2[3] = "1) 870-888/9  2) 894-915  3) 915-921";
  176.   Otázky2[4] = "1) 922/5-929  2) 929-972  3) 972-999";
  177.   Otázky2[5] = "1) 922/5-929  2) 929-972  3) 972-999";
  178.   Otázky2[6] = "1) 922/5-929  2) 929-972  3) 972-999";
  179.   Otázky2[7] = "1) 999-1002,1003  2) 1002-1003  3) 1003-4";
  180.   Otázky2[8] = "1) 999-1002,1003  2) 1002-1003  3) 1003-4";
  181.   Otázky2[9] = "1) 999-1002,1003  2) 1002-1003  3) 1003-4";
  182.   Otázky2[10] = "1) 1003,1004-1012,1033-4  2) 1012-8  3) 1003";
  183.   Otázky2[11] = "1) 1004-1012  2) 1012-1033,1034  3) 1003-4";
  184.   Otázky2[12] = "1) 1003,1004-1012  2) 1002  3) 1034-55";
  185.   Otázky2[13] = "1) 1055-1061  2) 1061-1092  3) 1092";
  186.   Otázky2[14] = "1) 1055-1061  2) 1061-1092  3) 1092";
  187.   Otázky2[15] = "1) 1055-1061  2) 1061-1092  3) 1092";
  188.   Otázky2[16] = "1) 1092-1100  2) 1101-7,1117-20  3) 1107-9";
  189.   Otázky2[17] = "1) 1092-1100  2) 1101-7,1117-20  3) 1107-9";
  190.   Otázky2[18] = "1) 1092-1100  2) 1101-7,1117-20  3) 1107-9";
  191.   Otázky2[19] = "1) 1109-17,1120-5  2) 1125-1140  3) 1140-72";
  192.   Otázky2[20] = "1) 1109-17,1120-5  2) 1125-1140  3) 1140-72";
  193.   Otázky2[21] = "1) 1109-17,1120-5  2) 1125-1140  3) 1140-72";
  194.   Otázky2[22] = "1) 1172-3,1178-89  2) 1173-1178  3) 1189-91";
  195.   Otázky2[23] = "1) 1172-3,1178-89  2) 1173-1178  3) 1189-91";
  196.   Otázky2[24] = "1) 1172-3,1178-89  2) 1173-1178  3) 1189-91";
  197.   Otázky2[25] = "1) 1191-1192  2) 1193-1197  3) 1197";
  198.   Otázky2[26] = "1) 1191-1192  2) 1193-1197  3) 1197";
  199.   Otázky2[27] = "1) 1191-1192  2) 1193-1197  3) 1197";
  200.   Otázky2[28] = "1) 1192-3,1197-1230  2) 1230-53  3) 1253-78";
  201.   Otázky2[29] = "1) 1192-3,1197-1230  2) 1230-53  3) 1253-78";
  202.   Otázky2[30] = "1) 1192-3,1197-1230  2) 1230-53  3) 1253-78";
  203.   Otázky2[31] = "1) 1283-1305  2) 1305-1306  3) 1304-1306";
  204.   Otázky2[32] = "1) 1283-1305  2) 1305-1306  3) 1304-1306";
  205.  
  206.   for(i=1;i<=30;i+=3){
  207.     Odpov╪╘2[i] = 1;
  208.     Odpov╪╘2[i+1] = 2;
  209.     Odpov╪╘2[i+2] = 3;
  210.   }
  211.   Odpov╪╘2[31] = 1;
  212.   Odpov╪╘2[32] = 2;
  213.  
  214. [ Vytvo²Prostor()
  215. ] ZruτProstor()
  216. 1 ;p²íprava
  217.   GrNastavBarvuPop²edí(Bílá); GrNastavBarvuPozadí(¼erná); ¼ekej(1000);
  218.   Obrazovka(1); c=1;
  219. 2 ;Grafické okénko
  220.   GrSmaºOkno(); GrPiτⁿet╪zec("Pohyb:  µipky doleva a doprava"); GrPiτNov∞ⁿádek();
  221.   GrPiτⁿet╪zec("Seznam: F1   Zkouτení: F3    Konec: Esc ");
  222. 3 ;...Správn╪
  223.   GrSmaºOkno(); GrPiτⁿet╪zec("Správn╪");S1=S1+1;
  224.   GrPiτNov∞ⁿádek(); GrNastavPozici(50,11);
  225.   GrPiτⁿet╪zec("Stiskni Klávesu... (Esc - Konec Zkouτení)");
  226. 4 ;...µpatn╪
  227.   GrSmaºOkno(); GrPiτⁿet╪zec("µpatn╪"); S2=S2+1;
  228.   GrPiτNov∞ⁿádek(); GrNastavPozici(50,11);
  229.   GrPiτⁿet╪zec("Stiskni Klávesu... (Esc - Konec Zkouτení)");
  230. 5 ;ƒte dvoumístné ƒíslo
  231.   S1=0;S2=0;
  232.   GrSmaºOkno(); GrNastavPozici(80,5); Gr¼tiI¼íslo("Zadej poƒet p²íkladà: ",e,2,0,¼erná<<4|Bílá);
  233. 6 ;napíτe hodnocení
  234.   ;k=StrL¼íslo(Správn╪,-1); l=StrL¼íslo(µpatn╪,-1);
  235.   GrSmaºOkno(); GrPiτⁿet╪zec("Správn╪ :  "); GrPiτL¼íslo(S1,-1);
  236.   GrPiτⁿet╪zec("     Poƒet p²íkladà: "); GrPiτL¼íslo(S1+S2,-1);GrPiτNov∞ⁿádek();
  237.   GrPiτⁿet╪zec("µpatn╪  :  "); GrPiτL¼íslo(S2,-1);
  238.   GrPiτNov∞ⁿádek(); GrNastavPozici(190,10);GrPiτⁿet╪zec("Stiskni Klávesu...");
  239.   ¼ekejNaKlávesu();
  240. a Klávesa= ¼tiKlávesuZFronty()
  241. b P²epniNaBaltazara()
  242. c ¼aruj(¼tverec)
  243. d Gr¼tiZnak("?",Znak,1,0x07)             /*      edit ano, ƒerná/sτedá*/
  244. e BezObláƒku()
  245. f VyprázdniFrontuKláves()
  246. g Gr¼tiSⁿet╪zec("?",ⁿet╪zec,40,1,0x3f)   /*40zn, edit ano, modrá/bílá */
  247. h Gr¼tiI¼íslo("?",I¼íslo1,6,0,0x0e)      /* 6zn, edit  ne, ƒerná/ºlutá*/
  248. i Gr¼tiD¼íslo("?",D¼íslo1,20,1,0x0f)     /*20zn, edit  ne, ƒerná/bílá */
  249. j GrPiτZnak(Znak)
  250. k Klávesa= ¼tiKlávesuZFrontyS¼ekáním()
  251. l VlevoVbok()
  252. m ;vypiτ ⁿet╪zec do grafického okénka
  253.    PàvBarvy=GrNastavBarvy(Modrá<<4|ªlutá); /* ºlutá na modré          */
  254.    GrPiτⁿet╪zec(ⁿet╪zec);            /* vypíτe obsah prom╪nné ⁿet╪zec */
  255.    GrNastavBarvy(PàvBarvy);          /* nastaví pàvodní barvy         */
  256. n Neviditeln∞()
  257. o SObláƒkem()
  258. p Popojdi(1)
  259. q GrPiτL¼íslo(I¼íslo1,-1)             /* -1 = nejkratτí v∞pis          */
  260. r VpravoVbok()
  261. s Klávesa= ¼tiKlávesuS¼ekáním()
  262. t P²epniNaText()
  263. u GrPiτD¼íslo(D¼íslo1,10,2)           /* 10 ƒíslic, z toho 2 desetinné */
  264. v Viditeln∞()
  265. w ;ƒekej na klávesu, smaº klávesu
  266.    ¼ekejNaKlávesu();
  267.    VyprázdniFrontuKláves();
  268. x NastavJménoBankyP²edm╪tà("*\\b00\premysl");
  269. y ;konec
  270.   goto a10
  271. z ;ƒelem vzad
  272.    VlevoVbok(); VlevoVbok()
  273. A ;ƒte dvoumístné ƒíslo
  274.   GrSmaºOkno(); GrNastavPozici(80,5); Gr¼tiI¼íslo("Zadej ƒíslo panovníka: ",Panovník,2,0,¼erná<<4|Bílá);
  275. B NastavBarvu¼arování   /*       B:(barva)!   0-15                    */
  276. C ¼aruj                 /*     C:(p²edm╪t)!   1-150                   */
  277. D NastavJménoBankyP²edm╪tà
  278. E NastavJménoBankyP²edm╪tà("*\\premysl.b01");
  279. F ;ƒte jednomístné ƒíslo
  280.   GrSmaºOkno(); GrNastavPozici(80,5); Gr¼tiI¼íslo("Zadej druh zkouτení: ",Druh,1,0,¼erná<<4|Bílá);
  281. G ;napíτe otázku
  282.   ⁿet╪zec = Otázky2[¼íslo];
  283.   GrSmaºOkno(); GrPiτⁿet╪zec(ⁿet╪zec); GrPiτNov∞ⁿádek(); Gr¼tiI¼íslo("",Odpov╪╘,1,0,¼erná<<4|Bílá);
  284. L NaƒtiScénu            /*    L:("soubor")!   "c:\\pavel\\soubor.bsc" */
  285. N Náhodn╪¼aruj          /*     N:(p²edm╪t)!   1-150                   */
  286. P Popojdi               /*  P:(poƒet_polí)!   0-14                    */
  287. R RychlostBaltazara     /*    R:(rychlost)!   0-9                     */
  288. S UloºScénu             /*    S:("soubor")!   "c:\\pavel\\soubor.bsc" */
  289. W ¼ekej                 /*  W:(milisekund)!   0-32000                 */
  290. X ¼arujNaPozici         /* X:(p²edm╪t,x,y)!   1-150, 1-15, 1-10       */
  291. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  292. /n ;kdyº p²edm╪t p²ed Baltazarem je nepràchodn∞
  293.     PràchodnostP²edm╪tuP²edB() Je 0
  294. /p ;kdyº p²edm╪t p²ed Baltazarem je pràchodn∞
  295.     PràchodnostP²edm╪tuP²edB() Je 1
  296. /B ;kdyº barva ƒtverce p²ed Baltazarem ....     /B:Je~Barva    0-15
  297.     Barva¼tverceP²edB()
  298. /P ;kdyº p²edm╪t p²ed Baltazarem ....           /P:<=P²edm╪t   1-150
  299.     P²edm╪tP²edB()
  300. /S ;kdyº sm╪r Baltazara ....                    /S:Není~4      1-4
  301.     Sm╪rBaltazara()
  302. /A (P²edm╪tNaPozici(e,f) % c ) = 0
  303. /1 Panovník JeV╪tτíNeº 0 ASouƒasn╪  Panovník JeMenτíNeº 33
  304. /2 Odpov╪╘ > 0 ASouƒasn╪ Odpov╪╘ < 4
  305. /3 Odpov╪╘ != Odpov╪╘2[¼íslo]
  306. *n ;dokud p²edm╪t p²ed Baltazarem je nepràchodn∞
  307.     PràchodnostP²edm╪tuP²edB() Je 0
  308. *p ;dokud p²edm╪t p²ed Baltazarem Je pràchodn∞
  309.     PràchodnostP²edm╪tuP²edB() Je 1
  310. *B ;dokud barva ƒtverce p²ed Baltazarem ....    *B:>Barva      0-15
  311.     Barva¼tverceP²edB()
  312. *P ;dokud p²edm╪t p²ed Baltazarem ....          *P:>P²edm╪t    1-150
  313.     P²edm╪tP²edB()
  314. *S ;dokud sm╪r Baltazara ....                   *S:<=Sm╪r      1-4
  315.     Sm╪rBaltazara()
  316. #A ;opakuj vzestupn╪ pro prom╪nnou od,do,krok   #A:(i,2,10,2)  i=2,4..10
  317.     OdDoKrok
  318. #D ;opakuj sestupn╪  pro prom╪nnou od,do,krok   #D:(i,10,2,2)  i=10,8..2
  319.     OdDolàDoKrok
  320. #M ;opakuj n-krát sestupn╪  pro prom╪nnou       #M:(i,8)  (8x) i=7,6..0
  321.     DolàDo0
  322. #N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  323.     Od0
  324. =SP---------------------------------------------------------------------------
  325.  
  326. ;-h---------------------------------------------------------------------------
  327. void Seznam( void )
  328. -s--Seznam                                                                      ■   3  -2 -18   3
  329.           Seznam
  330.       :Obrazovka(0)
  331.         ¼ti~¼íslo
  332.          0A2!
  333.  Jen~kdyº~je~menτí~neº~32
  334.       /1           /
  335.     P²ejdi       Zpátky
  336.  :c=Panovník :Obrazovka(c)
  337. :Obrazovka(c)
  338. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  339. 0 ;prom╪nné celoƒíselné: a,b,c,d,e,f,g,h,i,j,Klávesa;      -32768..32767
  340.                     int  a,b,c,d,e,f,g,h,i,j,Klávesa,
  341.                          I¼íslo1,I¼íslo2,I¼íslo3,PàvBarvy,Panovník,
  342.                          Druh,¼íslo,Odpov╪╘,Odpov╪╘2[32];
  343.            unsigned Hodnocení[2];
  344.  
  345.   ;prom╪nné reálné: D¼íslo1,D¼íslo2,D¼íslo3;           5.0E-324..1.7E308
  346.             double  D¼íslo1,D¼íslo2,D¼íslo3;
  347.   ;prom╪nná znak:   Znak;
  348.             char    Znak;
  349.   ;prom╪nná ²et╪zec:ⁿet╪zec;
  350.             string  ⁿet╪zec,Otázky2[32],k,l;
  351.  
  352.             long  S2, S1;
  353.  
  354.   Otázky2[1] = "1) 870-888/9  2) 894-915  3) 915-921";
  355.   Otázky2[2] = "1) 870-888/9  2) 894-915  3) 915-921";
  356.   Otázky2[3] = "1) 870-888/9  2) 894-915  3) 915-921";
  357.   Otázky2[4] = "1) 922/5-929  2) 929-972  3) 972-999";
  358.   Otázky2[5] = "1) 922/5-929  2) 929-972  3) 972-999";
  359.   Otázky2[6] = "1) 922/5-929  2) 929-972  3) 972-999";
  360.   Otázky2[7] = "1) 999-1002,1003  2) 1002-1003  3) 1003-4";
  361.   Otázky2[8] = "1) 999-1002,1003  2) 1002-1003  3) 1003-4";
  362.   Otázky2[9] = "1) 999-1002,1003  2) 1002-1003  3) 1003-4";
  363.   Otázky2[10] = "1) 1003,1004-1012,1033-4  2) 1012-8  3) 1003";
  364.   Otázky2[11] = "1) 1004-1012  2) 1012-1033,1034  3) 1003-4";
  365.   Otázky2[12] = "1) 1003,1004-1012  2) 1002  3) 1034-55";
  366.   Otázky2[13] = "1) 1055-1061  2) 1061-1092  3) 1092";
  367.   Otázky2[14] = "1) 1055-1061  2) 1061-1092  3) 1092";
  368.   Otázky2[15] = "1) 1055-1061  2) 1061-1092  3) 1092";
  369.   Otázky2[16] = "1) 1092-1100  2) 1101-7,1117-20  3) 1107-9";
  370.   Otázky2[17] = "1) 1092-1100  2) 1101-7,1117-20  3) 1107-9";
  371.   Otázky2[18] = "1) 1092-1100  2) 1101-7,1117-20  3) 1107-9";
  372.   Otázky2[19] = "1) 1109-17,1120-5  2) 1125-1140  3) 1140-72";
  373.   Otázky2[20] = "1) 1109-17,1120-5  2) 1125-1140  3) 1140-72";
  374.   Otázky2[21] = "1) 1109-17,1120-5  2) 1125-1140  3) 1140-72";
  375.   Otázky2[22] = "1) 1172-3,1178-89  2) 1173-1178  3) 1189-91";
  376.   Otázky2[23] = "1) 1172-3,1178-89  2) 1173-1178  3) 1189-91";
  377.   Otázky2[24] = "1) 1172-3,1178-89  2) 1173-1178  3) 1189-91";
  378.   Otázky2[25] = "1) 1191-1192  2) 1193-1197  3) 1197";
  379.   Otázky2[26] = "1) 1191-1192  2) 1193-1197  3) 1197";
  380.   Otázky2[27] = "1) 1191-1192  2) 1193-1197  3) 1197";
  381.   Otázky2[28] = "1) 1192-3,1197-1230  2) 1230-53  3) 1253-78";
  382.   Otázky2[29] = "1) 1192-3,1197-1230  2) 1230-53  3) 1253-78";
  383.   Otázky2[30] = "1) 1192-3,1197-1230  2) 1230-53  3) 1253-78";
  384.   Otázky2[31] = "1) 1283-1305  2) 1305-1306  3) 1304-1306";
  385.   Otázky2[32] = "1) 1283-1305  2) 1305-1306  3) 1304-1306";
  386.  
  387.   for(i=1;i<=30;i+=3){
  388.     Odpov╪╘2[i] = 1;
  389.     Odpov╪╘2[i+1] = 2;
  390.     Odpov╪╘2[i+2] = 3;
  391.   }
  392.   Odpov╪╘2[31] = 1;
  393.   Odpov╪╘2[32] = 2;
  394.  
  395. [ Vytvo²Prostor()
  396. ] ZruτProstor()
  397. 1 ;p²íprava
  398.   GrNastavBarvuPop²edí(Bílá); GrNastavBarvuPozadí(¼erná); ¼ekej(1000);
  399.   Obrazovka(1); c=1;
  400. 2 ;Grafické okénko
  401.   GrSmaºOkno(); GrPiτⁿet╪zec("Pohyb:  µipky doleva a doprava"); GrPiτNov∞ⁿádek();
  402.   GrPiτⁿet╪zec("Seznam: F1   Zkouτení: F3    Konec: Esc ");
  403. 3 ;...Správn╪
  404.   GrSmaºOkno(); GrPiτⁿet╪zec("Správn╪");S1=S1+1;
  405.   GrPiτNov∞ⁿádek(); GrNastavPozici(50,11);
  406.   GrPiτⁿet╪zec("Stiskni Klávesu... (Esc - Konec Zkouτení)");
  407. 4 ;...µpatn╪
  408.   GrSmaºOkno(); GrPiτⁿet╪zec("µpatn╪"); S2=S2+1;
  409.   GrPiτNov∞ⁿádek(); GrNastavPozici(50,11);
  410.   GrPiτⁿet╪zec("Stiskni Klávesu... (Esc - Konec Zkouτení)");
  411. 5 ;ƒte dvoumístné ƒíslo
  412.   S1=0;S2=0;
  413.   GrSmaºOkno(); GrNastavPozici(80,5); Gr¼tiI¼íslo("Zadej poƒet p²íkladà: ",e,2,0,¼erná<<4|Bílá);
  414. 6 ;napíτe hodnocení
  415.   ;k=StrL¼íslo(Správn╪,-1); l=StrL¼íslo(µpatn╪,-1);
  416.   GrSmaºOkno(); GrPiτⁿet╪zec("Správn╪ :  "); GrPiτL¼íslo(S1,-1);
  417.   GrPiτⁿet╪zec("     Poƒet p²íkladà: "); GrPiτL¼íslo(S1+S2,-1);GrPiτNov∞ⁿádek();
  418.   GrPiτⁿet╪zec("µpatn╪  :  "); GrPiτL¼íslo(S2,-1);
  419.   GrPiτNov∞ⁿádek(); GrNastavPozici(190,10);GrPiτⁿet╪zec("Stiskni Klávesu...");
  420.   ¼ekejNaKlávesu();
  421. a Klávesa= ¼tiKlávesuZFronty()
  422. b P²epniNaBaltazara()
  423. c ¼aruj(¼tverec)
  424. d Gr¼tiZnak("?",Znak,1,0x07)             /*      edit ano, ƒerná/sτedá*/
  425. e BezObláƒku()
  426. f VyprázdniFrontuKláves()
  427. g Gr¼tiSⁿet╪zec("?",ⁿet╪zec,40,1,0x3f)   /*40zn, edit ano, modrá/bílá */
  428. h Gr¼tiI¼íslo("?",I¼íslo1,6,0,0x0e)      /* 6zn, edit  ne, ƒerná/ºlutá*/
  429. i Gr¼tiD¼íslo("?",D¼íslo1,20,1,0x0f)     /*20zn, edit  ne, ƒerná/bílá */
  430. j GrPiτZnak(Znak)
  431. k Klávesa= ¼tiKlávesuZFrontyS¼ekáním()
  432. l VlevoVbok()
  433. m ;vypiτ ⁿet╪zec do grafického okénka
  434.    PàvBarvy=GrNastavBarvy(Modrá<<4|ªlutá); /* ºlutá na modré          */
  435.    GrPiτⁿet╪zec(ⁿet╪zec);            /* vypíτe obsah prom╪nné ⁿet╪zec */
  436.    GrNastavBarvy(PàvBarvy);          /* nastaví pàvodní barvy         */
  437. n Neviditeln∞()
  438. o SObláƒkem()
  439. p Popojdi(1)
  440. q GrPiτL¼íslo(I¼íslo1,-1)             /* -1 = nejkratτí v∞pis          */
  441. r VpravoVbok()
  442. s Klávesa= ¼tiKlávesuS¼ekáním()
  443. t P²epniNaText()
  444. u GrPiτD¼íslo(D¼íslo1,10,2)           /* 10 ƒíslic, z toho 2 desetinné */
  445. v Viditeln∞()
  446. w ;ƒekej na klávesu, smaº klávesu
  447.    ¼ekejNaKlávesu();
  448.    VyprázdniFrontuKláves();
  449. x NastavJménoBankyP²edm╪tà("*\\b00\premysl");
  450. y ;konec
  451.   goto a10
  452. z ;ƒelem vzad
  453.    VlevoVbok(); VlevoVbok()
  454. A ;ƒte dvoumístné ƒíslo
  455.   GrSmaºOkno(); GrNastavPozici(80,5); Gr¼tiI¼íslo("Zadej ƒíslo panovníka: ",Panovník,2,0,¼erná<<4|Bílá);
  456. B NastavBarvu¼arování   /*       B:(barva)!   0-15                    */
  457. C ¼aruj                 /*     C:(p²edm╪t)!   1-150                   */
  458. D NastavJménoBankyP²edm╪tà
  459. E NastavJménoBankyP²edm╪tà("*\\premysl.b01");
  460. F ;ƒte jednomístné ƒíslo
  461.   GrSmaºOkno(); GrNastavPozici(80,5); Gr¼tiI¼íslo("Zadej druh zkouτení: ",Druh,1,0,¼erná<<4|Bílá);
  462. G ;napíτe otázku
  463.   ⁿet╪zec = Otázky2[¼íslo];
  464.   GrSmaºOkno(); GrPiτⁿet╪zec(ⁿet╪zec); GrPiτNov∞ⁿádek(); Gr¼tiI¼íslo("",Odpov╪╘,1,0,¼erná<<4|Bílá);
  465. L NaƒtiScénu            /*    L:("soubor")!   "c:\\pavel\\soubor.bsc" */
  466. N Náhodn╪¼aruj          /*     N:(p²edm╪t)!   1-150                   */
  467. P Popojdi               /*  P:(poƒet_polí)!   0-14                    */
  468. R RychlostBaltazara     /*    R:(rychlost)!   0-9                     */
  469. S UloºScénu             /*    S:("soubor")!   "c:\\pavel\\soubor.bsc" */
  470. W ¼ekej                 /*  W:(milisekund)!   0-32000                 */
  471. X ¼arujNaPozici         /* X:(p²edm╪t,x,y)!   1-150, 1-15, 1-10       */
  472. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  473. /n ;kdyº p²edm╪t p²ed Baltazarem je nepràchodn∞
  474.     PràchodnostP²edm╪tuP²edB() Je 0
  475. /p ;kdyº p²edm╪t p²ed Baltazarem je pràchodn∞
  476.     PràchodnostP²edm╪tuP²edB() Je 1
  477. /B ;kdyº barva ƒtverce p²ed Baltazarem ....     /B:Je~Barva    0-15
  478.     Barva¼tverceP²edB()
  479. /P ;kdyº p²edm╪t p²ed Baltazarem ....           /P:<=P²edm╪t   1-150
  480.     P²edm╪tP²edB()
  481. /S ;kdyº sm╪r Baltazara ....                    /S:Není~4      1-4
  482.     Sm╪rBaltazara()
  483. /A (P²edm╪tNaPozici(e,f) % c ) = 0
  484. /1 Panovník JeV╪tτíNeº 0 ASouƒasn╪  Panovník JeMenτíNeº 33
  485. /2 Odpov╪╘ > 0 ASouƒasn╪ Odpov╪╘ < 4
  486. /3 Odpov╪╘ != Odpov╪╘2[¼íslo]
  487. *n ;dokud p²edm╪t p²ed Baltazarem je nepràchodn∞
  488.     PràchodnostP²edm╪tuP²edB() Je 0
  489. *p ;dokud p²edm╪t p²ed Baltazarem Je pràchodn∞
  490.     PràchodnostP²edm╪tuP²edB() Je 1
  491. *B ;dokud barva ƒtverce p²ed Baltazarem ....    *B:>Barva      0-15
  492.     Barva¼tverceP²edB()
  493. *P ;dokud p²edm╪t p²ed Baltazarem ....          *P:>P²edm╪t    1-150
  494.     P²edm╪tP²edB()
  495. *S ;dokud sm╪r Baltazara ....                   *S:<=Sm╪r      1-4
  496.     Sm╪rBaltazara()
  497. #A ;opakuj vzestupn╪ pro prom╪nnou od,do,krok   #A:(i,2,10,2)  i=2,4..10
  498.     OdDoKrok
  499. #D ;opakuj sestupn╪  pro prom╪nnou od,do,krok   #D:(i,10,2,2)  i=10,8..2
  500.     OdDolàDoKrok
  501. #M ;opakuj n-krát sestupn╪  pro prom╪nnou       #M:(i,8)  (8x) i=7,6..0
  502.     DolàDo0
  503. #N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  504.     Od0
  505. =SP---------------------------------------------------------------------------
  506.  
  507. ;-h---------------------------------------------------------------------------
  508. /***** hlavní program *****/
  509. void main()
  510. -s--PREMYSL                                                                     ■   8  -2  13 259
  511.                                             __________PREMYSL___________
  512.                                          Zaƒátek              │      Konec
  513.                                     0[eR:(9)!             Prost²edek :a10:
  514.                                       :Obrazovka(99)      :EscPlus()   !]
  515.                                           12!               D╪lej
  516.                                                               *
  517.                                                             Po²ád
  518.                                                             fk!
  519.               _____________________________________________Klávesa_____________________________________________
  520.               /:Klávesa==KlDoleva               /:Klávesa==KlDoprava    /:Klávesa==KlF1    /:Klávesa==KlF3    /:Klávesa~Je~KlEsc
  521.       ______Doleva______                _____Doprava______            Seznam            Zkouτení            Konec
  522.       /:c>1            /                /:c~<~32         /          :Seznam()         :Zkouτení()            y!
  523.      Ano               Ne              Ano               Ne
  524.     :c=c-1           :c=32            :c=c+1            :c=1
  525. :Obrazovka(c)    :Obrazovka(c)    :Obrazovka(c)    :Obrazovka(c)
  526. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  527. 0 ;prom╪nné celoƒíselné: a,b,c,d,e,f,g,h,i,j,Klávesa;      -32768..32767
  528.                     int  a,b,c,d,e,f,g,h,i,j,Klávesa,
  529.                          I¼íslo1,I¼íslo2,I¼íslo3,PàvBarvy,Panovník,
  530.                          Druh,¼íslo,Odpov╪╘,Odpov╪╘2[32];
  531.            unsigned Hodnocení[2];
  532.  
  533.   ;prom╪nné reálné: D¼íslo1,D¼íslo2,D¼íslo3;           5.0E-324..1.7E308
  534.             double  D¼íslo1,D¼íslo2,D¼íslo3;
  535.   ;prom╪nná znak:   Znak;
  536.             char    Znak;
  537.   ;prom╪nná ²et╪zec:ⁿet╪zec;
  538.             string  ⁿet╪zec,Otázky2[32],k,l;
  539.  
  540.             long  S2, S1;
  541.  
  542.   Otázky2[1] = "1) 870-888/9  2) 894-915  3) 915-921";
  543.   Otázky2[2] = "1) 870-888/9  2) 894-915  3) 915-921";
  544.   Otázky2[3] = "1) 870-888/9  2) 894-915  3) 915-921";
  545.   Otázky2[4] = "1) 922/5-929  2) 929-972  3) 972-999";
  546.   Otázky2[5] = "1) 922/5-929  2) 929-972  3) 972-999";
  547.   Otázky2[6] = "1) 922/5-929  2) 929-972  3) 972-999";
  548.   Otázky2[7] = "1) 999-1002,1003  2) 1002-1003  3) 1003-4";
  549.   Otázky2[8] = "1) 999-1002,1003  2) 1002-1003  3) 1003-4";
  550.   Otázky2[9] = "1) 999-1002,1003  2) 1002-1003  3) 1003-4";
  551.   Otázky2[10] = "1) 1003,1004-1012,1033-4  2) 1012-8  3) 1003";
  552.   Otázky2[11] = "1) 1004-1012  2) 1012-1033,1034  3) 1003-4";
  553.   Otázky2[12] = "1) 1003,1004-1012  2) 1002  3) 1034-55";
  554.   Otázky2[13] = "1) 1055-1061  2) 1061-1092  3) 1092";
  555.   Otázky2[14] = "1) 1055-1061  2) 1061-1092  3) 1092";
  556.   Otázky2[15] = "1) 1055-1061  2) 1061-1092  3) 1092";
  557.   Otázky2[16] = "1) 1092-1100  2) 1101-7,1117-20  3) 1107-9";
  558.   Otázky2[17] = "1) 1092-1100  2) 1101-7,1117-20  3) 1107-9";
  559.   Otázky2[18] = "1) 1092-1100  2) 1101-7,1117-20  3) 1107-9";
  560.   Otázky2[19] = "1) 1109-17,1120-5  2) 1125-1140  3) 1140-72";
  561.   Otázky2[20] = "1) 1109-17,1120-5  2) 1125-1140  3) 1140-72";
  562.   Otázky2[21] = "1) 1109-17,1120-5  2) 1125-1140  3) 1140-72";
  563.   Otázky2[22] = "1) 1172-3,1178-89  2) 1173-1178  3) 1189-91";
  564.   Otázky2[23] = "1) 1172-3,1178-89  2) 1173-1178  3) 1189-91";
  565.   Otázky2[24] = "1) 1172-3,1178-89  2) 1173-1178  3) 1189-91";
  566.   Otázky2[25] = "1) 1191-1192  2) 1193-1197  3) 1197";
  567.   Otázky2[26] = "1) 1191-1192  2) 1193-1197  3) 1197";
  568.   Otázky2[27] = "1) 1191-1192  2) 1193-1197  3) 1197";
  569.   Otázky2[28] = "1) 1192-3,1197-1230  2) 1230-53  3) 1253-78";
  570.   Otázky2[29] = "1) 1192-3,1197-1230  2) 1230-53  3) 1253-78";
  571.   Otázky2[30] = "1) 1192-3,1197-1230  2) 1230-53  3) 1253-78";
  572.   Otázky2[31] = "1) 1283-1305  2) 1305-1306  3) 1304-1306";
  573.   Otázky2[32] = "1) 1283-1305  2) 1305-1306  3) 1304-1306";
  574.  
  575.   for(i=1;i<=30;i+=3){
  576.     Odpov╪╘2[i] = 1;
  577.     Odpov╪╘2[i+1] = 2;
  578.     Odpov╪╘2[i+2] = 3;
  579.   }
  580.   Odpov╪╘2[31] = 1;
  581.   Odpov╪╘2[32] = 2;
  582.  
  583. [ Vytvo²Prostor()
  584. ] ZruτProstor()
  585. 1 ;p²íprava
  586.   GrNastavBarvuPop²edí(Bílá); GrNastavBarvuPozadí(¼erná); ¼ekej(1000);
  587.   Obrazovka(1); c=1;
  588. 2 ;Grafické okénko
  589.   GrSmaºOkno(); GrPiτⁿet╪zec("Pohyb:  µipky doleva a doprava"); GrPiτNov∞ⁿádek();
  590.   GrPiτⁿet╪zec("Seznam: F1   Zkouτení: F3    Konec: Esc ");
  591. 3 ;...Správn╪
  592.   GrSmaºOkno(); GrPiτⁿet╪zec("Správn╪");S1=S1+1;
  593.   GrPiτNov∞ⁿádek(); GrNastavPozici(50,11);
  594.   GrPiτⁿet╪zec("Stiskni Klávesu... (Esc - Konec Zkouτení)");
  595. 4 ;...µpatn╪
  596.   GrSmaºOkno(); GrPiτⁿet╪zec("µpatn╪"); S2=S2+1;
  597.   GrPiτNov∞ⁿádek(); GrNastavPozici(50,11);
  598.   GrPiτⁿet╪zec("Stiskni Klávesu... (Esc - Konec Zkouτení)");
  599. 5 ;ƒte dvoumístné ƒíslo
  600.   S1=0;S2=0;
  601.   GrSmaºOkno(); GrNastavPozici(80,5); Gr¼tiI¼íslo("Zadej poƒet p²íkladà: ",e,2,0,¼erná<<4|Bílá);
  602. 6 ;napíτe hodnocení
  603.   ;k=StrL¼íslo(Správn╪,-1); l=StrL¼íslo(µpatn╪,-1);
  604.   GrSmaºOkno(); GrPiτⁿet╪zec("Správn╪ :  "); GrPiτL¼íslo(S1,-1);
  605.   GrPiτⁿet╪zec("     Poƒet p²íkladà: "); GrPiτL¼íslo(S1+S2,-1);GrPiτNov∞ⁿádek();
  606.   GrPiτⁿet╪zec("µpatn╪  :  "); GrPiτL¼íslo(S2,-1);
  607.   GrPiτNov∞ⁿádek(); GrNastavPozici(190,10);GrPiτⁿet╪zec("Stiskni Klávesu...");
  608.   ¼ekejNaKlávesu();
  609. a Klávesa= ¼tiKlávesuZFronty()
  610. b P²epniNaBaltazara()
  611. c ¼aruj(¼tverec)
  612. d Gr¼tiZnak("?",Znak,1,0x07)             /*      edit ano, ƒerná/sτedá*/
  613. e BezObláƒku()
  614. f VyprázdniFrontuKláves()
  615. g Gr¼tiSⁿet╪zec("?",ⁿet╪zec,40,1,0x3f)   /*40zn, edit ano, modrá/bílá */
  616. h Gr¼tiI¼íslo("?",I¼íslo1,6,0,0x0e)      /* 6zn, edit  ne, ƒerná/ºlutá*/
  617. i Gr¼tiD¼íslo("?",D¼íslo1,20,1,0x0f)     /*20zn, edit  ne, ƒerná/bílá */
  618. j GrPiτZnak(Znak)
  619. k Klávesa= ¼tiKlávesuZFrontyS¼ekáním()
  620. l VlevoVbok()
  621. m ;vypiτ ⁿet╪zec do grafického okénka
  622.    PàvBarvy=GrNastavBarvy(Modrá<<4|ªlutá); /* ºlutá na modré          */
  623.    GrPiτⁿet╪zec(ⁿet╪zec);            /* vypíτe obsah prom╪nné ⁿet╪zec */
  624.    GrNastavBarvy(PàvBarvy);          /* nastaví pàvodní barvy         */
  625. n Neviditeln∞()
  626. o SObláƒkem()
  627. p Popojdi(1)
  628. q GrPiτL¼íslo(I¼íslo1,-1)             /* -1 = nejkratτí v∞pis          */
  629. r VpravoVbok()
  630. s Klávesa= ¼tiKlávesuS¼ekáním()
  631. t P²epniNaText()
  632. u GrPiτD¼íslo(D¼íslo1,10,2)           /* 10 ƒíslic, z toho 2 desetinné */
  633. v Viditeln∞()
  634. w ;ƒekej na klávesu, smaº klávesu
  635.    ¼ekejNaKlávesu();
  636.    VyprázdniFrontuKláves();
  637. x NastavJménoBankyP²edm╪tà("*\\b00\premysl");
  638. y ;konec
  639.   goto a10
  640. z ;ƒelem vzad
  641.    VlevoVbok(); VlevoVbok()
  642. A ;ƒte dvoumístné ƒíslo
  643.   GrSmaºOkno(); GrNastavPozici(80,5); Gr¼tiI¼íslo("Zadej ƒíslo panovníka: ",Panovník,2,0,¼erná<<4|Bílá);
  644. B NastavBarvu¼arování   /*       B:(barva)!   0-15                    */
  645. C ¼aruj                 /*     C:(p²edm╪t)!   1-150                   */
  646. D NastavJménoBankyP²edm╪tà
  647. E NastavJménoBankyP²edm╪tà("*\\premysl.b01");
  648. F ;ƒte jednomístné ƒíslo
  649.   GrSmaºOkno(); GrNastavPozici(80,5); Gr¼tiI¼íslo("Zadej druh zkouτení: ",Druh,1,0,¼erná<<4|Bílá);
  650. G ;napíτe otázku
  651.   ⁿet╪zec = Otázky2[¼íslo];
  652.   GrSmaºOkno(); GrPiτⁿet╪zec(ⁿet╪zec); GrPiτNov∞ⁿádek(); Gr¼tiI¼íslo("",Odpov╪╘,1,0,¼erná<<4|Bílá);
  653. L NaƒtiScénu            /*    L:("soubor")!   "c:\\pavel\\soubor.bsc" */
  654. N Náhodn╪¼aruj          /*     N:(p²edm╪t)!   1-150                   */
  655. P Popojdi               /*  P:(poƒet_polí)!   0-14                    */
  656. R RychlostBaltazara     /*    R:(rychlost)!   0-9                     */
  657. S UloºScénu             /*    S:("soubor")!   "c:\\pavel\\soubor.bsc" */
  658. W ¼ekej                 /*  W:(milisekund)!   0-32000                 */
  659. X ¼arujNaPozici         /* X:(p²edm╪t,x,y)!   1-150, 1-15, 1-10       */
  660. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  661. /n ;kdyº p²edm╪t p²ed Baltazarem je nepràchodn∞
  662.     PràchodnostP²edm╪tuP²edB() Je 0
  663. /p ;kdyº p²edm╪t p²ed Baltazarem je pràchodn∞
  664.     PràchodnostP²edm╪tuP²edB() Je 1
  665. /B ;kdyº barva ƒtverce p²ed Baltazarem ....     /B:Je~Barva    0-15
  666.     Barva¼tverceP²edB()
  667. /P ;kdyº p²edm╪t p²ed Baltazarem ....           /P:<=P²edm╪t   1-150
  668.     P²edm╪tP²edB()
  669. /S ;kdyº sm╪r Baltazara ....                    /S:Není~4      1-4
  670.     Sm╪rBaltazara()
  671. /A (P²edm╪tNaPozici(e,f) % c ) = 0
  672. /1 Panovník JeV╪tτíNeº 0 ASouƒasn╪  Panovník JeMenτíNeº 33
  673. /2 Odpov╪╘ > 0 ASouƒasn╪ Odpov╪╘ < 4
  674. /3 Odpov╪╘ != Odpov╪╘2[¼íslo]
  675. *n ;dokud p²edm╪t p²ed Baltazarem je nepràchodn∞
  676.     PràchodnostP²edm╪tuP²edB() Je 0
  677. *p ;dokud p²edm╪t p²ed Baltazarem Je pràchodn∞
  678.     PràchodnostP²edm╪tuP²edB() Je 1
  679. *B ;dokud barva ƒtverce p²ed Baltazarem ....    *B:>Barva      0-15
  680.     Barva¼tverceP²edB()
  681. *P ;dokud p²edm╪t p²ed Baltazarem ....          *P:>P²edm╪t    1-150
  682.     P²edm╪tP²edB()
  683. *S ;dokud sm╪r Baltazara ....                   *S:<=Sm╪r      1-4
  684.     Sm╪rBaltazara()
  685. #A ;opakuj vzestupn╪ pro prom╪nnou od,do,krok   #A:(i,2,10,2)  i=2,4..10
  686.     OdDoKrok
  687. #D ;opakuj sestupn╪  pro prom╪nnou od,do,krok   #D:(i,10,2,2)  i=10,8..2
  688.     OdDolàDoKrok
  689. #M ;opakuj n-krát sestupn╪  pro prom╪nnou       #M:(i,8)  (8x) i=7,6..0
  690.     DolàDo0
  691. #N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  692.     Od0
  693. =SP---------------------------------------------------------------------------
  694. /***** konec programu *****/
  695.