Exercício-4.Construa um algorítmo que,tendo como dados de entrada dois pontos quaisquer plano,P (x1,y1) e P(x2,y2),escreva a distância entre eles.A formula que efetue o cálculo é: d=raizq( (x2-x1)^2)+((y2-y1)^2)

algoritmo "Calcular a distância entre pontos"




var

  x1,x2,y1,y2,distancia:real



inicio

  escreval(" Calcular a distância entre posntos")

  escreva ("Qula eh o valor de x1?")

  leia (x1)

  escreva ("Qual eh o valor de x2?")

  leia (x2)

  escreva ("Qual eh 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 pontos eh",distancia:5:2)

fimalgorítmo