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
|
(** Les types sont tres souvent noté avec un T comme premiere lettre en Pascal. C'est une bonne habitude à prendre.
De plus, une structure array of array peut se simplifier en un seul array **)
type
TGrille = array[1..10, 1..10] of Integer;
(** Une variable se déclare avec NomVariable: TypeVariable; **)
var
Tableau: TGrille;
(** Pourquoi un ":" après var ???
J'ai renommé le paramètre "tableau" pour éviter la confusion avec la variable globale **)
procedure Tab35(var Tab: TGrille; x: Integer);
(** Déclaration de n, a et b **)
var
n, a, b: Integer;
begin
(** Randomize est appelé en début de programme seulement : je l'ai déplacé **)
{randomize;}
n := 0;
while n < 35 do
begin
a := Random(x) +1;
b := Random(x) +1;
(** a et b ont été choisi, c'est ici qu'il faut toucher au tableau, pas en dehors de la boucle ! **)
Tab[a, b] := 1;
(** Il faut incrémenter n, et il manque le test de vérification dont j'ai parlé **)
Inc(n);
end;
(** C'est une procédure : un ";" après le end... **)
end;
(** Où est le programme principal ??? Ajouté... **)
begin
Randomize;
Tab35(Tableau, 10);
end. |
