source code clone download copy to clipboard report bug / make suggestion

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Imports System
Public Class B
    Public Shared Sub Main()
        Dim vencimento_mensal As Double
        vencimento_mensal = Console.ReadLine().Replace(".", ",")
 
 
        'Console.WriteLine(Math.Round(CDec(vencimento_mensal) * 13.5, 1))
        'Console.ReadLine()
        'End
 
        ' 2010
        Console.WriteLine(Math.Round(Val(vencimento_mensal) * 14, 1).ToString("#0.0").Replace(",", "."))
 
        ' 2011
        If vencimento_mensal > 485 Then
            Console.WriteLine(Math.Round(Val(vencimento_mensal) * 13.5, 1).ToString("#0.0").Replace(",", "."))
        Else
            Console.WriteLine(Math.Round(Val(vencimento_mensal) * 14, 1).ToString("#0.0").Replace(",", "."))
        End If
 
        ' 2012
        If vencimento_mensal > 1100 Then
            Console.WriteLine(Math.Round(Val(vencimento_mensal) * 12, 1).ToString("#0.0").Replace(",", "."))
        ElseIf vencimento_mensal <= 600 Then
            Console.WriteLine(Math.Round(Val(vencimento_mensal) * 14, 1).ToString("#0.0").Replace(",", "."))
        Else
            Console.WriteLine(Math.Round(Val(vencimento_mensal) * 14 - (1320 - 1.2 * Val(vencimento_mensal)) * 2, 1).ToString("#0.0").Replace(",", "."))
        End If
 
        'Console.ReadLine()
    End Sub
End Class

clone download copy to clipboard

• upload with new input
  You have reached a limit of free submissions this month.
  You cannot send submissions this month anymore because of exceeding your monthly limit. Please recharge your account.
  
• # 2:   hide show   clone   input   105 days 9 hours ago    Runtime error

  result: Runtime error     time: 0.16s    memory: 36984 kB     signal: -1

  input:

  Imports System
  Public Class B
      Public Shared Sub Main()
          Dim vencimento_mensal As Double
          vencimento_mensal = "1500.0".Replace(".", ",")
  
  
          'Console.WriteLine(Math.Round(CDec(vencimento_mensal) * 13.5, 1))
          'Console.ReadLine()
          'End
  
          ' 2010
          Console.WriteLine(Math.Round(Val(vencimento_mensal) * 14, 1).ToString("#0.0").Replace(",", "."))
  
          ' 2011
          If vencimento_mensal > 485 Then
              Console.WriteLine(Math.Round(Val(vencimento_mensal) * 13.5, 1).ToString("#0.0").Replace(",", "."))
          Else
              Console.WriteLine(Math.Round(Val(vencimento_mensal) * 14, 1).ToString("#0.0").Replace(",", "."))
          End If
  
          ' 2012
          If vencimento_mensal > 1100 Then
              Console.WriteLine(Math.Round(Val(vencimento_mensal) * 12, 1).ToString("#0.0").Replace(",", "."))
          ElseIf vencimento_mensal <= 600 Then
              Console.WriteLine(Math.Round(Val(vencimento_mensal) * 14, 1).ToString("#0.0").Replace(",", "."))
          Else
              Console.WriteLine(Math.Round(Val(vencimento_mensal) * 14 - (1320 - 1.2 * Val(vencimento_mensal)) * 2, 1).ToString("#0.0").Replace(",", "."))
          End If
  
          'Console.ReadLine()
      End Sub
  End Class

  output: no
  stderr:

  Unhandled Exception: System.InvalidCastException: Conversion from string "Imports System" to type 'Double' is not valid. ---> System.FormatException: Unknown char: I
    at System.Double.Parse (System.String s, NumberStyles style, IFormatProvider provider) [0x00000] 
    at System.Double.Parse (System.String s, IFormatProvider provider) [0x00000] 
    at Microsoft.VisualBasic.CompilerServices.DoubleType.Parse (System.String Value, System.Globalization.NumberFormatInfo NumberFormat) [0x00000] 
    at Microsoft.VisualBasic.CompilerServices.DoubleType.FromString (System.String Value, System.Globalization.NumberFormatInfo NumberFormat) [0x00000] 
    --- End of inner exception stack trace ---
    at Microsoft.VisualBasic.CompilerServices.DoubleType.FromString (System.String Value, System.Globalization.NumberFormatInfo NumberFormat) [0x00000] 
    at Microsoft.VisualBasic.CompilerServices.DoubleType.FromString (System.String Value) [0x00000] 
    at Microsoft.VisualBasic.CompilerServices.Conversions.ToDouble (System.String Value) [0x00000] 
    at B.Main () [0x00000] 
  

• # 1:   hide show   clone   input   105 days 9 hours ago    Runtime error

  result: Runtime error     time: 0.09s    memory: 36632 kB     signal: -1

  input: no
  output: no
  stderr:

  Unhandled Exception: System.NullReferenceException: Object reference not set to an instance of an object
    at B.Main () [0x00000]