home *** CD-ROM | disk | FTP | other *** search
- #ifndef cwsfunction
- #define cwsfunction
-
- {****fonction minimum}
- function min(a, b : integer): integer is
- if a<b then return a else return b;
-
- {****fonction maximum}
- function max(a, b : integer): integer is
- if a<b then return b else return a;
-
- //-------------------------------------------
-
- {****valeur a ajouter a une carte pour la tourner du cote as}
- function CSide(as : card):integer is
- return as * decksize;
-
- #endif
-