• Lenguaje

    Visual Basic .Net

  • Descripción

    Dadas las coordenadas de dos puntos en un plano cartesiano calcule la distancia entre ellos.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Module DistanciaEntreDosPuntos

    Sub Main()
        Dim distancia, x1, x2, y1, y2 As Double
        Console.Write("Ingresa el valor de x1: ")
        x1 = Double.Parse(Console.ReadLine())
        Console.Write("Ingresa el valor de x2: ")
        x2 = Double.Parse(Console.ReadLine())
        Console.Write("Ingresa el valor de y1: ")
        y1 = Double.Parse(Console.ReadLine())
        Console.Write("Ingresa el valor de y2: ")
        y2 = Double.Parse(Console.ReadLine())
        distancia=Math.Sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2))
        Console.WriteLine("Valor de distancia: " & distancia)
        Console.WriteLine()
        Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
    End Sub

End Module