Registriert seit: 15. Sep 2005
Ort: Neu-Ulm
111 Beiträge
RAD-Studio 2009 Arc
|
Re: Auf einen standartisierten Wert aufrunden
2. Mär 2006, 13:45
Ich würde im Array nach der ersten Zahl suchen, die größer als meine ungerundete Zahl ist (dazu sollte das Array als letzte Zahl einen "Stopper" erhalten "StdWidst[24]:=High(integer);"). Anschließend die Differenz zu dieser und zur nächstkleineren Zahl bestimmen. Dann von den beiden die Zahl nehmen, wo die Differenz am kleinsten ist.
Mach' etwas idiotensicher und irgendjemand erfindet einen besseren Idioten!
|