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 ?