Micros ID n°1 décembre 1986
Micros ID n°1 décembre 1986
  • Prix facial : 22 F

  • Parution : n°1 de décembre 1986

  • Périodicité : trimestriel

  • Editeur : Mieva Presse

  • Format : (201 x 296) mm

  • Nombre de pages : 84

  • Taille du fichier PDF : 72,6 Mo

  • Dans ce numéro : Sony contre Amstrad : le combat

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 48 - 49  |  Aller à la page   OK
Pages suivantes >
48 49
90 PRINT"M ULT 1 LOGI C" LOCATE 2,30 PRINT" REM CHOIX DU PROBLEME RANDOMI/E TIMER REM PREMIER NOMBRE FOR I=0 TO 9 C(I)=0:T(I)=0 NEXT I FOR 1=0 TO 4 R=INT(RND(1)*10) 100 110 120 130 140 150 160 170 180 190 200 210 220 230 240 250 260 270 280 290 300 310 320 330 340 350 360 370 380 390 400 410 420 430 MULTILOGIC LANGAGE : BASIC PC L'ordinateur vous propose un casse-tête mathématique sous la forme d'une multiplication d'un nombre de cinq chiffres par un nombre de quatre chiffres. Le résultat est unique et peut se déduire de façon logique (sans faire appel au hasard). Chaque lettre remplace un chiffre de 0 à 9. Pour gagner vous devez rendre sa valeur à chaque lettre. Il suffit pour cela de déplacer le curseur dans le cadre choisi et d'enfoncer la touche O (comme OUI) pour valider un choix ou d'enfoncer la touche N (comme NON) pour éli- 10 REM MULTILOGIC 20 REM G. BALTEAU & D. MARTIN" 30 KEY OFF 40 SCREEN 2 50 DEFDBL T 60 DIM CH(25) 70 CLS 80 LOCATE 1,30 IF I=0 AND R=0 THEN GOTO 190 IF 1=4 AND (R=0 OR R=1 OR R=5) THEN A(I)=R T(0)=T(0)*10+R NEXT I REM DEUXIEME NOMBRE FOR 1=0 TO 3 R=INT(RND(1)*10) IF R=0 OR R=1 OR R=5 THEN GOTO 270 IF C(R)=1 THEN GOTO 270 B(I)=R C(R)=1 T(1)=T(1)*10+R NEXT 1 REM CALCUL DES SOUS TOTAUX FOR 1=0 TO 3 T(I+2)=T(0)*B(3-I) NEXT I REM TOTAL GENERAL T(6)=T(0)*T(1) REM REMPLACEMENT PAR DES LETTRES REM CHOIX DES LETTRES FOR 1=0 TO 25 CH(I)=0 II GOTO 190 Liktin de Daniel MARTIN et Guy BALTEAU miner une possibilité. N'oubliez pas d'enfoncer la touche CAPS LOCK. Lorsqu'une possibilité est validée, le système met automatiquement le tableau à jour. Un bon choix vous rapporte 100 points, un mauvais vous coûte 500 points. Chaque seconde de perdue vous coûte un point. Le meilleur score obtenu est de 2964 points. Quelques suggestions pour mieux jouer : — Un nombre ne commence jamais par O. — La multiplication par 1 laisse le nombre inchangé. — S'il existe une combinaison du type X fois X donne X alors X vaut 0, 1,5 ou 6. — S'il existe une combinaison du type X fois Y donne Z et X fois Z donne Y alors X vaut 9. — Regardez la deuxième addition en partant de la droite, vous pouvez déterminer tout de suite si un des deux nombres vaut 0. — Si un des multiplicateurs est 9, alors la somme de l'autre chiffre et du chiffre du résultat vaut 10. Il existe bien d'autres déductions logiques. Lorsque vous aurez établi vos règles, vous pourrez résoudre n'importe quel problème en moins d'une minute.
MULTILOGIC LANGAGE : BASIC PC 440 NEXT I 450 FOR I=0 TO 9 460 R=INT(RND(1)*26) 470 IF R=8 OR R=14 OR R=16 THEN GOTO 460 480 IF CH(R)< ; 0 THEN GOTO 460 490 L(I)=R 500 CH(R)=1 510 NEXT I 520 K=0 530 FOR I=0 TO 25 540 IF CH(I)=0 THEN GOTO 610 560 IF L(J)=I THEN GOTO 580 570 NEXT J b80 LT(K)=I 590 K=K+1 600 IF K>9 THEN GOTO 620 610 NEXT I 620 GOSUB 1520 630 REM AFFICHAGE DU TABLEAU DE CHOIX 640 FOR I=0 TO 9 650 LOCATE 7,40+I*2 660 PRINT I 670 NEXT I 680 FOR 1=0 TO 9 690 LOCATE 8+1,39 700 PRINT CHR$(65+LT(I)) 710 NEXT I 720 FOR I=0 TO 11 730 LINE (300,47+1*8)-(476,47+1*8) 740 LINE (300+1*16,47)-(300+1*16,135) 750 NEXT I 760 REM GESTION DU CURSEUR 770 X=316 : Y=55 780 GOSUB 940 790 PT=2000 800 LOCATE 20,38 810 PRINT "IL VOUS RESTE 2000 SECONDES" 820 ON TIMER(1) GOSUB 1990 830 TIMER ON 840 Z$=1NKEY$ 850 IF Z$="" THEN 840 860 IF Z$="2" AND Y<127 THEN GOSUB 980 : 870 IF Z$="8" AND Y:55 THEN GOSUB 980 : 880 IF Z$="4" AND X>316 THEN GOSUB 980 : 890 IF Z$="6" AND X<460 THEN GOSUB 980 : Y=Y+8 : GOSUB 940 Y=Y-8 : GOSUB 940 X=X-16 : GOSUB 940 X=X+16 : GOSUB 940 900 IF Z$="0" THEN GOSUB 1140 910 IF Z$="N" THEN GOSUB 1400 920 IF Z$=" " THEN GOSUB 1450 930 GOTO 840 940 REM AFFICHAGE CURSEUR 950 LINE(X+4,Y+3)-(X+12,Y+5)„BF 960 PRESET(X+7,Y+4):PRESET(X+8,Y+4):PRESET(X+9,Y+4) 970 RETURN de Daniel MARTIN et Guy BALTEAU



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 :


Micros ID numéro 1 décembre 1986 Page 1Micros ID numéro 1 décembre 1986 Page 2-3Micros ID numéro 1 décembre 1986 Page 4-5Micros ID numéro 1 décembre 1986 Page 6-7Micros ID numéro 1 décembre 1986 Page 8-9Micros ID numéro 1 décembre 1986 Page 10-11Micros ID numéro 1 décembre 1986 Page 12-13Micros ID numéro 1 décembre 1986 Page 14-15Micros ID numéro 1 décembre 1986 Page 16-17Micros ID numéro 1 décembre 1986 Page 18-19Micros ID numéro 1 décembre 1986 Page 20-21Micros ID numéro 1 décembre 1986 Page 22-23Micros ID numéro 1 décembre 1986 Page 24-25Micros ID numéro 1 décembre 1986 Page 26-27Micros ID numéro 1 décembre 1986 Page 28-29Micros ID numéro 1 décembre 1986 Page 30-31Micros ID numéro 1 décembre 1986 Page 32-33Micros ID numéro 1 décembre 1986 Page 34-35Micros ID numéro 1 décembre 1986 Page 36-37Micros ID numéro 1 décembre 1986 Page 38-39Micros ID numéro 1 décembre 1986 Page 40-41Micros ID numéro 1 décembre 1986 Page 42-43Micros ID numéro 1 décembre 1986 Page 44-45Micros ID numéro 1 décembre 1986 Page 46-47Micros ID numéro 1 décembre 1986 Page 48-49Micros ID numéro 1 décembre 1986 Page 50-51Micros ID numéro 1 décembre 1986 Page 52-53Micros ID numéro 1 décembre 1986 Page 54-55Micros ID numéro 1 décembre 1986 Page 56-57Micros ID numéro 1 décembre 1986 Page 58-59Micros ID numéro 1 décembre 1986 Page 60-61Micros ID numéro 1 décembre 1986 Page 62-63Micros ID numéro 1 décembre 1986 Page 64-65Micros ID numéro 1 décembre 1986 Page 66-67Micros ID numéro 1 décembre 1986 Page 68-69Micros ID numéro 1 décembre 1986 Page 70-71Micros ID numéro 1 décembre 1986 Page 72-73Micros ID numéro 1 décembre 1986 Page 74-75Micros ID numéro 1 décembre 1986 Page 76-77Micros ID numéro 1 décembre 1986 Page 78-79Micros ID numéro 1 décembre 1986 Page 80-81Micros ID numéro 1 décembre 1986 Page 82-83Micros ID numéro 1 décembre 1986 Page 84