Submission #330391

---

Source Code Expand

Module Module1
    Public Sub Main()
        Dim strPerms As String() = Split(Console.ReadLine, " ")
        Dim intDeg As Integer = Integer.Parse(strPerms(0))
        Dim sigDis As Single = Int(Single.Parse(strPerms(1)) / 6 + 0.5) / 10
        Dim strDir As String
        Dim intW As Integer

        Select Case intDeg
            Case Is <= 112
                strDir = "N"
            Case Is <= 337
                strDir = "NNE"
            Case Is <= 562
                strDir = "NE"
            Case Is <= 787
                strDir = "ENE"
            Case Is <= 1012
                strDir = "E"
            Case Is <= 1237
                strDir = "ESE"
            Case Is <= 1462
                strDir = "SE"
            Case Is <= 1687
                strDir = "SSE"
            Case Is <= 1912
                strDir = "S"
            Case Is <= 2137
                strDir = "SSW"
            Case Is <= 2362
                strDir = "SW"
            Case Is <= 2587
                strDir = "WSW"
            Case Is <= 2812
                strDir = "W"
            Case Is <= 3037
                strDir = "WNW"
            Case Is <= 3262
                strDir = "NW"
            Case Is <= 3487
                strDir = "NNW"
            Case Else
                strDir = "N"
        End Select

        Select Case sigDis
            Case 0.0 To 0.2
                strDir = "C"
                intW = 0
            Case Is <= 1.5
                intW = 1
            Case Is <= 3.3
                intW = 2
            Case Is <= 5.4
                intW = 3
            Case Is <= 7.9
                intW = 4
            Case Is <= 10.7
                intW = 5
            Case Is <= 13.8
                intW = 6
            Case Is <= 17.1
                intW = 7
            Case Is <= 20.7
                intW = 8
            Case Is <= 24.4
                intW = 9
            Case Is <= 28.4
                intW = 10
            Case Is <= 32.6
                intW = 11
            Case Else
                intW = 12
        End Select

        Console.WriteLine(strDir & " " & intW)
    End Sub
End Module

Submission Info

Judge Result