Delphi Auf einen standartisierten Wert aufrunden

Thema durchsuchen

Ansicht

Themen-Optionen

Auf einen standartisierten Wert aufrunden

Ein Thema von rebellpk · begonnen am 1. Mär 2006 · letzter Beitrag vom 2. Mär 2006

Vorheriger Beitrag

Nächster Beitrag

Grishnak

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, 12: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!