Bonjour à tous,

Je dois faire un algorithme en utilisant les procédures et qui permet de :

  1. remplir un vecteur de 20 éléments ;
  2. afficher les éléments du vecteur ;
  3. trier la liste dans l'orde croissant ;
  4. afficher les éléments du tableau ;
  5. trier le vecteur dans l'orde décroissant ;
  6. afficher les élèments du tableau.


Mon essai :

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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
debut
    remplissage
    affichage
    triec
    affichage
    trid
    affichage
fin
 
var
tab(20) entier
i,j entier
 
debut
 
procedure remplissage
pour i = 1 à 19
     pour j = 1 to 19
         ecrire j
             ecrire i
       fin pour
  fin pour
 
fin
 
procedure affichage
pour i = 1 à 19
     pour j = 1 à 19
         lire j
            lire i
       fin pour j
  fin pour i
 
procedure permute
  var
p:Entier
debut
p=t(i)
t(i)=t(j)
t(j)=p
fin
 
procedure tric
debut
    pour i=1 à 19
       pour j= 1 à 19
           SI T(i)>t(j) alors
                permute
       fin pour j
    fin pour i
fin
 
procedure affichage
    pour i=1 à 19
       pour j= 1 à 19
           ecrire t(i)
           ecrie t(j)
       fin pour j
    fin pour i
fin
 
procedure tried
  debut
    pour i=1 à 19
       pour j= 1 à 19
           SI T(i)>t(j) alors
                permute
       fin pour j
    fin pour i
fin
procedure affichage
 pour i=1 à 19
       pour j= 1 à 19
           ecrire t(i)
           ecrie t(j)
       fin pour j
    fin pour i
fin
j'espère que c'est comme ça.