Profº Piva - Algoritmos - Exercício 5) Construa um algoritmo que, tendo como dados de entrada dois pontos quaisquer no plano, P (x1, y1) e P (x2, y2), escreva a distancia entre eles. A formula que efetua tal cálculo é: d= (raizq (x2-x1)/2 + (y2-y1)/2).

algoritmo "Cálculo de distância"

var
  x1,x2,y1,y1,d:real
inicio
  escreval("Calculo de distância entre dois pontos P(x1,y1) e P(x2,y2).")
  escreva("Digite o primeiro valor do primeiro ponto -")
  leia(x1)
  escreva("Digite o segundo  valor do primeiro ponto -")
  leia (y1)
  escreva("Digite o primeiro valor do segundo  ponto - ")
  leia (x2)
  escreva("Digite o segundo  valor do segundo  ponto - ")
  leia (y2)
  d <- raizq(x2-x1)^2+(y2-y1)^2
  escreval("Distância entre os dois pontos é igual ",d)
  escreva (d)
 
fimalgoritmo