SVM n°87 octobre 1991
SVM n°87 octobre 1991
  • Prix facial : 30 F

  • Parution : n°87 de octobre 1991

  • Périodicité : mensuel

  • Editeur : Excelsior Publications

  • Format : (204 x 280) mm

  • Nombre de pages : 288

  • Taille du fichier PDF : 249 Mo

  • Dans ce numéro : les 500 bons modèles des 20 meilleurs constructeurs.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 230 - 231  |  Aller à la page   OK
Pages suivantes >
230 231
cienne position, en tenant compte de la direction du déplacement. Par exemple, pour un déplacement vers la droite, le bloc sera mis à gauche de l'ancienne position. Pour un déplacement vers le haut, il serait mis en bas... FONCTIONNEMENT DE LA PROCEDURE CHAOS Position initiale d'un bloc (lace ou point d'arrêt) Nouvelle position On place un bloc (point d'arrêt) pour permettre au joueur de revenir dans la position initiale 228 SVM Octobre 1991 repeat if (x.b+xd>longueur) or (xb+xdhauteur) or (yb+yd" then stop:=1 ; end ; if stop=0 then begin matrice[xb+xd,yb+yd]:=matrice[xb,yb] ; matrice[xb,yb]:=" ; gotoxy(decx+xb,decy+yb) ; write(") ; xb:=xb+xd ; yb:=yb+yd ; gotoxy(decx+xb,decy+yb) ; write(matrice[xb,yb]) ; delay(125) ; temps:=temps-1 ; end ; until stop<>0 ; if stop=2 then begin for i:=100 to 800 do sound(i) ; nosound ; matrice[xc,yc]:=matrice[xb,yb] ; matrice[xb,yb]:=" ; gotoxy(decx+xb,decy+yb) ; write(") ; gotoxy(decx+xc,decy+yc) ; write(matrice[xc,yc]) ; xb:=xc ; yb:=yc ; end ; end ; transfert_liste_bloc ; (* pour test alignement *) if stop=l then begin xc:=xb ; yc:=yb ; end ; temps:=temps-1 ; end ; (* effacement d'un bloc *) procedure K_espace ; vari,numero : integer ; begin if (matrice[xc,yc]<>chr(tete)) then begin gotoxy(decx+xc,decy+yc) ; write('matrice[xc,yc]:=" ; end ; end ; (* procédure de lecture du clavier *) function lecture_clavier : integer ; var code:integer ; begin code:=0 ; if keypressed then begin touche:=readkey ; code:=ord(touche) ; if code=0 then begin touche:=readkey ; code:=100*ord(touche) ; end ; end ; lecture_clavier:=code : end ; (* procédure testant l'alignement des tètes *) function alIgnement:boolean ; var ok : boolean ; xl,y1,x2,y2,x3,y3:intege:, begin xl:=bloc[1].x ; y1:=bloc[1].y ; x2:=bloc[2].x ; y2:=bloc[2].y ; x3:=bloc[3].x ; y3:=bloc[3].Y ; ok:=false ; (* teste un alignement horizontal *) if (y1=y2) and (y2=y3) then begin (* cas 1 2 3 *) if (x2=x1+1) and (x3=x2+1) then ok:=true ; (* cas 3 2 1 *) if (x2=x3+1) and (x1=x2+1) then ok:=true ; (* cas 1 3 2 *) if (x3=x1+1) and (x2=x3+1) then ok:=true ; (* cas 2 3 1 *)
Programmation 111MIMIIMM if(3=x2+1) and (x1=x3+1) then ok:=true ; (* cas 2 1 3 *) if (x1=x2+1) and (x3=x1+3) then ok:=true ; (* cas 3 1 2 *) if (x1=x3+1) and (x2=x1+1) then ok:=true ; end ; (* teste un alignement vertical *) if (x1=x2) and (x2=x3) then begin (* cas 1 2 3 *) if (y2=y1+1) and (y3=y2+1) then ok:=true ; (* cas 3 2 1 *) if (y2=y3+1) and (y1=y2+1) then ok:=true ; (* cas 1 3 2 *) if (y3=y1+1) and (y2=y3+1) then ok:=true ; (* cas 2 3 1 *) if (y3=y2+1) and (y1=y3+1) then ok:=true ; (* cas 2 1 3 *) if (y1=y2+1) and (y3=y1+1) then ok:=true ; (* cas 3 1 2 *) if (y1=y3+1) and (y2=y1+1) then ok:=true ; end ; alignement:=ok ; end ; (* Jouer le niveau actuel *) procedure jouer_la_matrice(N:integer) ; var code : integer ; sortie : boolean ; begin xc:=longueur div 2 ; yc:=longueur div 2 ; temps:=150 * N ; repeat code:=lecture_clavier ; case code of 7200 : K_haut ; 7500 : K_gauche ; 7700 : K_droit ; 8000 : K_bas ; 8200 : K_espace ; 8300 : K_espace ; 56 : (* K_8 *) pousse (0,-1) ; 52 (* K_4 *) pousse (-1,0) ; 54 : (* K_6 *) pousse (1,0) ; 50 : (* K_2 *) pousse (0,1) ; 32 : K_espace ; 13 : temps:=1 ; end ; temps:=temps-l ; gotoxy(xtemps,ytemps) ; write(temps:5) ; gotoxy(xc+decx,yc+decy) ; delay(100) : sortie:. (alignement) or (temps



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