Die größte / Zweitgrößte von 4 Variablen bestimmen

[Hawkeye219]

@Vjay

so einfach ist es leider nicht: i1=10, i2=8, i3=4, i4=3

//Edit: Hier ist eine mögliche Lösung:

Delphi-Quellcode:

procedure Sort (a, b, c, d: Integer;  var nr1, nr2, nr3, nr4: Integer);
  var tmp, tmp1, tmp2: Integer;
begin
  // a und b sortieren
  if (a < b) then
    begin
      tmp := a;  a := b;  b := tmp;
    end;

  // c und d sortieren
  if (c < d) then
    begin
      tmp := c;  c := d;  d := tmp;
    end;

  // größte und kleinste Zahl bestimmen
  nr1 := Max(a, c);
  nr4 := Min(b, d);

  // verbleibende Zahlen ermitteln
  tmp1 := Min(a, c);  // oder a + c - nr1
  tmp2 := Min(b, d);  // oder b + d - nr4

  // zweit- und drittgrößte Zahl ermitteln
  nr2 := Max(tmp1, tmp2);
  nr3 := Min(tmp1, tmp2);
end;

Gruß Hawkeye