Eine geignete Sortiermethode wäre hier
Selectionsort.
Quicksort wäre hier bei der geringen Anzahl mit Kanonen auf Spatzen geschossen.
Du hast die Daten wohl in einem Record oder Klasse vorliegen:
Delphi-Quellcode:
TSpielErgebnis = record
Land : string;
Punkte:integer;
Tore: integer;
KassierteTore : integer;
end;
Dann braucht man noch eine Vergleichsfunktion:
Delphi-Quellcode:
// a besser als b ==> result=-1
// b besser als a ==> result=1
// a gleich gut wie b ==> result=0
function VergleicheSpielErg(const a,b:TSpielErgebnis):integer;
begin
if a.Punkte=b.Punkte then
begin
if (a.Tore-a.KassierteTore) > (b.Tore-b.KassierteTore) then
result := -1 // a ist besser
else
result := 1;
// hier fehlt noch die Überprüfung für den Fall, dass die Tordifferenz gleich ist
end
else if a.Punkte> b.Punkte then
result := -1
else
result := 1;
end;