SVM n°15 mars 1985
SVM n°15 mars 1985
  • Prix facial : 16 F

  • Parution : n°15 de mars 1985

  • Périodicité : mensuel

  • Editeur : Excelsior Publications

  • Format : (206 x 283) mm

  • Nombre de pages : 156

  • Taille du fichier PDF : 151 Mo

  • Dans ce numéro : rencotre avec des génies... Clive Sinclair, Bill Gates, Chuck Peddle, Steve Wozniak, Thomas Kurtz.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 78 - 79  |  Aller à la page   OK
Pages suivantes >
78 79
LES BONS'ET LES "MAUVAIS" TROUS + e La case du coin est isolée, aucun pentomino ne pourra la combler. Le trou hachuré est un "bon'trou car il comporte 10 cases et peut être donc bouché par deux pentominos (2 x 5 = 10). Par exemple : ‘■•■■• Le trou hachuré est un'mauvais'trou car il comporte 11 cases laissant la place à 2 pentominos et 1 case vide (11 = (2 x 5) - I) Par exemple : OU Suite de la page 77 3020 RETURN 5000 PP = 1:PV(1,PP) = I:PV(2,PP) = J 5010 IF PP = 0 THEN RETURN 5020 I = PV(1,PP):J = PV(2,PP):PP = PP — 1 5030 IF T(I,J) < > 0 THEN 5010 5040 GOSUB 5100 : GOSUB 5200 5050 GOSUB 5300 : GOSUB 5500 5060 GOTO 5010 5100 I1 = I 5110 IF I NL THEN 5150 5120 IF T(I,J) < > 0 THEN 5150 5130 T(I,J) = — 1:CT = CT + 1:I = I + 1 5140 GOTO 5110 5150 ID = I — 1:I = Il : RETURN 5200 I1 = : I = I — 1 5210 IF I < I THEN 5250 5220 IF T(I,J) < > 0 THEN 5250 5230 T(I,J) = — 1:CT = CT + 1:I = I — 1 5240 GOTO 5210• ri I. X XX X X X COLORIAGE D'UN TROU On démarre On colorie à droite jusqu'au bord et on d'une case intérieure. recommence à gauche. On repère sur la ligne du dessus (ou du dessous) les cases vides situées près d'un bord. y-x.x xxr- xx xxxxxx Remplissage puis repérage Figure 3 Figure 4 On recommence l'opération à partir des cases ainsi repérées X X ri X X xxx X X X X X• XX X x ii xxx X X x lxx xxfl XX X XXX xxx X Idem... jusquâ la fin. I x x XX 78 SCIENCE & VIE MICRO N°15 - MARS 1985
5250 IG = I + 1:I = II : RETURN 20170 DATA 0,1,-1,1,0,2,0,3 5300 IF J + 1 > NC THEN RETURN 20180 DATA 0,1,0,2,1,2,0,3 5310 II = 1:J1 = J 20190 DATA 0,1.0,2,-1,2,0,3 5320 I = IG:J = J + 1 20200 DATA 1,0,1,-1,2,0,3,0 5340 IF l'• ID THEN 5430 20210 DATA 1,0.1.1,2.0,3,0 5350 IF T(I,J) = 0 THEN 5370 20220 DATA 1,0,2,0,2,-1,3,0 5360 I = I + 1 : GOTO 5340 20230 DATA 1,0,2,0,2,1,3,0 5370 IF l'ID THEN 5430 20240 REM "T" 5380 PP = PP + 1:PV(1,PP) = I:PV(2,PP) = J 20250 DATA 1,0.2,0.2,-1,2.1 5382 IF l',> ID THEN 5430 20260 DATA 0,1,0,2,1,1,2,1 5384 IF T(I,J) < 0 THEN 5390 20270 DATA 1,0,2,0,1,1,1,2 5386 I = I + 1 : GOTO 5382 20280 DATA 0,1,0,2,-1.2.1.2 5390 IF I ID THEN 5430 20290 REM BAIONNETTE 5400 IF T(I,J) = 0 THEN 5370 20300 DATA 0,1,1,1,1,2,1,3 5410 I = I 4- 1 : GOTO 5390 20310 DATA 0.1,-1.1.-1,2,-1,3 5420 GOTO 5370 20320 DATA 0,1,0,2,-1,2,-1.3 5430 I = I1:J = JI : RETURN 20330 DATA 0.1,0.2,1,2,1.3 5500 IF J - 1 < I THEN RETURN 20340 DATA 1,0,1,1,2,1,3,1 5510 11 = 1:J1 = J 20350 DATA 1,0,1,-1,2,-1.3,-1 5520 I = IG:J = J - 1 20360 DATA 1,0,2.0,2,-1,3,-1 5540 IF l'ID THEN 5630 20370 DATA 1,0,2.0,2,1,3,1 5550 IF T(I,J) = 0 THEN 5570 20380 REM EDUERRE 5560 I = I + 1 : GOTO 5540 20390 DATA 0,1,0.2.1,2,2,2 5570 IF I > ID THEN 5630 20400 DATA 1,0,2,0,0,1,0,2 5580 PP = PP + 1:PV(1,PP) = I:PV(2,PP) = J 20410 DATA 1,0.2,0,2,-1,2,-2 5582 IF I, ID THEN 5630 20420 DATA 1,0,2,0,2,1,2,2 5584 IF T(I,J) <, 0 THEN 5590 20430 REM "W" 5586 I = I + 1 : GOTO 5582 20440 DATA 0,1,1,1,1,2,2,2 5590 IF I, ID THEN 5630 20450 DATA 0,-1,1,-1,1,-2,2,-2 5600 IF T(I,J) = 0 THEN 5570 20460 DATA 1,0,1 ; -1,2.-1,2,-2 5610 I = I + 1 : GOTO 5590 20470 DATA 1,0,1,1.2,1,2,2 5620 GOTO 5570 20480 REM PONT 5630 I = I1:J = JI : RETURN 20490 DATA 0,1,1,1.2.1,2.0 6000 FOR I = 1 TO NL : FOR J = 1 TO NC : 20500 DATA 1,0,0,1,0,2,1,2 T(I,J) = TA(I,J,P) : NEXT : NEXT 20510 DATA 0,1,1.0,2,0,2,1 6010 CT = 0 : FOR I = I TO NL : FOR J = 1 TO NC 20520 DATA 1,0,1,1,1,2,0,2 6020 IF T(I,J), '> 0 THEN 6040 20530 REM "Z" 6030 GOSUB 5000 : 20540 DATA 0,1.1,1,2,1,2,2 IF (CT - 5 t INT (CT/5)) < 0 THEN 6060 20550 DATA 1,0,0,1,0,2,-1,2 6040 NEXT J : NEXT I 20560 DATA 1,0,1,1,1,2,2,2 6050 GOTO 1000 20570 DATA 0,1,1,0,2,0,2.-1 6060 I = NL:J = NC : NEXT J : NEXT I : GOTO 2050 20575 REM BLOC 20000 DATA 1,2,8,8,4,8.4,4,4,4.8.8 20580 DATA 0,1,1,1.0,2.1,2 20010 REM CROIX 20590 DATA 0,1,1,-1.1.0.1,1 20020 DATA 0,1,0,2,1,1,-1,1 20600 DATA 0,1,1,0,1.1.1.2 20030 REM BARRE 20610 DATA 0.1,0,2,1,0,1,1 20040 DATA 1,0,2,0,3,0,4,0 20620 DATA 1,0,2,0,0,1.1,1 20050 DATA 0,1.0,2.0,3,0,4 20630 DATA 1,0,0,1,1,1,2,1 20060 REM CANNE 20640 DATA 1,0,1,1,2,0.2.1 20070 DATA 1,0,0,1,0,2,0,3 20650 DATA 1,0.-1,1,0,1,1,1 20080 DATA 0,1,0,2,0,3,-1,3 20660 REM CHAISE 20090 DATA 1,0.1,1,1,2.1,3 20670 DATA 1,0,0,1,-1,1,0,2 20100 DATA 0,1,0,2,0,3,1,3 20680 DATA 0,1,1,1,0.2,-1,2 20110 DATA 1,0,2,0,3,0,3,-1 20690 DATA 0,1,-1,1,0,2,1,2 20120 DATA 1.0,2,0,3,0,3,1 20700 DATA 1,0,1,1,2,0,2,-1 20130 DATA 0,1,1,1,2,1,3,1 20710 DATA 1,0,1,1,2,1,1,2 20140 DATA 0,1,1,0,2,0,3,0 20720 DATA 1,0,1,-1,2,0,2,1 20150 REM BEOUILLE 20730 DATA 0,1,1,1,1,2,2,1 20160 DATA 0,1,1,1.0,2,0.3 20740 DATA 0.1.1,0.1,-1,2,0 SCIENCE Fi VIE MICRO N°15 - MARS 1985 79



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 :


SVM numéro 15 mars 1985 Page 1SVM numéro 15 mars 1985 Page 2-3SVM numéro 15 mars 1985 Page 4-5SVM numéro 15 mars 1985 Page 6-7SVM numéro 15 mars 1985 Page 8-9SVM numéro 15 mars 1985 Page 10-11SVM numéro 15 mars 1985 Page 12-13SVM numéro 15 mars 1985 Page 14-15SVM numéro 15 mars 1985 Page 16-17SVM numéro 15 mars 1985 Page 18-19SVM numéro 15 mars 1985 Page 20-21SVM numéro 15 mars 1985 Page 22-23SVM numéro 15 mars 1985 Page 24-25SVM numéro 15 mars 1985 Page 26-27SVM numéro 15 mars 1985 Page 28-29SVM numéro 15 mars 1985 Page 30-31SVM numéro 15 mars 1985 Page 32-33SVM numéro 15 mars 1985 Page 34-35SVM numéro 15 mars 1985 Page 36-37SVM numéro 15 mars 1985 Page 38-39SVM numéro 15 mars 1985 Page 40-41SVM numéro 15 mars 1985 Page 42-43SVM numéro 15 mars 1985 Page 44-45SVM numéro 15 mars 1985 Page 46-47SVM numéro 15 mars 1985 Page 48-49SVM numéro 15 mars 1985 Page 50-51SVM numéro 15 mars 1985 Page 52-53SVM numéro 15 mars 1985 Page 54-55SVM numéro 15 mars 1985 Page 56-57SVM numéro 15 mars 1985 Page 58-59SVM numéro 15 mars 1985 Page 60-61SVM numéro 15 mars 1985 Page 62-63SVM numéro 15 mars 1985 Page 64-65SVM numéro 15 mars 1985 Page 66-67SVM numéro 15 mars 1985 Page 68-69SVM numéro 15 mars 1985 Page 70-71SVM numéro 15 mars 1985 Page 72-73SVM numéro 15 mars 1985 Page 74-75SVM numéro 15 mars 1985 Page 76-77SVM numéro 15 mars 1985 Page 78-79SVM numéro 15 mars 1985 Page 80-81SVM numéro 15 mars 1985 Page 82-83SVM numéro 15 mars 1985 Page 84-85SVM numéro 15 mars 1985 Page 86-87SVM numéro 15 mars 1985 Page 88-89SVM numéro 15 mars 1985 Page 90-91SVM numéro 15 mars 1985 Page 92-93SVM numéro 15 mars 1985 Page 94-95SVM numéro 15 mars 1985 Page 96-97SVM numéro 15 mars 1985 Page 98-99SVM numéro 15 mars 1985 Page 100-101SVM numéro 15 mars 1985 Page 102-103SVM numéro 15 mars 1985 Page 104-105SVM numéro 15 mars 1985 Page 106-107SVM numéro 15 mars 1985 Page 108-109SVM numéro 15 mars 1985 Page 110-111SVM numéro 15 mars 1985 Page 112-113SVM numéro 15 mars 1985 Page 114-115SVM numéro 15 mars 1985 Page 116-117SVM numéro 15 mars 1985 Page 118-119SVM numéro 15 mars 1985 Page 120-121SVM numéro 15 mars 1985 Page 122-123SVM numéro 15 mars 1985 Page 124-125SVM numéro 15 mars 1985 Page 126-127SVM numéro 15 mars 1985 Page 128-129SVM numéro 15 mars 1985 Page 130-131SVM numéro 15 mars 1985 Page 132-133SVM numéro 15 mars 1985 Page 134-135SVM numéro 15 mars 1985 Page 136-137SVM numéro 15 mars 1985 Page 138-139SVM numéro 15 mars 1985 Page 140-141SVM numéro 15 mars 1985 Page 142-143SVM numéro 15 mars 1985 Page 144-145SVM numéro 15 mars 1985 Page 146-147SVM numéro 15 mars 1985 Page 148-149SVM numéro 15 mars 1985 Page 150-151SVM numéro 15 mars 1985 Page 152-153SVM numéro 15 mars 1985 Page 154-155SVM numéro 15 mars 1985 Page 156