Construya una aplicación que dadas las coordenas de los puntos P1,P2 y P3 que corresponden a las vertices de un triángulo, calcule su superficie.
Codigo fuente:
01 Module Module1 02 03 Sub Main() 04 ' se declaran las variables 05 Dim x1, x2, x3, y1, y2, y3 As Double 06 Dim area As Double 07 'se introducen los datos 08 Console.WriteLine("Introdusca las coordenadas de los puntos P1(x1,x2)") 09 Console.Write("P1(x1,y1) x= ") 10 x1 = Val(Console.ReadLine) 11 Console.Write("P1(x1,y1) y= ") 12 y1 = Val(Console.ReadLine) 13 Console.Write("P2(x2,y2) x= ") 14 x2 = Val(Console.ReadLine) 15 Console.Write("P2(x2,y2) y= ") 16 y2 = Val(Console.ReadLine) 17 Console.Write("P3(x3,y3) x= ") 18 x3 = Val(Console.ReadLine) 19 Console.Write("P3(x3,y3) y= ") 20 y3 = Val(Console.ReadLine) 21 ' calculamos el area 22 area = 1 / 2 * (x1 * (y2 - y3) + x2 * (y3 - y1) + x3 * (y1 - y2)) 23 ' condicion si/entonces 24 If area < 0 Then 25 area = area * -1 26 End If 27 ' se muestra el resultado en pantalla 28 Console.WriteLine("para el triangulo P1(" & x1 & "," & y1 & ")" & " P2(" & x2 & "," & y2 & ")" & " P3(" & x3 & "," & y3 & ")") 29 Console.WriteLine("El area es " & area) 30 Console.Read() 31 End Sub 32 33 End Module
Resultado:
Para p1(2,2) p2(11,5) p3(3,10)
0 comentarios:
Publicar un comentario