RosettaCodeData/Task/Literals-Floating-point/FreeBASIC/literals-floating-point.basic

15 lines
377 B
Plaintext

' FB 1.05.0 Win64 (default dialect)
Dim a As Double = 123.456
Dim b As Double = -123.0
Dim c As Double = -123.0d
Dim d As Double = -123e
Dim e As Double = 743.1e+13
Dim f As Double = 743.1D-13
Dim g As Double = 743.1E13
Dim h As Single = 743D! Rem ! overrides D
Dim i As Single = 3.1!
Dim j As Single = -123.456e-7f
Dim k As Double = 0#
Dim l As Double = 3.141592653589e3#