SELECT CASE Irregularity

[Jack]

interesting Steve
a tiny change on your snippet for better output

Code: (Select All)

$Console:Only

_Dest _Console



Dim i As Integer

'Dim As Single x



For x = 0 To 2 Step .1

    i = x

    Print Using "##.##  "; x, i,

    Select Case i

        Case Is < x: Print "Round Down",

        Case Is = x: Print "Equal",

        Case Is > x: Print "Round up",

    End Select

    Select Case x

        Case Is > i: Print "Round Down"

        Case Is = i: Print "Equal"

        Case Is < i: Print "Round up"

    End Select

Next

I get

Code: (Select All)

0.00  0.00  Equal          Equal

0.10  0.00  Equal          Round Down

0.20  0.00  Equal          Round Down

0.30  0.00  Equal          Round Down

0.40  0.00  Equal          Round Down

0.50  0.00  Equal          Round Down

0.60  1.00  Equal          Round up

0.70  1.00  Equal          Round up

0.80  1.00  Equal          Round up

0.90  1.00  Equal          Round up

1.00  1.00  Equal          Round Down

1.10  1.00  Equal          Round Down

1.20  1.00  Equal          Round Down

1.30  1.00  Equal          Round Down

1.40  1.00  Equal          Round Down

1.50  2.00  Equal          Round up

1.60  2.00  Equal          Round up

1.70  2.00  Equal          Round up

1.80  2.00  Equal          Round up

1.90  2.00  Equal          Round up

in FreeBasic I get

Code: (Select All)

0            0            Equal        Equal

0.1          0            Round Down    Round Down

0.2          0            Round Down    Round Down

0.3          0            Round Down    Round Down

0.4          0            Round Down    Round Down

0.5          0            Round Down    Round Down

0.6          1            Round up      Round up

0.7          1            Round up      Round up

0.8000001    1            Round up      Round up

0.9000001    1            Round up      Round up

1            1            Round Down    Round Down

1.1          1            Round Down    Round Down

1.2          1            Round Down    Round Down

1.3          1            Round Down    Round Down

1.4          1            Round Down    Round Down

1.5          2            Round up      Round up

1.6          2            Round up      Round up

1.7          2            Round up      Round up

1.8          2            Round up      Round up

1.9          2            Round up      Round up