20/08 Exercicio 1

Construa um algoritmo que, tendo como dados de entrada dois pontos quaisquer do plano, P(x1, y1) e P(x2,y2), escreva a distância entre eles.
A formula que efetua tal cálculo é: d=raizq( ((x2-x1)^2) + ((y2-y1)^2) )

algoritmo "Calculando a distância entre dois pontos"


var
x1, x2, y1, y2, distancia: real
início
escreval("Calcular distância entre pontos")
escreva("Qual é o valor de X1? ")
leia(x1)
escreva("Qual é o valor de X2? ")
leia(x2)
escreva("Qual é o valor de Y1? ")
leia(y1)
escreva("Qual é o valor de Y2? ")
leia(y2)
distancia <- (raizq ((x2-x1)^2) + ((y2-y1)^2) )
escreva("A distância entre os dois pontos eh: ", distancia:5:2)

fimalgoritmo