Discussion :

[DarkLords]

Salut, je veux faire le jeu du mémory en tableau 4*4 , mais je n'arrive pas à faire l'initialisation.

Je voudrais mettre les chiffres : 1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8 dans le tableau.
Je sais déja comment je vais les mélanger mais je ne sais pas comment je dois faire pour les placer dans le tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
VAR
t:array[1..4,1..4]of integer;
i,j,a,b,temp:integer;
 
PROCEDURE init;
  begin
             ??
  end;
PROCEDURE melange;
  begin
          FOR j:=1 to 4 do
          FOR i:=1 to 4 do
                 begin
                          a:=RANDOM(4)+1;
                          b:=RANDOM(4)+1;
                  temp:=t[i,j];
                  t[i,j]:=t[a,b];
                  t[a,b]:=temp;
                  end;
  end;

[M.Dlb]

Bonjour,

Merci de lire les règles du forum: http://club.developpez.com/regles

Pour ta procédure d'initialisation, je verrais quelque chose comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
procedure init;
var i: integer;
begin
  for i := 0 to 15 do
  begin
    t[i div 4][i mod 4] := (i div 2) + 1;
  end;
end;

Ca devrait marcher