Faça um algoritmo que converta uma velocidade expressa em km / h para m / s 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
vm/s = vkm/h3.6
Para converter de metros por segundo para quilômetros por hora usamos
vkm/h = vm/s times 3.6

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 vm/s = vkm/h/3.6 e mostramos o resultado; se for 2, lemos a velocidade em m/s, calculamos vkm/h = vm/stimes3.6 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

Exercícios relacionados