Zyklische Strukturen
FOR - (DOWN)TO - DO
Runden einer DezimalzahlEs ist ein nutzerfreundliches Delphiprogramm zu erstellen, welches reelle Zahlen nach den gültigen Rundungsregeln auf eine bestimmte Anzahl von Nachkommastellen rundet. |
||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||
|
Die Zahl ist so oft mit 10 zu multiplizieren, wie zuverlässige Stellen angegeben werden sollen. Dadurch rutscht das Komma entsprechend weit nach rechts. Um die gültige Rundungsregel zu beachten, ist jetzt mit 0,5 (Pascal: 0.5) zu addieren. Nachdem mit der Funktion TRUNC() alle Nachkommastellen abgeschnitten wurden, kann das Komma wieder zurück geschoben werden. Dazu wird so oft durch 10 dividiert, wie verlässliche Stellen angegeben werden sollen. |
||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||
| Lösung | ||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|
|
||||||||||||||||||||||||||||||||||||||||||||||||
