Esfera, float Curso de Programación Visual Basic

Lección:

Tipos de datos básicos


Ejercicio:

Esfera, float 11


Objetivo:

Calcular la superficie y el volumen de una esfera, dado su radio (superficie = 4 * pi * radio al cuadrado; volumen = 4/3 * pi * radio al cubo).

Sugerencia: para números "flotantes", debe usar Convert.ToSingle (...)


Código:

Imports System
Public Class exercise59
    Public Shared Sub Main()
        Dim radius As Single
        Dim pi As Single = 3.1415926535F
        Console.Write("Radius? ")
        radius = Convert.ToSingle(Console.ReadLine())
        Console.WriteLine(4 * pi * (radius * radius))
        Console.WriteLine(4 / 3 * pi * (radius * radius * radius))
    End Sub
End Class