Tutorial
Runden in FreeBASIC
Function Runde(Variable As Double, Nachkomma As Integer) As Double
Dim Wert As Double=10^Nachkomma 'Der Double-Wert wird zweimal benötigt..
Return CInt(Variable*Wert)/Wert
End Function
Dim As Single a=68.70, b=59.03
Dim As Double c=a, d=b
Print "Ohne Runden"
Print "a=" &a
Print "b=" & b
Print "a-b=" &a-b
Print "c=" &c
Print "d=" &d
Print "c-d=" &c-d
c=Runde(c, 2)
d=Runde(d, 2)
Print "Mit Runden"
Print "a=" &a
Print "b=" & b
Print "a-b=" &a-b
Print "c=" &c
Print "d=" &d
Print "c-d=" &c-d
Sleep
Zu weiteren Informationen über die Probleme beim Umgang mit Double's siehe dreaels Homepage.
Dieses Tutorial bezog sich auf die Anzahl der Nachkommastellen von Dezimalzahlen. Für eine formatierte Ausgabe(z.B.) in Tabellen ist es immer noch nötig Format() zu benutzen oder Print Using "..".
Wobei Print Using ".." Punktgewinne durch die formatierte Ausgabe auf dem Bildschirm kassiert, während Format() den formatierten String in einer Variablen speichern kann.
Fröhliches Runden
Gruß
ytwinky
Gehe zu Seite
1 2 3 4
Zusätzliche Informationen und Funktionen |
- Das Tutorial wurde am 09.10.2007 von ytwinky angelegt.
- Die aktuellste Version wurde am 04.09.2010 von ytwinky gespeichert.
|
|