Boa tarde,
Estou desenvolvendo um algoritmo no visualG no qual ele pede que o usuário escolha uma opção:
Caso ele escolha a opção 1 o algoritmo calcule a velocidade media de um carro percorrida em uma determinada distancia e tempo digitados pelo usuário.
Caso ele escolha a opção 2 o algoritmo calcule a distância percorrida de um carro em uma determinada velocidade e tempo digitados pelo usuário.
Caso ele escolha a opção 3 o algoritmo calcule a distância percorrida de um carro em uma determinada velocidade e tempo digitados pelo usuário.
Caso ele escolha a opção 0 o programa é encerrado.
Caso escolha outra opção aparece opção inválida!
Até ai tudo tranquilo!
As dúvidas são as seguintes:
Dúvida 1: Caso usuário escolha 1, ele irá digitar a distância e o tempo, caso o tempo seja um valor quebrado ex: 1h e 20 min, como o usuário iria digitar esse valor?
Dúvida 2: Caso usuário escolha 2, idem acima!
Dúvida 3: Caso usuário escolha 3, ele irá digitar a distância e o velocidade para calcular o tempo, porém o tempo até 1h e 59 minutos, quando passa pra 2 horas ele mostra 1 hora e 6o minutos. Como corrigir isso?
Segue abaixo os códigos do arquivo em questão! Caso queiram o arquivo com o código para teste, favor escrever uma mensagem com o e-mail que eu encaminharei para testes
Agradeço a colaboração de todos!
algoritmo "Física"
// Função : Calcular a velocidade média, Distância e tempo
// Autor : Lucas Sandes
// Data : 27/04/2016
// Seção de Declarações
var
opc :inteiro
dist,tempo,tempm,h,min,vm :real
inicio
escreval ("Escolha a opção desejada!")
escreval
escreval ("===============================")
escreval ("|1: VELOCIDADE MEDIA |")
escreval ("|2: DISTÂNCIA PERCORRIDA |")
escreval ("|3: TEMPO PERCORRIDO |")
escreval ("|0: SAIR |")
escreval ("===============================")
escreva (">> ")
leia (opc)
escolha (opc)
caso 1
escreval
escreval ("Vamos calcular a Velocidade média")
escreval ("=================================")
escreval
escreval ("Qual a distância percorrida?")
escreva (">> ")
leia (dist)
escreval
escreval ("Qual tempo gasto?")
escreva (">> ")
leia (tempo)
vm <- dist / tempo
escreval
escreval ("Sua velocidade média final foi de: ",vm:1:1," Km/h")
caso 2
escreval
escreval ("Vamos calcular a distância percorrida!")
escreval ("=================================")
escreval
escreval ("Qual a sua velocidade?")
escreva (">> ")
leia (vm)
escreval
escreval ("Qual tempo gasto?")
escreva (">> ")
leia (tempo)
escreval
dist <- vm * tempo
escreval ("Sua distância final percorrida foi de: ",dist," Km")
caso 3
escreval
escreval ("Vamos calcular o tempo percorrido!")
escreval ("==================================")
escreval
escreval ("Qual a sua distância?")
escreva (">> ")
leia (dist)
escreval
escreval ("Qual a velocidade?")
escreva (">> ")
leia (vm)
tempo <- dist / vm
tempm <- tempo * 60
min <- tempm - 60
h <- (tempm - min)/60
escreval
escreva ("Você percorreu",h," horas e",min," minutos")
caso 0
limpatela
escreva("Fim do programa, pressione ESC para sair")
outrocaso
escreva("Opção inválida")
fimescolha
fimalgoritmo