home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 March / Chip_1999-03_cd.bin / zkuste / SGP / Baltazar / KOSTKA.SGP < prev    next >
Text File  |  1999-01-12  |  3KB  |  98 lines
  1. SGPC   5.00 S#000000 10.09.1993 12:18:20                                        StructNo 1   1
  2.  
  3. # include <sgpbalt.h>
  4.  
  5. ;-h----------------------------------------------------
  6. /* globální prom╪nné **************************************************/
  7. /* prom╪nná která uchovává poƒet hodà jednotliv∞ch ƒísel              */
  8. int ¼íslo[6]; /* pozor ! v "C" jsou poloºky pole ¼íslo[0] az ¼íslo[5] */
  9.  
  10.  
  11. ;-h----------------------------------------------------
  12. void HodKostkou( void )
  13. -s--HodKostkou                                                                  ■   7  -2   0   3
  14.                         HodKostkou
  15.                           0h!p
  16.        ___________________¼íslo?_________________
  17.        /1       /2      /3       /4      /5     /6
  18.     Jedniƒka  Dvojka  Trojka   ¼ty²ka  P╪tka µestka
  19.       1!       2!      3!       4!      5!     6!
  20. -o1-HodKostkou
  21. 0 ;prom╪nné
  22.     int Hod;
  23. h ;hodíme kostkou - vytvo²íme náhodné ƒíslo od 1 do 6
  24.     Hod= Náhodné¼íslo(6) + 1
  25. 1 ;zv∞τíme ƒítaƒ jedniƒek
  26.     ++¼íslo[0]
  27. 2 ;zv∞τíme ƒítaƒ dvojek
  28.     ++¼íslo[1]
  29. 3 ;zv∞τíme ƒítaƒ trojek
  30.     ++¼íslo[2]
  31. 4 ;zv∞τíme ƒítaƒ ƒty²ek
  32.     ++¼íslo[3]
  33. 5 ;zv∞τíme ƒítaƒ p╪tek
  34.     ++¼íslo[4]
  35. 6 ;zv∞τíme ƒítaƒ τestek
  36.     ++¼íslo[5]
  37. p ;vypíτeme hod na obrazovku
  38.     TxtPiτL¼íslo(Hod,2)
  39. -c1-HodKostkou
  40. /1 Hod == 1
  41. /2 Hod == 2
  42. /3 Hod == 3
  43. /4 Hod == 4
  44. /5 Hod == 5
  45. /6 Hod == 6
  46. =SP-HodKostkou
  47.  
  48. ;-h---------------------------------------------------------------------------
  49. void main( void )
  50. -s--Házení~kostkou                                                              ■   2  -2 -13   3
  51.    _____________Házení~kostkou__________
  52. Zaƒátek       Házení       V∞pis     Konec
  53.   0!         kostkou         #c       c!
  54.  ¼ísla        kH!N         ¼íslo
  55.    #c           *h          Piτ
  56.  ¼íslo         Hod          p!
  57.  Nuluj       kostkou
  58.   n!           h!i
  59. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  60. 0 ;prom╪nné
  61.     int i;
  62. n ;nuluj ƒíslo s indexem i
  63.     ¼íslo[i]= 0
  64. k ;naƒti kolikrát máme házet do prom╪nné i
  65.     TxtPiτⁿet╪zec(" Házení kostkou\n"
  66.                   "----------------\n"
  67.                   "Zadejte kolikrát házet: "
  68.                  );
  69.     Txt¼tiI¼íslo(i);
  70.     TxtPiτNov∞ⁿádek();
  71. H ;napiτ, ºe házíme */
  72.     TxtPiτⁿet╪zec("Házíme ...\n")
  73. N ;ukonƒi v∞pis hodu
  74.     TxtPiτNov∞ⁿádek(); TxtPiτNov∞ⁿádek();
  75. h ;hodíme kostkou
  76.   ;toto je p²íklad volání funkce
  77.   ;funkci HodKostkou máme také zapsanou strukturogramem
  78.     HodKostkou()
  79. i ;odeƒti od poƒtu hodà v prom╪nné i jedniƒku
  80.     --i
  81. p ;napiτ kolikrát dané ƒíslo padlo
  82.     TxtPiτⁿet╪zec("¼íslo ");
  83.     TxtPiτL¼íslo(i+1,1);
  84.     TxtPiτⁿet╪zec(" padlo ");
  85.     TxtPiτL¼íslo(¼íslo[i],-1);
  86.     TxtPiτⁿet╪zec(" krát.\n");
  87. c ;ƒekej na klávesu
  88.     TxtPiτⁿet╪zec("\nZmáƒkn╪te klávesu ...");
  89.     ¼ekejNaKlávesu()
  90. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  91. #c ;6 krát; pro prom╪nnou i od 0 do 5
  92.    ;toto je vnit²ek cyklu for
  93.      i=0; i<6; ++i
  94. *h ;d╪lej kdyº poƒet hodà (i) je v╪tτí neº nula
  95.      i>0
  96. =SP---------------------------------------------------------------------------
  97. ;--------------------- Konec programu -------------------
  98.