Área perimetral Curso de Programación Visual Basic

Lección:

Tipos de datos básicos


Ejercicio:

Área perimetral 8


Objetivo:

Crear un programa en Visual Basic para calcular el perímetro, el área y la diagonal de un rectángulo a partir de su anchura y altura (perímetro = suma de los cuatro lados, área = base x altura, diagonal utilizando el teorema de Pitágoras). Debe repetirse hasta que el usuario introduzca 0 para el ancho.


Código:

Imports System
Public Class exercise67
    Public Shared Sub Main()
        Dim width As Double
        Dim height As Double
        Dim perimeter, area, diagonal As Double

        Do
            Console.Write("Enter the desired width: ")
            width = Convert.ToDouble(Console.ReadLine())

            If width <> 0 Then
                Console.Write("Enter the desired height: ")
                height = Convert.ToDouble(Console.ReadLine())
                perimeter = width * 2 + height * 2
                Console.WriteLine("Perimeter: {0}", perimeter)
                area = width * height
                Console.WriteLine("Area: {0} ", area)
                diagonal = Math.Sqrt((width * width) + (height * height))
                Console.WriteLine("Diagonal: {0} ", diagonal)
            End If
        Loop While width <> 0
    End Sub
End Class