Listbox

[marabu]

Hi.

Durchschnitt und (arithmetischer) Mittelwert sind landläufig dasselbe. Wenn du aber den mittleren Wert (Median) brauchst, dann musst du deine Werte erst sortieren. Maximum und Minimum sind dann Abfallprodukte des Sorts und der Median ergibt sich zu:

Delphi-Quellcode:

function Median(s: TStrings): Extended;
var
  iMedian: Integer;
begin
  iMedian := s.Count div 2;
  if Odd(s.Count)
    then Result := StrToInt(s[iMedian])
    else Result := (StrToInt(s[iMedian]) + StrToInt(s[Pred(iMedian)])) / 2;
end;

Grüße vom marabu