21/7/2010

Ejercicio: Area de un triángulo

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 en la entrada

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | cna certification