Alg1 -Caderno- 1. 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.

algoritmo "Distância entre dois pontos"
// Função :  Calcular a distância entre 2 pontos
// Autor :  Thaís Cristine Andreetti
// Data : 27/08/2010
// Seção de Declarações
var
    x1,x2,y1,y2,d: real
inicio
// Seção de Comandos
   escreval("Entre com x1: ")
   leia(x1)
   escreval("Entre com x2: ")
   leia(x2)
   escreval("Entre com y1: ")
   leia(y1)
   escreval("Entre com y2: ")
   leia(y2)
   d<-raizq(((x2-x1)^2)+((y2-y1)^2))
   escreva ("A distância entre os dois pontos é: ", d:5:1)
fimalgoritmo