Ir ao conteúdo
  • Cadastre-se
Sávio Alexandre de Souza

VisualG Exercicio coordenadas cartesianas visualg

Recommended Posts

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

 

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá.

 

1#

As coordenadas do ponto A seria x1 e y1, e do ponto B x2 e y2.

 

 

 

2#

Está faltando o () do RaizQ. Do jeito que está, só está fazendo a raiz quadrada do (x1-x2)2.

 

 

 

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.

 

  • Curtir 2

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×