@Bitsetter
Diese Methode ist sehr gut. Könntest du mir deine Version erläutern, wie sie im genaueren Funktioniert?
U.a:
Delphi-Quellcode:
procedure VertauscheZahlen(var zahlA, zahlB: integer);
var
Puffer: integer;
begin
Puffer := zahlA;
zahlA := zahlB;
zahlB := Puffer;
end;
und...
procedure VergleicheZahlen(var zahlA, zahlB: integer);
begin
if zahlB < zahlA then
VertauscheZahlen(zahlA, zahlB);
end;
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
zahl1, zahl2, zahl3, zahl4: integer;
begin
zahl1 := StrToInt(Edit1.Text);
zahl2 := StrToInt(Edit2.Text);
zahl3 := StrToInt(Edit3.Text);
zahl4 := StrToInt(Edit4.Text);
VergleicheZahlen(zahl1, zahl2);
VergleicheZahlen(zahl1, zahl3);
VergleicheZahlen(zahl1, zahl4);
VergleicheZahlen(zahl2, zahl3);
VergleicheZahlen(zahl2, zahl4);
VergleicheZahlen(zahl3, zahl4);
Was passiert bei "VergleicheZahlen"? Wird dort das gleiche wie bei "max" gemacht? Und was hat es mit dem Puffer aus sich? (Erste zitierte Prozedur)