VisualG Exercicio coordenadas cartesianas visualg

[Sávio Alexandre de Souza 4]

Boa noite pessoal!

Fiz o algoritmo do seguinte exercício:

10. Construa um algoritmo para calcular a distância entre dois pontos do plano cartesiano. Cada
ponto é um par ordenado (x,y). Parece ser fácil porém não tenho certeza se esta correto meu código, alguém pode dar uma olhada e dizer o que acha?

Obrigado pela ajuda!

algoritmo "semnome"
//10.Construa um algoritmo para calcular a distância entre dois pontos do plano
//cartesiano. Cada ponto é um par ordenado (x,y).
var
    PtoAb, x1,x2,y1,y2:real
inicio
  Escreval("============================================")
  Escreval("         COORDENADAS CARTESIANAS            ")
  Escreval("============================================")
  Escreval("Digite as coordendas do ponto A")
  Escreval("============================================")
  Escreval("Digite x1")
  Leia(x1)
  Escreval("Digite x2")
  Leia(x2)
  Escreval("============================================")
  Escreval("Digite as coordendas do ponto B")
  Escreval("============================================")
  Escreval("Digite y1")
  Leia(y1)
  Escreval("Digite y2")
  Leia(y2)
  
   PtoAb <- raizQ((x1-x2)^2)+((y1-y2)^2)
   Escreval("===========================================")
  Escreval(" A distancia entre o ponto A e B é igual a: ",PtoAb)
fimalgoritmo

 

[Simon Viegas 1.870]

Olá.

 

1#

As coordenadas do ponto A seria x₁ e y₁, e do ponto B x₂ e y₂.

 

 

 

2#

Está faltando o () do RaizQ. Do jeito que está, só está fazendo a raiz quadrada do (x₁-x₂)².

 

 

 

3#

Outra forma que exibir o resultado poderia ser:

   Escreval(" A distancia entre o ponto A e B é igual a: RaizQ(",PtoAb:1:3,")")

Nesse caso, não tirando a raiz lá na fórmula, pois geralmente essa exibição só seria feita se um "quadrado perfeito". Inclusive você pode verificar se é uma quadrado perfeito ou não... se for, imprime com a raiz tirada, se não for, imprime como o exemplo acima.

 

Uma outra forma seria implementar uma função para imprimir numa forma "simplificada", por exemplo, em vez de exibir "RaizQ(68)", exibir "2 RaizQ(17).

 

 

***

 

No aguardo.