Micro Systèmes n°31 mai 1983
Micro Systèmes n°31 mai 1983
  • Prix facial : 20 F

  • Parution : n°31 de mai 1983

  • Périodicité : mensuel

  • Editeur : Société Parisienne d'Edition

  • Format : (203 x 271) mm

  • Nombre de pages : 238

  • Taille du fichier PDF : 176 Mo

  • Dans ce numéro : un événement en micro-informatique... le disque numérique.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 150 - 151  |  Aller à la page   OK
Pages suivantes >
150 151
DEBUT 4 OUI Lancé des dés IRND de 1 à BI Tri per ordre décroissant et compte des pointe obtenus Dessin des dés sur l'afficheur. NONt. Quel score e atteint l'acNersaire OUI Tenter le 421 NON q N 4441> OUI Tracement de choc NON Traitement normal OUI NON Compte des jetons Commentaire mélodique NON OUI OUI NON (FIN) Fig. 2. — L'organigramme de traitement. N 8 Adresse + 1 du dernier octet du programme, sert de début de programme machine N 9 Adresse de sous-programme machine sur deux octets SI Poids fort de N9 S 2 Poids faible de N 9 1 T Pointeur pour savoir à qui est le tour (une machine - un joueur) P M Nombre de jetons détenus par la machine P J Nombre de jetons détenus par le joueur J J Nombre de points obtenus par le joueur J M Nombre de points obtenus par la machine P 2 Pointeur de lancers PO P 5 US Pointeurs de boucle Q Q Tableau des variables B 1 Nombre de dés à relancer Q W Association des dés pour compter les points obtenus R E Résultat des points obtenus C 4 C 0 $ }Accordent les mots au pluriel E I } Nombre de jetons donnés ou reçus Y I M 0 Pointeur désignant le nombre de dés lancés restant à jouer DI } Dés à garder par le joueur D2 D3 D4 } Dés à garder par la machine NI Pointeur logique I Valeur du dé à dessiner Q Q $ (« 0 N ») rejouer ? porte pas grand-chose, mais qui s'obtient souvent ? Les mathématiciens, pour résoudre ce « casse-tête », ont développé une notion qui s'intitule espérance mathématique. Cette valeur est décrite comme le produit du gain par la probabilité d'obtenir une configuration. Si la probabilité est de 0,5 (comme pour un jeu à pile ou face) et le gain de 3, l'espérance est alors de 1,5. A partir des calculs des espérances de toutes les configurations possibles, le programme détermine sa tactique et choisit de conserver ou de relancer les dés. Le tableau de la figure 1 présente cet ensemble de valeurs définies pour toutes les configurations gagnantes. Par exemple, si vous avez déjà deux « 5 » et que vous décidez de tenter le troisième, vous avez une chance sur six de gagner trois points (555), ce qui donne une espérance de 0,5. Celle-ci est inférieure à l'espérance mathématique du lancé simultané de trois dés (0,88). Dans ce cas, le programme rejoue les trois dés. La stratégie employée se résume ainsi  : D'après le tableau de la figure 1, vous remarquerez qu'il est intéressant de ne garder que les as, le « 2 » ou le « 4 », ou les paires d'as, les doublets « 12 », « 24 » et « 14 », et seulement ceux-ci. En dehors de la paire d'as, il est toujours rentable de tenter le 421. L'organigramme (fig. 2) montre le cheminement du déroulement du programme. Le cas « traitement de choc » est utilisé lorsque le programme est dépassé par son adversaire d'une valeur de deux à huit points. Dans ce cas, il cherche à gagner à tout prix, même en prenant des risques... Le listing du programme est présenté figure 3. Cette méthode peut s'appliquer dans bien des jeux où le hasard joue un rôle  : les jeux de cartes, de dés, les'wargames et même, à la limite, le scrabble. L'espérance mathématique est donc un outil de tous les jours, pour aider aux décisions. Bien que souvent l'intuition ou l'expérience aille dans le sens de la plus grande espérance de gain, il arrive que sa « logique » échappe à l'utilisateur. al E. BERNARD 150 — MICRO-SYSTEMES Mai 1983
10 REM *************************************************************** 12 REM * 14 REM * 16 REM * J E U DE 4 2 1 18 REM * 20 REM * 22 REM * Auteur  : BERNARD Edouard Pour PC 1500 24 REM * 1982/Fontainebleau 26 REM * 27 REM *************************************************************** 28 REM 30 "421" 32 REM * Presntation du jeu, intermede musical * 34 REM * creation de la matrice des des, RANDOM * 36 REM * du sous programme en language machine * 38 WAIT 60:CURSOR SPRINT "* * * 421 * * *" 40 GOSUB "MUSIQUE 1":DIM A(3):RANDOM 42 GOSUB "INVERSION" 44 REM 45 REM 46 REM ************************************************************** 48 "INITIALISATION":REM " des variables du Programme " *** 50 REM **************************************************************u. IT=RND 2:PM=9:PJ=9 54 55 56 58 59 60 62 64 66 67 68 70 72 74 76 78 90 82 83 84 86 88 90 91 92 94 96 REM REM "A QUI LE TOUR ? ":REM ****************************************** REM * Determine a qui est le tour de jouer * REM ****************************************** JJ=0:JM=0:P2=3 IF IT=iGOSUB "MACHINE JOUE":GOSUB "JOUEUR HUMAl':GOTO "COMPTE DES JETONS" GOSUB "JOUEUR HUMAIN":GOSUB "MACHINE JOUE":GOTO "COMPTE DES JETONS" REM REM "REMISE EN ORDRE":REM ****************************************** REM * Arrangemnent du tableau A(indice) I0=0:REM ****************************************** "LABEL MO 1":FOR 15=1TO 2 IF A(I5) =A(I5+1)GOTO "LABEL MO 2" U5=A(15):A(I5)=A(I5+1):A(I5+1)=U5 "LABEL MO 2":NEXT I5:I0=10+1:1F I0',=2GOTO "LABEL MD 1" RETURN REM "LANCER DES DES":REM ****************************************** REM * Creation du lancer et remplissage de A * REM ****************************************** FOR 00=1TO 81 A(QQ)=RND 6:NEXT 00 RETURN "INVERSION":REM ****************************************** REM * Programe en langage machine place a la * 9B REM * fin du programme basic dans 1 espace 100 REM * memoire et dont les adressages sont 102 REM * relatif (inversion instannee) 104 N8=STATUS 2:REM ****************************************** 106 N9=STATUS 2+17 108 S1=INT (N9/256):S2=256*(N9/256-S1) 110 POKE N8,&48,&FF,&68,&70,&6A,0,&BE'SleS2,&68,&71,&6A,0,&BE,S1,S2,&9A 112 POKE N9,&4A.&4E,&84.5k2D,&2E,&64,&42,&99,7,&9A 114 RETURN 115 REM 116 "COMPTES":REM ****************************************** 118 REM *Attribue des points a chaque combinaison* 120 REM ****************************************** Fig. 3. - Le listing du programme. Mai 1983 MICRO-SYSTEMES - 151



Autres parutions de ce magazine  voir tous les numéros


Liens vers cette page
Couverture seule :


Couverture avec texte parution au-dessus :


Couverture avec texte parution en dessous :


Micro Systèmes numéro 31 mai 1983 Page 1Micro Systèmes numéro 31 mai 1983 Page 2-3Micro Systèmes numéro 31 mai 1983 Page 4-5Micro Systèmes numéro 31 mai 1983 Page 6-7Micro Systèmes numéro 31 mai 1983 Page 8-9Micro Systèmes numéro 31 mai 1983 Page 10-11Micro Systèmes numéro 31 mai 1983 Page 12-13Micro Systèmes numéro 31 mai 1983 Page 14-15Micro Systèmes numéro 31 mai 1983 Page 16-17Micro Systèmes numéro 31 mai 1983 Page 18-19Micro Systèmes numéro 31 mai 1983 Page 20-21Micro Systèmes numéro 31 mai 1983 Page 22-23Micro Systèmes numéro 31 mai 1983 Page 24-25Micro Systèmes numéro 31 mai 1983 Page 26-27Micro Systèmes numéro 31 mai 1983 Page 28-29Micro Systèmes numéro 31 mai 1983 Page 30-31Micro Systèmes numéro 31 mai 1983 Page 32-33Micro Systèmes numéro 31 mai 1983 Page 34-35Micro Systèmes numéro 31 mai 1983 Page 36-37Micro Systèmes numéro 31 mai 1983 Page 38-39Micro Systèmes numéro 31 mai 1983 Page 40-41Micro Systèmes numéro 31 mai 1983 Page 42-43Micro Systèmes numéro 31 mai 1983 Page 44-45Micro Systèmes numéro 31 mai 1983 Page 46-47Micro Systèmes numéro 31 mai 1983 Page 48-49Micro Systèmes numéro 31 mai 1983 Page 50-51Micro Systèmes numéro 31 mai 1983 Page 52-53Micro Systèmes numéro 31 mai 1983 Page 54-55Micro Systèmes numéro 31 mai 1983 Page 56-57Micro Systèmes numéro 31 mai 1983 Page 58-59Micro Systèmes numéro 31 mai 1983 Page 60-61Micro Systèmes numéro 31 mai 1983 Page 62-63Micro Systèmes numéro 31 mai 1983 Page 64-65Micro Systèmes numéro 31 mai 1983 Page 66-67Micro Systèmes numéro 31 mai 1983 Page 68-69Micro Systèmes numéro 31 mai 1983 Page 70-71Micro Systèmes numéro 31 mai 1983 Page 72-73Micro Systèmes numéro 31 mai 1983 Page 74-75Micro Systèmes numéro 31 mai 1983 Page 76-77Micro Systèmes numéro 31 mai 1983 Page 78-79Micro Systèmes numéro 31 mai 1983 Page 80-81Micro Systèmes numéro 31 mai 1983 Page 82-83Micro Systèmes numéro 31 mai 1983 Page 84-85Micro Systèmes numéro 31 mai 1983 Page 86-87Micro Systèmes numéro 31 mai 1983 Page 88-89Micro Systèmes numéro 31 mai 1983 Page 90-91Micro Systèmes numéro 31 mai 1983 Page 92-93Micro Systèmes numéro 31 mai 1983 Page 94-95Micro Systèmes numéro 31 mai 1983 Page 96-97Micro Systèmes numéro 31 mai 1983 Page 98-99Micro Systèmes numéro 31 mai 1983 Page 100-101Micro Systèmes numéro 31 mai 1983 Page 102-103Micro Systèmes numéro 31 mai 1983 Page 104-105Micro Systèmes numéro 31 mai 1983 Page 106-107Micro Systèmes numéro 31 mai 1983 Page 108-109Micro Systèmes numéro 31 mai 1983 Page 110-111Micro Systèmes numéro 31 mai 1983 Page 112-113Micro Systèmes numéro 31 mai 1983 Page 114-115Micro Systèmes numéro 31 mai 1983 Page 116-117Micro Systèmes numéro 31 mai 1983 Page 118-119Micro Systèmes numéro 31 mai 1983 Page 120-121Micro Systèmes numéro 31 mai 1983 Page 122-123Micro Systèmes numéro 31 mai 1983 Page 124-125Micro Systèmes numéro 31 mai 1983 Page 126-127Micro Systèmes numéro 31 mai 1983 Page 128-129Micro Systèmes numéro 31 mai 1983 Page 130-131Micro Systèmes numéro 31 mai 1983 Page 132-133Micro Systèmes numéro 31 mai 1983 Page 134-135Micro Systèmes numéro 31 mai 1983 Page 136-137Micro Systèmes numéro 31 mai 1983 Page 138-139Micro Systèmes numéro 31 mai 1983 Page 140-141Micro Systèmes numéro 31 mai 1983 Page 142-143Micro Systèmes numéro 31 mai 1983 Page 144-145Micro Systèmes numéro 31 mai 1983 Page 146-147Micro Systèmes numéro 31 mai 1983 Page 148-149Micro Systèmes numéro 31 mai 1983 Page 150-151Micro Systèmes numéro 31 mai 1983 Page 152-153Micro Systèmes numéro 31 mai 1983 Page 154-155Micro Systèmes numéro 31 mai 1983 Page 156-157Micro Systèmes numéro 31 mai 1983 Page 158-159Micro Systèmes numéro 31 mai 1983 Page 160-161Micro Systèmes numéro 31 mai 1983 Page 162-163Micro Systèmes numéro 31 mai 1983 Page 164-165Micro Systèmes numéro 31 mai 1983 Page 166-167Micro Systèmes numéro 31 mai 1983 Page 168-169Micro Systèmes numéro 31 mai 1983 Page 170-171Micro Systèmes numéro 31 mai 1983 Page 172-173Micro Systèmes numéro 31 mai 1983 Page 174-175Micro Systèmes numéro 31 mai 1983 Page 176-177Micro Systèmes numéro 31 mai 1983 Page 178-179Micro Systèmes numéro 31 mai 1983 Page 180-181Micro Systèmes numéro 31 mai 1983 Page 182-183Micro Systèmes numéro 31 mai 1983 Page 184-185Micro Systèmes numéro 31 mai 1983 Page 186-187Micro Systèmes numéro 31 mai 1983 Page 188-189Micro Systèmes numéro 31 mai 1983 Page 190-191Micro Systèmes numéro 31 mai 1983 Page 192-193Micro Systèmes numéro 31 mai 1983 Page 194-195Micro Systèmes numéro 31 mai 1983 Page 196-197Micro Systèmes numéro 31 mai 1983 Page 198-199Micro Systèmes numéro 31 mai 1983 Page 200-201Micro Systèmes numéro 31 mai 1983 Page 202-203Micro Systèmes numéro 31 mai 1983 Page 204-205Micro Systèmes numéro 31 mai 1983 Page 206-207Micro Systèmes numéro 31 mai 1983 Page 208-209Micro Systèmes numéro 31 mai 1983 Page 210-211Micro Systèmes numéro 31 mai 1983 Page 212-213Micro Systèmes numéro 31 mai 1983 Page 214-215Micro Systèmes numéro 31 mai 1983 Page 216-217Micro Systèmes numéro 31 mai 1983 Page 218-219Micro Systèmes numéro 31 mai 1983 Page 220-221Micro Systèmes numéro 31 mai 1983 Page 222-223Micro Systèmes numéro 31 mai 1983 Page 224-225Micro Systèmes numéro 31 mai 1983 Page 226-227Micro Systèmes numéro 31 mai 1983 Page 228-229Micro Systèmes numéro 31 mai 1983 Page 230-231Micro Systèmes numéro 31 mai 1983 Page 232-233Micro Systèmes numéro 31 mai 1983 Page 234-235Micro Systèmes numéro 31 mai 1983 Page 236-237Micro Systèmes numéro 31 mai 1983 Page 238