-
Lenguaje
Visual Basic .Net
-
Descripción
Ingresa por teclado un número con decimales y muestra el valor redondeado al entero más proximo.
1
2
3
4
5
6
7
8
9
10
11
12
13
2
3
4
5
6
7
8
9
10
11
12
13
Module Redondeo
Sub Main()
Dim numero_con_decimales, redondeado As Double
Console.Write("Ingresa el valor de numero con decimales: ")
numero_con_decimales = Double.Parse(Console.ReadLine())
redondeado=Math.Floor(numero_con_decimales+0.5)
Console.WriteLine("Valor de redondeado: " & redondeado)
Console.WriteLine()
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module
Sub Main()
Dim numero_con_decimales, redondeado As Double
Console.Write("Ingresa el valor de numero con decimales: ")
numero_con_decimales = Double.Parse(Console.ReadLine())
redondeado=Math.Floor(numero_con_decimales+0.5)
Console.WriteLine("Valor de redondeado: " & redondeado)
Console.WriteLine()
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module