Jeu de la vie (automate cellulaire)

Version imprimable

Bonjour,

j'ai commencé a apprendre le Pascal il y a deux semaines de cela et je me suis lancé dans le projet de créer l'algorithme du jeu de la vie dont voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
rogram algo_jeu_de_la_vie; 
label boucle;
CONST n=10; (* taille des tableaux (parametrable) *)
var a,b,count,z : integer;
    tab1      : Array[0..n-1, 0..n-1] of integer; (* declaration tableaux *)
    tab2      : Array[0..n-1, 0..n-1] of integer;
begin
   a:=0;
   b:=0;
   for a:=0 to (n-1) do
   begin
      for b:=0 to (n-1) do (* double for (= passage par toute les cases du tableau) *)
       begin
	  randomize; (* mise des cases a une valeur aleatoire *)
	  tab1[a, b]:=(random(2)); 
       end;
   end;
   for a:=0 to (n-1) do
   begin
      for b:=0 to (n-1) do
      begin
	 write(tab1[a,b]:2);
      end;
      writeln;
   end;
end.

Or quand je l'exécute ne s'affiche qu'un tas de zéros :(
Ya-t-il quelqu'un qui sait où mon code buggue.
Bien à vous qui me lisez...

Solution

En fait l'erreur était simpliste voici la solution que j'ai trouvée

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
program algo_jeu_de_la_vie; 
label boucle;
CONST n=10; (* taille des tableaux (parametrable) *)
var a,b,count,z : integer;
    tab1      : Array[0..n-1, 0..n-1] of integer; (* declaration tableaux *)
    tab2      : Array[0..n-1, 0..n-1] of integer;
begin
   a:=0;
   b:=0;
   randomize;
   for a:=0 to (n-1) do
   begin
      for b:=0 to (n-1) do (* double for (= passage par toute les cases du tableau) *)
       begin
	 tab1[a, b]:=(random(2));  (* mise des cases a une valeur aleatoire *)	  
       end;
   end;
   for a:=0 to (n-1) do
   begin
      for b:=0 to (n-1) do
      begin
	 write(tab1[a,b]:2);
      end;
      writeln;
   end;
end.

pour faire plus clair:

Code:

1
2
3
4
5
6
7
8
9
 a:=0;
   b:=0;
   randomize;
   for a:=0 to (n-1) do
   begin
      for b:=0 to (n-1) do (* double for (= passage par toute les cases du tableau) *)
       begin
	 tab1[a, b]:=(random(2));  (* mise des cases a une valeur aleatoire *)	  
       end;

moralité ne jamais mettre un randomize dans la boucle for mici qui (ben moi :ccool:)

petite suggestion d'amelioration :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
const
  cTabSize = 10;
  cTabHigh = cTabSize-1;
 
type
  TTab = array[0..cTabSize-1, 0..cTabSize-1] of integer;
 
 
procedure GenerateTab(var aTab: TTab);
var X,Y : integer;
begin
  for X := 0 to cTabHigh do
    for Y := 0 to cTabHigh do
      aTab[X, Y] := (random(255) * random(255)) and $1;
      // Plus de hasard! il nous en faut plus! toujours plus!
      // remarquez le "and $1" plutôt qu'un "mod 2", plus performant
      // cela nous permet de ne pas perdre trop de perf avec le double random
end;
 
procedure ShowTab(const aTab: TTab);
var X,Y : integer;
begin
  for X := 0 to cTabHigh do
  begin
    for Y := 0 to cTabHigh do
      write(aTab[X,Y]:2);
    writeln;
  end;
end;
 
var
  tab1, tab2 : TTab;
 
begin
  randomize;
 
  GenerateTab(Tab1);
  ShowTab(Tab1);
 
end.