Algoritmo:
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. A fórmula que efetua tal cálculo é: d=raizq(x2-x1)²+(y2-y1)².
1. algoritmo "Cálculo de distância"
2. var
3. x1,x2,y1,y1,d:real
4. inicio
5. escreval("Cáculo de distância entre dois pontos P(x1,y1) e P(x2,y2).")
6. escreva("Digite o primeiro valor do primeiro ponto - ")
7. leia(x1)
8. escreva("Digite o segundo valor do primeiro ponto - ")
9. leia (y2)
10. escreva("Digite o primeiro valor do segundo ponto - ")
11. leia (x2)
12. escreva("Digite o segundo valor do segundo ponto - ")
13. leia(y2)
14. d <- raizq(x2-x1)^2+(y2-y1)^2
15. escreval("Distância entre os dois pontos é igual ",d)
16. escreva("*** F I M ***")
17. fimalgoritmo
Nenhum comentário:
Postar um comentário