home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1997 July
/
Chip_1997-07_cd.bin
/
tema
/
baltazar
/
sgpbc
/
kostka.sgp
< prev
next >
Wrap
Text File
|
1997-05-19
|
3KB
|
98 lines
SGPC 3.3+ S#000000 10.09.1993 12:18:20 StructNo 1 1
# include <baltazar.h>
;-h----------------------------------------------------
/* globální prom╪nné **************************************************/
/* prom╪nná která uchovává poƒet hodà jednotliv∞ch ƒísel */
int ¼íslo[6]; /* pozor ! v "C" jsou poloºky pole ¼íslo[0] az ¼íslo[5] */
;-h----------------------------------------------------
void HodKostkou( void )
-s--HodKostkou ■ 7 -2 0 3
HodKostkou
0h!p
___________________¼íslo?_________________
/1 /2 /3 /4 /5 /6
Jedniƒka Dvojka Trojka ¼ty²ka P╪tka µestka
1! 2! 3! 4! 5! 6!
-o1-HodKostkou
0 ;prom╪nné
int Hod;
h ;hodíme kostkou - vytvo²íme náhodné ƒíslo od 1 do 6
Hod= Náhodné¼íslo(6) + 1
1 ;zv∞τíme ƒítaƒ jedniƒek
++¼íslo[0]
2 ;zv∞τíme ƒítaƒ dvojek
++¼íslo[1]
3 ;zv∞τíme ƒítaƒ trojek
++¼íslo[2]
4 ;zv∞τíme ƒítaƒ ƒty²ek
++¼íslo[3]
5 ;zv∞τíme ƒítaƒ p╪tek
++¼íslo[4]
6 ;zv∞τíme ƒítaƒ τestek
++¼íslo[5]
p ;vypíτeme hod na obrazovku
TxtPiτL¼íslo(Hod,2)
-c1-HodKostkou
/1 Hod == 1
/2 Hod == 2
/3 Hod == 3
/4 Hod == 4
/5 Hod == 5
/6 Hod == 6
=SP-HodKostkou
;-h---------------------------------------------------------------------------
void main( void )
-s--Házení~kostkou ■ 3 -2 -13 259
_____________Házení~kostkou__________
Zaƒátek Házení V∞pis Konec
0! kostkou #c c!
¼ísla kH!N ¼íslo
#c *h Piτ
¼íslo Hod p!
Nuluj kostkou
n! h!i
-o1- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
0 ;prom╪nné
int i;
n ;nuluj Ēslo s indexem i
¼íslo[i]= 0
k ;naƒti kolikrát máme házet do prom╪nné i
TxtPiτⁿet╪zec(" Házení kostkou\n"
"----------------\n"
"Zadejte kolikrát házet: "
);
Txt¼tiI¼íslo(i);
TxtPiτNov∞ⁿádek();
H ;napiτ, ºe házíme */
TxtPiτⁿet╪zec("Házíme ...\n")
N ;ukonƒi v∞pis hodu
TxtPiτNov∞ⁿádek(); TxtPiτNov∞ⁿádek();
h ;hodíme kostkou
;toto je p²íklad volání funkce
;funkci HodKostkou máme také zapsanou strukturogramem
HodKostkou()
i ;odeƒti od poƒtu hodà v prom╪nné i jedniƒku
--i
p ;napiτ kolikrát dané ƒíslo padlo
TxtPiτⁿet╪zec("¼íslo ");
TxtPiτL¼íslo(i+1,1);
TxtPiτⁿet╪zec(" padlo ");
TxtPiτL¼íslo(¼íslo[i],-1);
TxtPiτⁿet╪zec(" krát.\n");
c ;ƒekej na klávesu
TxtPiτⁿet╪zec("\nZmáƒkn╪te klávesu ...");
¼ekejNaKlávesu()
-c1- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
#c ;6 krát; pro prom╪nnou i od 0 do 5
;toto je vnit²ek cyklu for
i=0; i<6; ++i
*h ;d╪lej kdyº poƒet hodà (i) je v╪tτí neº nula
i>0
=SP---------------------------------------------------------------------------
;--------------------- Konec programu -------------------