Zahlenreihenfolge mit 4 Zahlen ordnen und anzeigen lassen?

[bitsetter]

Zitat von Mexbuild:

Wird dort das gleiche wie bei "max" gemacht?(Erste zitierte Prozedur)

EDIT: Nein

Zitat von Mexbuild:

Und was hat es mit dem Puffer aus sich? (Erste zitierte Prozedur)

Um die Zahlen tauschen zu können muss ich zahlA zwischenspeichern.

Delphi-Quellcode:

zahlA := zahlB; 
zahlB := zahlA;

So könnte ich die Zahlen nicht vertauschen.


Im Endeffekt möchte ich, dass zahl1 die kleinste Zahl und zahl4 die größte Zahl wird. Dazu muss ich alle Zahlen systematisch miteinander vergleichen: procedure VergleicheZahlen() .
Wenn zum Beispiel

Delphi-Quellcode:

   
  zahl1 := 5;
  zahl4 := 1;
  VergleicheZahlen(zahl1, zahl4);

dann würde daraus zahl1 = 1 und zahl4 = 5 werden.
Der Code ist natürlich noch nicht optimal aber er funktioniert.