Faça um algoritmo que converta uma velocidade expressa em
para
e vice versa. Você deve criar um menu com as duas opções de conversão e com uma opção para finalizar o programa. O usuário poderá fazer quantas conversões desejar, sendo que o programa só será finalizado quando a opção de finalizar for escolhida.
Passo 1
A questão pede para criar um algoritmo que converta velocidades entre quilômetros por hora e metros por segundo, exibindo um menu para o usuário escolher a conversão ou encerrar o programa e repetindo enquanto o usuário não optar por sair.
Passo 2
Para converter de quilômetros por hora para metros por segundo usamos a fórmula
Para converter de metros por segundo para quilômetros por hora usamos
Passo 3
Iniciamos declarando as variáveis necessárias e montando um laço de repetição que só é interrompido quando o usuário escolher a opção de encerrar.
Passo 4
Dentro do laço, exibimos o menu com três opções: 1) converter de km/h para m/s, 2) converter de m/s para km/h, 3) finalizar. Em seguida lemos a opção escolhida.
Passo 5
Usamos uma estrutura condicional para tratar cada caso: se for 1, lemos a velocidade em km/h, aplicamos
e mostramos o resultado; se for 2, lemos a velocidade em m/s, calculamos
e exibimos; se for 3, saímos do laço; senão, avisamos que a opção é inválida.
Passo 6
Após cada conversão válida exibimos o resultado formatado e o laço se repete até o usuário escolher sair.
Resposta
Algoritmo ConverteVelocidade
Var
opcao: inteiro
velKmH, velMS: real
Inicio
Repita
Escreva("\n===== MENU DE CONVERSÃO =====")
Escreva(“1 - Converter km/h para m/s”)
Escreva(“2 - Converter m/s para km/h”)
Escreva(“3 - Finalizar”)
Escreva("Escolha uma opção: ")
Leia(opcao)
Se opcao = 1 Então
Escreva("Digite a velocidade em km/h: ")
Leia(velKmH)
velMS <- velKmH / 3.6
Escreva(velKmH:0:2, " km/h = “, velMS:0:2, " m/s”)
SenaoSe opcao = 2 Então
Escreva("Digite a velocidade em m/s: ")
Leia(velMS)
velKmH <- velMS * 3.6
Escreva(velMS:0:2, " m/s = “, velKmH:0:2, " km/h”)
SenaoSe opcao = 3 Então
Escreva(“Encerrando o programa. Até logo!”)
Senao
Escreva(“Opção inválida! Tente novamente.”)
FimSe
Ate opcao = 3
FimAlgoritmo
Var
opcao: inteiro
velKmH, velMS: real
Inicio
Repita
Escreva("\n===== MENU DE CONVERSÃO =====")
Escreva(“1 - Converter km/h para m/s”)
Escreva(“2 - Converter m/s para km/h”)
Escreva(“3 - Finalizar”)
Escreva("Escolha uma opção: ")
Leia(opcao)
Se opcao = 1 Então
Escreva("Digite a velocidade em km/h: ")
Leia(velKmH)
velMS <- velKmH / 3.6
Escreva(velKmH:0:2, " km/h = “, velMS:0:2, " m/s”)
SenaoSe opcao = 2 Então
Escreva("Digite a velocidade em m/s: ")
Leia(velMS)
velKmH <- velMS * 3.6
Escreva(velMS:0:2, " m/s = “, velKmH:0:2, " km/h”)
SenaoSe opcao = 3 Então
Escreva(“Encerrando o programa. Até logo!”)
Senao
Escreva(“Opção inválida! Tente novamente.”)
FimSe
Ate opcao = 3
FimAlgoritmo