home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 July / Chip_1998-07_cd.bin / tema / sgp / vyber / pocty / POCTY.SGP < prev    next >
Text File  |  1997-10-31  |  42KB  |  666 lines
  1. SGPC   5.00 S#4B1T12 19.10.1997 11:25:54                                        StructNo 8   8
  2. ; Vytvo²en ze vzoru: C:\BALTAZAR\VZORBC.000
  3.  
  4. # include <sgpbalt.h>
  5.  
  6. /*-hf(*/
  7. /*-hf-*/
  8. void logo()
  9. /*-hf-*/;
  10. void Ukonƒit()
  11. /*-hf-*/;
  12. void Násobení()
  13. /*-hf-*/;
  14. void D╪lení()
  15. /*-hf-*/;
  16. void Sƒítání()
  17. /*-hf-*/;
  18. void Odƒítání()
  19. /*-hf-*/;
  20. void Obvod()
  21. /*-hf-*/;
  22. void Obsah()
  23. /*-hf-*/;
  24. /***** hlavní program *****/
  25. void main()
  26. /*-hf)*/;
  27. ;-h---------------------------------------------------------------------------
  28. /***** globální prom╪nné *****/
  29.  
  30.  
  31. ;-h---------------------------------------------------------------------------
  32. void logo()
  33. -s--logo                                                                        ■   4  -2   0   3
  34.      _________________________________logo________________________
  35.   Zaƒátek  Barva   Autor         Pauza │                        Text
  36. 0neR:(9)! ƒarování #N:(a,10) W:(2000)! │                  Nastavení~parametrà
  37.            B:(0)! ²ady                 │                         D:(7)!
  38.             ƒerná  #N:(b,15)        Nabídka                     xE:(2)!
  39.                    ƒaruj_              #N:(a,10)              Z:(10,3)!
  40.                  :c=a*15!             ²ady                   Text~v~okn╪________
  41.        X:(b+c+1,b+1,a+1)!              #N:(b,15) A:("Stiskem~barevn∞ch~písmen")!
  42.                                        ƒaruj_       A:("~zvolíte~zmín╪n∞~test")!
  43.                                      :c=a*15!                Dalτí~text_________
  44.                       X:(b+c+1+1000,b+1,a+1)!                    E:(4)!
  45.                                                             Z:(220,14)!
  46.                                             A:("¼ekám~na~klávesu~...")!
  47. -o1-logo  operace
  48. 0 ;prom╪nné celoƒíselné: a,b,c,Klávesa;      -32768..32767
  49.                     int  a,b,c,Klávesa,
  50.                          I¼íslo1,I¼íslo2,I¼íslo3,PàvBarvy;
  51.  
  52.   ;prom╪nné reálné: D¼íslo1,D¼íslo2,D¼íslo3;           5.0E-324..1.7E308
  53.             double  D¼íslo1,D¼íslo2,D¼íslo3;
  54.   ;prom╪nná znak:   Znak;
  55.             char    Znak;
  56.   ;prom╪nná ²et╪zec:ⁿet╪zec;
  57.             string  ⁿet╪zec;
  58. e BezObláƒku()
  59. m ;vypiτ ⁿet╪zec do grafického okénka
  60. n Neviditeln∞()
  61. x  GrSmaºOkno();
  62. A GrPiτⁿet╪zec          /*      A:("text")!   "Ahoj, já jsem Baltazar" */
  63. B NastavBarvu¼arování   /*       B:(barva)!   0-15                    */
  64. D GrNastavBarvuPozadí   /*       D:(barva)!   0-15                    */
  65. E GrNastavBarvuPop²edí  /*       E:(barva)!                           */
  66. R RychlostBaltazara     /*    R:(rychlost)!   0-9                     */
  67. W ¼ekej                 /*  W:(milisekund)!   0-32000                 */
  68. X ¼arujNaPozici         /* X:(p²edm╪t,x,y)!   1-150, 1-15, 1-10       */
  69. Z GrNastavPozici        /*         Z:(y,x)!                           */
  70. -c1-logo  podmínky  /=if *=while #=for          p²íklad pouºití
  71. #N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  72.     Od0
  73. =SP-logo
  74.  
  75.  
  76.  
  77. ;-h---------------------------------------------------------------------------
  78. void Ukonƒit()
  79. -s--Ukonƒit                                                                     ■   4  -2  11   3
  80.                    _______________Ukonƒit_________________________________
  81.                 Zaƒátek    Barva        Text         Obrazovka         ¼ekej
  82.            0neR:(9)!     ƒarování   F:(0)!            #N:(a,10)  W:(1500)!
  83.                           B:(0)!    D:(7)!           ²ada
  84.                            ƒerná   xE:(2)!            #N:(b,15)
  85.                                 Z:(100,7)!          ƒaruj
  86.                        A:("Ahoj~p²íτt╪.")!     :c=a*15!
  87.                                 X:(b+c+1+4000,b+1,a+1)!
  88. -o1-Ukonƒit  operace
  89. 0 ;prom╪nné celoƒíselné: a,b,c,Klávesa;      -32768..32767
  90.                     int  a,b,c,Klávesa,
  91.                          I¼íslo1,I¼íslo2,I¼íslo3,PàvBarvy;
  92.  
  93.   ;prom╪nné reálné: D¼íslo1,D¼íslo2,D¼íslo3;           5.0E-324..1.7E308
  94.             double  D¼íslo1,D¼íslo2,D¼íslo3;
  95.   ;prom╪nná znak:   Znak;
  96.             char    Znak;
  97.   ;prom╪nná ²et╪zec:ⁿet╪zec;
  98.             string  ⁿet╪zec;
  99. e BezObláƒku()
  100. n Neviditeln∞()
  101. x GrSmaºOkno();
  102. A GrPiτⁿet╪zec          /*      A:("text")!   "Ahoj, já jsem Baltazar" */
  103. B NastavBarvu¼arování   /*       B:(barva)!   0-15                    */
  104. D GrNastavBarvuPozadí   /*       D:(barva)!   0-15                    */
  105. E GrNastavBarvuPop²edí  /*       E:(barva)!   0-15                    */
  106. F GrNastavV∞stup        /*      F:(vystup)!   0-6 0-standart(okénko)  */
  107. R RychlostBaltazara     /*    R:(rychlost)!   0-9                     */
  108. W ¼ekej                 /*  W:(milisekund)!   0-32000                 */
  109. X ¼arujNaPozici         /* X:(p²edm╪t,x,y)!   1-150, 1-15, 1-10       */
  110. Z GrNastavPozici        /*         Z:(x,y)!                           */
  111. -c1-Ukonƒit  podmínky  /=if *=while #=for          p²íklad pouºití
  112. #N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  113.     Od0
  114. =SP-Ukonƒit
  115.  
  116.  
  117.  
  118. ;-h---------------------------------------------------------------------------
  119. void Násobení()
  120. -s--Násobení                                                                    ■ 121   8  15   3
  121.      _________________________Násobení________________________________________________________________
  122.   Zaƒátek   Obtíºnost     Text    Nastav  │     ¼ekej    Nastav Hodnocení                Piτ       Konec
  123.     0!     D:(7)!        v~okn╪  F:(1)!   │ W:(1000)! F:(0)!        #N:(d,10)       E:(15)!  W:(3000)!
  124.        xZ:(20,7)!        F:(0)!  D:(0)!   │           D:(7)!       ⁿada        Z:(200,130)!     F:(0)!
  125.                i!        D:(7)!      x!   │          xF:(1)!        #N:(e,15) A:("Dob²e:")!     D:(7)!
  126.                         xE:(0)!  :x=20!   │           D:(7)!      ¼aruj        Z:(250,145)!        xa!
  127.                       Z:(20,1)!   :y=0!   │               x!   :f=15*d!              E:(1)!    :logo()
  128. A:("V~po²ádku~-~v∞sledek~je~")! :x1=40!   │     X:(e+f+1+3000,e+1,d+1)!            G:(o,2)!
  129.                A:("bez~chyby")! :y1=15!   │                                         E:(15)!
  130.                      Z:(20,12)!   :p=0!   │                                    Z:(300,130)!
  131.  A:("Ch.~vy.:~-~v∞sledek~je~")!   :o=0! Cyklus                               A:("Chybn╪:")!
  132.          A:("τpatn╪~a~oprava")!   :h=0!   #N:(c,18)                            Z:(350,145)!
  133.                                        zjiτt╪ní_____________                         E:(4)!
  134.                                           /:c<9            /:c>=9                  G:(h,2)!
  135.                                         pozice           pozice_________
  136.                                           │                /:p<1       /:p=1
  137.                                           │              nastav       pokraƒuj
  138.                                           │            :p=1!         'Poƒítání
  139.                                           │        :poz=300!
  140.                                           │           :x=20!
  141.                                           │            :y=0!
  142.                                           │          :x1=40!
  143.                                           │          :y1=15!
  144.                                           │            'Poƒítání
  145.                                     :poz=0!
  146.                           ____________"Poƒítání__________________________________
  147.                        Prom╪nné    │              P²íklad                 Zadej │
  148.         :a=Náhodné¼íslo(t-1)+1!    │      Z:(x1+poz,y1)!                    h!  │
  149.         :b=Náhodné¼íslo(t-1)+1!    │              E:(6)!  Z:(x1+48+poz,y1-15)!  │
  150.                        :y=y+15!    │            G:(a,3)!              A:("=")!  │
  151.                      :y1=y1+15!   Text Z:(x1+poz+24,y1)!               E:(15)!  │
  152.                                 E:(2)!          A:("*")!  Z:(x1+56+poz,y1-15)!  │
  153.                           Z:(x+poz,y)! Z:(x1+poz+32,y1)!       G:(vysledek,4)!  │
  154.               A:("Napiτte~v∞sledek:")!          G:(b,2)!                        │
  155.                                                 :y=y+15!                        │
  156.                                               :y1=y1+15!                        │
  157.                                                                                 │
  158.                                                    _____________________________│
  159.                                        _________Podmínka______
  160.                                        /:vysledek~Je~a*b     /:vysledek~Není~a*b
  161.                                      Dalτí                   Oprava
  162.                                     E:(9)!                   E:(4)!
  163.                      Z:(x1+100+poz,y1-15)!    Z:(x1+100+poz,y1-15)!
  164.                           A:("V~po²ádku")!          A:("Ch.~vy.:")!
  165.                                    :o=o+1!    Z:(x1+150+poz,y1-15)!
  166.                                                         E:(14+128)!
  167.                                                          G:(a*b,4)!
  168.                                                             :h=h+1!
  169. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  170. 0 ;prom╪nné celoƒíselné: a,b,c,d,e,f,h,o,p,y,v,x,x1,y1,Klávesa,poz,vysledek;      -32768..32767
  171.                     int  a,b,c,d,e,f,g,h,o,p,y,v,x,x1,y1,Klávesa,poz;
  172.                unsigned  vysledek,t;
  173.  
  174.   ;prom╪nné reálné: D¼íslo1,D¼íslo2,D¼íslo3;           5.0E-324..1.7E308
  175.             double  D¼íslo1,D¼íslo2,D¼íslo3;
  176.   ;prom╪nná znak:   Znak;
  177.             char    Znak;
  178.   ;prom╪nná ²et╪zec:ⁿet╪zec;
  179.             string  ⁿet╪zec;
  180. e BegzObláƒku()
  181. h Gr¼tiU¼íslo("=",vysledek,4,0,0x0f);
  182. i {do{Gr¼tiU¼íslo("Zadávat ƒísla o velikosti do:",t,2,0,0x0f);}while(t==0);}
  183. n Neviditeln∞()
  184. a VyprázdniFrontuKláves();
  185. x GrSmaºOkno();
  186. z ;ƒelem vzad
  187. A GrPiτⁿet╪zec          /*      A:("text")!   "Ahoj, já jsem Baltazar" */
  188. B NastavBarvu¼arování   /*       B:(barva)!   0-15                    */
  189. D GrNastavBarvuPozadí   /*       D:(barva)!   0-15                    */
  190. E GrNastavBarvuPop²edí  /*       E:(barva)!   0-15                    */
  191. F GrNastavV∞stup        /*         F:(typ)!   0-6 0-standart          */
  192. G GrPiτU¼íslo           /*     G:(cislo,4)!   0-9999                  */
  193. R RychlostBaltazara     /*    R:(rychlost)!   0-9                     */
  194. W ¼ekej                 /*  W:(milisekund)!   0-32000                 */
  195. X ¼arujNaPozici         /* X:(p²edm╪t,x,y)!   1-150, 1-15, 1-10       */
  196. Z GrNastavPozici        /*         Z:(x,y)!                           */
  197. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  198. #N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  199.     Od0
  200. =SP---------------------------------------------------------------------------
  201.  
  202. ;-h---------------------------------------------------------------------------
  203. void D╪lení()
  204. -s--D╪lení                                                                      ■  12  -2   8   3
  205.               ___________________________________________________D╪lení___________________________________________
  206.            Zaƒátek    Obtíºnost     Text     Nastav    │       ¼ekej  Nastav Hodnocení                Piτ      Konec
  207.              0!      D:(7)!        v~okn╪ F:(1)!       │ W:(1000)! F:(0)!        #N:(d,10)       E:(15)! W:(3000)!
  208.                  xZ:(20,7)!     F:(0)!    D:(0)!       │           D:(7)!       ⁿada        Z:(200,130)!    F:(0)!
  209.                          i!     D:(7)!        x!       │          xF:(1)!        #N:(e,15) A:("Dob²e:")!    D:(7)!
  210.                                xE:(0)!    :x=20!       │           D:(7)!      ¼aruj        Z:(250,145)!       xa!
  211.                              Z:(20,1)!     :y=0!       │               x! :f=15*d!                E:(1)!      :logo()
  212.        A:("V~po²ádku~-~v∞sledek~je~")!   :x1=40!       │   X:(e+f+1+3000,e+1,d+1)!              G:(o,2)!
  213.                       A:("bez~chyby")!   :y1=15!       │                                         E:(15)!
  214.                             Z:(20,12)!     :p=0!       │                                    Z:(300,130)!
  215.         A:("Ch.~vy.:~-~v∞sledek~je~")!     :o=0!     Cyklus                               A:("Chybn╪:")!
  216.                 A:("τpatn╪~a~oprava")!     :h=0!       #N:(c,18)                            Z:(350,145)!
  217.                                                 ____zjiτt╪ní___                                   E:(4)!
  218.                                                 /:c<9         /:c>=9                            G:(h,2)!
  219.                                               pozice      __pozice_
  220.                                                 │         /:p<1   /:p=1
  221.                                                 │       nastav pokraƒuj
  222.                                                 │     :p=1!   'Poƒítání
  223.                                                 │ :poz=300!
  224.                                                 │    :x=20!
  225.                                                 │     :y=0!
  226.                                                 │   :x1=40!
  227.                                                 │   :y1=15!
  228.                                                 │     'Poƒítání
  229.                                           :poz=0!
  230.                       ______________________"Poƒítání______________________
  231.                    Prom╪nné  │                P²íklad               Zadej │
  232. :a=Náhodné¼íslo(t-1)+1!      │      Z:(x1+poz,y1)!                   h!   │
  233. :b=Náhodné¼íslo(t-1)+1!      │              E:(6)! Z:(x1+48+poz,y1-15)!   │
  234.                 :z=a*b!      │            G:(z,3)!             A:("=")!   │
  235.                :y=y+15!     Text Z:(x1+poz+24,y1)!              E:(15)!   │
  236.              :y1=y1+15! E:(2)!            A:(":")! Z:(x1+56+poz,y1-15)!   │
  237.                   Z:(x+poz,y)!   Z:(x1+poz+32,y1)!      G:(vysledek,4)!   │
  238.       A:("Napiτte~v∞sledek:")!            G:(a,2)!                        │
  239.                                           :y=y+15!                        │
  240.                                         :y1=y1+15!                        │
  241.                                                                           │
  242.                                        ___________________________________│
  243.                             ________Podmínka_______
  244.                             /:vysledek~Je~b       /:vysledek~Není~b
  245.                           Dalτí                 Oprava
  246.                        E:(9)!                E:(4)!
  247.         Z:(x1+100+poz,y1-15)! Z:(x1+100+poz,y1-15)!
  248.              A:("V~po²ádku")!       A:("Ch.~vy.:")!
  249.                       :o=o+1! Z:(x1+150+poz,y1-15)!
  250.                                         E:(14+128)!
  251.                                            G:(b,4)!
  252.                                             :h=h+1!
  253. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  254. 0 ;prom╪nné celoƒíselné: a,b,c,d,e,f,h,o,p,y,v,x,x1,y1,z,Klávesa,poz,vysledek;      -32768..32767
  255.                     int  a,b,c,d,e,f,h,o,p,y,v,x,x1,y1,z,Klávesa,poz;
  256.                unsigned  vysledek,t;
  257.  
  258.   ;prom╪nné reálné: D¼íslo1,D¼íslo2,D¼íslo3;           5.0E-324..1.7E308
  259.             double  D¼íslo1,D¼íslo2,D¼íslo3;
  260.   ;prom╪nná znak:   Znak;
  261.             char    Znak;
  262.   ;prom╪nná ²et╪zec:ⁿet╪zec;
  263.             string  ⁿet╪zec;
  264. e BezObláƒku()
  265. h Gr¼tiU¼íslo("=",vysledek,4,0,0x0f);
  266. i {do{Gr¼tiU¼íslo("Zadávat d╪litele o velikosti do:",t,2,0,0x0f);}while(t==0);}
  267. n Neviditeln∞()
  268. a VyprázdniFrontuKláves();
  269. x GrSmaºOkno();
  270. A GrPiτⁿet╪zec          /*      A:("text")!   "Ahoj, já jsem Baltazar" */
  271. B NastavBarvu¼arování   /*       B:(barva)!   0-15                    */
  272. D GrNastavBarvuPozadí   /*       D:(barva)!   0-15                    */
  273. E GrNastavBarvuPop²edí  /*       E:(barva)!   0-15                    */
  274. F GrNastavV∞stup        /*         F:(typ)!   0-6 0-standart          */
  275. G GrPiτU¼íslo           /*     G:(cislo,4)!   0-9999                  */
  276. R RychlostBaltazara     /*    R:(rychlost)!   0-9                     */
  277. W ¼ekej                 /*  W:(milisekund)!   0-32000                 */
  278. X ¼arujNaPozici         /* X:(p²edm╪t,x,y)!   1-150, 1-15, 1-10       */
  279. Z GrNastavPozici        /*         Z:(x,y)!                           */
  280. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  281. #N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  282.     Od0
  283. =SP---------------------------------------------------------------------------
  284.  
  285. ;-h---------------------------------------------------------------------------
  286. void Sƒítání()
  287. -s--Sƒítání                                                                     ■  12  -2   4   3
  288.      ________________________Sƒítání__________________________________________________________________
  289.   Zaƒátek   Obtíºnost     Text    Nastav  │     ¼ekej    Nastav Hodnocení                Piτ       Konec
  290.     0!     D:(7)!        v~okn╪  F:(1)!   │ W:(1000)! F:(0)!        #N:(d,10)       E:(15)!  W:(3000)!
  291.        xZ:(20,7)!        F:(0)!  D:(0)!   │           D:(7)!       ⁿada        Z:(200,130)!     F:(0)!
  292.                i!        D:(7)!      x!   │          xF:(1)!        #N:(e,15) A:("Dob²e:")!     D:(7)!
  293.                         xE:(0)!  :x=20!   │           D:(7)!      ¼aruj        Z:(250,145)!        xa!
  294.                       Z:(20,1)!   :y=0!   │               x!   :f=15*d!              E:(1)!    :logo()
  295. A:("V~po²ádku~-~v∞sledek~je~")! :x1=40!   │     X:(e+f+1+3000,e+1,d+1)!            G:(o,2)!
  296.                A:("bez~chyby")! :y1=15!   │                                         E:(15)!
  297.                      Z:(20,12)!   :p=0!   │                                    Z:(300,130)!
  298.  A:("Ch.~vy.:~-~v∞sledek~je~")!   :o=0! Cyklus                               A:("Chybn╪:")!
  299.          A:("τpatn╪~a~oprava")!   :h=0!   #N:(c,18)                            Z:(350,145)!
  300.                                        zjiτt╪ní_____________                         E:(4)!
  301.                                           /:c<9            /:c>=9                  G:(h,2)!
  302.                                         pozice           pozice_________
  303.                                           │                /:p<1       /:p=1
  304.                                           │              nastav       pokraƒuj
  305.                                           │            :p=1!         'Poƒítání
  306.                                           │        :poz=300!
  307.                                           │           :x=20!
  308.                                           │            :y=0!
  309.                                           │          :x1=40!
  310.                                           │          :y1=15!
  311.                                           │            'Poƒítání
  312.                                     :poz=0!
  313.                           ____________"Poƒítání__________________________________
  314.                        Prom╪nné    │              P²íklad                 Zadej │
  315.         :a=Náhodné¼íslo(t-1)+1!    │      Z:(x1+poz,y1)!                    h!  │
  316.         :b=Náhodné¼íslo(t-1)+1!    │              E:(6)!  Z:(x1+48+poz,y1-15)!  │
  317.                        :y=y+15!    │            G:(a,3)!              A:("=")!  │
  318.                      :y1=y1+15!   Text Z:(x1+poz+24,y1)!               E:(15)!  │
  319.                                 E:(2)!          A:("+")!  Z:(x1+56+poz,y1-15)!  │
  320.                           Z:(x+poz,y)! Z:(x1+poz+32,y1)!       G:(vysledek,4)!  │
  321.               A:("Napiτte~v∞sledek:")!          G:(b,2)!                        │
  322.                                                 :y=y+15!                        │
  323.                                               :y1=y1+15!                        │
  324.                                                                                 │
  325.                                                    _____________________________│
  326.                                        _________Podmínka______
  327.                                        /:vysledek~Je~a+b     /:vysledek~Není~a+b
  328.                                      Dalτí                   Oprava
  329.                                     E:(9)!                   E:(4)!
  330.                      Z:(x1+100+poz,y1-15)!    Z:(x1+100+poz,y1-15)!
  331.                           A:("V~po²ádku")!          A:("Ch.~vy.:")!
  332.                                    :o=o+1!    Z:(x1+150+poz,y1-15)!
  333.                                                         E:(14+128)!
  334.                                                          G:(a+b,4)!
  335.                                                             :h=h+1!
  336. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  337. 0 ;prom╪nné celoƒíselné: a,b,c,d,e,f,h,o,p,y,v,x,x1,y1,Klávesa,poz,vysledek;      -32768..32767
  338.                     int  a,b,c,d,e,f,h,o,p,y,v,x,x1,y1,Klávesa,poz;
  339.                unsigned  vysledek,t;
  340.  
  341.   ;prom╪nné reálné: D¼íslo1,D¼íslo2,D¼íslo3;           5.0E-324..1.7E308
  342.             double  D¼íslo1,D¼íslo2,D¼íslo3;
  343.   ;prom╪nná znak:   Znak;
  344.             char    Znak;
  345.   ;prom╪nná ²et╪zec:ⁿet╪zec;
  346.             string  ⁿet╪zec;
  347. e BezObláƒku()
  348. h Gr¼tiU¼íslo("=",vysledek,4,0,0x0f);
  349. i {do{Gr¼tiU¼íslo("Zadávat sƒítance o velikosti do:",t,2,0,0x0f);}while(t==0);}
  350. n Neviditeln∞()
  351. a VyprázdniFrontuKláves();
  352. x GrSmaºOkno();
  353. A GrPiτⁿet╪zec          /*      A:("text")!   "Ahoj, já jsem Baltazar" */
  354. B NastavBarvu¼arování   /*       B:(barva)!   0-15                    */
  355. D GrNastavBarvuPozadí   /*       D:(barva)!   0-15                    */
  356. E GrNastavBarvuPop²edí  /*       E:(barva)!   0-15                    */
  357. F GrNastavV∞stup        /*         F:(typ)!   0-6 0-standart          */
  358. G GrPiτU¼íslo           /*     G:(cislo,4)!   0-9999                  */
  359. R RychlostBaltazara     /*    R:(rychlost)!   0-9                     */
  360. W ¼ekej                 /*  W:(milisekund)!   0-32000                 */
  361. X ¼arujNaPozici         /* X:(p²edm╪t,x,y)!   1-150, 1-15, 1-10       */
  362. Z GrNastavPozici        /*         Z:(x,y)!                           */
  363. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  364. #N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  365.     Od0
  366. =SP---------------------------------------------------------------------------
  367.  
  368. ;-h---------------------------------------------------------------------------
  369. void Odƒítání()
  370. -s--Odƒítání                                                                    ■  12  -2  15   3
  371.      __________________________________Odƒítání_______________________________________________________
  372.   Zaƒátek   Obtíºnost     Text    Nastav  │     ¼ekej    Nastav Hodnocení                Piτ       Konec
  373.     0!     D:(7)!        v~okn╪  F:(1)!   │ W:(1000)! F:(0)!        #N:(d,10)       E:(15)!  W:(3000)!
  374.        xZ:(20,7)!        F:(0)!  D:(0)!   │           D:(7)!       ⁿada        Z:(200,130)!     F:(0)!
  375.                i!        D:(7)!      x!   │          xF:(1)!        #N:(e,15) A:("Dob²e:")!     D:(7)!
  376.                         xE:(0)!  :x=20!   │           D:(7)!      ¼aruj        Z:(250,145)!        xa!
  377.                       Z:(20,1)!   :y=0!   │               x!   :f=15*d!              E:(1)!    :logo()
  378. A:("V~po²ádku~-~v∞sledek~je~")! :x1=40!   │     X:(e+f+1+3000,e+1,d+1)!            G:(o,2)!
  379.                A:("bez~chyby")! :y1=15!   │                                         E:(15)!
  380.                      Z:(20,12)!   :p=0!   │                                    Z:(300,130)!
  381.  A:("Ch.~vy.:~-~v∞sledek~je~")!   :o=0! Cyklus                               A:("Chybn╪:")!
  382.          A:("τpatn╪~a~oprava")!   :h=0!   #N:(c,18)                            Z:(350,145)!
  383.                                        zjiτt╪ní_____________                         E:(4)!
  384.                                           /:c<9            /:c>=9                  G:(h,2)!
  385.                                         pozice           pozice_________
  386.                                           │                /:p<1       /:p=1
  387.                                           │              nastav       pokraƒuj
  388.                                           │            :p=1!         'Poƒítání
  389.                                           │        :poz=300!
  390.                                           │           :x=20!
  391.                                           │            :y=0!
  392.                                           │          :x1=40!
  393.                                           │          :y1=15!
  394.                                           │            'Poƒítání
  395.                                     :poz=0!
  396.                           ____________"Poƒítání__________________________________
  397.                        Prom╪nné    │              P²íklad                 Zadej │
  398.         :a=Náhodné¼íslo(t-1)+1!    │      Z:(x1+poz,y1)!                    h!  │
  399.         :b=Náhodné¼íslo(t-1)+1!    │              E:(6)!  Z:(x1+48+poz,y1-15)!  │
  400.                         :z=a+b!    │            G:(z,3)!              A:("=")!  │
  401.                        :y=y+15!   Text Z:(x1+poz+24,y1)!               E:(15)!  │
  402.                      :y1=y1+15! E:(2)!          A:("-")!  Z:(x1+56+poz,y1-15)!  │
  403.                           Z:(x+poz,y)! Z:(x1+poz+32,y1)!       G:(vysledek,4)!  │
  404.               A:("Napiτte~v∞sledek:")!          G:(a,2)!                        │
  405.                                                 :y=y+15!                        │
  406.                                               :y1=y1+15!                        │
  407.                                                                                 │
  408.                                                    _____________________________│
  409.                                        _________Podmínka______
  410.                                        /:vysledek~Je~z-a     /:vysledek~Není~z-a
  411.                                      Dalτí                   Oprava
  412.                                     E:(9)!                   E:(4)!
  413.                      Z:(x1+100+poz,y1-15)!    Z:(x1+100+poz,y1-15)!
  414.                           A:("V~po²ádku")!          A:("Ch.~vy.:")!
  415.                                    :o=o+1!    Z:(x1+150+poz,y1-15)!
  416.                                                         E:(14+128)!
  417.                                                          G:(z-a,4)!
  418.                                                             :h=h+1!
  419. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  420. 0 ;prom╪nné celoƒíselné: a,b,c,d,e,f,h,o,p,y,v,x,x1,y1,z,Klávesa,poz,vysledek;      -32768..32767
  421.                     int  a,b,c,d,e,f,h,o,p,y,v,x,x1,y1,z,Klávesa,poz;
  422.                unsigned  vysledek,t;
  423.  
  424.   ;prom╪nné reálné: D¼íslo1,D¼íslo2,D¼íslo3;           5.0E-324..1.7E308
  425.             double  D¼íslo1,D¼íslo2,D¼íslo3;
  426.   ;prom╪nná znak:   Znak;
  427.             char    Znak;
  428.   ;prom╪nná ²et╪zec:ⁿet╪zec;
  429.             string  ⁿet╪zec;
  430. e BezObláƒku()
  431. h Gr¼tiU¼íslo("=",vysledek,4,0,0x0f);
  432. i {do{Gr¼tiU¼íslo("Zadávat odƒítané ƒíslo o velikosti do:",t,2,0,0x0f);}while(t==0);}
  433. n Neviditeln∞()
  434. a VyprázdniFrontuKláves();
  435. x GrSmaºOkno();
  436. A GrPiτⁿet╪zec          /*      A:("text")!   "Ahoj, já jsem Baltazar" */
  437. B NastavBarvu¼arování   /*       B:(barva)!   0-15                    */
  438. D GrNastavBarvuPozadí   /*       D:(barva)!   0-15                    */
  439. E GrNastavBarvuPop²edí  /*       E:(barva)!   0-15                    */
  440. F GrNastavV∞stup        /*         F:(typ)!   0-6 0-standart          */
  441. G GrPiτU¼íslo           /*     G:(cislo,4)!   0-9999                  */
  442. R RychlostBaltazara     /*    R:(rychlost)!   0-9                     */
  443. W ¼ekej                 /*  W:(milisekund)!   0-32000                 */
  444. X ¼arujNaPozici         /* X:(p²edm╪t,x,y)!   1-150, 1-15, 1-10       */
  445. Z GrNastavPozici        /*         Z:(x,y)!                           */
  446. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  447. #N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  448.     Od0
  449. =SP---------------------------------------------------------------------------
  450.  
  451.  
  452.  
  453. ;-h---------------------------------------------------------------------------
  454. void Obvod()
  455. -s--Obvod                                                                       ■  12   1   7   3
  456.      _________________________Obvod___________________________________________________________________
  457.   Zaƒátek   Obtíºnost     Text    Nastav  │     ¼ekej    Nastav Hodnocení                Piτ       Konec
  458.     0!     D:(7)!        v~okn╪  F:(1)!   │ W:(1000)! F:(0)!        #N:(d,10)       E:(15)!  W:(3000)!
  459.        xZ:(20,7)!        F:(0)!  D:(0)!   │           D:(7)!       ⁿada        Z:(200,130)!     F:(0)!
  460.                i!        D:(7)!      x!   │          xF:(1)!        #N:(e,15) A:("Dob²e:")!     D:(7)!
  461.                         xE:(0)!  :x=20!   │           D:(7)!      ¼aruj        Z:(250,145)!        xa!
  462.                       Z:(20,1)!   :y=0!   │               x!   :f=15*d!              E:(1)!    :logo()
  463. A:("V~po²ádku~-~v∞sledek~je~")! :x1=40!   │     X:(e+f+1+3000,e+1,d+1)!            G:(o,2)!
  464.                A:("bez~chyby")! :y1=15!   │                                         E:(15)!
  465.                      Z:(20,12)!   :p=0!   │                                    Z:(300,130)!
  466.  A:("Ch.~vy.:~-~v∞sledek~je~")!   :o=0! Cyklus                               A:("Chybn╪:")!
  467.          A:("τpatn╪~a~oprava")!   :h=0!   #N:(c,18)                            Z:(350,145)!
  468.                                        zjiτt╪ní_____________                         E:(4)!
  469.                                           /:c<9            /:c>=9                  G:(h,2)!
  470.                                         pozice           pozice_________
  471.                                           │                /:p<1       /:p=1
  472.                                           │              nastav       pokraƒuj
  473.                                           │            :p=1!         'Poƒítání
  474.                                           │        :poz=280!
  475.                                           │           :x=20!
  476.                                           │            :y=0!
  477.                                           │          :x1=40!
  478.                                           │          :y1=15!
  479.                                           │            'Poƒítání
  480.                                     :poz=0!
  481.                             __________"Poƒítání__________________________________
  482.                          Prom╪nné  │              P²íklad                 Zadej │
  483.           :a=Náhodné¼íslo(t-1)+1!  │      Z:(x1+poz,y1)!                    h!  │
  484.           :b=Náhodné¼íslo(t-1)+1!  │              E:(6)!  Z:(x1+88+poz,y1-15)!  │
  485.                          :y=y+15!  │           A:("a=")!              A:("=")!  │
  486.                        :y1=y1+15! Text Z:(x1+poz+16,y1)!               E:(15)!  │
  487.                                 E:(2)!          G:(a,2)!  Z:(x1+96+poz,y1-15)!  │
  488.                           Z:(x+poz,y)! Z:(x1+poz+40,y1)!       G:(vysledek,4)!  │
  489.        A:("Napiτte~obvod~obdélníku:")!         A:("b=")!                        │
  490.                                        Z:(x1+poz+56,y1)!                        │
  491.                                                 G:(b,2)!                        │
  492.                                        Z:(x1+poz+80,y1)!                        │
  493.                                                 A:("O")!                        │
  494.                                                 :y=y+15!                        │
  495.                                               :y1=y1+15!                        │
  496.                                                                                 │
  497.                                                    _____________________________│
  498.                                        _________Podmínka______
  499.                                        /:vysledek~Je~2*(a+b) /:vysledek~Není~2*(a+b)
  500.                                      Dalτí                   Oprava
  501.                                     E:(9)!                   E:(4)!
  502.                      Z:(x1+160+poz,y1-15)!    Z:(x1+160+poz,y1-15)!
  503.                           A:("V~po²ádku")!          A:("Ch.~vy.:")!
  504.                                    :o=o+1!    Z:(x1+210+poz,y1-15)!
  505.                                                         E:(14+128)!
  506.                                                      G:(2*(a+b),4)!
  507.                                                             :h=h+1!
  508. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  509. 0 ;prom╪nné celoƒíselné: a,b,c,d,e,f,h,o,p,y,v,x,x1,y1,Klávesa,poz,vysledek;      -32768..32767
  510.                     int  a,b,c,d,e,f,h,o,p,y,v,x,x1,y1,Klávesa,poz;
  511.                unsigned  vysledek,t;
  512.  
  513.   ;prom╪nné reálné: D¼íslo1,D¼íslo2,D¼íslo3;           5.0E-324..1.7E308
  514.             double  D¼íslo1,D¼íslo2,D¼íslo3;
  515.   ;prom╪nná znak:   Znak;
  516.             char    Znak;
  517.   ;prom╪nná ²et╪zec:ⁿet╪zec;
  518.             string  ⁿet╪zec;
  519. e BezObláƒku()
  520. h Gr¼tiU¼íslo("=",vysledek,4,0,0x0f);
  521. i {do{Gr¼tiU¼íslo("Zadávat velikost stran o velikosti do:",t,2,0,0x0f);}while(t==0);}
  522. n Neviditeln∞()
  523. a VyprázdniFrontuKláves();
  524. x GrSmaºOkno();
  525. A GrPiτⁿet╪zec          /*      A:("text")!   "Ahoj, já jsem Baltazar" */
  526. B NastavBarvu¼arování   /*       B:(barva)!   0-15                    */
  527. D GrNastavBarvuPozadí   /*       D:(barva)!   0-15                    */
  528. E GrNastavBarvuPop²edí  /*       E:(barva)!   0-15                    */
  529. F GrNastavV∞stup        /*         F:(typ)!   0-6 0-standart          */
  530. G GrPiτU¼íslo           /*     G:(cislo,4)!   0-9999                  */
  531. R RychlostBaltazara     /*    R:(rychlost)!   0-9                     */
  532. W ¼ekej                 /*  W:(milisekund)!   0-32000                 */
  533. X ¼arujNaPozici         /* X:(p²edm╪t,x,y)!   1-150, 1-15, 1-10       */
  534. Z GrNastavPozici        /*         Z:(x,y)!                           */
  535. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  536. #N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  537.     Od0
  538. =SP---------------------------------------------------------------------------
  539.  
  540. ;-h---------------------------------------------------------------------------
  541. void Obsah()
  542. -s--Obsah                                                                       ■  12   0   0   3
  543.      _________________________Obsah___________________________________________________________________
  544.   Zaƒátek   Obtíºnost     Text    Nastav  │     ¼ekej    Nastav Hodnocení                Piτ       Konec
  545.     0!     D:(7)!        v~okn╪  F:(1)!   │ W:(1000)! F:(0)!        #N:(d,10)       E:(15)!  W:(3000)!
  546.        xZ:(20,7)!        F:(0)!  D:(0)!   │           D:(7)!       ⁿada        Z:(200,130)!     F:(0)!
  547.                i!        D:(7)!      x!   │          xF:(1)!        #N:(e,15) A:("Dob²e:")!     D:(7)!
  548.                         xE:(0)!  :x=20!   │           D:(7)!      ¼aruj        Z:(250,145)!        xa!
  549.                       Z:(20,1)!   :y=0!   │               x!   :f=15*d!              E:(1)!    :logo()
  550. A:("V~po²ádku~-~v∞sledek~je~")! :x1=40!   │     X:(e+f+1+3000,e+1,d+1)!            G:(o,2)!
  551.                A:("bez~chyby")! :y1=15!   │                                         E:(15)!
  552.                      Z:(20,12)!   :p=0!   │                                    Z:(300,130)!
  553.  A:("Ch.~vy.:~-~v∞sledek~je~")!   :o=0! Cyklus                               A:("Chybn╪:")!
  554.          A:("τpatn╪~a~oprava")!   :h=0!   #N:(c,18)                            Z:(350,145)!
  555.                                        zjiτt╪ní_____________                         E:(4)!
  556.                                           /:c<9            /:c>=9                  G:(h,2)!
  557.                                         pozice           pozice_________
  558.                                           │                /:p<1       /:p=1
  559.                                           │              nastav       pokraƒuj
  560.                                           │            :p=1!         'Poƒítání
  561.                                           │        :poz=280!
  562.                                           │           :x=20!
  563.                                           │            :y=0!
  564.                                           │          :x1=40!
  565.                                           │          :y1=15!
  566.                                           │            'Poƒítání
  567.                                     :poz=0!
  568.                           ____________"Poƒítání__________________________________
  569.                        Prom╪nné    │              P²íklad                 Zadej │
  570.         :a=Náhodné¼íslo(t-1)+1!    │      Z:(x1+poz,y1)!                    h!  │
  571.         :b=Náhodné¼íslo(t-1)+1!    │              E:(6)!  Z:(x1+88+poz,y1-15)!  │
  572.                        :y=y+15!    │           A:("a=")!              A:("=")!  │
  573.                      :y1=y1+15!   Text Z:(x1+poz+16,y1)!               E:(15)!  │
  574.                                 E:(2)!          G:(a,2)!  Z:(x1+96+poz,y1-15)!  │
  575.                           Z:(x+poz,y)! Z:(x1+poz+40,y1)!       G:(vysledek,4)!  │
  576.        A:("Napiτte~obsah~obdélníku:")!         A:("b=")!                        │
  577.                                        Z:(x1+poz+56,y1)!                        │
  578.                                                 G:(b,2)!                        │
  579.                                        Z:(x1+poz+80,y1)!                        │
  580.                                                 A:("S")!                        │
  581.                                                 :y=y+15!                        │
  582.                                               :y1=y1+15!                        │
  583.                                                                                 │
  584.                                                    _____________________________│
  585.                                        _________Podmínka______
  586.                                        /:vysledek~Je~a*b     /:vysledek~Není~a*b
  587.                                      Dalτí                   Oprava
  588.                                     E:(9)!                   E:(4)!
  589.                      Z:(x1+160+poz,y1-15)!    Z:(x1+160+poz,y1-15)!
  590.                           A:("V~po²ádku")!          A:("Ch.~vy.:")!
  591.                                    :o=o+1!    Z:(x1+210+poz,y1-15)!
  592.                                                         E:(14+128)!
  593.                                                          G:(a*b,4)!
  594.                                                             :h=h+1!
  595. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  596. 0 ;prom╪nné celoƒíselné: a,b,c,d,e,f,h,o,p,y,v,x,x1,y1,Klávesa,poz,vysledek;      -32768..32767
  597.                     int  a,b,c,d,e,f,h,o,p,y,v,x,x1,y1,Klávesa,poz;
  598.                unsigned  vysledek,t;
  599.  
  600.   ;prom╪nné reálné: D¼íslo1,D¼íslo2,D¼íslo3;           5.0E-324..1.7E308
  601.             double  D¼íslo1,D¼íslo2,D¼íslo3;
  602.   ;prom╪nná znak:   Znak;
  603.             char    Znak;
  604.   ;prom╪nná ²et╪zec:ⁿet╪zec;
  605.             string  ⁿet╪zec;
  606. e BezObláƒku()
  607. h Gr¼tiU¼íslo("=",vysledek,4,0,0x0f);
  608. i {do{Gr¼tiU¼íslo("Zadávat velikosti stran o velikosti do:",t,2,0,0x0f);}while(t==0);}
  609. n Neviditeln∞()
  610. a VyprázdniFrontuKláves();
  611. x GrSmaºOkno();
  612. A GrPiτⁿet╪zec          /*      A:("text")!   "Ahoj, já jsem Baltazar" */
  613. B NastavBarvu¼arování   /*       B:(barva)!   0-15                    */
  614. D GrNastavBarvuPozadí   /*       D:(barva)!   0-15                    */
  615. E GrNastavBarvuPop²edí  /*       E:(barva)!   0-15                    */
  616. F GrNastavV∞stup        /*         F:(typ)!   0-6 0-standart          */
  617. G GrPiτU¼íslo           /*     G:(cislo,4)!   0-9999                  */
  618. R RychlostBaltazara     /*    R:(rychlost)!   0-9                     */
  619. W ¼ekej                 /*  W:(milisekund)!   0-32000                 */
  620. X ¼arujNaPozici         /* X:(p²edm╪t,x,y)!   1-150, 1-15, 1-10       */
  621. Z GrNastavPozici        /*         Z:(x,y)!                           */
  622. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  623. #N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  624.     Od0
  625. =SP---------------------------------------------------------------------------
  626.  
  627. ;-h---------------------------------------------------------------------------
  628. /***** hlavní program *****/
  629. void main()
  630. -s--POCTY                                                                       ■   3  -2   4   3
  631.        ______________________________POCTY______________________________
  632.     Zaƒátek          Klávesy                   P²ed~koncem           Konec
  633. [0R:(5)!             ƒekání                     :Ukonƒit()             !]
  634.  :logo()             ak!
  635.                        *:Klávesa~Není~KlF10
  636.               _____Rozhodnutí_____________________________________________________________
  637.               /1            /2            /3           /4           /5            /6     /
  638.            Násobení       D╪lení        Sƒítání       Odƒítání      Obvod       Obsah    Nic
  639.       :Násobení()!k  :D╪lení()!k  :Sƒítání()!k   :Odƒítání()!k  :Obvod()!k  :Obsah()!k    !k
  640. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  641. 0 ;prom╪nné celoƒíselné: a,b,c,d,e,f,g,h,i,j,x,y,Klávesa,pop²edí;      -32768..32767
  642.                     int  a,b,c,d,e,f,g,h,i,j,x,y,Klávesa,pop²edí,
  643.                          I¼íslo1,I¼íslo2,I¼íslo3,PàvBarvy;
  644.  
  645.   ;prom╪nné reálné: D¼íslo1,D¼íslo2,D¼íslo3;           5.0E-324..1.7E308
  646.             double  D¼íslo1,D¼íslo2,D¼íslo3;
  647.   ;prom╪nná znak:   Znak;
  648.             char    Znak;
  649.   ;prom╪nná ²et╪zec:ⁿet╪zec,text;
  650.             string  ⁿet╪zec,text;
  651. [ Vytvo²Prostor()
  652. ] ZruτProstor()
  653. a VyprázdniFrontuKláves();
  654. k Klávesa= ¼tiKlávesuZFrontyS¼ekáním()
  655. n Neviditeln∞()
  656. R RychlostBaltazara     /*    R:(rychlost)!   0-9                     */
  657. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  658. /1 Klávesa Je 'N' Nebo Klávesa Je 'n'
  659. /2 Klávesa Je 'D' Nebo Klávesa Je 'd'
  660. /3 Klávesa Je 'S' Nebo Klávesa Je 's'
  661. /4 Klávesa Je 'O' Nebo Klávesa Je 'o'
  662. /5 Klávesa Je 'B' Nebo Klávesa Je 'b'
  663. /6 Klávesa Je 'A' Nebo Klávesa Je 'a'
  664. =SP---------------------------------------------------------------------------
  665. /***** konec programu *****/
  666.