Höchsten Wert von 5 Integer-Variablen bestimmen

[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]

[DeddyH]

So finde ich es flexibler (ungetestet):

Delphi-Quellcode:

function MaxIntValueIndex(const Values: array of integer; out MaxValue: integer): integer;
var
  i: integer;
begin
  if Length(Values) < 1 then
    raise Exception.Create('Keine Daten übergeben');
  Result := Low(Values);
  MaxValue := Values[Result];
  for i := Low(Values) + 1 to High(Values) do
    if Values[i] > MaxValue then
      begin
        Result := i;
        MaxValue := Values[Result];
      end;
end;

[edit] Wobei der Hinweis von Gammatester natürlich hier auch außer Acht gelassen wird. Wenn man alle Vorkommen ermitteln will, kommt man um ein Result-Array o.ä. wohl kaum herum. [/edit]

[himitsu]

Wobei dein OpenArray nicht unbedingt ein externes Variablen-Array benötigt.

Delphi-Quellcode:

ValueIndex := MaxIntValueIndex([Var1, Var2, Var3, Var4, Var5], MaxValue);
ShowMessage(Format('Die (erste) größte Variable ist Var%d, mit %d', [ValueIndex + 1, MaxValue]));

[Luckie]

Jungs, bremst euch selber mal. Für mich sieht das eher aus wie eine Schulaufgabe. Man sollte den Wissenstand und das Unterrichtsziel berücksichtigen. Allerdings wozu der Variablenname gebraucht wird, weiß ich auch nicht.

[Delphi-Laie]

Zitat von Luckie:

Jungs, bremst euch selber mal. Für mich sieht das eher aus wie eine Schulaufgabe. Man sollte den Wissenstand und das Unterrichtsziel berücksichtigen. Allerdings wozu der Variablenname gebraucht wird, weiß ich auch nicht.

Luckie, freu' Dich doch, wenn wir halbwegs zur Hochform auflaufen (ein Moderator ist doch auch immer ein wenig ein Erwachsenenpädagoge).

Der Frager kann ja das extrahieren (bzw. entnehmen), was er versteht, oder eben nachfragen. Erstaunlich ist doch sicher nicht nur für ihn, daß eine solch simple Angelegenheit auf so unterschiedliche Weise gelöst werden kann.

[BUG]

Zitat von Luckie:

Allerdings wozu der Variablenname gebraucht wird, weiß ich auch nicht.

Versteh einer die Lehrer

Zitat von Delphi-Laie:

Der Frager kann ja das extrahieren (bzw. entnehmen), was er versteht, oder eben nachfragen.

Zumal der TE schon eine funktionierende Lösung (die für eine Lehrer völlig ausreichen sein sollte) hat und nach einer eleganteren Lösung gefragt hat.

Zitat von devidespe:

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.