|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
Delphi 12 Athens
|
AW: Mathematiknachhilfe...
16. Jun 2012, 17:09
Delphi-Quellcode:
function KomischerProzentwert(Prozent: integer): integer;
const
VALMAX = 255;
VALMIN = 128;
OFFSET = VALMAX - VALMIN;
var
PrzVal: integer;
begin
PrzVal := Round(OFFSET / 100 * Prozent);
Result := VALMAX - PrzVal;
end;
Danach sind die 50% allerdings 191, siehe Frederic.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|