Denkproblem: Skalierungsfaktor

[Basilikum]

Delphi-Quellcode:

function getfactor(horig,worig,hmax,wmax:integer):real;
begin
  result:=min(hmax / horig,wmax / worig); // min: Unit Math

  // ev. Vergrösserung verhindern:
  if (result > 1) then result:=1;
end;