ALGO
Fermé
LILA
-
9 févr. 2009 à 18:59
oh9007 Messages postés 41 Date d'inscription mardi 10 février 2009 Statut Membre Dernière intervention 15 septembre 2010 - 10 févr. 2009 à 09:47
oh9007 Messages postés 41 Date d'inscription mardi 10 février 2009 Statut Membre Dernière intervention 15 septembre 2010 - 10 févr. 2009 à 09:47
2 réponses
d@v
Messages postés
6
Date d'inscription
lundi 22 décembre 2008
Statut
Membre
Dernière intervention
20 mars 2009
9 févr. 2009 à 19:17
9 févr. 2009 à 19:17
const N=30
procedue trier(tab[N] entier)
debut
var i :entier
temp:entier
for i:=1 to N-1 do
for j:=2 to N do
if tab[i]>tab[j] then
temp:=tab[i]
tab[i]:=tab[j]
tab[j]:=temp
finif
ffor
ffor
fproc
procedue trier(tab[N] entier)
debut
var i :entier
temp:entier
for i:=1 to N-1 do
for j:=2 to N do
if tab[i]>tab[j] then
temp:=tab[i]
tab[i]:=tab[j]
tab[j]:=temp
finif
ffor
ffor
fproc
oh9007
Messages postés
41
Date d'inscription
mardi 10 février 2009
Statut
Membre
Dernière intervention
15 septembre 2010
3
10 févr. 2009 à 09:47
10 févr. 2009 à 09:47
algorithmme tri;
var t:tableau [1..100]d'entier;
x,i,j,n:entier;
debut
lire(n);{la taille de tab}
pour i:=1 à n-1 fair
pour j:=i+1 à n fair
si t[i]>t[j] alors
x:=t[i];
t[i]:=t[j];
t[j]:=x;
fair;
pour i:=1 à n fair
ecrir(t[i]);
var t:tableau [1..100]d'entier;
x,i,j,n:entier;
debut
lire(n);{la taille de tab}
pour i:=1 à n-1 fair
pour j:=i+1 à n fair
si t[i]>t[j] alors
x:=t[i];
t[i]:=t[j];
t[j]:=x;
fair;
pour i:=1 à n fair
ecrir(t[i]);