tri par le recherches des minimums successifs
action tri()
{
p,p_min : pointeurs
p<-tl
tantque (p!=NULL) faire
{
p_min<-minimum(p);
echanger(p,p_min);
p<-suivant(p);
}
}
module minimum(tl : pointeur): pointeur
{
p,p_min : pointeurs
p_min<-null
tantque(p!=NULL)faire
{
si(valeur(p)<p_min)alors
{
p_min=p
}
p<-suivant(p)
}
retourne p_min
}
module echanger (p1,p2: pointeur)
{
tempo:<type>
tempo<-valeur(p1);
affval(p1,valeur(p2))
affval(p2,tempo)
}
Message édité par corvincent le 06-08-2002 à 19:39:36