Alg - Construa um algoritmo que, tendo como dados de entrada dois pontos quaisquer no plano, P(x1,y1) e P(x2,y2), escreva a disância entre eles.

algoritmo "Distância de 2 Pontos"

var
  x2,x1,y1,y2 : real
  d : real

inicio

  Escreva("Entre com o X1: ")
  Leia(x1)
  Escreva("Entre com o X2: ")
  Leia(x2)
  Escreva("Entre com o Y1: ")
  Leia(y1)
  Escreva("Entre com o Y2: ")
  Leia(y2)
  d<-Raizq (x2-x1) ^2 + ((y2-y1) ^2)
  Escreva(" A Distancia eh de: ", d)
 
fimalgoritmo