L'Ordinateur Individuel n°55 janvier 1984
L'Ordinateur Individuel n°55 janvier 1984
  • Prix facial : 22 F

  • Parution : n°55 de janvier 1984

  • Périodicité : mensuel

  • Editeur : Groupe Tests

  • Format : (202 x 281) mm

  • Nombre de pages : 262

  • Taille du fichier PDF : 220 Mo

  • Dans ce numéro : le guide des portables... essais de 85 ordinateurs.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 150 - 151  |  Aller à la page   OK
Pages suivantes >
150 151
eo e Quand le Roi des jeux d'argent fait son entrée à l'intérieur même des délicats circuits du Casio 702 P, l'intérêt s'en trouve, de frissons, décuplé : jouer et gagner, hélas, n'est plus gratuit ! Sortez, désormais, vo porte-monnaie. L'Ordinateur Individuel 150 n°55 janvier 1984 Quintes flush et frissons assurés Le programme que nous vous proposons reproduit exactement le comportement des machines à poker que l'on trouvait il n'y a pas si longtemps dans certains cafés. Plus pratiquement, ce programme vous initiera à l'art difficile de la reconnaissance des formes, ici les figures au poker. Concrètement, voici les règles du jeu. On mise une certaine somme (pas plus que ce que l'on possède !) ; on peut augmenter ou diminuer la mise à l'aide des touches parenthèse (), ou bien taperM, puis répondre à la question posée. On jette les cartes en appuyant surt. Plusieurs options se présentent alors : si vous êtes servi (vous avez une quinte flush à l'as !), appuyez sur S. Si, au contraire, aucune carte ne vous convient ; nouvel appui surt. Serge Boisse Enfin, cas le plus fréquent, vous souhaitez garder certaines cartes. Très simple, pour remettre une carte au talon, il suffit d'appuyer sur la touche qui se trouve juste en-dessous, soit, pour chacune des cinq cartes, les touches ", #, $, En cas d'erreur, brisez la glace (!) avec la touche E, les cartes reviendront. Distribuez à nouveau pour remplacer les cartes mises au panier (touche t). La machine vous dit ce que vous gagnez, soit, en nombre de fois la mise : Rien... 0 Paire... 1, double paire... 2 Brelan... 3 Quinte (suite)... 5 Couleur... 7 Full (brelan + paire)... 10 Carré... 40 Quinte flush (quinte + couleur)... 100 Quinte flush à l'as... 500.
Et on recommence jusqu'à avoir tout perdu (!). Quoi encore ? ah ! oui : comme le 702 P ne dispose pas des symboles des cartes à jouer au clavier, j'ai dû les simuler : coeur =C, pique = P, trèfle = T, carreau = #. Un mot sur le programme : il tourne en DEFM 1, les variables AO à A4 contiennent dans leur partie entière la couleur, de 1 à 4, de chaque carte, et dans leur partie fractionnaire la valeur de la carte, de 0 à 12 (As à Roi). Les variables de A5 à A9 contiennent un drapeau qui, levé (à 1), signifie que l'on ne doit pas toucher à cette carte lors de la prochaine génération (lignes 70 à 120). La partie intéressante du programme se situe dans l'analyse des cartes pour déterminer les gains. Pour ce faire, le programme analyse les cartes dans les lignes 170 et suivantes. La première phase consiste à compter le nombre de paires présentes (variable P, lignes 190 à 210) ; s'il y en a une, on a une paire... trois, un brelan, quatre, un full, et six, un carré (oui oui, il y a six paires dans un carré si on prend les cartes deux à deux). Pour identifier les suites, suprême astuce, on utilise les fonctions statistiques du Casio : en effet, l'écart type d'une suite arithmétique de raison 1 est 2, ce qui permet d'identifier sans erreur les quintes. Même astuce pour les couleurs, l'écart type des couleurs étant ici zéro. Enfin le lecteur vérifiera que la somme des carrés des nombres de 19 à 12 est bien 446 (ligne 230), ce qui permet d'identifier les quintes à l'As (l'as étant.codé zéro). Grâce à quoi le programme vous dit ce que vous avez gagné ou perdu en moins de deux secondes. Qui dit mieux ? f. LIST #0"POKER" 10 $="P#CTA2345678 9XVOR":F=18:M.1 : WAIT 0 Lij FOR 1.5 TO 9:8 (I).0:NEXT I:S.0 : K=1 30 PRT "SCORE" ; F:" : MS":M:":()tM" 35 IF FA:PRT "GAN ME AU VERT":END 40 SSS #1:IF AS=" (50 IF AS=")":IF l (F:1=M+1 55 IF AS:ln:INF " MISE",M 60 IF PSet" THEN, 1 d 65 IF A, M)F THEN 20 70 FOR 1.0 TO 4:IF R(I+5)=K ; X=A(I) : SOTO S7 Se X=INT (RAN#*4)-i- INT (RAN#*13)/1 00+1:FOR J=0 TO 4:IF 8(J)=X TA EN 80 65 NEXT J:fi(I)=X E7 AS=M1D(X,1):X=1 00 FRAC X 90 IFX.9:AS=ID(X +5,1)+AS:SOTO 180 AS="10"+AS 110 PRI CSR 4*1:AS : ! I 120 NEXT 1:H.N+1:1F N:12 THES 170 Programme poker : 30 Gè5 #1:IF F.0 T HEH 150 : 40 K.e:PRT CSR 4*P -2e:" "fi(P) =1:GOTO 130 150 IF P$=" t" THEN 70 160 IF AS="S" INEN 162 IF Re"E":FOR I =5 TO 9:A(1)=8 : NEXT I:N=0:K=e : GOTO 70. 165 K=1:8070 130 : 7e C=0:P=0:0=8:SAC : FOR 1=0 TO 4 : ETAT INT A(I),1 00*FRRC A(I):HE XT 1 180 iF SDX=0:C=1:60 TO 228 190 FOR I=e 70 3:F0 R j=I+1 TO 4 200 IF FRAC R(1)=FR AC R(J):P=P+1 210 NEXT J:SEXT 1:1 THEN 240 220 IF ABS (SDYN-80 R 2)(1E-8:3=1:G OTO 240 23G IF SY2=446:0=1 240 PRT : IF P=O ; IF 0.0:1F C=0:PRT "RIES"6=8:607 0 320 245 IF P=1:PRT "1 P AIRE"E=1:GOTO 320 250 IF P=2 ; PRT "2 P PIREE"6.2:607 0 320 260 IF P=3:PRT "BRE LA4"G=3:60T0 328 270 iF P=4:PRT "FUL L"G=le:GOTO 3 20 280 IF F.5 ; FRT "CAR RE"6=4e:GOTE 320 290 IF X:PRT "COU LEUR"G=7:6070 320 330 IF C=8 ; PR7 "GUI NTE": ; S=5:GOTO 328 310 5=10e:PRT "O FL USH"IF SY2=44 E:PRT "+AS"6= 500 320 N.:fie:HAIT 10:F RI ":":X:WRIT : F=FTX-M:GOTO 2 0 LIST #1 "PUER" 10 AS=KEY:IF e="" THENie 20 P=S:IF AS ?, ":R ET 30 IF fiS=1":P=6:R ET 40 IF AS="S":P=7:R ET 50 IF Pe":"IP=S:R ET 60. IF AS=":":P=9:R ET 70 P=5:fiET L'Ordinateur Individuel -1 51 no 55 janvier 1984 I



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 :


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