[Suche] Tutorial zum Berechnen einer EM/WM Tabelle

[shmia]

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;