Lineare Funktionen

[DeddyH]

Da hätte ich auch noch was:

Delphi-Quellcode:

function PixelFromPart(Total, //Gesamtanzahl
 Part, //Einzelergebnis
 Pixelheight  //Höhe des Diagramms in Pixel
 : integer): integer;
var
  Percent: double;
begin
  Result := 0;
  if Total <> 0 then
    begin
      //Prozentualen Anteil errechnen
      Percent := Part / (Total / 100);
      //Und auf die Diagrammhöhe übertragen
      Result := trunc(Pixelheight / 100.0 * Percent);
    end;
end;