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 : 238 - 239  |  Aller à la page   OK
Pages suivantes >
238 239
1 11 11111 juta uu boalu les ragots du c casio les ragot : ragots du calcinai MICRO ROBOT « INTELLIGENT » Serge Boisse Voici un programme original qui prouvera au monde que le Casio FX 702 P est, à n'en pas douter, à la pointe de « l'intelligence artificielle ». « Micro trucs et astuces robot », comme tous les robots qui se respectent, vit dans un univers de cubes qu'on lui donne ou qu'on lui reprend, et passe son temps à les empiler les uns sur les autres. Un enfant de trois ans fait aussi bien, me direz-vous, mais pas tout à fait, à preuve le dialogue sui- vant que j'ai livré tout à l'heure avec lui : 1 Micro robot : Ordonne, maître ! (Vous remarquerez au passage son obséquiosité...) Moi : Voici ALPHA. 2 Micro robot : Merci pour ALPHA, maître. Moi : Voici BETA. 3 Micro robot : Merci pour BETA, maître. Moi : Voici GAMMA. 4 Micro robot : Merci pour GAMMA, maître. Moi : POSE BETA sur ALPHA. 5 Micro robot : Je cherche ALPHA. J'ai trouvé ALPHA. (Programme Micro robot LIST.L.L M:O U607 UR : 46 PRS : 152e PO : 44'7 FERS l@FRI "ROSOT":N=-1 20NRIT e:INP OR ONNE:MRITRE",$'77 MID(1:1)="8 azo ii21GOTO e 30 IF LEM($)<7 THE N 39 40 IF MID(1,5=90 ICI" ; GS8 1 e0:80 Tl 2@ 0 IF MID(I,4)="RE NU ; SSE 200:80T 0 2e 55 IF MID(1,5)="PO SE " ; SSB E:SOT o 2e 99 PRI "JE NE COMP REND PRS":80TO 28 100 IF NL9 ; PR7 "PLU S DE PLRCE":RET 105 FOR 1=e TO N:IF REI)=MID(7) ; P R7 "j,R1 DEJR " MID(7):REI 112 NEXT I:k=N+1:4$ (M)=M1D(7):REN 3ee 200 FOR 1..0 TC H:IF L 0 diateu n 56 i noie 1 In iv duel I)=MII:(1U : ifrUT T.." PD ? Y7n, I.',1 1..n 1 àili- i : -.'7,-pET 1 : ; iici+10 =i ; (ill'J:NEU 220 N=S-11FRl'JE US REND'IMID (12:REI 330 PRl'MERCI POU'r : " ; MID(7) ; "MRI ":2E:RET _, i7..r.) — -:5 Tir LE N (EJ-4:IF MID(I,4 -n euKnt-, ; - : cul.-71, : I-C ? : 1=MID (, - S ; R$="#":Q$=M ID(S,I-73:6CTO tFRRC R(J+10):I =J:GCTO 125 3 77 1=0 TO N:IF R$(1)=P$ ; NEXI 43 IF DN ; SSE 188 : TF, $:RET 42 IF i=j ; Z=1:6070 2(cc : 45 PRI "SE CHERCHE " ; P$ 50 GSS 9e:R(J+10)= I+FRPC R(j+le) 60 K=C*FRRC R(I+10 file C:IF g99 ; ! 3(K+1 3 ; =99+FRRC R(K+ 65 7. ! -, : ":U POSE "P$ ; " SUR " ; 8$ : RET 7-.1 ni.1t. -. ; - INT.i+ f- 7:PRI "j,RI TR "F 5 - " ; R$(1):RE - J 11E7 7 5C.12O=2:IF P$ =Oi ImEN 18e 10 2=2:FOR 14 Ti ; H:IF REI)t0$ : ruT T LAi i 28 IF IMISSE I8e :'..- Im7 Sdeie.P R7'IL s'R " ; R$ (Pri DESSUS"..S2 99, FRRIC R(I+10) PRT 8$:RET :, 9:PI REI) ; " EST RU SOL":RE T 25 IF R(I+1e)(99 F P$=RER(I+1e)) ; 7=1:6070 I3e 2E PRI "JE CHERCHE 27 J=I:8SB 98 28 IF P$="4" ; R=180 130 FF ! "jE P2SE " ; ».. c:um : ge I=180*FRRC }(I+ 10-R(K,12=39. Je cherche BETA. J'ai trouvé BETA. J'ai posé BETA sur ALPHA. Moi : Que vois-tu ? 6 Micro robot : Je vois une pile de base ALPHA avec BETA dessus et GAMMA sur le sol c'est tout. Moi : Pose GAMMA sur ALPHA. 7 Micro robot : Je cherche GAMMA. J'ai trouvé GAMMA. Je cherche ALPHA. Il y a BETA dessus. Je pose BETA C ? SiR,-1,10' ; =99+F R : H'+ : 52 IF ItR T.'160 :. ri..D._t: : MRIIRE" 190 IF : =2 ; PRI "JE -c SUR'1. P2'eSTEPS 5 IF li,J ; PR7 "jE - VOIS RIEN":R. PRI "JE YOIS" ; F : R 1=0 TO N : F R(I+10)=99.9 9 ; PRT IS(I.7'S UR LE 30L":80TO/p 1,J 38 IF FRRC R(I+10)t,99 IHEM 7e 4e PRI "UNE PILE D E SRSE " ; REI) : r=1 : fa J=R(J+10):IF J', jeT," ; nnu ir Fi$J)n Dr", : SOTS 5e 2 72 UEU I1PRT "C'E e:- Tn.iTr.nr, Di, iibi.hZ ;
sur le sol. J'ai posé GAMMA sur ALPHA. Ordonne, maîtrè ! Et voilà : Micro robot sait que pour poser un cube sur un autre, il faut qu'il n'y ait rien dessus ; et il peut raisonner sur dix cubes simultanément ! Entrons dans le détail. Micro robot répond aux cinq ordres suivants : VOICI nom (maximum 7 caractères) ; RENDS-MOI nom ; POSE nom 1 SUR nom 2 ; POSE nom 1 AU SOL ; QUE VOIS-TU ? Ce qui permet de faire pas mal de choses. Un mot sur le programme : il tourne en DEFM 2 ; A0$ à A9$ contiennent les noms des N + 1 objets présents ; BO à B9 contenant le code objet dessus objet dessous, où 99 représente le sol. Par exemple, si B1 vaut 6.99, on sait que l'objet 2 est posé sur le sol, et qu'il supporte l'objet 6. Quant au programme lui-même, je vous laisse deviner sa structure, c'est plus amusant et pas tellement difficile... RECHERCHE DES NOMBRES PREMIERS Didier Dubos Ce programme calcule les nombres premiers. 1 CALL CLEAR 2 A =11 3 PRINT 1,2,3,4,5,6,7, 4 FOR N=3 TO SQR(A) STEP 2 5 IF INT(A/N)=(A/N) THEN 8 6 NEXT N 7 PRINT A 8 A=A+2 9 GOTO 4 Mais vous pouvez aussi faire plusieurs variantes. Pour savoir si un nombre impair est premier, inutile d'atten- UN PAC MAN TRES GLOUTON Jean-Christophe Boivin Vous possédez un être (très) glouton dont le but est d'attraper une étoile qui se déplace de plus en plus vite. Le jeu se déroule en plusieurs manches, chacune de une minute environ. Si vous possédez quinze points pour une manche, la machine vous allouera une nouvelle unité de temps. Pour déplacer votre enzyme... engin, pardon, utilisez les quatre touches « 0 » et « + » (déplacement rapide, trois cases) et « E » (exposant), « » (déplacement lent). Les manoeuvres restent enregistrées jusqu'à pression sur une nouvelle touche. Remarquez le graphisme très élaboré, la bouche qui s'ouvre et se ferme, l'étoile qui scintille et l'astuce pour la conservation du plus haut score. Bon appétit, et je vous quitte car j'entends mon FX 702 P réclamer sa part de viande fraîche. dre qu'il soit affiché (surtout si le nombre est assez élevé) il suffit : de remplacer la ligne 2 par INPUT A ; de remplacer la ligne 9 par GOTO 2 ; d'effacer la ligne 3. Pour connaître tous les nombres premiers compris dans un ensemble à partir de A, il faut : remplacer la ligne 2 par INPUT A ; effacer la ligne 3. GRAPHIQUES SANS PROGRAMME Marc Cabassa En général, essayer de passer outre à une instruction lic'te du LIST "PRCKMAN" 23 IF B=D ; 3.34.1:G3 1 WRIT i0:VRC : PR 60:ES.3 30 T "PACKMAN" 25 IF RANCS:GSB b PRT "RECORD:" ; M tt Lei uu,L1 142 30 D=INT (R:AN419) 0:0=0:D=OV=iM : IF D=B THEN 30 SE 3 31 RET 10 WRIT 4(d WAIT 50 ; PFT "SC i3t""i3e=i ORE:":3 : Ce="G070 13 DED PLAY " IF Al."."3.-1 in.0Ji0 ic IF S:+j1MRT "RE iS IF Al."+":B=P+3 Y=Sj3C =S\b i ii.o 17 IF F4."0" ; 34-3 13 IF 3,0 ; 8.18 19 IF 49:3=0 20 T=T+1:PRT., » FT CSR D ; "*" ; CSnn.n 11 IF D129 TWEN 4 Tl-Basic, c'est s'exposer à BAD ARGUMENT ou à IN- CORRECT STATEMENT. Et pourtant, avec l'astuce qui va suivre, on passe à travers les mailles du filet ! Faites comme suit : a) tapez 1 REM et faites CTLR Q jusqu'au bip sonore ; b) faites ENTER, puis éditez la ligne 1 ; le TI 99/4A va alors afficher une série de UN- TRACE jusqu'à l'apparition d'un cadre de couleur ; c) manoeuvrez la barre d'espacement jusqu'à ce que les UN- TRACE disparaissent ; et manoeuvrez-la encore pour voir apparaître d'étranges dessins. S'il y a un bip sonore, faites FTCN ERASE et continuez. Vous serez peut-être étonne de voir apparaître des graphiques qui se superposent sur l'écran (« lutins ») et la couleur individuelle des 192 points de la hauteur d'écran. Sachez que vous êtes en mémoire vive vidéo. Elle est accessible par le Basic-étendu (pour les, lutins) et d'une façon plus générale par l'assembleur avec le module Mini-mémoire Programme 55 PRT "GRIME AU V ERT":END I. IF RfiNE.3:PRT RFT n:71 inMt.' ; ripixess ; ori cevE ces HUMAINS Novi pougerlesiewr De Rus EN PLUS ! ÇA c (EST- Â CAUSE DE L'INFOKHAT ; QUE in49 ; v ; oott-r-E césr UNE invenurkw oà-10- Pvieo)aSAI Lo'ics u-ricisen-rD € 3 PUCES POUR FAIRE FCNIC.1"icevi1/41ER CES MACHINES Ordilna 5 en ler 1 el



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