Arraywerte komplett auf zwei Nachkommstellen runden

[Samson]

Guten Abend zusammen!
Hat jemand eine Idee wie ich mit wenig Aufwand alle in meinem statischen Array gespeicherten Werte auf zwei Nachkommastellen runden kann?
Grüße

[u-boot]

Mit einer Schleife das Array durchgehen lassen und mit Round runden.

[theo]

Bzw. mit RoundTo http://www.freepascal.org/docs-html/rtl ... undto.html" onclick="window.open(this.href);return false;

z.B. RoundTo(2.323322,-2)

[Samson]

Danke für die schnellen Antworten. Wenn ich aber folgendes schreibe, dann spuckt er mir den Wert trotzdem mit 9 Nachkommastellen aus:

Code: Alles auswählen

g[i,1] := round((20+b/2+cos((i-1)*2*pi/n)*r)*100)/100;

das macht doch keinen Sinn, vor allem weil wenn ich die Division durch 100 am Ende weglasse mein Ergebnis da steht nur das Komma muss noch zwei nach links. Daher korrekter Weise *gerundete Zahl*/100...aber dann bumm wieder 9 NKS!

[u-boot]

Runden und Ausgeben sind ganz unterschiedliche Dinge.

Kommen denn gerundete Zahlen bei dir raus oder sind hinter den ersten beiden Kommastellen nur noch Nullen bzw. nur noch Neunen ?

Wenn nur gekürzte Ausgabe auf zwei Nachkommastellen gewünscht, kann Format oder Formatfloat helfen.

[Samson]

Aber beim teilen durch hundert tritt der Fehler auf, das is das Problem. Die gerundeten Werte schreibt er mir korrekt ins Array nur die Division durch hundert mag er nich.
Beispiel:

Code: Alles auswählen

g[1,1] := round(1,234676*100);
==> g[1,1] = 123

funktioniert! Dann nochmal durch 100 um auf 1,23 zu kommen...8 NKS! Hääh?

[u-boot]

P.S. ... habs gerade ausprobiert.

Eventuell hilft dir auch einfach eine Umstellung von single zu double.

Hab mein kleines TestProjekt dazu mal angehängt.

[u-boot]

Dann nochmal durch 100 um auf 1,23 zu kommen...8 NKS! Hääh?

Der Computer rechnet ja binär und mit Ungenauigkeiten, das darf man nicht vergessen.

[Samson]

U-Boot ist mega- ! hehe
Ich danke dir vielmals...es lag daran das die Arrayeinträge als Single-Typ definiert waren. Auf einmal klappts auch mit dem roundto!
Super dass du das miniprogramm hochgeladen hast. Viele Grüße