niedrigstes Ergebnis raussuchen

[marabu]

Moin,

was soll das werden - eine Palettenstapel-Optimierung?

Ich würde zumindest die Lastberechnungen in eine Funktion auslagern:

Delphi-Quellcode:

const
  G = 9.81;

function CalcPallets(n, load: Word; var weight, momentum: Double): Boolean;
begin
  Result := n in [1..6];
  if Result then
  begin
    weight := n * load * G / 2;
    case n of
      1, 2: momentum := weight * 0.45;
      3, 4: momentum := weight * 1.35 - load * G * 0.9;
      5, 6: momentum := weight * 2.25 - load * G * 1.8 - load * G * 0.9;
    end;
  end;
end;

Grüße vom marabu