Höchsten Wert von 5 Integer-Variablen bestimmen

[Sir Rufo]

Er meint auch definitv den Wert und nicht die Variable, schaut mal auf seine Ausgabe

[DeddyH]

Dann schau nochmal auf meine beiden Edits in #2. Beschreibung und Code widersprechen sich ja in der Hinsicht.

[devidespe]

Hi,

danke für die Antworten. Ich meine den Wert und die dazugehörige Variable. Im ShowMessage-Text muss ich die Variable benennen können.

[himitsu]

Alle Variablen nacheinander prüfen (IF), wenn der Wert größer ist, dann den größeren Wert und die Variable merken. (ist natürlich in einer Schleife etwas schöner)

Oder den größten Wert bestimmen und danach die/eine Variable mit diesem Wert raussuchen.

[Aphton]

Delphi-Quellcode:

uses (...), math;

(...)

  ShowMessage(IntToStr(max(var1, max(var2, max(var3, max(var4, var5))))));

somit erhältst du den größten Wert am elegantesten mMn!

[devidespe]

Die Verschachtelung des Max-Befehls in ShowMessage liefert mir den höchsten Wert, aber nicht den Variablennamen.

Ich habe das jetzt mit mehreren If-Schleifen gelöst, die nicht nur den höchsten Wert abfragen, sondern auch in einer temporären Variable den Variablenamen speichern.

[DeddyH]

Zitat von devidespe:

Ich habe das jetzt mit mehreren If-Schleifen gelöst,...

Das glaube ich nicht, Tim

[p80286]

Irgendwann wird niemand mehr assembler,c + ++ delphi, java ........ kennen aber die IF-Schleife wird es immer noch geben.

Gruß
K-H

[Aphton]

Sofern du die Grundlagen von Delphi beherrscht und nicht gerade am Lernen und Üben (zB hiermit) bist, dann könntest du es mit einem Array ganz bequem machen:

Delphi-Quellcode:

var
  i: Integer; 
  Vars: Array[1..5] Integer;
  HighestValue : Integer;
begin
  Randomize;

  for i := 1 to 5 do
    Vars[i] :=Random(99);

  HighestValue:= max(vars[1], max(vars[2], max(vars[3], max(vars[4], vars[5]))));
  
  i := 1;
  while vars[i] <> HighestValue do
    inc(i);

  ShowMessage('Die höchste Variable hat den Wert '+IntToStr(HighestValue) + ' (= var' + IntToStr(i)+')');
end;

[Delphi-Laie]

Zitat von Aphton:

Delphi-Quellcode:

uses (...), math;

(...)

  ShowMessage(IntToStr(max(var1, max(var2, max(var3, max(var4, var5))))));

somit erhältst du den größten Wert am elegantesten mMn!

Das riecht aber verdammt nach Rekursion, die auch eleganter realisiert (implementiert) werden kann.

Maxima (analog Minima) ermittle ich einfach so:

Delphi-Quellcode:

max:=intervariable[1]
for laufvariable:=2 to 5 do if intervariable[laufvariable]>max then max:=intervariable[laufvariable]