Micro Systèmes n°48 décembre 1984
Micro Systèmes n°48 décembre 1984
  • Prix facial : 24 F

  • Parution : n°48 de décembre 1984

  • Périodicité : mensuel

  • Editeur : Société Parisienne d'Edition

  • Format : (203 x 271) mm

  • Nombre de pages : 246

  • Taille du fichier PDF : 187 Mo

  • Dans ce numéro : MSX... un nouveau standard ?

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 200 - 201  |  Aller à la page   OK
Pages suivantes >
200 201
7320 GOTO 7400 7330 IF T < > ND THEN 7400 7340 V = 1 7344 IF (P(1) = 1) AND (P(2)) THEN 7372 7350 IF P(1) = 2 THEN 7380 7352 IF P(1) = 3 THEN 7390 7360 PRINT B$(I,NP + 1) 7370 GOTO 7400 7372 LB = LEN (B$(I,NP + 1)) 7374 PRINT RIGHT$, LB - S(I,3)) 7376 GOTO 7400 7380 PRINT LEFT$ S(I,2)) 7382 GOTO 7400 7390 PRINT LEFT$ S(I,3)) 7400 NEXT I 7410 IF V = 1 THEN 1000 7970 REM 7980 REM RELATION VERTICALE 7990 REM 8000 REM COMPOSITION 8080 REM DE FONCTIONS 8090 REM 8100 FOR K = 1 TO ND 8110 W$(K) = C$(K) 8120 NEXT K 8130 R = ND 8140 Z$ = W$(R - 1) + W$(R) 8150 FOR I = M TO NT 8160 IF (8$(1,2) + 8$(1,3)) Z$ THEN NEXT I 8170 IF I > NT THEN 8300 8180 R = R - 1:W$(R) = 8$(1,1) 8190 IF R > 1 THEN 8140 8200 PRINT W$(1) 8210 GOTO 1000 8270 REM 8280 REM INDIRECTION 8290 REM 8300 12 = E(2):T = 0 8310 E(2) = 12 8320 FOR J1 = 1 TO S(E(1),1) 8330 Z$ = B$(E(1),J1) 8340 FOR J2 = 1 TO S(E(2),1) 8350 IF (E(1) < > E(2)) AND (Z$ = B$(E(2),J2)) AND (Z$ C$(1)) AND (Z$ > C$(2)) THEN T = 1 : PRINT B$(E(1) : JI = NP:J2 = NP 8360 NEXT J2 8380 NEXT JI 8400 = 2 : GOSUB 9100 8410 IF V = 1 THEN 8320 8420 K = 1 : GOSUB 9100 8430 IF V = 1 THEN 8.310 8440 IF T = 1 THEN 1000 8870 REM 8880 REM ECHEC FINAL 8890 REM 8900 IF N = 0 THEN 8950 d'11() M'UNI -4g NUN 8920 8950 8960 = 2 8970 8980 8990 9000 GOTO 1000 PRINT "1* JE L'IGNORE GOTO 1000 REM REM MOT INCONNU REM PRINT "** JE NE CONNAIS PAS 11 ; 11,11 ; C$(K) ; 111,11 9020 GOTO 1000 9070 REM/(B$(I,NP + 1) 9080 REM MODULE DE RECHERCHE 9084 REM D'UN PROCHAIN E(K) 9090 REM/(B$(I,NP + 1), 9100 V = 0 9104 FOR I = E(K) + 1 TO NT 9110 FOR J = 1 TO S(E(K),1) (B$(I,NP + 1), 9120 IF (B$(I,J) = C$(K)) THEN V 9130 9140 9150 9190 9192 9196 9197 9198 9200 9210 9214 9220 9230 9234 9240 = 1:E(K) = I:J = NP:I = NT NEXT J NEXT I RETURN REM REM SYLLOGISME REM REM RECHERCHE MOYEN TERME REM S2 = NT:S1 = NT - 1:T = 0 LI = LEN (B$(S1,NP + 1)) L2 = LEN (B$(S2,NP + 1)) FOR K = 1 TO 3 FOR J = 1 TO 3 IF B$(S1,J) = "" THEN 9270 IF B$(S2,K) > B$(S1,J) THEN 9270 9250 T = 1:JM = J:KM = K 9260 J = NP:K = NP 9270 NEXT J 9280 NEXT K 9290 IF T = 0 THEN 9800 9292 REM 9294 REM RESOLUTION 9296 REM 9300 ON KM GOTO 9310,9330,9350 9310 X$ = RIGHT$ (B$(S2,NP + 1), L2 - S(S2,2)) 9320 GOTO 9360 9330 X$ = LEFT$ (B$(S2,NP + 1),S (62,2)) 9340 GOTO 9360 9350 X$ = LEFT$ (8$(52,NP + 1),S (S2,3)) 9360 IF LEFT$ (X$,3) = "OR " THEN X$ = RIGHT$ (X$, LEN (X$) - 3) 9368 ON JM GOTO 9370,9390,9410 9370 Z$ = RIGHT$ (B$(S1,NP + 1), LI - S(S1,2)) 9380 GOTO 9420 9390 Z$ = LEFT$ (B$(S1,NP + 1),S (S1,2)) 9400 GOTO 9420 9410 Z$ = LEFT$ (B$(S1,NP + 1),S (S1,3)) + YgLIJ Kn Jr1 IMtN YDUU 9430 IF LEFT$ (X$,4) = "EST " THEN X$ = RIGHT$ (X$, LEN (X$) - 4):X$ = "QUELQUE " + X$ + " " : GOTO 9500 9440 IF LEFT$ (X$,5) = "SONT " THEN X$ = RIGHT$ (X$, LEN (X$) - 5):X$ = "QUELQUES " + X$ + 9500 PRINT "DONC " ; X$ ; Z$ 9510 PRINT 9520 GOTO 1000 9790 REM 9792 REM ABSENCE DE CONCLUSION 9796 REM 9800 PRINT "** JE NE PEUX RIEN C ONCLURE ! 9810 GOTO 1000 9900 REM 9910 REM COMMANDES DE SERVICE 9920 REM 9950 IF A$ = "/L" THEN 10000 9952 IF LEFT$ (A$,2) = "/D" THEN 11000 9954 IF A$ = "/EFF" THEN 12000 9956 PRINT "** COMMANDE INCONNUE 9960 GOTO 1000 9970 REM 9980 REM LISTAGE DE LA BASE 9990 REM 10000 FOR I = 1 TO NT 10010 PRINT I ; " " ; B$(I,NP + 1) 10020 NEXT I 10030 GOTO 1000 10970 REM 10980 REM SUPPRESSION 10990 REM 11000 IF L > 2 THEN 11008 11004 I = NT : GOTO 11010 11008 I = VAL (RIGHT$ (A$,L)) 11010 FOR J = 1 TO NP + 1 11020 B$(I,J) = "" 11030 NEXT J 11040 PRINT "** ASSERTION " ; I ; " SUPPRIMEE 11050 GOTO 1000 11990 REM 11992 REM EFFACEMENT DE 11994 REM TOUTE LA BASE 11996 REM 12000 PRINT "** VOULEZ-VOUS EFFA CER 12010 INPUT " TOUTE LA BASE ? (0/N) " ; A$ 12020 IF A$ < › "0" THEN 1000 12030 FOR I -= 1 TO NT 12040 FOR J = 1 TO NP + 1 Il II 12050 B$(I,J) = 12060 NEXT 12070 NEXT 12080 PRINT "** BASE ENTIEREMENT EFFACEE 12OY0 NI = 0 : GUT° 1000 Listing (suite et fin). 200 - MICRO-SYSTEMES Décembre 1984
ExEMPLES D'INDIRECTION -, TOUT STYLO EST BLEU gi COMPRIS - FRANCOIS POSSEDE UN ** COMPRIS -, BLEU EST UNE COLLEUR **I COMPRIS - ROUGE EST UNE COULEUR ** COMPRIS - ; TOUT STYLO EST EN PLASTIQUE ** COMPRIS - LE PLASTIQUE EST UNE MATIERE ** COMPRIS FRANCOIS POSSEDE-T-IL UN STYLO ROuS.'*$ NON - QUELLE EST LA COULEUR DU STYLO DE FRA NCOIS ? BLEU -, RAOUL A ACHETE UN STsLO EGALEMENT *$ COMPRIS - DE QUELLE COULEUR EST LE STYLO DE RAOUL ? BLEU -, TOUT STYLO EST EN QUELLE MATIERE ? PLASTIOUE - ANNIE EST UNE JOLIE FILLE $* COMPRIS - ANNIE EST SAGE ** COMPRIS -> MINNA EST UNE FILLE ELLE AUSSI $* COMPRIS - MINNA EST FOFOLLE ** COMPRIS -, QUELLE FILLE EST SAGE ? ANNIE - ET LAQUELLE EST FOFOLLE ? MINNA - JOLIE EST LE CONTRAIRE DE LAIDE **1 COMPRIS - EST-CE QU'ANNIE EST LAIDE ? JOLIE -> CA SIGNIFIE-T-IL QU'ANNIE EST JOLIE FILLE ** OUI EX'MPLES DE COMPOSITION DE FONCTIONS -> JEAN REGARDE MARIE ** COMPRIS -> MARIE REGARDE HUGUES ** COMPRIS - OUI MARIE REGARDE-T-ELLE HUGUES MARIE REGARDE-T-ELLE JEAN ? $* NON HUGUES EST LE FRERE D'HENRI ** COMPRIS -> HENRI EST LE FILS D'OCTAVE ** COMPRIS OCTAVE EST L'ONCLE D ANATOLE *A COMPRIS -> QUI EST LE FILS DE L'ONCLE D'ANA TOILE ? HENRI -> ET OUI REGARDE LE FRERE DU FILS DE L'ONCLE D'ANATOLE ? MARIE L'ENTREPRISE A UN SIEGE ET UNE ANNEXE ** COMPRIS - M.BERTRAND EST RESPONSABLE DE L'ORNES E ** COMPRIS L'ANNEXE A 15 SERVICES DIFFERENTS ** COMPRIS E M.JACQUES EST RESPONSABLE DE LA SAISI xx COMPRIS ILITE M.RENE EST LE CHEF DU sERVICE 5* COMPRIS - M.MARTIN EST UN AMI DEm.JACOUr— $5 COMPRIS M.DUBOIS ES) CHEF DU SERVICE PHOTO 5 * COMPRIS LA SAISIE EST ON SERVICE DECENTRALISE ** COMPRIS - RENAUD EST LE FILS DE M.BERTRAND ** COMPRIS DAMIEN EST LE FILS DE M.RENE COMPRIS -, CHEF DE SERVICE M. RENE M.DUBOIS - RESPONSABLE 7 M. BERTRAND EST RESPONSABLE DE L'ANNEXE M. JACQUES EST RESPONSABLE DE LA SAISIE - M.MARTIN EST L'AMI DE OUI DE M.JACQUES - QUI EST LE FILS DU RESPONSABLE DES 15 SERVICES ? RENAUD -, OUI EST FILS D'ON CmE,= CS, DAMIEN - QUI EST L'AMI DU RESPONSABLE D'UN SERVICE DECENTRALISE ? M.MARTIN E.HIPLCS DE S.LLOGISms I -, TOUT NOMME ESI MORTEL ** COMPRIS - OR SOCRATE EST UN HOMME ** COMPRIS -> DONC ? DONC SOCRATE Est MORTEL - TOUT HOMME ESI BIPEC, ** COMPRIS OR PAUL EST UN HOMME ** COMPRIS -> DONC ? DONC PM.IL EST RIPEDE -› TOUT LOGICIEN EST INCOMPRIS t* COMPRIS - OF TOUT HOMME SENSE EST ! OSrE, 5* COMPRIS DONC TOUT HOMME SENSÉ EST INCOPIRRI.S - LE LOUVRE EST BEAU ** COMPRIS - OR J'AIME TOUT CE QUI EST BEAU ▪ COMPRIS - DONC, DONC J'AIME LE LOUVRE - TOUT CE OUI EST PARE EST CHEF ** COMPRIS UN CHEVAL.BON.MARCME EST RARE ** COMPRIS. DONC. ? DONC UN CHEVAL. BON. MARCHE EST CHER -, PLATON EST GREC ** COMPRIS - ; OR FLACON EST PHILOSOPHE -5 COMPRIS D- ONC ObELUUE PHILOSOPHE EST GREC -, QUEL GREC EST PHILOSOPHE ? PLATON - LES SAVANTS SONT ** COMPRIS 01 OOS LES SAVANTS SONT BAVARDS COMPRIS - DONL DONC QUELQUES FAVARDS SONT SOUVENT DiSiR AITS -., TOUS LES RO ES SONT MORTELS 5* COMPRIS xx COMPRIS DES HOMMES SONT JUSTES - DONC 7 DONC QUELQUES JUSTES SONT MORTELS IL EST POSSIBLE EGALEMENT D'UTILISER LE PROGRAMME D'UNE MANIERE PLUS FORMELLE : -> XI = X2 ** COMPRIS -> X2. X3 t* COMPRIS - FAR QUOI XI = X3'X2 - YI = Fil) ** COMPRIS -> X = G(T1) ** COMPRIS -> v (41) *5 COMPRIS - TI = H0.01 ** COMPRIS -7 F(G(HIK(4)1)). 7 11 - ? A QUOI EST = F DE G DE H DE K DE W'YI Fzemples d'indirect ion. Décembre 1984 MICRO-SYSTEMES — 201



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