Höchsten Wert von 5 Integer-Variablen bestimmen

[DevidEspenschied]

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.

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

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

[BoolString]

Ungefragte Stimme aus dem Seitenaus:

Ich bin mir gerad enicht ganz sicher, ob der Frage die Trennung zwischen Code und compiliertem Programm verinnerlicht hat. Er hat 5 verschiedene Variablen, denen er einen Random-Wert zuweist. der Compiler macht daraus aber 5 Speicherstellen, die mit seiner Variablenbenennung überhaupt nichts zu tun hat. Diese existieren nur in seinem Code und sind für die bessere Lesbarkeit in Hochsprachen möglich.

Entweder geht man den Weg über ein Array oder aber man erzeugt sich einen Record, in dem man auch den Namen für jedes Objekt definieren kann.

Jetzt mal ohne Delphi ins blaue geschrieben:

Delphi-Quellcode:

Array[1] := Random (99);
Array[2] := Random (99);

Auch wenn hier eine Schleife mit von For x= 0 to High (MaxArray) do besser wäre oder man macht das ganze per Record

Delphi-Quellcode:

type
  TArray = record
    Name: string;
    Vaue: Double;
  end;

Var
  MyArray : Array of tArray;

Begin
  SetLength (MyArray, 2);
  MyArray.Name[1]  := 'Gummibaum'; 
  MyArray.Value[1] := Random (99); 

  MyArray.Name[2]  := 'Gemüsebeet'; 
  MyArray.Value[2] := Random (99); 
{...}
  
end;

oder so ähnlich...

Jan

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

[DeddyH]

Zitat von devidespe:

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

Das glaube ich nicht, Tim