como construir um algoritmo que tendo como dados de entrada dois pontos quaisquer no plano , p(x1,y1) e p(x2,y2), determine e exiba a distância entre eles . para isso , leia x1 , y1 e y2 , então calcule o valor de d
Sub Distanciapontos()
'Construa um algoritmo que, tendo como dados de entrada dois pontos quaisquer no plano,
'P(x1,y1) e P(x2,y2), escreva a distância entre eles. A fórmula que efetua tal cálculo é:
Dim X1, Y1 As Double
Dim X2, Y2 As Double
Dim D, f As Double
MsgBox "Calcule a distancia entre 2 Pontos"
X1 = InputBox(" Qual o valor de X1? ")
Y1 = InputBox(" Qual o valor de Y1? ")
X2 = InputBox(" Qual o valor de X2? ")
Y2 = InputBox(" Qual o valor de Y2? ")
D = Math.Sqr((X2 - X1) ^ 2) + ((Y2 - Y1) ^ 2)
MsgBox " A distancia é: " & D
End Sub
Para escrever sua resposta aqui, entre ou crie uma conta.
Compartilhar