TRI SELECTION

Voir le sujet précédent Voir le sujet suivant Aller en bas

TRI SELECTION

Message par haiethem le Dim 5 Avr - 23:02

procedure tri(var t:tab;n:integer);


function min (t:tab;n,i:integer):integer;
begin
m:=i;
for j:=1+i to n do if t[m]>t[j] then m:=j;
min:=m;
end;


procedure permut(var a,b:real);
begin
z:=a;
a:=b;
b:=z;
end;


begin
for i:= 1 to n-1 do
begin
permut(t[min(t,n,i)],t[i]);
end;
end;

_________________
=================================
Haiethem Elguediri
Lycée Secondaire Mareth
+21652084191
+21652906038
+21631139805
+21675321050
haiethem@gmail.com
www.haiethem.tk
avatar
haiethem

Messages : 419
Points : 14770
Réputation : 3
Date d'inscription : 08/11/2010
Age : 41

Voir le profil de l'utilisateur http://www.haiethem.tk

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum