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 : 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
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...