Doble Curso de Programación Visual Basic

Lección:

Tipos de datos básicos


Ejercicio:

Doble 9


Objetivo:

Calcula el perímetro, el área y la diagonal de un rectángulo, dado su ancho y su altura.

(Sugerencia: use y = Math.Sqrt(x) para calcular una raíz cuadrada)


Código:

Imports System

Public Class exercise55
    Public Shared Sub Main()
        Dim a, b As Double
        Dim area, perimeter, diagonal As Double
        Console.Write("Enter the width: ")
        a = Convert.ToDouble(Console.ReadLine())
        Console.Write("Enter the height: ")
        b = Convert.ToDouble(Console.ReadLine())
        perimeter = a * 2 + b * 2
        Console.WriteLine("Perimeter: {0}", perimeter)
        area = a * b
        Console.WriteLine("Area: {0}", area)
        diagonal = Math.Sqrt(a * a + b * b)
        Console.WriteLine("Diagonal: {0}", diagonal)
    End Sub
End Class