Discussion :

[Djemàa]

Salut

Voici un programme que j'ai créé pour remplir un tableau aléatoire puis mettre ses éléments en ordre croissant en utilisant un tri par insertion.
La compilation est correcte mais je n’obtiens pas que je veux dans l’exécution.

Code Turbo Pascal :

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
33
34
35
36
37
38
39
40
Program
Uses crt ;
Const n=5 ;
Type tab :array[1..n] of integer ;
Var t :tab ; i : integer ;
Procedure rando(t :tab ; i :integer) ;
Begin
  Randomize ;
  For i :=1 to n do
    Begin
      T[i] := random(5) ;
    End ;
  For i :=1 to n do
    Begin
      Writeln (t[i]) ;
    End ;
End ;
Procedure tri(t :tab ;i :integer) ;
Var k,j :integer ;
Begin
  K :=t[i] ;
  J :=i ;
  While (i>0) and (t[j-1]>k) do
    Begin
      t[j] :=t[j-1] ;
      j :=j-1 ;
    end ;
  t[j] :=k ;
end ;
begin
  clrscr ;
  for i :=1 to n do
    begin
      writeln(‘entrz une valeur :’) ;
      readln(t[i]) ;
    end ;
  rando(t,n) ;
  tri(t,n) ;
  readln ;
end.

Que dois-je faire ?

[Roland Chastain]

Bonjour !

Pour qu'une nouvelle valeur soit attribuée à ta variable t, il faut ajouter le mot "var" dans la déclaration de la procédure :

Code :

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

Procedure rando(var t :tab ; i :integer) ;

Si tu ne fais pas cela, la valeur de la variable de référence reste inchangée. Mais comme tu as mis ton test

Code :

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

1
2
3
4
For i :=1 to n do
Begin
Writeln (t[i]) ;
End ;

à l'intérieur de la procédure, tu as cru que la valeur de la variable était changée, ce qui n'était pas le cas : elle est changée à l'intérieur de la procédure, mais pas à l'extérieur.

[Djemàa]

Merci pour votre remarque.
J'ai fait cette modification mais j'obtiens toujours le même résultat : par exemple, si j’entre 5 7 9 4 2, à l'exécution j'obtiens 0 0 1 4 3.

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
33
34
35
36
37
38
39
40
Program
Uses crt ;
Const n=5 ;
Type tab :array[1..n] of integer ;
Var t :tab ; i : integer ;
Procedure rando(var t :tab ; i :integer) ;
Begin
Randomize ;
For i :=1 to n do
Begin
T[i] := random(5) ;
End ;
End ;
Procedure tri(t :tab ;i :integer) ;
Var k,j :integer ;
Begin
K :=t[i] ;
J :=i ;
While (i>0) and (t[j-1]>k) do
Begin
t[j] :=t[j-1] ;
j :=j-1 ;
end ;
t[j] :=k ;
end ;
begin
clrscr ;
for i :=1 to n do
begin
writeln(‘entrz une valeur :’) ;
readln(t[i]) ;
end ;
rando(t,n) ;
tri(t,n) ;
for i :=1 to n do
begin
writeln(t[i]);
end;
readln ;
end.

[droggo]

Hoi,

1 - Il faut penser à utiliser la balise [code] pour poster ton code, elle respectera l'indentation, et s'occupera de la coloration syntaxique.

2 - Après la remarque de Roland Chastain concernant l'utilisation du mot clé var pour ta procédure rando, n'as-tu pas l'impression qu'il faudrait relire ton code, et vérifier si ça ne manque pas ailleurs ?

[Djemàa]

salut

et finalement j'arrive au résultat
voici la correction
merci pour les remarques

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 Program intertion;
  uses crt;
  Type  tab =array[1..100] of integer ;
  Var   t :tab ; i,n,k : integer ;
 
  function  rando(n :integer):integer ;
   Begin
   rando := random(n) ;
  End;
 
 
 
  Procedure  tri(taille:integer; var tabl:tab) ;
  var
  invert:Boolean;  tmp:integer;
  begin
  invert:=true;
  while invert=true do begin
    invert:=false;
    for i := 1 to taille-1 do begin
       if tabl[i] > tabl[i + 1] then  begin
         tmp:= tabl[i];
         tabl[i] := tabl[i+ 1];
         tabl[i+1] := tmp ;
         invert := True;
       end;
    end;
  end;
  End;
 
 
 
  begin
  Randomize ;
  write('quelle est la taille du  tableau ? : ') ;
  read(n) ;
  k:=100;    {les nombres alétoires sont inclus dans 0 et 100}
 
  for i:=1 to n do begin
      t[i]:=rando(k);
  end;
  writeln(' ') ;
  writeln('-- avant tri ------') ;
  for   i :=1 to n do
        begin
        write(t[i]) ; write(' - ') ;
        end ;
  readln ;
  writeln(' ') ;
  writeln(' ') ;
  writeln('-- après tri ------') ;
 
  tri(n,t) ;
 
  for   i :=1 to n do
        begin
        write(t[i]) ; write(' - ') ;
       end ;
  readln ;
 
  end.