(L1) 1º Distância entre dois pontos.

algoritmo "Calcule a Distancia entre dois pontos"

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

inicio
Escreva ("digite x1:")
leia(x1)
Escreva (" digite x2:")
leia(x2)
Escreva (" digite y1:")
leia(y1)
Escreva (" digite y2:")
leia(y2)
Distancia <-raizq(((x2+x1)^2)+((y2-y2)^2))
Escreva ("A distancia entre dois pontos é igual a",distancia:8:2)

fimalgoritmo