Je n'y arrive pas, voici mon code si quelqu'un a une idée de ce que ça peut être, c'est le tri par insertion, Merci,
Patineur = Record
Nom: String [20];
Prenom: String [20];
Notes: Array [1..max_juges] Of integer;
Moyenne:Array[1..max_Patineurs]of real;
moy:real;
End;
//tri
For i:=2 to max_patineurs do
begin
tampon:= les_patineurs[i].moy;
j:=j-1;
while ((j>0) and (Les_Patineurs[j].moy>=tampon)) do
begin
les_patineurs[i+1]:=les_patineurs[i];
j:=j-1;
end; //for while
end; // for i
les_patineurs[indice].moy:=temp2;
for j:=1 to max_patineurs do
begin
writeln('les patineurs',temp2:6:2);
end; //for j
Message édité par green68 le 08-09-2005 à 03:47:50