home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 July / Chip_1998-07_cd.bin / tema / sgp / vyber / kalkulat / KALKULAT.SGP < prev    next >
Text File  |  1997-10-29  |  62KB  |  1,707 lines
  1. SGPC   5.00 S#340066 17.09.1997 18:20:05                                        StructNo 0   0
  2. ; Vytvo²en ze vzoru: C:\LIBOREK\SGPBC\VZORBC.PRG
  3.  
  4. # include <sgpbalt.h>
  5.  
  6. /*-hf(*/
  7. /*-hf-*/
  8. void Nápov╪da( void )
  9. /*-hf-*/;
  10. void Zapiτ_jako_double( void )
  11. /*-hf-*/;
  12. void Neutrum_Key( void )
  13. /*-hf-*/;
  14. void Ne_odpov╪╘( void )
  15. /*-hf-*/;
  16. void Ano_odpov╪╘( void )
  17. /*-hf-*/;
  18. void Uºivatel_zkouτí( void )
  19. /*-hf-*/;
  20. void Poƒítaƒ_zkouτí( void )
  21. /*-hf-*/;
  22. void V∞kon( void )
  23. /*-hf-*/;
  24. void Zkouτení( void )
  25. /*-hf-*/;
  26. void Kalkulaƒka( void )
  27. /*-hf-*/;
  28. /***** hlavní program *****/
  29. void main( void )
  30. /*-hf)*/;
  31. ;-h---------------------------------------------------------------------------
  32. /***** globální prom╪nné *****/
  33.  Typ¼as ƒas,limit3;
  34.  double   a,              /*   hodnota ƒteného ƒísla a */
  35.           Altogether2,    /*   V∞sledek ƒten∞ uºivatelem */
  36.           Altogether,     /*   V∞sledek ƒten∞ poƒítaƒem */
  37.           Animacex,       /*   Animaƒní sou²adnice x */
  38.           Animacey,       /*   Animaƒní sou²adnice y */
  39.           aba,            /*   ƒtení ptákovin */
  40.           b,              /*   hodnota ƒteného ƒísla b */
  41.           c,              /*   hodnota ƒteného ƒísla c */
  42.           Celkem,         /*   Poƒet p²íkladà celkem poloºen∞ch */
  43.           ƒ,              /*   poslední ƒtené ƒíslo */
  44.           ƒíslice,        /*   poƒet ƒten∞ch ƒísel */
  45.           ƒíslice2,       /*   Pozice ƒísla pro Backspace */
  46.           ERROR_SYSTEM,   /*   Podm╪t pro dàkladné ƒtení doublu v D╪lení */
  47.           ERROR2,         /*   Up²esn╪ní chyby */
  48.           funkce,         /*   Podm╪t pro pozd╪jτí ukládání ƒísla */
  49.           Good,           /*   Poƒet p²íkladà uznan∞ch jako dobr∞ */
  50.           Good2,          /*   Poƒet p²íkladà uznan∞ch jako dobr∞  pro Hodnocení2 */
  51.           Hodnocení1,     /*   Hodnocení známkou */
  52.           Hodnocení2,     /*   Hodnocení procentem */
  53.           Klávesa,        /*   pro ƒtení fondà kláves i ƒísel */
  54.           KlFunkce,       /*   desetinové rozliτení */
  55.           No,             /*   Poƒet p²íkladà uznan∞ch jako τpatn∞ */
  56.           No2;            /*   Poƒet p²íkladà uznan∞ch jako τpatn∞  pro Hodnocení2 */
  57.  double   poƒet_p²íkladà, /*   poƒet p²íkladà pro Zkouτení */
  58.           pozice_ƒísla,   /*   uloºení pozice kurzoru pro pozd╪jτí mazání p²ed. ƒísla */
  59.           Teƒka;          /*   Klávesa byla . nebo , -Podm╪t pro d╪lení ƒísla  */
  60.  int      Desetiny,Desetiny2;
  61.  unsigned Obtíºnost;
  62.  
  63.  
  64. ;-h---------------------------------------------------------------------------
  65. void Nápov╪da( void )
  66. -s--Nápov╪da                                                                    ■  20  -2   1   3
  67.                                   Nápov╪da
  68.                                      *1
  69.                                  p²i²azení
  70.                                    nk!
  71.                            _________nápov╪da_____________
  72.                            /3         /4         /5     /
  73.                         Hlavní~N   Zkouτení  Kalkulaƒka
  74.                           1!         2!         3!
  75. -o1-Nápov╪da  operace
  76. 1 ;Nápov╪da Hlavní
  77.   TxtSmaºObrazovku();
  78.   TxtNastavBarvuPop²edí(12);
  79.   TxtPiτNov∞ⁿádek();
  80.   TxtPiτⁿet╪zec("                               HLAVN╓ HELP\n");
  81.   TxtNastavBarvuPop²edí(14);
  82.   TxtPiτⁿet╪zec("          Máte moºnost se seznámit s v∞ukov∞m programem Kalkulátor. Tento   \n"
  83.                 "    program je urƒen nejen pro ty, kte²í mají rádi matematiku, ale  \n"
  84.                 "    i pro ty, kte²í s matematikou bojují, ale necht╪jí, aby to tak zàstalo. \n"
  85.                 "    I tito mají nyní jedineƒnou moºnost jak se s matematikou skamarádit.    \n"
  86.                 "    Vτichni pak poznají, jak je hezké, kdyº budou ze τkoly nosit jen        \n"
  87.                 "    jedniƒky. Cel∞ program je utvo²en tak, aby kaºd∞, kdo jen trochu s      \n"
  88.                 "    poƒítaƒem umí zacházet, mohl se soust²edit jen na matematiku. Nemusí    \n"
  89.                 "    o poƒítaƒích ani toho moc v╪d╪t, a p²esto se màºe pokusit, aby z n╪j    \n"
  90.                 "    byl Einstein.");
  91.  
  92.  
  93.   ¼ekejNaKlávesu();
  94. 2 ;Nápov╪da Zkouτení
  95.   TxtSmaºObrazovku();
  96.   TxtNastavBarvuPop²edí(12);
  97.   TxtPiτNov∞ⁿádek();
  98.   TxtPiτⁿet╪zec("                              ZKOUµEN╓ HELP\n");
  99.   TxtNastavBarvuPop²edí(14);
  100.   TxtPiτⁿet╪zec("          A te╘ uº k samotnému poƒítání:\n"
  101.                 "                  1. Zkouτíτ se sám: napiτ libovolné ƒíslo, màºe b∞t i \n"
  102.                 "                                     desetinné, potvr╘ napsané ƒíslo \n"
  103.         "                      stisknutím klávesy Enter,              \n"
  104.                 "                                     napiτ dalτí ƒíslo p²íkladu pot²ebné \n"
  105.         "                      k v∞poƒtu, zamysli se,\n"
  106.                 "                                     pokud znáτ v∞sledek napiτ ho a napiτ \n"
  107.         "                      v∞sledek, pokud ne stiskni klávesu  \n"
  108.         "                      F1, coº znamená to, ºe p²íklad\n"
  109.         "                      neumíτ vypoƒítat nebo se ti nechce.\n"
  110.                 "                    2. Zkouτí T╪ poƒítaƒ: poƒítaƒ sám zadává p²íklady, ty\n"
  111.         "                      p²edem zvolíτ jen obtíºnost p²íkladà.\n"
  112.                 "                    3. ERROR        : Pokud je p²íklad τpatn╪ zadan∞ jinak\n"
  113.         "                      neº je uvedeno v bod╪ 1 nebo p²íklad\n"
  114.         "                      nelze vypoƒítat napíτe poƒítaƒ ERROR.\n"
  115.                 "                    4. Obtíºnost   1-3 tvàj názor: ");
  116.   Txt¼tiU¼íslo(Obtíºnost);
  117. 3 ;Nápov╪da Kalkulaƒka
  118.   TxtSmaºObrazovku();
  119.   TxtNastavBarvuPop²edí(12);
  120.   TxtPiτNov∞ⁿádek();
  121.   TxtPiτⁿet╪zec("                              KALKULA¼KA HELP\n ");
  122.   TxtNastavBarvuPop²edí(14);
  123.   TxtPiτⁿet╪zec("         A te╘ n╪co k poƒítání na kalkulaƒce: \n");
  124.   TxtPiτⁿet╪zec("                   Kalkulaƒka pracuje na stejném principu jako Zkouτení, s\n" 
  125.         "            tím rozdílem, ºe Ty zkouτíτ poƒítaƒ");
  126.   ¼ekejNaKlávesu();
  127. n ;Tisk Nabídky HELP
  128.   TxtSmaºObrazovku();
  129.   TxtNastavBarvuPop²edí(14);
  130.   TxtPiτNov∞ⁿádek();
  131.   TxtPiτNov∞ⁿádek();
  132.   TxtPiτNov∞ⁿádek();
  133.   TxtPiτNov∞ⁿádek();
  134.   TxtPiτNov∞ⁿádek();
  135.   TxtPiτNov∞ⁿádek();
  136.   TxtPiτⁿet╪zec("                                                       \n ");
  137.   TxtPiτⁿet╪zec("                                                       \n ");
  138.   TxtPiτⁿet╪zec("                                                       \n ");
  139.   TxtPiτⁿet╪zec("                          ┌───────────────────────────┐\n ");
  140.   TxtPiτⁿet╪zec("                          │ F1  - Hlavní     HELP     │ \n ");
  141.   TxtPiτⁿet╪zec("                          │ F2  - Zkouτení   HELP     │\n ");
  142.   TxtPiτⁿet╪zec("                          │ F3  - Kalkulaƒka HELP     │\n ");
  143.   TxtPiτⁿet╪zec("                          │ ESC -       Konec         │\n ");
  144.   TxtPiτⁿet╪zec("                          └───────────────────────────┘\n ");
  145.   TxtPiτⁿet╪zec("                                                       \n ");
  146.   TxtPiτⁿet╪zec("                                                       \n ");
  147.   TxtPiτⁿet╪zec("                                                       \n ");
  148. k Klávesa=¼tiKlávesuZFrontyS¼ekáním();
  149. -c1-Nápov╪da  podmínky
  150.  
  151. /3 Klávesa Je KlF1
  152. /4 Klávesa Je KlF2
  153. /5 Klávesa Je KlF3
  154. *1 Klávesa Není KlEsc
  155. #N Do0
  156. =SP-Nápov╪da
  157.  
  158.  
  159. ;-h---------------------------------------------------------------------------
  160. void Zapiτ_jako_double( void )
  161. -s--Zapiτ_jako_double                                                           ■  23  -2   8   3
  162.                              ___Zápis~doublu____________________________________
  163.                            Teƒka        __zápis~doublu_                     desetiny
  164.                             /a          /b   /c  /d   /e                         /f
  165.                         d╪lení~10       a    b   c   Alt.                 desetiny~rozliτení~na__
  166.                             *1         b!   c!  d!   e!                    /g         /h        /i
  167.                           funkce           error?                     ___st-od__    d╪lení   násobení
  168.                            a!                /1                       /j       /     h!        i!
  169.                                             ano            Deset2.~>Dest Deset2.~<Dest
  170.                                             E!                                g!
  171. -o1-Zapiτ_jako_double  operace
  172. E ;chyba - b je 0
  173.   b=1;
  174.   ERROR_SYSTEM=2;
  175.   ERROR2=1;
  176. a ;vyd╪lení ƒísla
  177.   a=a / 10;
  178.   b=b / 10;
  179.   c=c / 10;
  180.   Altogether2=Altogether2 / 10;
  181.   pozice_ƒísla=pozice_ƒísla - 1;
  182. b ;double jako a
  183.   b=c=Altogether2=0;
  184. c ;double jako b
  185.   a=c=Altogether2=0;
  186. d ;double jako c
  187.   b=a=Altogether2=0;
  188. e ;double jako Altogether2
  189.   Desetiny=b=c=a=0;
  190.   Stopky(ƒas);
  191.   StopkyStop();
  192. g ;Desetiny2  sƒítání
  193.   Desetiny2=0;
  194.   Desetiny2=Desetiny2 + Desetiny;
  195. h ;Desetiny2  d╪lení
  196.   Desetiny2=Desetiny2 + Desetiny;
  197. i ;Desetiny2  násobení
  198.   Desetiny2=Desetiny2 * Desetiny;
  199. -c1-Zapiτ_jako_double  podmínky
  200. /1 ERROR_SYSTEM Je 1 ASouƒasn╪ b Je 0
  201. /a funkce Není 5 ASouƒasn╪ Teƒka Je  1
  202. /b funkce==1
  203. /c funkce==2
  204. /d funkce==3
  205. /e funkce==4
  206. /f Teƒka Je 1
  207. /g KlFunkce==1
  208. /h KlFunkce==2
  209. /i KlFunkce==3
  210. /j Desetiny2 JeV╪tτíNeboRovno Desetiny
  211. *1 pozice_ƒísla Není 0
  212.  
  213. =SP-Zapiτ_jako_double
  214.  
  215. ;-h---------------------------------------------------------------------------
  216. void Neutrum_Key( void )
  217. -s--Neutrum_Key                                                                 ■  49  -2  15   3
  218.                                               Klávesa
  219.                                                 a!i
  220.                                            hodnota~se~ƒte
  221.                                              ~a~b~c~al
  222.                                                  *1
  223.                                             ƒtení~kláves
  224.                                                 b!
  225.                      ______________________Jaká~klávesa?_________________________________
  226.                      /a                   /b             /e         /f       /h         /i
  227.                   hodnota        _____Backspace__       Esc      __celá__  mezerník   nevím
  228.                   základní       /c      /d     /   hodnota~Je~0 /g     /    h!    :goto~nevím
  229.                     c!       lze~teƒ~n lze~je nelze     f!      lze   nelze
  230.                                 d!      e!                      g!
  231. -o1-Neutrum_Key
  232. a ;vτe na 0 a start stopek
  233.   Desetiny=Teƒka=Klávesa=a=b=c=Altogether2=0;
  234.   StopkyStart();
  235. b ;ƒtení kláves
  236.   Klávesa=¼tiKlávesuZFrontyS¼ekáním();
  237.   ƒíslice2=0;
  238. c ;tisk ƒísla a ƒíslice se ukládá do budoucího doublu
  239.   ƒ=0;
  240.   ƒ=ƒ + Klávesa - 48;
  241.   TxtPiτD¼íslo(ƒ,0,0);
  242.   a=(a * 10) + ƒ;
  243.   b=(b * 10) + ƒ;
  244.   c=(c * 10) + ƒ;
  245.   Altogether2=(Altogether2 * 10) + ƒ;
  246.   ƒíslice=ƒíslice + 1;
  247.   ƒíslice2= ƒíslice2 + 1;
  248.   pozice_ƒísla=pozice_ƒísla + 1;
  249.   Desetiny=Desetiny + 1;
  250. d ;Klávesa byla BACKSPACE
  251.   TxtNastavPozici(TxtPoziceX()-1,TxtPoziceY());
  252.   TxtPiτⁿet╪zec(" ");
  253.   TxtNastavPozici(TxtPoziceX()-1,TxtPoziceY());
  254.   ƒíslice=0;
  255.   ƒíslice2 = ƒíslice2 - 1;
  256.   pozice_ƒísla=pozice_ƒísla - 1;
  257.   Desetiny= Desetiny - 1;
  258.   a=(a - ƒ) / 10;
  259.   b=(b - ƒ) / 10;
  260.   c=(c - ƒ) / 10;
  261.   Altogether2=(Altogether2 - ƒ) / 10;
  262. e ;Klávesa byla BACKSPACE ale poslední ƒíslice byla .
  263.   TxtNastavPozici(TxtPoziceX()-1,TxtPoziceY());
  264.   TxtPiτⁿet╪zec(" ");
  265.   TxtNastavPozici(TxtPoziceX()-1,TxtPoziceY());
  266.   Desetiny=Teƒka=ƒíslice=0;
  267. f ;Klávesa byla ESC
  268.   TxtNastavPozici(8,TxtPoziceY());
  269.   Desetiny=Teƒka=a=b=c=Altogether=ƒíslice=ƒíslice2=pozice_ƒísla=Teƒka=0;
  270.   TxtPiτⁿet╪zec("                                                            ");
  271.   TxtNastavPozici(8,TxtPoziceY());
  272.   Teƒka=0;
  273. g ;¼íslo Je Necelé
  274.   pozice_ƒísla=0;
  275.   Desetiny=0;
  276.   Teƒka=1;
  277.   TxtPiτⁿet╪zec(".");
  278. h ;Kurzor o jednu pozici dál
  279.   TxtNastavPozici(TxtPoziceX() + 1,TxtPoziceY());
  280. i ;Uloºení doublu
  281.   Zapiτ_jako_double();
  282.   nevím: ;
  283. -c1-Neutrum_Key
  284. /a Klávesa JeV╪tτíNeboRovno '0' ASouƒasn╪ Klávesa JeMenτíNeboRovno '9'
  285. /b Klávesa Je '\b'
  286. /c ƒíslice != 0 ASouƒasn╪ pozice_ƒísla != 0
  287. /d Desetiny == 0 ASouƒasn╪ Teƒka == 1
  288. /e Klávesa Je KlEsc
  289. /f Klávesa Je '.' Nebo Klávesa Je ','
  290. /g Teƒka==0 ASouƒasn╪ pozice_ƒísla != 0
  291. /h Klávesa Je ' ' ASouƒasn╪  a == 0
  292. /i funkce==4 ASouƒasn╪ Klávesa Je KlF1
  293. *1 Klávesa Není KlEnter
  294.  
  295. =SP-Neutrum_Key
  296.  
  297. ;-h---------------------------------------------------------------------------
  298. void Ne_odpov╪╘( void )
  299. -s--Ne_odpov╪╘                                                                  ■   3  -2   0   3
  300.                                  Ne_odpov╪╘
  301.                                     ne!40
  302.            _________________________náhodnéƒíslo____________________________________________________________________________________________________________________
  303.            /01 /02 /03 /04 /05 /06 /07 /08 /09 /10 /11 /12 /13 /14 /15 /16 /17 /18 /19 /20 /21 /22 /23 /24 /25 /26 /27 /28 /29 /30 /31 /32 /33 /34 /35 /36 /37 /38 /39
  304.            tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx
  305.          01! 02! 03! 04! 05! 06! 07! 08! 09! 10! 11! 12! 13! 14! 15! 16! 17! 18! 19! 20! 21! 22! 23! 24! 25! 26! 27! 28! 29! 30! 31! 32! 33! 34! 35! 36! 37! 38! 39!
  306. -o2-Ne_odpov╪╘  operace
  307. ne ;Altogether - µpatn╪,uloºení v∞sledku a Jak∞ text se naƒte 01 aº 39  texty
  308.    TxtPiτⁿet╪zec("\n           Ne τpatn╪ !!!");
  309.    TxtNastavBarvuPop²edí(TxtFialová);
  310.    TxtPiτⁿet╪zec("\n\n\n\n                      V∞sledek je:");
  311.    TxtNastavBarvuPop²edí(11);
  312.    TxtPiτD¼íslo(Altogether,0,Desetiny2);
  313.    Tón(500);
  314.    ¼ekej(200);
  315.    Tón(400);
  316.    ¼ekej(200);
  317.    Tón(200);
  318.    ¼ekej(250);
  319.    VypniTón();
  320.    No= No + 1;
  321.    poƒet_p²íkladà= poƒet_p²íkladà - 1;
  322.    Celkem= Celkem + 1;
  323.    TxtPiτⁿet╪zec("\n\n\n\n\n            ");
  324.    aba=Náhodné¼íslo(38) + 1;
  325. 01 TxtPiτⁿet╪zec("Tady p²estává legrace !                 ");
  326. 02 TxtPiτⁿet╪zec("To snad ne!                             ");
  327. 03 TxtPiτⁿet╪zec("Uτet²i m╪ prosím !                      ");
  328. 04 TxtPiτⁿet╪zec("Milost !!!                              ");
  329. 05 TxtPiτⁿet╪zec("Jeºkovy zraky !                         ");
  330. 06 TxtPiτⁿet╪zec("Nech uº toho !!!                        ");
  331. 07 TxtPiτⁿet╪zec("To snad není pravda !                   ");
  332. 08 TxtPiτⁿet╪zec("Tak Ty nedáτ pokoj ?                    ");
  333. 09 TxtPiτⁿet╪zec("Takhle taky ne !                        ");
  334. 10 TxtPiτⁿet╪zec("Ty uº mne nemáτ rád ?                   ");
  335. 11 TxtPiτⁿet╪zec("No je to s Tebou t╪ºké..                ");
  336. 12 TxtPiτⁿet╪zec("Tady p²estává- legrace !                ");
  337. 13 TxtPiτⁿet╪zec("Jsou i hloup╪jτí                        ");
  338. 14 TxtPiτⁿet╪zec("Nejhorτí to zatím není, ale ...!        ");
  339. 15 TxtPiτⁿet╪zec("Neumíτ ƒesky ?                          ");
  340. 16 TxtPiτⁿet╪zec("Tak to by staƒilo !                     ");
  341. 17 TxtPiτⁿet╪zec("Ty to d╪láτ schváln╪ ?                  ");
  342. 18 TxtPiτⁿet╪zec("Proƒ m╪ chceτ zniƒit ?                  ");
  343. 19 TxtPiτⁿet╪zec("S tímhle to daleko nedotáhneτ!          ");
  344. 20 TxtPiτⁿet╪zec("Grrrr, brrr, fuj !                      ");
  345. 21 TxtPiτⁿet╪zec("To je ale hràza !                       ");
  346. 22 TxtPiτⁿet╪zec("To bolí !                               ");
  347. 23 TxtPiτⁿet╪zec("Vyzkouτej to znovu!                     ");
  348. 24 TxtPiτⁿet╪zec("Uƒení muƒení...                         ");
  349. 25 TxtPiτⁿet╪zec("Maminkóóó pomóóóc !                     ");
  350. 26 TxtPiτⁿet╪zec("Radτi se to nauƒ!                       ");
  351. 27 TxtPiτⁿet╪zec("P²íτt╪ snad lépe!                       ");
  352. 28 TxtPiτⁿet╪zec("To uº je τpatné !                       ");
  353. 29 TxtPiτⁿet╪zec("A neodvolám !   1+1=2 !                 ");
  354. 30 TxtPiτⁿet╪zec("Co takhle ledovou sprchu ?              ");
  355. 31 TxtPiτⁿet╪zec("Bacha, bacha ! Hochu !                  ");
  356. 32 TxtPiτⁿet╪zec("Dej si pozor ! Nebo...                  ");
  357. 33 TxtPiτⁿet╪zec("Neomluvitelné.                          ");
  358. 34 TxtPiτⁿet╪zec("Tak snadné to nebude!                   ");
  359. 35 TxtPiτⁿet╪zec("M╪ do blázince nedostaneτ !             ");
  360. 36 TxtPiτⁿet╪zec("No néé, to jsou nám novoty !            ");
  361. 37 TxtPiτⁿet╪zec("Není to z hladu ?                       ");
  362. 38 TxtPiτⁿet╪zec("Z tebe asi hv╪zda nebude.               ");
  363. 39 TxtPiτⁿet╪zec("Jde do tuhého !                         ");
  364. 40 ;Tist co zb∞vá
  365.   TxtNastavBarvuPop²edí(TxtSv╪tlozelená);
  366.   TxtPiτⁿet╪zec("\n\n\n                                                          Zb∞vá   - ");
  367.   TxtNastavBarvuPop²edí(14);
  368.   TxtPiτD¼íslo(poƒet_p²íkladà,0,0);
  369.   TxtNastavBarvuPop²edí(TxtSv╪tlozelená);
  370.   TxtPiτⁿet╪zec("\n                                                          µpatn╪  - ");
  371.   TxtNastavBarvuPop²edí(14);
  372.   TxtPiτD¼íslo(No,0,0);
  373.   TxtNastavBarvuPop²edí(TxtSv╪tlozelená);
  374.   TxtPiτⁿet╪zec("\n                                                          Správn╪ - ");
  375.   TxtNastavBarvuPop²edí(14);
  376.   TxtPiτD¼íslo(Good,0,0);
  377.   ¼ekejNaKlávesu();
  378. -c2-Ne_odpov╪╘  podmínky
  379. /01 aba Je 1
  380. /02 aba Je 2
  381. /03 aba Je 3
  382. /04 aba Je 4
  383. /05 aba Je 5
  384. /06 aba Je 6
  385. /07 aba Je 7
  386. /08 aba Je 8
  387. /09 aba Je 9
  388. /10 aba Je 10
  389. /11 aba Je 11
  390. /12 aba Je 12
  391. /13 aba Je 13
  392. /14 aba Je 14
  393. /15 aba Je 15
  394. /16 aba Je 16
  395. /17 aba Je 17
  396. /18 aba Je 18
  397. /19 aba Je 19
  398. /20 aba Je 20
  399. /21 aba Je 21
  400. /22 aba Je 22
  401. /23 aba Je 23
  402. /24 aba Je 24
  403. /25 aba Je 25
  404. /26 aba Je 26
  405. /27 aba Je 27
  406. /28 aba Je 28
  407. /29 aba Je 29
  408. /30 aba Je 30
  409. /31 aba Je 31
  410. /32 aba Je 32
  411. /33 aba Je 33
  412. /34 aba Je 34
  413. /35 aba Je 35
  414. /36 aba Je 36
  415. /37 aba Je 37
  416. /38 aba Je 38
  417. /39 aba Je 39
  418.  
  419. =SP-Ne_odpov╪╘
  420.  
  421. ;-h---------------------------------------------------------------------------
  422. void Ano_odpov╪╘( void )
  423. -s--Ano_odpov╪╘                                                                 ■   3  -2   8   3
  424.                                  Ano_odpov╪╘
  425.                                     an!40
  426.            _________________________náhodnéƒíslo____________________________________________________________________________________________________________________
  427.            /01 /02 /03 /04 /05 /06 /07 /08 /09 /10 /11 /12 /13 /14 /15 /16 /17 /18 /19 /20 /21 /22 /23 /24 /25 /26 /27 /28 /29 /30 /31 /32 /33 /34 /35 /36 /37 /38 /39
  428.            tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx  tx
  429.          01! 02! 03! 04! 05! 06! 07! 08! 09! 10! 11! 12! 13! 14! 15! 16! 17! 18! 19! 20! 21! 22! 23! 24! 25! 26! 27! 28! 29! 30! 31! 32! 33! 34! 35! 36! 37! 38! 39!
  430. -o2-Ano_odpov╪╘  operace
  431. an ;Atlogether - Dob²e,uloºení v∞sledku a Jak∞ text se naƒte 01 aº 39  texty
  432.    TxtNastavBarvuPop²edí(11);
  433.    TxtPiτⁿet╪zec("\n\n             X       XX     X     XXXXX                ");
  434.    TxtPiτⁿet╪zec("\n            X X      X X    X    XX   XX               ");
  435.    TxtPiτⁿet╪zec("\n           X   X     X  X   X    X     X               ");
  436.    TxtPiτⁿet╪zec("\n          XXXXXXX    X   X  X    X     X               ");
  437.    TxtPiτⁿet╪zec("\n         X       X   X    X X    XX   XX               ");
  438.    TxtPiτⁿet╪zec("\n         X       X   X     XX     XXXXX                ");
  439.    Tón(500);
  440.    ¼ekej(200);
  441.    Tón(600);
  442.    ¼ekej(200);
  443.    Tón(800);
  444.    ¼ekej(250);
  445.    VypniTón();
  446.    Good= Good + 1;
  447.    poƒet_p²íkladà=poƒet_p²íkladà - 1;
  448.    Celkem= Celkem + 1;
  449.    TxtPiτⁿet╪zec("\n\n\n            ");
  450.    aba=Náhodné¼íslo(38) + 1;
  451. 01 TxtPiτⁿet╪zec("Hurá, hurá, správn╪ !                   ");
  452. 02 TxtPiτⁿet╪zec("SUPER !                                 ");
  453. 03 TxtPiτⁿet╪zec("No vidíτ, jak Ti to jde !               ");
  454. 04 TxtPiτⁿet╪zec("Hmmm, umí !                             ");
  455. 05 TxtPiτⁿet╪zec("Fajn a jedeme dál.                      ");
  456. 06 TxtPiτⁿet╪zec("Johoho, takhle se mi to líbí !          ");
  457. 07 TxtPiτⁿet╪zec("A helemese, uº umíme !                  ");
  458. 08 TxtPiτⁿet╪zec("My zíráme, Vy zíráte !                  ");
  459. 09 TxtPiτⁿet╪zec("Je to paráda lehnout si..               ");
  460. 10 TxtPiτⁿet╪zec("Tlesk tlesk tlesk tlesk !               ");
  461. 11 TxtPiτⁿet╪zec("Takhle se na obra musí !                ");
  462. 12 TxtPiτⁿet╪zec("Nechceτ za m╪ d╪lat úkoly ?             ");
  463. 13 TxtPiτⁿet╪zec("Gratuluji !                             ");
  464. 14 TxtPiτⁿet╪zec("Moc p╪kné opravdu !                     ");
  465. 15 TxtPiτⁿet╪zec("Ty se to snad nakonec nauƒil !          ");
  466. 16 TxtPiτⁿet╪zec("Anóóó ! Jeτt╪ takhle p╪kn╪ !            ");
  467. 17 TxtPiτⁿet╪zec("Díky, uº jsem se bál !                  ");
  468. 18 TxtPiτⁿet╪zec("Krása, aº mi srdce jásá !               ");
  469. 19 TxtPiτⁿet╪zec("To je p²eci GαL !                       ");
  470. 20 TxtPiτⁿet╪zec("A ºe to ani moc nebolelo ?              ");
  471. 21 TxtPiτⁿet╪zec("Poj╘te se vτichni podívat !!!           ");
  472. 22 TxtPiτⁿet╪zec("Piln∞ student dobr∞ student !           ");
  473. 23 TxtPiτⁿet╪zec("Kdyº se chce tak to jde !               ");
  474. 24 TxtPiτⁿet╪zec("To budou mít rodiƒe radost.             ");
  475. 25 TxtPiτⁿet╪zec("Ty to n╪kam dotáhneτ !                  ");
  476. 26 TxtPiτⁿet╪zec("Z tebe moºná i n╪co bude !              ");
  477. 27 TxtPiτⁿet╪zec("Omdlévám radostí.                       ");
  478. 28 TxtPiτⁿet╪zec("Takhle pokraƒuj !                       ");
  479. 29 TxtPiτⁿet╪zec("Víτ, ºe jsi docela fajn ?               ");
  480. 30 TxtPiτⁿet╪zec("Senzace kde ses to nauƒil ?             ");
  481. 31 TxtPiτⁿet╪zec("Komu ƒest, tomu ƒest..                  ");
  482. 32 TxtPiτⁿet╪zec("Moºná bude Veƒerníƒek !                 ");
  483. 33 TxtPiτⁿet╪zec("Takové, τt╪stí !                        ");
  484. 34 TxtPiτⁿet╪zec("Ud╪luji Ti ²ád Zlatého sviτt╪ !         ");
  485. 35 TxtPiτⁿet╪zec("Já to ²íkal, ºe to dokáºeτ !            ");
  486. 36 TxtPiτⁿet╪zec("Skv╪l∞ v∞kon !                          ");
  487. 37 TxtPiτⁿet╪zec("Jupííí, dokázal jsi to !                ");
  488. 38 TxtPiτⁿet╪zec("No prost╪ nádhera !                     ");
  489. 39 TxtPiτⁿet╪zec("Nevídáno ! Správn╪ !                    ");
  490. 40 ;Tist co zb∞vá
  491.   TxtNastavBarvuPop²edí(TxtSv╪tlozelená);
  492.   TxtPiτⁿet╪zec("\n\n\n                                                          Zb∞vá   - ");
  493.   TxtNastavBarvuPop²edí(14);
  494.   TxtPiτD¼íslo(poƒet_p²íkladà,0,0);
  495.   TxtNastavBarvuPop²edí(TxtSv╪tlozelená);
  496.   TxtPiτⁿet╪zec("\n                                                          µpatn╪  - ");
  497.   TxtNastavBarvuPop²edí(14);
  498.   TxtPiτD¼íslo(No,0,0);
  499.   TxtNastavBarvuPop²edí(TxtSv╪tlozelená);
  500.   TxtPiτⁿet╪zec("\n                                                          Správn╪ - ");
  501.   TxtNastavBarvuPop²edí(14);
  502.   TxtPiτD¼íslo(Good,0,0);
  503.   ¼ekejNaKlávesu();
  504.  
  505. -c2-Ano_odpov╪╘  podmínky
  506. /01 aba Je 1
  507. /02 aba Je 2
  508. /03 aba Je 3
  509. /04 aba Je 4
  510. /05 aba Je 5
  511. /06 aba Je 6
  512. /07 aba Je 7
  513. /08 aba Je 8
  514. /09 aba Je 9
  515. /10 aba Je 10
  516. /11 aba Je 11
  517. /12 aba Je 12
  518. /13 aba Je 13
  519. /14 aba Je 14
  520. /15 aba Je 15
  521. /16 aba Je 16
  522. /17 aba Je 17
  523. /18 aba Je 18
  524. /19 aba Je 19
  525. /20 aba Je 20
  526. /21 aba Je 21
  527. /22 aba Je 22
  528. /23 aba Je 23
  529. /24 aba Je 24
  530. /25 aba Je 25
  531. /26 aba Je 26
  532. /27 aba Je 27
  533. /28 aba Je 28
  534. /29 aba Je 29
  535. /30 aba Je 30
  536. /31 aba Je 31
  537. /32 aba Je 32
  538. /33 aba Je 33
  539. /34 aba Je 34
  540. /35 aba Je 35
  541. /36 aba Je 36
  542. /37 aba Je 37
  543. /38 aba Je 38
  544. /39 aba Je 39
  545. =SP-Ano_odpov╪╘
  546.  
  547. ;-h---------------------------------------------------------------------------
  548. void Uºivatel_zkouτí( void )
  549. -s--Uºivatel_zkouτí                                                             ■  12  -2   8 259
  550.            ______________________________Uºivatel_zkouτí________________________________________________________
  551.            /01            /02       /03          /04     /05     /06     /07      /08     /09          /10     /
  552.         sƒítání       odeƒítání   d╪lení      násobení obvod   obsah  mocniny odmocniny  úhly          kruh   nic
  553.          st!            od!       de!          na!     ob!     os!     mo!      oc!     uh!           kr!    01!
  554.           a-n___     ____a-n___    a-n________  a-n___  a-n___  a-n___  a-n___   a-n___  a-n_________  a-n___
  555.            /13 /14   /17  /13 /14  /16   /13 /14 /13 /14 /13 /14 /13 /14 /13 /14  /13 /14  /15  /14 /13 /13 /14
  556.           ano  ne neuním ano  ne nelze  ano  ne ano  ne ano  ne ano  ne ano  ne  ano  ne nelze  ne ano ano  ne
  557.          an! ne!  nl!   an! ne!  nl!   an! ne! an! ne! an! ne! an! ne! an! ne!  an! ne!  nl!  ne! an! an! ne!
  558. -o2-Uºivatel_zkouτí  operace
  559. 01 ;Klávesa je neplatná
  560.    Tón(1000);
  561.    ¼ekej(100);
  562.    VypniTón();
  563. st ; Tisk p²íkladu Sƒítání
  564.    TxtPiτⁿet╪zec("    ");
  565.    TxtPiτNov∞ⁿádek();
  566.    TxtPiτⁿet╪zec("                                   Sƒítání                                      ");
  567.    TxtNastavBarvuPozadí(0);
  568.    TxtPiτNov∞ⁿádek();
  569.    TxtNastavBarvuPop²edí(14);
  570.    TxtPiτⁿet╪zec("        ");
  571.    funkce=1;
  572.    KlFunkce=1;
  573.    Neutrum_Key();
  574.    Altogether=Altogether + a;
  575.    TxtNastavBarvuPop²edí(15);
  576.    TxtPiτⁿet╪zec("\n      + ");
  577.    TxtNastavBarvuPop²edí(14);
  578.    funkce=2;
  579.    Neutrum_Key();
  580.    Altogether=Altogether + b;
  581.    TxtPiτⁿet╪zec("\n       -------");
  582.    TxtPiτⁿet╪zec("\n        ");
  583.    funkce=4;
  584.    Neutrum_Key();
  585. od ; Tisk p²íkladu Odeƒítání
  586.    TxtPiτⁿet╪zec("    ");
  587.    TxtPiτNov∞ⁿádek();
  588.    TxtPiτⁿet╪zec("                                  Odeƒítání                                     ");
  589.    TxtNastavBarvuPozadí(0);
  590.    TxtPiτNov∞ⁿádek();
  591.    TxtNastavBarvuPop²edí(14);
  592.    TxtPiτⁿet╪zec("        ");
  593.    funkce=1;
  594.    KlFunkce=1;
  595.    Neutrum_Key();
  596.    Altogether=Altogether + a;
  597.    TxtNastavBarvuPop²edí(15);
  598.    TxtPiτⁿet╪zec("\n      - ");
  599.    TxtNastavBarvuPop²edí(14);
  600.    funkce=2;
  601.    Neutrum_Key();
  602.    Altogether=Altogether - b;
  603.    TxtPiτⁿet╪zec("\n       -------");
  604.    TxtPiτⁿet╪zec("\n        ");
  605.    funkce=4;
  606.    Neutrum_Key();
  607. de ; Tisk p²íkladu D╪lení
  608.    TxtPiτⁿet╪zec("    ");
  609.    TxtPiτNov∞ⁿádek();
  610.    TxtPiτⁿet╪zec("                                   D╪lení                                       ");
  611.    TxtNastavBarvuPozadí(0);
  612.    TxtPiτNov∞ⁿádek();
  613.    TxtNastavBarvuPop²edí(14);
  614.    TxtPiτⁿet╪zec("        ");
  615.    funkce=1;
  616.    KlFunkce=2;
  617.    Neutrum_Key();
  618.    Altogether=Altogether + a;
  619.    TxtNastavBarvuPop²edí(15);
  620.    TxtPiτⁿet╪zec("\n      : ");
  621.    TxtNastavBarvuPop²edí(14);
  622.    funkce=2;
  623.    ERROR_SYSTEM=1;
  624.    Neutrum_Key();
  625.    Altogether=Altogether / b;
  626.    TxtPiτⁿet╪zec("\n       -------");
  627.    TxtPiτⁿet╪zec("\n        ");
  628.    funkce=4;
  629.    Neutrum_Key();
  630. na ; Tisk p²íkladu Násobení
  631.    TxtPiτⁿet╪zec("    ");
  632.    TxtPiτNov∞ⁿádek();
  633.    TxtPiτⁿet╪zec("                                  Násobení                                      ");
  634.    TxtNastavBarvuPozadí(0);
  635.    TxtPiτNov∞ⁿádek();
  636.    TxtNastavBarvuPop²edí(14);
  637.    TxtPiτⁿet╪zec("        ");
  638.    funkce=1;
  639.    KlFunkce=2;
  640.    Neutrum_Key();
  641.    Altogether=Altogether + a;
  642.    TxtNastavBarvuPop²edí(15);
  643.    TxtPiτⁿet╪zec("\n      . ");
  644.    TxtNastavBarvuPop²edí(14);
  645.    funkce=2;
  646.    Neutrum_Key();
  647.    Altogether=Altogether * b;
  648.    TxtPiτⁿet╪zec("\n       -------");
  649.    TxtPiτⁿet╪zec("\n        ");
  650.    funkce=4;
  651.    Neutrum_Key();
  652. ob ; Tisk p²íkladu Obvod
  653.    TxtPiτⁿet╪zec("    ");
  654.    TxtPiτNov∞ⁿádek();
  655.    TxtPiτⁿet╪zec("                                    Obvod \n");
  656.    TxtNastavBarvuPozadí(0);
  657.    TxtNastavBarvuPop²edí(15);
  658.    TxtPiτⁿet╪zec("    a= ");
  659.    TxtNastavBarvuPop²edí(14);
  660.    KlFunkce=1;
  661.    funkce=1;
  662.    Neutrum_Key();
  663.    Altogether=Altogether + a;
  664.    TxtNastavBarvuPop²edí(15);
  665.    TxtPiτⁿet╪zec("cm\n    b= ");
  666.    TxtNastavBarvuPop²edí(14);
  667.    funkce=2;
  668.    Neutrum_Key();
  669.    Altogether=Altogether + b;
  670.    TxtNastavBarvuPop²edí(15);
  671.    TxtPiτⁿet╪zec("cm\n    c= ");
  672.    TxtNastavBarvuPop²edí(14);
  673.    funkce=3;
  674.    Neutrum_Key();
  675.    Altogether=Altogether + c;
  676.    TxtNastavBarvuPop²edí(15);
  677.    TxtPiτⁿet╪zec("cm");
  678.    TxtNastavBarvuPop²edí(14);
  679.    TxtPiτⁿet╪zec("\n       -------");
  680.    TxtNastavBarvuPop²edí(15);
  681.    TxtPiτⁿet╪zec("\n     O = ");
  682.    TxtNastavBarvuPop²edí(14);
  683.    funkce=4;
  684.    Neutrum_Key();
  685.    TxtNastavBarvuPop²edí(15);
  686.    TxtPiτⁿet╪zec("cm");
  687.    TxtNastavBarvuPop²edí(14);
  688. os ; Tisk p²íkladu Obsahu
  689.    TxtPiτⁿet╪zec("    ");
  690.    TxtPiτNov∞ⁿádek();
  691.    TxtPiτⁿet╪zec("                                   Obsah                                        ");
  692.    TxtNastavBarvuPozadí(0);
  693.    TxtPiτNov∞ⁿádek();
  694.    TxtNastavBarvuPop²edí(15);
  695.    TxtPiτⁿet╪zec("     a= ");
  696.    TxtNastavBarvuPop²edí(14);
  697.    funkce=1;
  698.    KlFunkce=2;
  699.    Neutrum_Key();
  700.    Altogether=Altogether + a;
  701.    TxtNastavBarvuPop²edí(15);
  702.    TxtPiτⁿet╪zec("\n     b= ");
  703.    TxtNastavBarvuPop²edí(14);
  704.    funkce=2;
  705.    Neutrum_Key();
  706.    Altogether=Altogether * b;
  707.    TxtPiτⁿet╪zec("\n       -------");
  708.    TxtNastavBarvuPop²edí(15);
  709.    TxtPiτⁿet╪zec("\n      S=  ");
  710.    TxtNastavBarvuPop²edí(14);
  711.    funkce=4;
  712.    Neutrum_Key();
  713.    TxtNastavBarvuPop²edí(15);
  714.    TxtPiτⁿet╪zec("cm^2");
  715.    TxtNastavBarvuPop²edí(14);
  716. mo ; Tisk p²íkladu Mocniny
  717.    TxtPiτⁿet╪zec("    ");
  718.    TxtPiτNov∞ⁿádek();
  719.    TxtPiτⁿet╪zec("                                  Mocniny                                                  ");
  720.    TxtNastavBarvuPozadí(0);
  721.    TxtPiτNov∞ⁿádek();
  722.    TxtNastavBarvuPop²edí(14);
  723.    TxtPiτⁿet╪zec("        ");
  724.    funkce=1;
  725.    KlFunkce=2;
  726.    Neutrum_Key();
  727.    Altogether=Altogether + sqr(a);
  728.    TxtNastavBarvuPop²edí(15);
  729.    TxtPiτⁿet╪zec("\n          ^2 ");
  730.    TxtNastavBarvuPop²edí(14);
  731.    TxtPiτⁿet╪zec("\n       -------");
  732.    TxtPiτⁿet╪zec("\n        ");
  733.    funkce=4;
  734.    Neutrum_Key();
  735. oc ; Tisk p²íkladu Odmocniny
  736.    TxtPiτⁿet╪zec("    ");
  737.    TxtPiτNov∞ⁿádek();
  738.    TxtPiτⁿet╪zec("                                  Odmocniny                                      ");
  739.    TxtNastavBarvuPozadí(0);
  740.    TxtPiτNov∞ⁿádek();
  741.    TxtNastavBarvuPop²edí(14);
  742.    TxtPiτⁿet╪zec("        ");
  743.    funkce=1;
  744.    KlFunkce=3;
  745.    Neutrum_Key();
  746.    Altogether=Altogether + sqrt(a);
  747.    TxtNastavBarvuPop²edí(15);
  748.    TxtPiτⁿet╪zec("\n         _/--");
  749.    TxtNastavBarvuPop²edí(14);
  750.    TxtPiτⁿet╪zec("\n       -------");
  751.    TxtPiτⁿet╪zec("\n        ");
  752.    funkce=4;
  753.    Neutrum_Key();
  754.    Desetiny2= Desetiny2 + 1;
  755. uh ; Tisk p²íkladu Sƒítání úhlà
  756.    TxtPiτⁿet╪zec("    ");
  757.    TxtPiτNov∞ⁿádek();
  758.    TxtPiτⁿet╪zec("                                    t²etí úhel   ");
  759.    TxtNastavBarvuPozadí(0);
  760.    TxtPiτNov∞ⁿádek();
  761.    TxtPiτNov∞ⁿádek();
  762.    TxtNastavBarvuPop²edí(15);
  763.    TxtPiτⁿet╪zec("  alfa= ");
  764.    TxtNastavBarvuPop²edí(14);
  765.    KlFunkce=1;
  766.    funkce=1;
  767.    Neutrum_Key();
  768.    Altogether=Altogether + a;
  769.    TxtNastavBarvuPop²edí(15);
  770.    TxtPiτZnak('∩');
  771.    TxtPiτⁿet╪zec("\n  beta= ");
  772.    TxtNastavBarvuPop²edí(14);
  773.    funkce=2;
  774.    Neutrum_Key();
  775.    Altogether=Altogether + b;
  776.    Altogether=180 - Altogether;
  777.    TxtNastavBarvuPop²edí(15);
  778.    TxtPiτZnak('∩');
  779.    TxtNastavBarvuPop²edí(14);
  780.    TxtPiτⁿet╪zec("\n       -------");
  781.    TxtNastavBarvuPop²edí(15);
  782.    TxtPiτⁿet╪zec("\n  gama= ");
  783.    TxtNastavBarvuPop²edí(14);
  784.    funkce=4;
  785.    Neutrum_Key();
  786.    TxtNastavBarvuPop²edí(15);
  787.    TxtPiτZnak('∩');
  788.    TxtNastavBarvuPop²edí(14);
  789. nl ;Nesmyslné zadání
  790.    TxtNastavBarvuPop²edí(14);
  791.    TxtNastavPozici(8,TxtPoziceY());
  792.    TxtPiτⁿet╪zec(" ERROR                                 ");
  793.    Tón(1000);
  794.    ¼ekej(200);
  795.    VypniTón();
  796.    ¼ekejNaKlávesu();
  797. kr ; Tisk p²íkladu Obvod kruhu
  798.    TxtPiτⁿet╪zec("    ");
  799.    TxtPiτNov∞ⁿádek();
  800.    TxtPiτⁿet╪zec("                                   Obvod kruhu    ( pouºij Pí 3.1415)   ");
  801.    TxtNastavBarvuPozadí(0);
  802.    TxtPiτNov∞ⁿádek();
  803.    TxtPiτNov∞ⁿádek();
  804.    TxtNastavBarvuPop²edí(15);
  805.    TxtPiτⁿet╪zec("     d= ");
  806.    TxtNastavBarvuPop²edí(14);
  807.    funkce=1;
  808.    KlFunkce=2;
  809.    Desetiny2=4;
  810.    Neutrum_Key();
  811.    Altogether=3.1415 * a;
  812.    TxtNastavBarvuPop²edí(15);
  813.    TxtPiτⁿet╪zec("cm\n  vzorec     ??? ");
  814.    TxtNastavBarvuPop²edí(14);
  815.    TxtPiτⁿet╪zec("\n       -------");
  816.    TxtNastavBarvuPop²edí(15);
  817.    TxtPiτⁿet╪zec("\n     O= ");
  818.    TxtNastavBarvuPop²edí(14);
  819.    funkce=4;
  820.    Neutrum_Key();
  821.    TxtNastavBarvuPop²edí(15);
  822.    TxtPiτⁿet╪zec("cm");
  823.    TxtNastavBarvuPop²edí(14);
  824.  
  825. an ;Altogether - Dob²e,uloºení v∞sledku
  826.    Ano_odpov╪╘();
  827. ne ;Altogether - µpatn╪,uloºení v∞sledku
  828.    Ne_odpov╪╘();
  829. -c2-Uºivatel_zkouτí  podmínky
  830. /01 Klávesa Je KlF1
  831. /02 Klávesa Je KlF2
  832. /03 Klávesa Je KlF3
  833. /04 Klávesa Je KlF4
  834. /05 Klávesa Je KlF5
  835. /06 Klávesa Je KlF6
  836. /07 Klávesa Je KlF7
  837. /08 Klávesa Je KlF8
  838. /09 Klávesa Je KlF9
  839. /10 Klávesa Je KlF10
  840. /11 Klávesa Je KlF11
  841. /12 Klávesa Je KlF12
  842. /13 Altogether Je Altogether2 ASouƒasn╪ Klávesa Není KlF1 ASouƒasn╪ ERROR2 Není 1
  843. /14 Altogether Není Altogether2 ASouƒasn╪ ERROR2 Není 1 Nebo Klávesa Je KlF1 ASouƒasn╪ ERROR2 Není 1
  844. /15 Altogether JeMenτíNeboRovno 0 Nebo Altogether Je 180
  845. /16 ERROR_SYSTEM Je 2 ASouƒasn╪ ERROR2 Je 1
  846. /17 Altogether JeMenτíNeº 0
  847. =SP-Uºivatel_zkouτí
  848.  
  849. ;-h---------------------------------------------------------------------------
  850. void Poƒítaƒ_zkouτí( void )
  851. -s--Poƒítaƒ_zkouτí                                                              ■   6  -2   4   3
  852.         __________________________________Poƒítaƒ_zkouτí__________________________________
  853.         /01      /02     /03     /04     /05     /06     /07      /08      /09    /10    /
  854.      sƒítání odeƒítání d╪lení násobení obsah   obsah  mocniny odmocniny   úhly   kruh   nic
  855.       st!      od!     de!     na!     ob!     os!     mo!      oc!      uh!     kr!   01!
  856.        a-n___   a-n___  a-n___  a-n___  a-n___  a-n___  a-n___   a-n___   a-n___  a-n___
  857.         /13 /14  /13 /14 /13 /14 /13 /14 /13 /14 /13 /14 /13 /14  /13 /14  /13 /14 /13 /14
  858.        ano  ne  ano  ne ano  ne ano  ne ano  ne ano  ne ano  ne  ano  ne  ano  ne ano  ne
  859.       an! ne!  an! ne! an! ne! an! ne! an! ne! an! ne! an! ne!  an! ne!  an! ne! an! ne!
  860. -o2-Poƒítaƒ_zkouτí  operace
  861. 01 ;Klávesa je neplatná
  862.    Tón(1000);
  863.    ¼ekej(100);
  864.    VypniTón();
  865. st ; Tisk p²íkladu Sƒítání
  866.    TxtPiτⁿet╪zec("    ");
  867.    TxtPiτNov∞ⁿádek();
  868.    TxtPiτⁿet╪zec("                                   Sƒítání                                      ");
  869.    TxtNastavBarvuPozadí(0);
  870.    TxtPiτNov∞ⁿádek();
  871.    a=Náhodné¼íslo(Obtíºnost);
  872.    b=Náhodné¼íslo(Obtíºnost);
  873.    TxtNastavBarvuPop²edí(14);
  874.    TxtPiτⁿet╪zec("        ");
  875.    TxtPiτD¼íslo(a,0,0);
  876.    TxtNastavBarvuPop²edí(15);
  877.    TxtPiτⁿet╪zec("\n      + ");
  878.    TxtNastavBarvuPop²edí(14);
  879.    TxtPiτD¼íslo(b,0,0);
  880.    Altogether= a + b;
  881.    TxtPiτⁿet╪zec("\n       -------");
  882.    TxtPiτⁿet╪zec("\n        ");
  883.    funkce=4;
  884.    Neutrum_Key();
  885. od ; Tisk p²íkladu Odeƒítání
  886.    TxtPiτⁿet╪zec("    ");
  887.    TxtPiτNov∞ⁿádek();
  888.    TxtPiτⁿet╪zec("                                  Odeƒítání                                     ");
  889.    TxtNastavBarvuPozadí(0);
  890.    TxtPiτNov∞ⁿádek();
  891.    a=Náhodné¼íslo(Obtíºnost);
  892.    b=Náhodné¼íslo(a);
  893.    TxtNastavBarvuPop²edí(14);
  894.    TxtPiτⁿet╪zec("        ");
  895.    TxtPiτD¼íslo(a,0,0);
  896.    TxtNastavBarvuPop²edí(15);
  897.    TxtPiτⁿet╪zec("\n      - ");
  898.    TxtNastavBarvuPop²edí(14);
  899.    TxtPiτD¼íslo(b,0,0);
  900.    Altogether= a - b;
  901.    TxtPiτⁿet╪zec("\n       -------");
  902.    TxtPiτⁿet╪zec("\n        ");
  903.    funkce=4;
  904.    Neutrum_Key();
  905. de ; Tisk p²íkladu D╪lení
  906.    TxtPiτⁿet╪zec("    ");
  907.    TxtPiτNov∞ⁿádek();
  908.    TxtPiτⁿet╪zec("                                   D╪lení                                       ");
  909.    TxtNastavBarvuPozadí(0);
  910.    TxtPiτNov∞ⁿádek();
  911.    Altogether=Náhodné¼íslo(Obtíºnost);
  912.    b=Náhodné¼íslo(Obtíºnost);
  913.    TxtNastavBarvuPop²edí(14);
  914.    TxtPiτⁿet╪zec("        ");
  915.    a= Altogether * b;
  916.    TxtPiτD¼íslo(a,0,0);
  917.    TxtNastavBarvuPop²edí(15);
  918.    TxtPiτⁿet╪zec(" : ");
  919.    TxtNastavBarvuPop²edí(14);
  920.    TxtPiτD¼íslo(b,0,0);
  921.    TxtPiτⁿet╪zec(" = ");
  922.    funkce=4;
  923.    Neutrum_Key();
  924.    TxtPiτⁿet╪zec("\n\n\n");
  925. na ; Tisk p²íkladu Násobení
  926.    TxtPiτⁿet╪zec("    ");
  927.    TxtPiτNov∞ⁿádek();
  928.    TxtPiτⁿet╪zec("                                  Násobení                                      ");
  929.    TxtNastavBarvuPozadí(0);
  930.    TxtPiτNov∞ⁿádek();
  931.    a=Náhodné¼íslo(Obtíºnost);
  932.    b=Náhodné¼íslo(Obtíºnost- 90);
  933.    TxtNastavBarvuPop²edí(14);
  934.    TxtPiτⁿet╪zec("        ");
  935.    TxtPiτD¼íslo(a,0,0);
  936.    TxtNastavBarvuPop²edí(15);
  937.    TxtPiτⁿet╪zec("\n      . ");
  938.    TxtNastavBarvuPop²edí(14);
  939.    TxtPiτD¼íslo(b,0,0);
  940.    Altogether= a * b;
  941.    TxtPiτⁿet╪zec("\n       -------");
  942.    TxtPiτⁿet╪zec("\n        ");
  943.    funkce=4;
  944.    Neutrum_Key();
  945. ob ; Tisk p²íkladu Obvod
  946.    TxtPiτⁿet╪zec("    ");
  947.    TxtPiτNov∞ⁿádek();
  948.    TxtPiτⁿet╪zec("                                    Obvod       ");
  949.    TxtNastavBarvuPozadí(0);
  950.    TxtPiτNov∞ⁿádek();
  951.    a=Náhodné¼íslo(Obtíºnost);
  952.    b=Náhodné¼íslo(Obtíºnost);
  953.    c=Náhodné¼íslo(Obtíºnost);
  954.    TxtNastavBarvuPop²edí(15);
  955.    TxtPiτⁿet╪zec("     a= ");
  956.    TxtNastavBarvuPop²edí(14);
  957.    TxtPiτD¼íslo(a,0,0);
  958.    TxtNastavBarvuPop²edí(15);
  959.    TxtPiτⁿet╪zec("cm\n     b= ");
  960.    TxtNastavBarvuPop²edí(14);
  961.    TxtPiτD¼íslo(b,0,0);
  962.    Altogether= a + b + 12;
  963.    TxtNastavBarvuPop²edí(15);
  964.    TxtPiτⁿet╪zec("cm\n     c= ");
  965.    TxtNastavBarvuPop²edí(14);
  966.    TxtPiτD¼íslo(c,0,0);
  967.    TxtNastavBarvuPop²edí(15);
  968.    TxtPiτⁿet╪zec("cm");
  969.    TxtNastavBarvuPop²edí(14);
  970.    TxtPiτⁿet╪zec("\n       -------");
  971.    TxtNastavBarvuPop²edí(15);
  972.    TxtPiτⁿet╪zec("\nO v Cm= ");
  973.    TxtNastavBarvuPop²edí(14);
  974.    funkce=4;
  975.    Neutrum_Key();
  976. os ; Tisk p²íkladu Obsahu
  977.    TxtPiτⁿet╪zec("    ");
  978.    TxtPiτNov∞ⁿádek();
  979.    TxtPiτⁿet╪zec("                                   Obsah                                        ");
  980.    TxtNastavBarvuPozadí(0);
  981.    TxtPiτNov∞ⁿádek();
  982.    a=Náhodné¼íslo(Obtíºnost - 90);
  983.    b=Náhodné¼íslo(Obtíºnost - 90);
  984.    TxtNastavBarvuPop²edí(15);
  985.    TxtPiτⁿet╪zec("     a= ");
  986.    TxtNastavBarvuPop²edí(14);
  987.    TxtPiτD¼íslo(a,0,0);
  988.    TxtNastavBarvuPop²edí(15);
  989.    TxtPiτⁿet╪zec("cm\n     b= ");
  990.    TxtNastavBarvuPop²edí(14);
  991.    TxtPiτD¼íslo(b,0,0);
  992.    Altogether= a * b;
  993.    TxtNastavBarvuPop²edí(15);
  994.     TxtPiτⁿet╪zec("cm");
  995.    TxtNastavBarvuPop²edí(14);
  996.    TxtPiτⁿet╪zec("\n       -------");
  997.    TxtNastavBarvuPop²edí(15);
  998.    TxtPiτⁿet╪zec("\n     S= ");
  999.    TxtNastavBarvuPop²edí(14);
  1000.    funkce=4;
  1001.    Neutrum_Key();
  1002.    TxtNastavBarvuPop²edí(15);
  1003.    TxtPiτⁿet╪zec("cm^2");
  1004.    TxtNastavBarvuPop²edí(14);
  1005. mo ; Tisk p²íkladu Mocniny
  1006.    TxtPiτⁿet╪zec("    ");
  1007.    TxtPiτNov∞ⁿádek();
  1008.    TxtPiτⁿet╪zec("                                  Mocniny         ");
  1009.    TxtNastavBarvuPozadí(0);
  1010.    TxtPiτNov∞ⁿádek();
  1011.    TxtPiτNov∞ⁿádek();
  1012.    a=Náhodné¼íslo(Obtíºnost - 80);
  1013.    TxtNastavBarvuPop²edí(14);
  1014.    TxtPiτⁿet╪zec("        ");
  1015.    TxtPiτD¼íslo(a,0,0);
  1016.    TxtNastavBarvuPop²edí(15);
  1017.    TxtPiτⁿet╪zec("\n          ^2   ");
  1018.    TxtNastavBarvuPop²edí(14);
  1019.    Altogether= a * a;
  1020.    TxtPiτNov∞ⁿádek();
  1021.    TxtPiτⁿet╪zec("       -------");
  1022.    TxtPiτⁿet╪zec("\n        ");
  1023.    funkce=4;
  1024.    Neutrum_Key();
  1025. oc ; Tisk p²íkladu Odmocniny
  1026.    TxtPiτⁿet╪zec("    ");
  1027.    TxtPiτNov∞ⁿádek();
  1028.    TxtPiτⁿet╪zec("                                  Odmocniny                                      ");
  1029.    TxtNastavBarvuPozadí(0);
  1030.    TxtPiτNov∞ⁿádek();
  1031.    Altogether=b=Náhodné¼íslo(Obtíºnost - 80);
  1032.    a= sqr(b);
  1033.    TxtNastavBarvuPop²edí(14);
  1034.    TxtPiτⁿet╪zec("        ");
  1035.    TxtPiτD¼íslo(a,0,0);
  1036.    TxtNastavBarvuPop²edí(15);
  1037.    TxtPiτⁿet╪zec("\n       _/- ");
  1038.    TxtNastavBarvuPop²edí(14);
  1039.    TxtPiτⁿet╪zec("\n       -------");
  1040.    TxtPiτⁿet╪zec("\n        ");
  1041.    funkce=4;
  1042.    Neutrum_Key();
  1043. uh ; Tisk p²íkladu Sƒítání úhlà
  1044.    TxtPiτⁿet╪zec("    ");
  1045.    TxtPiτNov∞ⁿádek();
  1046.    TxtPiτⁿet╪zec("                                    t²etí úhel   ");
  1047.    TxtNastavBarvuPozadí(0);
  1048.    TxtPiτNov∞ⁿádek();
  1049.    TxtPiτNov∞ⁿádek();
  1050.    a=Náhodné¼íslo(89) + 1;
  1051.    b=Náhodné¼íslo(88) + 1;
  1052.    TxtNastavBarvuPop²edí(15);
  1053.    TxtPiτⁿet╪zec("  alfa= ");
  1054.    TxtNastavBarvuPop²edí(14);
  1055.    TxtPiτD¼íslo(a,0,0);
  1056.    TxtNastavBarvuPop²edí(15);
  1057.    TxtPiτZnak('∩');
  1058.    TxtPiτⁿet╪zec("\n  beta= ");
  1059.    TxtNastavBarvuPop²edí(14);
  1060.    TxtPiτD¼íslo(b,0,0);
  1061.    Altogether=180 - a - b;
  1062.    TxtNastavBarvuPop²edí(15);
  1063.    TxtPiτZnak('∩');
  1064.    TxtNastavBarvuPop²edí(14);
  1065.    TxtPiτⁿet╪zec("\n       -------");
  1066.    TxtNastavBarvuPop²edí(15);
  1067.    TxtPiτⁿet╪zec("\n  gama= ");
  1068.    TxtNastavBarvuPop²edí(14);
  1069.    funkce=4;
  1070.    Neutrum_Key();
  1071.    TxtNastavBarvuPop²edí(15);
  1072.    TxtPiτZnak('∩');
  1073.    TxtNastavBarvuPop²edí(14);
  1074. kr ; Tisk p²íkladu Obvod kruhu
  1075.    TxtPiτⁿet╪zec("    ");
  1076.    TxtPiτNov∞ⁿádek();
  1077.    TxtPiτⁿet╪zec("                                   Obvod kruhu    ( pouºij Pí 3.1415)   ");
  1078.    TxtNastavBarvuPozadí(0);
  1079.    TxtPiτNov∞ⁿádek();
  1080.    TxtPiτNov∞ⁿádek();
  1081.    a=Náhodné¼íslo(Obtíºnost-90);
  1082.    TxtNastavBarvuPop²edí(15);
  1083.    TxtPiτⁿet╪zec("     d= ");
  1084.    TxtNastavBarvuPop²edí(14);
  1085.    TxtPiτD¼íslo(a,0,0);
  1086.    TxtNastavBarvuPop²edí(15);
  1087.    TxtPiτⁿet╪zec("cm\n  vzorec     ??? ");
  1088.    TxtNastavBarvuPop²edí(14);
  1089.    Altogether= 3.1415 * a;
  1090.    Desetiny2=4;
  1091.    TxtPiτⁿet╪zec("\n       -------");
  1092.    TxtPiτⁿet╪zec("\n        ");
  1093.    funkce=4;
  1094.    Neutrum_Key();
  1095.    TxtNastavBarvuPop²edí(15);
  1096.    TxtPiτⁿet╪zec("cm");
  1097.    TxtNastavBarvuPop²edí(14);
  1098.  
  1099. an ;Altogether - Dob²e,uloºení v∞sledku
  1100.    Ano_odpov╪╘();
  1101. ne ;Altogether - µpatn╪,uloºení v∞sledku
  1102.    Ne_odpov╪╘();
  1103. -c2-Poƒítaƒ_zkouτí  podmínky
  1104. /01 Klávesa Je KlF1
  1105. /02 Klávesa Je KlF2
  1106. /03 Klávesa Je KlF3
  1107. /04 Klávesa Je KlF4
  1108. /05 Klávesa Je KlF5
  1109. /06 Klávesa Je KlF6
  1110. /07 Klávesa Je KlF7
  1111. /08 Klávesa Je KlF8
  1112. /09 Klávesa Je KlF9
  1113. /10 Klávesa Je KlF10
  1114. /13 Altogether Je Altogether2 ASouƒasn╪ Klávesa Není KlF1
  1115. /14 Altogether Není Altogether2 Nebo Klávesa Je KlF1
  1116.  
  1117. =SP-Poƒítaƒ_zkouτí
  1118.  
  1119. ;-h---------------------------------------------------------------------------
  1120. void V∞kon( void )
  1121. -s--V∞kon                                                                       ■   2  -2   1   3
  1122.                                        V∞kon
  1123.                                         0!6
  1124.                                 ______pomluva_______
  1125.                                 /1   /2  /3   /4   /5
  1126.                               Jedna Dva T²i ¼ty²i P╪t
  1127.                                1!   2!  3!   4!   5!
  1128. -o1-V∞kon  operace
  1129. 0 ;Tisk hodnocení
  1130.   TxtSmaºObrazovku();
  1131.   TxtPiτⁿet╪zec("\n\n\n\n\n\n\n\n\n");
  1132.   TxtNastavBarvuPop²edí(14);
  1133.   TxtPiτⁿet╪zec(" Dosáhl jsi hodnocení které je na  známku : ");
  1134.   TxtNastavBarvuPop²edí(TxtSv╪tloƒervená);
  1135.   No= No2 + No ;
  1136.   No2=No * 5;
  1137.   Hodnocení1= ( No2 + Good ) / Celkem ;
  1138.   TxtPiτD¼íslo(Hodnocení1,0,0);
  1139.   TxtNastavBarvuPop²edí(14);
  1140.   TxtPiτⁿet╪zec("  a to je ");
  1141.   TxtNastavBarvuPop²edí(TxtSv╪tloƒervená);
  1142.   Hodnocení2= (Good * 5) / ((Celkem * 5 ) / 100);
  1143.   TxtPiτD¼íslo(Hodnocení2,0,0);
  1144.   TxtNastavBarvuPop²edí(14);
  1145.   TxtPiτⁿet╪zec(" % úsp╪τnosti otázek.\n ");
  1146.   TxtPiτⁿet╪zec("                             s ƒasem na ");
  1147.   ƒas.Minuty=ƒas.Minuty / Celkem;
  1148.   TxtPiτL¼íslo(ƒas.Minuty,2);
  1149.   TxtPiτZnak(':');
  1150.   TxtPiτL¼íslo(ƒas.Sekundy,2);
  1151.   TxtPiτⁿet╪zec("s \n\n\n        ");
  1152. 1 ;Dostal jsi 1
  1153.   TxtPiτⁿet╪zec("          Nádhera jako profesionál,\n\n"
  1154.                         "                      ale tu minulou P╖TKU ti stejn╪ neomluvím !!! ");
  1155. 2 ;Dostal jsi 2
  1156.   TxtPiτⁿet╪zec("          Je vid╪t, ºe se zlepτujeτ,\n\n"
  1157.                         "                      hele, jen tak mezi námi,  ºes zase pouºíval kalkulaƒku !!!");
  1158. 3 ;Dostal jsi 3
  1159.   TxtPiτⁿet╪zec("          To nic to je pràm╪r, \n\n"
  1160.                         "                      poslyτ, m╪l by ses zaƒít uƒit !!! ");
  1161. 4 ;Dostal jsi 4
  1162.   TxtPiτⁿet╪zec("          Uº za ƒty²i ?? Jéémine, tomu nev╪²ím,\n\n"
  1163.                         "                      tam jsem se asi n╪kde p²ekoukl ??? \n");
  1164. 5 ;Dostal jsi 5
  1165.   TxtPiτⁿet╪zec("          Co si to dovolujeτ  mít za 5 !!!,\n\n "
  1166.                         "                        m╪ nepodplatíτ, to snad víτ !!! ");
  1167. 6 ¼ekejNaKlávesu();
  1168. -c1-V∞kon  podmínky
  1169. /1 Hodnocení1 JeV╪tτíNeboRovno 1 ASouƒasn╪  Hodnocení1 JeMenτíNeº 1.5
  1170. /2 Hodnocení1 JeV╪tτíNeboRovno 1.5 ASouƒasn╪  Hodnocení1 JeMenτíNeº 2.5
  1171. /3 Hodnocení1 JeV╪tτíNeboRovno 2.5 ASouƒasn╪  Hodnocení1 JeMenτíNeº 3.5
  1172. /4 Hodnocení1 JeV╪tτíNeboRovno 3.5 ASouƒasn╪  Hodnocení1 JeMenτíNeº 4.5
  1173. /5 Hodnocení1 JeV╪tτíNeboRovno 4.5
  1174. =SP-V∞kon
  1175.  
  1176. ;-h---------------------------------------------------------------------------
  1177. void Zkouτení( void )
  1178. -s--Zkouτení                                                                    ■  12  -2   0   3
  1179.               ____________________Zkouτení
  1180.       ____obtíºnost__               1!5
  1181.       /2      /3    /          _____Co?__
  1182.    profesor  ºák zaƒáteƒ       /1       /
  1183.      9!      8!    7!         Poƒ.      Já
  1184.                                *1       *1
  1185.                               dál      dal_
  1186.                              24!        23!
  1187. -o1-Zkouτení  operace
  1188. 1 ;Zjiτt╪ní poƒtu p²íkladà pro zkouτení
  1189.   poƒet_p²íkladà=aba=a=b=c=Altogether2=Altogether=No=Good=Celkem=Klávesa=No2=Good2=Hodnocení1=Hodnocení2=0;
  1190.   P²epniNaText();
  1191.   TxtNastavBarvuPop²edí(14);
  1192.   TxtPiτⁿet╪zec("\n\n   Kolik si ráƒíτ vy²eτit p²íkladà :");
  1193.   Txt¼tiD¼íslo(poƒet_p²íkladà);
  1194.   TxtPiτⁿet╪zec("\n\n\n\n              Chceτ se zkouτet od m╪ (F1) nebo se vyzkouτíτ sám (F2)   ");
  1195.   Klávesa=¼tiKlávesuZFrontyS¼ekáním();
  1196. 2 ;Tisk nabídky zkouτení
  1197.   TxtSmaºObrazovku();
  1198.   TxtNastavBarvuPop²edí(TxtZelená);
  1199.   TxtPiτⁿet╪zec("                                                                   Zb∞vá -");
  1200.   TxtPiτD¼íslo(poƒet_p²íkladà,0,0);
  1201.   TxtNastavBarvuPop²edí(14);
  1202.   TxtPiτNov∞ⁿádek();
  1203.   TxtPiτNov∞ⁿádek();
  1204.   TxtPiτⁿet╪zec("                                 Co si vybereτ ?                        ");
  1205.   TxtNastavBarvuPop²edí(15);
  1206.   TxtPiτNov∞ⁿádek();
  1207.   TxtPiτNov∞ⁿádek();
  1208.   TxtPiτNov∞ⁿádek();
  1209.   TxtPiτNov∞ⁿádek();
  1210.   TxtPiτⁿet╪zec("                           ┌───────────────────────────┐\n ");
  1211.   TxtPiτⁿet╪zec("                          │ F1  - Sƒítání             │\n ");
  1212.   TxtPiτⁿet╪zec("                          │ F2  - Odeƒítání           │\n ");
  1213.   TxtPiτⁿet╪zec("                          │ F3  - D╪lení              │\n ");
  1214.   TxtPiτⁿet╪zec("                          │ F4  - Násobení            │\n ");
  1215.   TxtPiτⁿet╪zec("                          │ F5  - Obvody (n) úhelníkà │\n ");
  1216.   TxtPiτⁿet╪zec("                          │ F6  - Obsah               │\n ");
  1217.   TxtPiτⁿet╪zec("                          │ F7  - Mocniny             │\n ");
  1218.   TxtPiτⁿet╪zec("                          │ F8  - Odmocniny           │\n ");
  1219.   TxtPiτⁿet╪zec("                          │ F9  - T²etí úhel (gama)   │\n ");
  1220.   TxtPiτⁿet╪zec("                          │ F10 - Obvod kruhu         │\n ");
  1221.   TxtPiτⁿet╪zec("                          └───────────────────────────┘\n ");
  1222.   TxtNastavBarvuPop²edí(TxtZelená);
  1223.   Klávesa=¼tiKlávesuZFrontyS¼ekáním();
  1224.   TxtSmaºObrazovku();
  1225.   ERROR2=Altogether=Desetiny2=0;
  1226. 3 ;Zkouτí uºivatel
  1227.   Uºivatel_zkouτí();
  1228. 4 ;Zkouτí poƒítaƒ
  1229.   Poƒítaƒ_zkouτí();
  1230. 5 ;Hodnocení v∞konu
  1231.   V∞kon();
  1232.   P²epniNaBaltazara();
  1233. 7 ;Obtíºnost Je 1
  1234.   Obtíºnost=100;
  1235. 8 ;Obtíºnost Je 2
  1236.   Obtíºnost=1000;
  1237. 9 ;Obtíºnost Je 3
  1238.   Obtíºnost=65535;
  1239. -c1-Zkouτení  podmínky?
  1240. /1 Klávesa Je KlF1
  1241. /3 Obtíºnost Je 2
  1242. /2 Obtíºnost Je 3
  1243. *1 poƒet_p²íkladà JeV╪tτíNeº 0
  1244. =SP-Zkouτení
  1245.  
  1246. ;-h---------------------------------------------------------------------------
  1247. void Kalkulaƒka( void )
  1248. -s--Kalkulaƒka                                                                  ■  42  -2   4   3
  1249.                                           Kalkulaƒka
  1250.                                           0220!03
  1251.                                            kalkuli
  1252.                                               *1
  1253.                                              dál
  1254.                                                !20
  1255.         __________________________________Kalkulaƒka_____________________________________
  1256.         /1       /2      /3     /4      /5      /6      /7       /8       /9     /0     /
  1257.      sƒítání odeƒítání d╪lení násobení obvod   obsah  mocniny odmocniny   úhly   kruh  nic
  1258.       st!      od!     de!     na!     ob!     os!     mo!      oc!      uh!     kr!  01!
  1259.                        error?_                                           error?___
  1260.                        /e    /                                             /r    /
  1261.                       ano    ne                                           ano    ne
  1262.                      nl!   ce!                                           nl!   ce!
  1263. -o2-Kalkulaƒka  operace2
  1264. ce ¼ekejNaKlávesu();
  1265. nl ;Nesmyslné zadání
  1266.    TxtNastavPozici(8,TxtPoziceY());
  1267.    TxtPiτⁿet╪zec(" ERROR                                      ");
  1268.    Tón(1000);
  1269.    ¼ekej(200);
  1270.    VypniTón();
  1271.    ¼ekejNaKlávesu();
  1272. st ; Tisk p²íkladu Sƒítání
  1273.    TxtPiτⁿet╪zec("    ");
  1274.    TxtPiτNov∞ⁿádek();
  1275.    TxtPiτⁿet╪zec("                                   Sƒítání                                      ");
  1276.    TxtNastavBarvuPozadí(0);
  1277.    TxtPiτNov∞ⁿádek();
  1278.    TxtNastavBarvuPop²edí(14);
  1279.    TxtPiτⁿet╪zec("        ");
  1280.    funkce=1;
  1281.    KlFunkce=1;
  1282.    Neutrum_Key();
  1283.    Altogether=Altogether + a;
  1284.    TxtNastavBarvuPop²edí(15);
  1285.    TxtPiτⁿet╪zec("\n      + ");
  1286.    TxtNastavBarvuPop²edí(14);
  1287.    funkce=2;
  1288.    Neutrum_Key();
  1289.    Altogether=Altogether + b;
  1290.    TxtPiτⁿet╪zec("\n       -------");
  1291.    TxtPiτⁿet╪zec("\n        ");
  1292.    TxtPiτD¼íslo(Altogether,0,Desetiny2);
  1293.    Klávesa=¼tiKlávesuZFrontyS¼ekáním();
  1294. od ; Tisk p²íkladu Odeƒítání
  1295.    TxtPiτⁿet╪zec("    ");
  1296.    TxtPiτNov∞ⁿádek();
  1297.    TxtPiτⁿet╪zec("                                  Odeƒítání                                     ");
  1298.    TxtNastavBarvuPozadí(0);
  1299.    TxtPiτNov∞ⁿádek();
  1300.    TxtNastavBarvuPop²edí(14);
  1301.    TxtPiτⁿet╪zec("        ");
  1302.    funkce=1;
  1303.    KlFunkce=1;
  1304.    Neutrum_Key();
  1305.    Altogether=Altogether + a;
  1306.    TxtNastavBarvuPop²edí(15);
  1307.    TxtPiτⁿet╪zec("\n      - ");
  1308.    TxtNastavBarvuPop²edí(14);
  1309.    funkce=2;
  1310.    Neutrum_Key();
  1311.    Altogether=Altogether - b;
  1312.    TxtPiτⁿet╪zec("\n       -------");
  1313.    TxtPiτⁿet╪zec("\n        ");
  1314.    TxtPiτD¼íslo(Altogether,0,Desetiny2);
  1315.    Klávesa=¼tiKlávesuZFrontyS¼ekáním();
  1316. de ; Tisk p²íkladu D╪lení
  1317.    TxtPiτⁿet╪zec("    ");
  1318.    TxtPiτNov∞ⁿádek();
  1319.    TxtPiτⁿet╪zec("                                   D╪lení                                       ");
  1320.    TxtNastavBarvuPozadí(0);
  1321.    TxtPiτNov∞ⁿádek();
  1322.    TxtNastavBarvuPop²edí(14);
  1323.    TxtPiτⁿet╪zec("        ");
  1324.    funkce=1;
  1325.    KlFunkce=2;
  1326.    Neutrum_Key();
  1327.    Altogether=Altogether + a;
  1328.    TxtNastavBarvuPop²edí(15);
  1329.    TxtPiτⁿet╪zec("\n      : ");
  1330.    TxtNastavBarvuPop²edí(14);
  1331.    funkce=2;
  1332.    ERROR_SYSTEM=1;
  1333.    Neutrum_Key();
  1334.    Altogether=Altogether / b;
  1335.    TxtPiτⁿet╪zec("\n       -------");
  1336.    TxtPiτⁿet╪zec("\n        ");
  1337.    Desetiny2=Desetiny2 + 4;
  1338.    TxtPiτD¼íslo(Altogether,0,Desetiny2);
  1339. na ; Tisk p²íkladu Násobení
  1340.    TxtPiτⁿet╪zec("    ");
  1341.    TxtPiτNov∞ⁿádek();
  1342.    TxtPiτⁿet╪zec("                                  Násobení                                      ");
  1343.    TxtNastavBarvuPozadí(0);
  1344.    TxtPiτNov∞ⁿádek();
  1345.    TxtNastavBarvuPop²edí(14);
  1346.    TxtPiτⁿet╪zec("        ");
  1347.    funkce=1;
  1348.    KlFunkce=2;
  1349.    Neutrum_Key();
  1350.    Altogether=Altogether + a;
  1351.    TxtNastavBarvuPop²edí(15);
  1352.    TxtPiτⁿet╪zec("\n      . ");
  1353.    TxtNastavBarvuPop²edí(14);
  1354.    funkce=2;
  1355.    Neutrum_Key();
  1356.    Altogether=Altogether * b;
  1357.    TxtPiτⁿet╪zec("\n       -------");
  1358.    TxtPiτⁿet╪zec("\n        ");
  1359.    TxtPiτD¼íslo(Altogether,0,Desetiny2);
  1360.    Klávesa=¼tiKlávesuZFrontyS¼ekáním();
  1361. ob ; Tisk p²íkladu Obvod
  1362.    TxtPiτⁿet╪zec("    ");
  1363.    TxtPiτNov∞ⁿádek();
  1364.    TxtPiτⁿet╪zec("                                    Obvod \n");
  1365.    TxtNastavBarvuPozadí(0);
  1366.    TxtNastavBarvuPop²edí(15);
  1367.    TxtPiτⁿet╪zec("    a= ");
  1368.    TxtNastavBarvuPop²edí(14);
  1369.    KlFunkce=1;
  1370.    funkce=1;
  1371.    Neutrum_Key();
  1372.    Altogether=Altogether + a;
  1373.    TxtNastavBarvuPop²edí(15);
  1374.    TxtPiτⁿet╪zec("cm\n    b= ");
  1375.    TxtNastavBarvuPop²edí(14);
  1376.    funkce=2;
  1377.    Neutrum_Key();
  1378.    Altogether=Altogether + b;
  1379.    TxtNastavBarvuPop²edí(15);
  1380.    TxtPiτⁿet╪zec("cm\n    c= ");
  1381.    TxtNastavBarvuPop²edí(14);
  1382.    funkce=3;
  1383.    Neutrum_Key();
  1384.    Altogether=Altogether + c;
  1385.    TxtNastavBarvuPop²edí(15);
  1386.    TxtPiτⁿet╪zec("cm");
  1387.    TxtNastavBarvuPop²edí(14);
  1388.    TxtPiτⁿet╪zec("\n       -------");
  1389.    TxtNastavBarvuPop²edí(15);
  1390.    TxtPiτⁿet╪zec("\nO v cm = ");
  1391.    TxtNastavBarvuPop²edí(14);
  1392.    TxtPiτD¼íslo(Altogether,0,Desetiny2);
  1393.    TxtNastavBarvuPop²edí(15);
  1394.    TxtPiτⁿet╪zec("cm");
  1395.    TxtNastavBarvuPop²edí(14);
  1396.    Klávesa=¼tiKlávesuZFrontyS¼ekáním();
  1397. os ; Tisk p²íkladu Obsahu
  1398.    TxtPiτⁿet╪zec("    ");
  1399.    TxtPiτNov∞ⁿádek();
  1400.    TxtPiτⁿet╪zec("                                   Obsah                                        ");
  1401.    TxtNastavBarvuPozadí(0);
  1402.    TxtPiτNov∞ⁿádek();
  1403.    TxtNastavBarvuPop²edí(15);
  1404.    TxtPiτⁿet╪zec("     a= ");
  1405.    TxtNastavBarvuPop²edí(14);
  1406.    funkce=1;
  1407.    KlFunkce=2;
  1408.    Neutrum_Key();
  1409.    Altogether=Altogether + a;
  1410.    TxtNastavBarvuPop²edí(15);
  1411.    TxtPiτⁿet╪zec("cm\n     b= ");
  1412.    TxtNastavBarvuPop²edí(14);
  1413.    funkce=2;
  1414.    Neutrum_Key();
  1415.    Altogether=Altogether * b;
  1416.    TxtNastavBarvuPop²edí(15);
  1417.    TxtPiτⁿet╪zec("cm");
  1418.    TxtNastavBarvuPop²edí(14);
  1419.    TxtPiτⁿet╪zec("\n       -------");
  1420.    TxtNastavBarvuPop²edí(15);
  1421.    TxtPiτⁿet╪zec("\n      S=  ");
  1422.    TxtNastavBarvuPop²edí(14);
  1423.    TxtPiτD¼íslo(Altogether,0,Desetiny2);
  1424.    TxtNastavBarvuPop²edí(15);
  1425.    TxtPiτⁿet╪zec("cm^2");
  1426.    TxtNastavBarvuPop²edí(14);
  1427.    Klávesa=¼tiKlávesuZFrontyS¼ekáním();
  1428. mo ; Tisk p²íkladu Mocniny
  1429.    TxtPiτⁿet╪zec("    ");
  1430.    TxtPiτNov∞ⁿádek();
  1431.    TxtPiτⁿet╪zec("                                  Mocniny                                                  ");
  1432.    TxtNastavBarvuPozadí(0);
  1433.    TxtPiτNov∞ⁿádek();
  1434.    TxtNastavBarvuPop²edí(14);
  1435.    TxtPiτⁿet╪zec("        ");
  1436.    funkce=1;
  1437.    KlFunkce=2;
  1438.    Neutrum_Key();
  1439.    Altogether=Altogether + sqr(a);
  1440.    Desetiny2=Desetiny2 * 2;
  1441.    TxtNastavBarvuPop²edí(15);
  1442.    TxtPiτⁿet╪zec("\n          ^2 ");
  1443.    TxtNastavBarvuPop²edí(14);
  1444.    TxtPiτⁿet╪zec("\n       -------");
  1445.    TxtPiτⁿet╪zec("\n        ");
  1446.    TxtPiτD¼íslo(Altogether,0,Desetiny2);
  1447.    Klávesa=¼tiKlávesuZFrontyS¼ekáním();
  1448. oc ; Tisk p²íkladu Odmocniny
  1449.    TxtPiτⁿet╪zec("    ");
  1450.    TxtPiτNov∞ⁿádek();
  1451.    TxtPiτⁿet╪zec("                                  Odmocniny                                      ");
  1452.    TxtNastavBarvuPozadí(0);
  1453.    TxtPiτNov∞ⁿádek();
  1454.    TxtNastavBarvuPop²edí(14);
  1455.    TxtPiτⁿet╪zec("        ");
  1456.    funkce=1;
  1457.    KlFunkce=3;
  1458.    Neutrum_Key();
  1459.    Altogether=Altogether + sqrt(a);
  1460.    TxtNastavBarvuPop²edí(15);
  1461.    TxtPiτⁿet╪zec("\n         _/--");
  1462.    TxtNastavBarvuPop²edí(14);
  1463.    TxtPiτⁿet╪zec("\n       -------");
  1464.    TxtPiτⁿet╪zec("\n        ");
  1465.    Desetiny2=Desetiny2 + 4;
  1466.    TxtPiτD¼íslo(Altogether,0,Desetiny2);
  1467.    Klávesa=¼tiKlávesuZFrontyS¼ekáním();
  1468. uh ; Tisk p²íkladu Sƒítání úhlà
  1469.    TxtPiτⁿet╪zec("    ");
  1470.    TxtPiτNov∞ⁿádek();
  1471.    TxtPiτⁿet╪zec("                                    t²etí úhel   ");
  1472.    TxtNastavBarvuPozadí(0);
  1473.    TxtPiτNov∞ⁿádek();
  1474.    TxtPiτNov∞ⁿádek();
  1475.    TxtNastavBarvuPop²edí(15);
  1476.    TxtPiτⁿet╪zec("  alfa= ");
  1477.    TxtNastavBarvuPop²edí(14);
  1478.    KlFunkce=1;
  1479.    funkce=1;
  1480.    Neutrum_Key();
  1481.    Altogether=Altogether + a;
  1482.    TxtNastavBarvuPop²edí(15);
  1483.    TxtPiτZnak('∩');
  1484.    TxtPiτⁿet╪zec("\n  beta= ");
  1485.    TxtNastavBarvuPop²edí(14);
  1486.    funkce=2;
  1487.    Neutrum_Key();
  1488.    Altogether=Altogether + b;
  1489.    Altogether=180 - Altogether;
  1490.    TxtNastavBarvuPop²edí(15);
  1491.    TxtPiτZnak('∩');
  1492.    TxtNastavBarvuPop²edí(14);
  1493.    TxtPiτⁿet╪zec("\n       -------");
  1494.    TxtNastavBarvuPop²edí(15);
  1495.    TxtPiτⁿet╪zec("\n  gama= ");
  1496.    TxtNastavBarvuPop²edí(14);
  1497.    TxtPiτD¼íslo(Altogether,0,Desetiny2);
  1498.    TxtNastavBarvuPop²edí(15);
  1499.    TxtPiτZnak('∩');
  1500.    TxtNastavBarvuPop²edí(14);
  1501. kr ;Tisk p²íkladu Obvod kruhu
  1502.    TxtPiτⁿet╪zec("    ");
  1503.    TxtPiτNov∞ⁿádek();
  1504.    TxtPiτⁿet╪zec("                                   Obvod kruhu    ( pouºij Pí 3.1415)   ");
  1505.    TxtNastavBarvuPozadí(0);
  1506.    TxtPiτNov∞ⁿádek();
  1507.    TxtPiτNov∞ⁿádek();
  1508.    TxtNastavBarvuPop²edí(15);
  1509.    TxtPiτⁿet╪zec("     d= ");
  1510.    TxtNastavBarvuPop²edí(14);
  1511.    funkce=1;
  1512.    KlFunkce=2;
  1513.    Neutrum_Key();
  1514.    Altogether=3.1415 * a;
  1515.    TxtNastavBarvuPop²edí(15);
  1516.    TxtPiτⁿet╪zec("cm\n  vzorec     ??? ");
  1517.    TxtNastavBarvuPop²edí(14);
  1518.    TxtPiτⁿet╪zec("\n       -------");
  1519.    TxtPiτⁿet╪zec("\n        ");
  1520.    Desetiny2=Desetiny2 + 4;
  1521.    TxtPiτD¼íslo(Altogether,0,Desetiny2);
  1522.    TxtNastavBarvuPop²edí(15);
  1523.    TxtPiτⁿet╪zec("cm");
  1524.    TxtNastavBarvuPop²edí(14);
  1525.    Klávesa=¼tiKlávesuZFrontyS¼ekáním();
  1526. 01 ;Klávesa je neplatná
  1527.    Tón(1000);
  1528.    ¼ekej(100);
  1529.    VypniTón();
  1530. 02 P²epniNaText();
  1531. 03 P²epniNaBaltazara();
  1532. 20 ;Tisk nabídky zkouτení
  1533.    TxtSmaºObrazovku();
  1534.    TxtNastavBarvuPop²edí(14);
  1535.    TxtPiτNov∞ⁿádek();
  1536.    TxtPiτNov∞ⁿádek();
  1537.    TxtPiτⁿet╪zec("                                 Co si vybereτ ?                        ");
  1538.    TxtNastavBarvuPop²edí(15);
  1539.    TxtPiτNov∞ⁿádek();
  1540.    TxtPiτNov∞ⁿádek();
  1541.    TxtPiτNov∞ⁿádek();
  1542.    TxtPiτNov∞ⁿádek();
  1543.    TxtPiτⁿet╪zec("                           ┌───────────────────────────┐\n ");
  1544.    TxtPiτⁿet╪zec("                          │ F1  - Sƒítání             │\n ");
  1545.    TxtPiτⁿet╪zec("                          │ F2  - Odeƒítání           │\n ");
  1546.    TxtPiτⁿet╪zec("                          │ F3  - D╪lení              │\n ");
  1547.    TxtPiτⁿet╪zec("                          │ F4  - Násobení            │\n ");
  1548.    TxtPiτⁿet╪zec("                          │ F5  - Obvody (n) úhelníkà │\n ");
  1549.    TxtPiτⁿet╪zec("                          │ F6  - Obsah               │\n ");
  1550.    TxtPiτⁿet╪zec("                          │ F7  - Mocniny             │\n ");
  1551.    TxtPiτⁿet╪zec("                          │ F8  - Odmocniny           │\n ");
  1552.    TxtPiτⁿet╪zec("                          │ F9  - t²etí úhel (gama)   │\n ");
  1553.    TxtPiτⁿet╪zec("                          │ F10 - Obvod kruhu         │\n ");
  1554.    TxtPiτⁿet╪zec("                          │ Esc - Konec               │\n ");
  1555.    TxtPiτⁿet╪zec("                          └───────────────────────────┘");
  1556.    TxtNastavBarvuPop²edí(TxtZelená);
  1557.    Klávesa=¼tiKlávesuZFrontyS¼ekáním();
  1558.    TxtSmaºObrazovku();
  1559.    Altogether=Desetiny2=0;
  1560. -c1-Kalkulaƒka  podmínky
  1561. *1 Klávesa Není KlEsc
  1562. /1 Klávesa Je KlF1
  1563. /2 Klávesa Je KlF2
  1564. /3 Klávesa Je KlF3
  1565. /4 Klávesa Je KlF4
  1566. /5 Klávesa Je KlF5
  1567. /6 Klávesa Je KlF6
  1568. /7 Klávesa Je KlF7
  1569. /8 Klávesa Je KlF8
  1570. /9 Klávesa Je KlF9
  1571. /0 Klávesa Je KlF10
  1572. /r Altogether JeMenτíNeboRovno 0 Nebo Altogether Je 180
  1573. /e ERROR_SYSTEM Je 2 ASouƒasn╪ ERROR2 Je 1
  1574. =SP-Kalkulaƒka
  1575.  
  1576. ;-h---------------------------------------------------------------------------
  1577. /***** hlavní program *****/
  1578. void main( void )
  1579. -s--KALKULAT                                                                    ■   4  -2 -12   3
  1580.                        KALKULAT
  1581.                           12!7
  1582.                          program
  1583.                             *1
  1584.                            Co?
  1585.                            k!
  1586.    _______________________V∞b╪r:_______________
  1587.    /1               /2              /3        /4
  1588. Nápov╪da         Zkouτení       Kalkulaƒka Animace
  1589.   3!2              4!2             5!2        6!
  1590. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  1591. k Klávesa=¼tiKlávesuZFronty();
  1592.   StopkyNuluj();
  1593. 1 ;Naƒtení scény Kalkulat.bsc
  1594.   Vytvo²Prostor();
  1595.   Neviditeln∞();
  1596.   NaƒtiScénu("*\\kalkulat");
  1597.   RychlostBaltazara(9);
  1598.   BezObláƒku();
  1599.   EscPlus();
  1600. 2 ;Tisk Gr pole a ƒtení kláves
  1601.   GrSmaºOkno();
  1602.   GrNastavBarvuPozadí(0);
  1603.   GrNastavBarvuPop²edí(13);
  1604.   GrPiτⁿet╪zec("               Co porouƒíτ pane màj ?             ");
  1605.   GrPiτNov∞ⁿádek();
  1606.   GrPiτNov∞ⁿádek();
  1607.   GrNastavBarvuPop²edí(14);
  1608.   GrNastavPozici(0,9);
  1609.   GrPiτⁿet╪zec("    F1 - ");
  1610.   GrNastavBarvuPop²edí(15);
  1611.   GrPiτⁿet╪zec("Nápov╪da ");
  1612.   GrNastavBarvuPop²edí(14);
  1613.   GrPiτⁿet╪zec("F2 - ");
  1614.   GrNastavBarvuPop²edí(15);
  1615.   GrPiτⁿet╪zec("Zkouτení ");
  1616.   GrNastavBarvuPop²edí(14);
  1617.   GrPiτⁿet╪zec("F3 - ");
  1618.   GrNastavBarvuPop²edí(15);
  1619.   GrPiτⁿet╪zec("Kalkulaƒka                    ");
  1620.   GrPiτNov∞ⁿádek();
  1621.   GrPiτⁿet╪zec("                                                                    ");
  1622.   Klávesa=¼tiKlávesuZFronty();
  1623. 3 ;P²epnutí na textovou obrazovku
  1624.   P²epniNaText();
  1625.   Nápov╪da();
  1626.   P²epniNaBaltazara();
  1627. 4 ;Skok do úlohy Zkouτení
  1628.   Zkouτení();
  1629. 5 ;Skok do úlohy Kalkulaƒka
  1630.   Kalkulaƒka();
  1631.  
  1632. 6 ;Animace scény
  1633.   Animacex=Náhodné¼íslo(14) + 1;
  1634.   Animacey=Náhodné¼íslo(9)+ 1;
  1635.   ¼ekej(22);
  1636.   ¼arujNaPozici(2,Animacex,Animacey);
  1637.   ¼ekej(22);
  1638.   ¼arujNaPozici(3,Animacex,Animacey);
  1639.   ¼ekej(22);
  1640.   ¼arujNaPozici(4,Animacex,Animacey);
  1641.   ¼ekej(22);
  1642.   ¼arujNaPozici(5,Animacex,Animacey);
  1643.   ¼ekej(22);
  1644.   ¼arujNaPozici(6,Animacex,Animacey);
  1645.   ¼ekej(22);
  1646.   ¼arujNaPozici(7,Animacex,Animacey);
  1647.   ¼ekej(22);
  1648.   ¼arujNaPozici(8,Animacex,Animacey);
  1649.   ¼ekej(22);
  1650.   ¼arujNaPozici(9,Animacex,Animacey);
  1651.   ¼ekej(22);
  1652.   ¼arujNaPozici(10,Animacex,Animacey);
  1653.   ¼ekej(22);
  1654.   ¼arujNaPozici(11,Animacex,Animacey);
  1655.   ¼ekej(22);
  1656.   ¼arujNaPozici(12,Animacex,Animacey);
  1657.   ¼ekej(22);
  1658.   ¼arujNaPozici(13,Animacex,Animacey);
  1659.   ¼ekej(22);
  1660.   ¼arujNaPozici(14,Animacex,Animacey);
  1661.   ¼ekej(22);
  1662.   ¼arujNaPozici(15,Animacex,Animacey);
  1663.   ¼ekej(22);
  1664.   ¼arujNaPozici(14,Animacex,Animacey);
  1665.   ¼ekej(22);
  1666.   ¼arujNaPozici(13,Animacex,Animacey);
  1667.   ¼ekej(22);
  1668.   ¼arujNaPozici(12,Animacex,Animacey);
  1669.   ¼ekej(22);
  1670.   ¼arujNaPozici(11,Animacex,Animacey);
  1671.   ¼ekej(22);
  1672.   ¼arujNaPozici(10,Animacex,Animacey);
  1673.   ¼ekej(22);
  1674.   ¼arujNaPozici(9,Animacex,Animacey);
  1675.   ¼ekej(22);
  1676.   ¼arujNaPozici(8,Animacex,Animacey);
  1677.   ¼ekej(22);
  1678.   ¼arujNaPozici(7,Animacex,Animacey);
  1679.   ¼ekej(22);
  1680.   ¼arujNaPozici(6,Animacex,Animacey);
  1681.   ¼ekej(22);
  1682.   ¼arujNaPozici(5,Animacex,Animacey);
  1683.   ¼ekej(22);
  1684.   ¼arujNaPozici(4,Animacex,Animacey);
  1685.   ¼ekej(22);
  1686.   ¼arujNaPozici(3,Animacex,Animacey);
  1687.   ¼ekej(22);
  1688.   ¼arujNaPozici(2,Animacex,Animacey);
  1689.   ¼ekej(22);
  1690.   ¼arujNaPozici(16,Animacex,Animacey);
  1691.   ¼ekej(22);
  1692. 7 ;Konec programu
  1693.   P²epniNaText();
  1694.   TxtSmaºObrazovku();
  1695.   TxtPiτⁿet╪zec("               D╪kuji za pozornost \n ");
  1696.   TxtNastavBarvuPop²edí(14);
  1697.   TxtPiτⁿet╪zec("                  (C) Praha 28.10.1997 Bareτ Libor   ");
  1698.   ¼ekej(2000);
  1699. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  1700. /1 Klávesa Je KlF1
  1701. /2 Klávesa Je KlF2
  1702. /3 Klávesa Je KlF3
  1703. /4 Klávesa Je KlNení
  1704. *1 Klávesa Není KlEsc
  1705. =SP---------------------------------------------------------------------------
  1706. /***** konec programu *****/
  1707.