Micro Systèmes n°32 juin 1983
Micro Systèmes n°32 juin 1983
  • Prix facial : 20 F

  • Parution : n°32 de juin 1983

  • Périodicité : mensuel

  • Editeur : Société Parisienne d'Edition

  • Format : (203 x 271) mm

  • Nombre de pages : 230

  • Taille du fichier PDF : 178 Mo

  • Dans ce numéro : intelligence artificielle, robots et systèmes experts.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 176 - 177  |  Aller à la page   OK
Pages suivantes >
176 177
2070 PRINT"ERREUR  : IL FALLAIT FAIRE " FORM=1TOLEN(T1(I)):IFLEFT$(T1(I),2)="XX"T HENPRINTXX ; MIDS(T1(I),3,1) ; YY ; "=" ; S1ELSEPRINTYY ; MID$(T1(I),3,1) ; XX ; "=" ; S1 2080 INPUT"APPUIE SUR (ENTER)" ; Z:IFF1(3THENGOT01230 2090 INPUT"VEUX—TU FAIRE UN AUTRE PROBLEME 0/N" ; Z:IFLEFT$(Z,1)="0"THEN1210 2100'BILAN INDIVIDUEL 2110'DETERMINATION DE L'APPRECIATION 2120 E(N)=E:F(N)=F 2130 M=10*(E—F)/E 2140 IFM=10THENC1(N)="TRES BIEN.":GOT02210 2150 IFM)=7.5THENC1(N)="BIEN.":GOT02210 2160 IFM)=5THENC1(N)="ASSEZ BIEN.":GOT02210 2170 IFM)=4THENC1(N)="PASSABLE.":GOT02210 2180 C1(N)="INSUFFISANT." 2200'AFFICHAGE DU BILAN ET DE L'APPRECIATION 2210 CLS:IFLEFTS(A(N),1)="A"ORLEFTS(A(N),1)="E"ORLEFT$(A(N),1)="I"ORLEFT$(A(N),1) ="0"ORLEFTS(A(N),1)="U"ORLEFTS(A(N),1)="Y"THENPRINTTAB(24—LEN(A(N))/2)"*** BILA N D'" ; A(N) ; " ***":PRINT:GOT02230 2220 PRINTTAB(25—LEN(A(N))/2)"*** BILAN DE " ; A(N) ; " **+":PRINT 2230 IFF(N)(2THENPRINT"TU AS FAIS" ; F(N) ; "ERREUR EN" ; E(N) ; "ESSAIS.":GOT02250 2240 PRINT"TU AS FAIS" ; F(N) ; "ERREURS EN" ; E(N) ; "ESSAIS." 2250 PRINT" (((<( ((C'EST " ; Cl(N) ; " MM)" 2260 PRINT:PRINT:PRINT"APPUIE SUR (ENTER) ET RETOURNE A TA PLACE":INPUTZ:GOT0100 0 2300'BILAN COLLECTIF 2310 CLS:PRINTTAB(20)"*** BILAN COLLECTIF ***":PRINT 2320 PRINTB1 2330 PRINT 2340 FORI=1TON 2350 PRINTUSINGB ; A(I) ; E(I) ; F(I) 2360 NEXTI 3000'BILANS SUR IMPRIMANTE 80 COLONNES 3010'BILANS INDIVIDUELS 3020 FORI=1TONSTEP2 3030 LPRINTSTRING$(80,45) 3040 LPRINTA(I) LPRINTTAB(40)CHR$(124) ; A(I+1) 3050 LPRINTD LPRINTTAB(40)CHR$(124) ; D 3060 LPRINT"RESOLUTION DE PROBLEMES" LPRINTTAB(40)CHR$(124) ; "RESOLUTION DE PROB LEMES" 3070 LPRINTF(I) ; "ERREUR" ; ; IFF(I))1THENLPRINT"S" ; 3080 LPRINT" EN" ; E(I) ; "ESSAIS. " ; C1(I) ; 3090 LPRINTTAB(40)CHR$(124) ; F(I+1) ; "ERREUR" ; ; IFF(I+1))1THENLPRINT"S" ; 3100 LPRINT" EN" ; E(I+1) ; "ESSAIS. " ; C1(I+1) 3110 NEXTI 3200'BILAN COLLECTIF 3210 LPRINTSTRING$(80,45) 3220 LPRINTCHR$(31) 3230 LPRINTTAB(16—LEN(D)/2)"BILAN DU " ; D 3240 LPRINTTAB(10)"RESOLUTION DE PROBLEMES" 3250 LPRINTCHR$(30) 3260 LPRINT" " 3270 LPRINTB1 3280 LPRINT" " 3290 FORI=1TON 3300 LPRINTUSINGB ; A(I) ; E(I) ; F(I) ; ; LPRINT" " ; C1(I) 3310 NEXTI 3320 LPRINTSTRING$(80,45) 3330 GOT09999 Suite du listing. 176 — MICRO-SYSTEMES Juin 1983
4000'4010'MODE AUTEUR 4020 CLS:PRINTTAB(25)"*** CONSTRUCTION DES EXERCICES ***":PRINT:I=0 4030 I=I+1:PRINT"EXERCICE NUMER0" ; I 4040 PRINT"FIN = ZZZ" 4050 PRINT"ECRIVEZ L'ENONCE DU PROBLEME EN REMPLACANT LES VARIABLES PAR XX ET YY" 4060 INPUTT:IFT="ZZZ"THENI1=I-1:GOT04200ELSET(I)=T 4070 PRINT"DETERMINEZ LA FOURCHETTE POSSIBLE POUR XX. EX 3.45,7" 4080 INPUTX1(I),X2(I) 4090 PRINT"DETERMINEZ LA FOURCHETTE POSSIBLE POUR YY" 4100 INPUTY1(I),Y2(I) 4110 PRINT"ECRIVEZ L'OPERATION NECESSAIRE A LA RESOLUTION. EX  : XX+YY" 4120 INPUTT1(I) 4130 CLS:GOT04030 4200'VERIFICATION DE LA CONSTRUCTION 4210 CLS:PRINTTAB(15)"VERIFICATION DE LA CONSTRUCTION ***":PRINT 4220 FORI=1T0I1:PRINT"PPS DE MODIFICATION = (ENTER)" 4230 PRINTT(I):INPUTT(I) 4240 PRINT"XX = " ; X1(I) ; " A " ; X2(I):INPUTX1(I),X2(I) 4250 PRINT"YY = " ; Yl(I) ; " A " ; Y2(I):INPUTY1(I),Y2(I) 4260 PRINTT1(I):INPUTT1(I) 4270 PRINTSTRING$(62,"—") 4280 NEXTI 4290 INPUT"AUTRE VERIFICATION 0/N" ; Z:IFLEFT$(Z,1)="0"THEN4200 4300'SAUVEGARDE DU FICHIER 4400 CLS:PRINTTAB(15)"*  : **= SAUVEGARDE DU FICHIER ***":PRINT 4410 PRINT"PREPAREZ LA CASSETTE ET'APPUYEZ SUR (ENTER)":INPUTI 4420 PRINT#-1,I1 4430 PRINTI1 ; " " ; 4440 FORI=1TOI1 4450 PRINT# 1,T(I) 4460 PRINT#-1,X1(I),X2(I),Y1(I),Y2(I),T1(I) 4470 PRINTI1—I ; " " NEXTI 4480 PRINT"CHARGEMENT TERMINE.":PRINT"VERIFICATION DE LA SAUVEGARDE" 4490 PRINT"PREPAREZ LA CASSETTE ET APPUYEZ SUR



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