Perimeter Area Learn programming Visual Basic (VB.net)

Lesson:

Basic Data Types


Exercise:

Perimeter Area 13


Objetive:

Create a program to calculate the perimeter, area and diagonal of a rectangle from its width and height (perimeter = sum of the four sides, area = base x height, diagonal using the Pythagorean theorem). It must repeat until the user enters 0 for the width.


Code:

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