max() mit vielen zahlen

[passsy]

hallo

ich kenne die funktion max() mit der man die größte zahle 2er zahlen ermitteln kann

gibt es auch eine standard-function die mehr als 2 zahlen errechnen kann oder muss ich die selber schreiben?

DP-suche geht grad bei mir nich also bitte nich böse sein wenns dasthema scho mal gab

[3_of_8]

Ich glaube nicht. Lässt sich aber relativ leicht machen:

Delphi-Quellcode:

procedure MaxEx(const a: array of Integer): Integer;
var I: Integer;
begin
  if length(a)=0 then
    Result:=0
  else begin
    Result:=a[0];
    for I:=1 to high(a) do
      if a[I]>Result then Result:=a[I];
  end;
end;

[Keldorn]

Hallo

die Delphi-standardroutinen sind maxvalue und maxintvalue, machen aber auch nix anderes.

Mfg Frank

[passsy]

danke

[himitsu]

wenn es nur um ein "paar" Werte geht, dann kann man Max auch mal verschachteln:

Delphi-Quellcode:

x := Max(Max(x1, x2), x3);

[passsy]

Zitat:

Zitat von himitsu

wenn es nur um ein "paar" Werte geht, dann kann man Max auch mal verschachteln:

Delphi-Quellcode:

x := Max(Max(x1, x2), x3);

geht aber nur bis zu ca 30 vars dannack bringts n fehler :(


ich hab 200 vars (zahlen in edits)

[himitsu]

ich sag ja, bei Wenigen :zwinker:

Schleifen gibt's dann och noch: :angel:

Delphi-Quellcode:

X := MinInt;
For i := 1 to 30 do
  X := Max(X, Zahl[i]);

// oder

X := MinInt;
For i := 1 to 30 do
  If Zahl[i] > X Then X := Zahl[i];