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 |
Partager