Discussion :

[hamzan95]

Sakut,

J'étudie le Pascal pour mon projet scolaire.

J'ai essayé de trouver une solution pour le programme suivant. Je voudrais créer un programme qui affiche un tableau carré de 20 cellules de côté et qui affiche ses valeurs maximale et minimale.

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
27
28
29
30
31
32
 
program arr(i,o);
var A1:array[1..20,1..20] of integer ;
i,j,min,max : integer;
begin
for i := 1 to 20 do
for j:= 1 to 20 do
        begin
read(A1[i,j]);
end;
min:=A1[1,1];
max:=A1[1,1];
for i := 1 to 20 do
begin
for j:= 1 to 20 do
begin
 if A1[i,j]> max then
 max:=A1[i,j];
 if A1[i,j]<min then
 min:=A1[i,j];
 end;
end;
for i := 1 to 20 do
begin
for j:= 1 to 20 do
write(A1[i,j]:20);
writeln;
end;
writeln('max:=',max);
writeln('min:=',min);
readln;
end.

J'utilise Dev-Pascal.
Le compilateur ne trouve aucune erreur mais lorsque j'exécute le programme et entre les valeurs, à la fin le programme se termine sans afficher quoi que ce soit.

[bataff]

Bonsoir !
J'ai testé ton programme avec une version windows 32bits de fpc 3.0.0, je n'utilise pas dev-pascal ceci-dit. J'ai aussi diminué le nombre de 20x20 à 4x4 pour éviter de tester avec 400 valeurs à rentrer une par une

Je n'ai vu aucune erreur dans le code et Il fonctionne, mais le programme quitte juste après avoir tout affiché.

Cependant c'est la ligne 9 qui m'a fait rappeler que l'instruction read posait souvent des problèmes (un bug ou peut-être que read s'emploie d'une certaine façon, aucune idée ), et j'ai mis readln à la place. Et là ça marche.