-
Language
Visual Basic .Net
-
Description
Write a program that prompts the user to enter the tree points (x1, y1), (x2, y2), and (x3, y3) of a triangle and displays its area.
The formula for computing the area of a triangle is:
s = (side1 + side2 + side3) / 2
area = sqrt(s * (s - side1) * (s - side2) * (s - side3))
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Module AreaOfATriangle
Sub Main()
Dim area, s, side1, side2, side3 As Double
Dim x1, x2, x3, y1, y2 As Double
Dim y3 As Double
Console.Write("Enter the value of x1: ")
x1 = Double.Parse(Console.ReadLine())
Console.Write("Enter the value of x2: ")
x2 = Double.Parse(Console.ReadLine())
Console.Write("Enter the value of x3: ")
x3 = Double.Parse(Console.ReadLine())
Console.Write("Enter the value of y1: ")
y1 = Double.Parse(Console.ReadLine())
Console.Write("Enter the value of y2: ")
y2 = Double.Parse(Console.ReadLine())
Console.Write("Enter the value of y3: ")
y3 = Double.Parse(Console.ReadLine())
side1=Math.Sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2))
side2=Math.Sqrt((x2-x3)*(x2-x3)+(y2-y3)*(y2-y3))
side3=Math.Sqrt((x3-x1)*(x3-x1)+(y3-y1)*(y3-y1))
s=(side1+side2+side3)/2
area=Math.Sqrt(s*(s-side1)*(s-side2)*(s-side3))
Console.WriteLine("Value of area: " & area)
Console.WriteLine("Value of s: " & s)
Console.WriteLine("Value of side1: " & side1)
Console.WriteLine("Value of side2: " & side2)
Console.WriteLine("Value of side3: " & side3)
Console.WriteLine()
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module
Sub Main()
Dim area, s, side1, side2, side3 As Double
Dim x1, x2, x3, y1, y2 As Double
Dim y3 As Double
Console.Write("Enter the value of x1: ")
x1 = Double.Parse(Console.ReadLine())
Console.Write("Enter the value of x2: ")
x2 = Double.Parse(Console.ReadLine())
Console.Write("Enter the value of x3: ")
x3 = Double.Parse(Console.ReadLine())
Console.Write("Enter the value of y1: ")
y1 = Double.Parse(Console.ReadLine())
Console.Write("Enter the value of y2: ")
y2 = Double.Parse(Console.ReadLine())
Console.Write("Enter the value of y3: ")
y3 = Double.Parse(Console.ReadLine())
side1=Math.Sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2))
side2=Math.Sqrt((x2-x3)*(x2-x3)+(y2-y3)*(y2-y3))
side3=Math.Sqrt((x3-x1)*(x3-x1)+(y3-y1)*(y3-y1))
s=(side1+side2+side3)/2
area=Math.Sqrt(s*(s-side1)*(s-side2)*(s-side3))
Console.WriteLine("Value of area: " & area)
Console.WriteLine("Value of s: " & s)
Console.WriteLine("Value of side1: " & side1)
Console.WriteLine("Value of side2: " & side2)
Console.WriteLine("Value of side3: " & side3)
Console.WriteLine()
Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
End Sub
End Module