Alg1 - 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 "Calcule a distância"
// Função :
// Autor :
// Data : 30/8/2010
// Seção de Declarações

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

inicio
ESCREVA ("Digite o valor de x1: ")
LEIA (x1)
ESCREVA ("Digite o valor de x2: ")
LEIA (x2)
ESCREVA ("Digite o valor de y1: ")
LEIA (y1)
ESCREVA ("Digite o valor de y2: ")
LEIA (y2)
d <- raizq(((x2-x1)^2)+((y2-y1)^2))
ESCREVA ("A distância é: ", d:5:2)

fimalgoritmo