VisuAlg - Horas e minutos
Olá! Por gentileza, estou estudando algoritmo e deparei com uma situação em registrar horas no visuAlg.
O que acontece é que com a matriz, estou conseguido apenas o valor da hora inteira, sem os minutos. Alguém tem uma dica neste quesito quando usa matriz e listar horas e minutos? Agradeço pela atenção.
O que acontece é que com a matriz, estou conseguido apenas o valor da hora inteira, sem os minutos. Alguém tem uma dica neste quesito quando usa matriz e listar horas e minutos? Agradeço pela atenção.
Algoritmo "Upgrade Programa de Temperatura"
// Descrição : Opção de conversão de temperatura e registro de 4 temperaturas
// Autor(a) : Anaísa Mayara Teodoro
// Data atual : 10/03/2022
Var
// Seção de Declarações das variáveis
//Estou usando o VisuAlg versão 3.0.6.3
opcao:caracter
celsius, fahrenheit: real
procedimento opcoes()
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
escreval("-------------------------------------------------")
escreval("Upgrade Programa de Temperatura - Versão 0.01.02")
escreval("-------------------------------------------------")
escreval("Caro usuário(a), por favor escolha uma das opções abaixo: ")
escreval("")
escreval("1 - Celsius para Fahrenheit")
escreval("2 - Fahrenheit para Celsius")
escreval("3 - Listagem de registros das temperaturas e horas")
escreval("4 - Sair ")
escreval("-------------------------------------------------")
escreval("")
escreva("Digite o número da opção desejada: ")
leia(opcao)
fimprocedimento
funcao celsiusFahrenheit(celsius: real): real
inicio
retorne(1.8 * celsius + 32)
fimfuncao
funcao fahrenheitCelsius(fahrenheit: real): real
Fimalgoritmo
inicio
retorne(fahrenheit - 32) / 1.8
fimfuncao
procedimento registroDetemperaturas()
var
// Seção de Declarações das variáveis
i,j,aux: inteiro
horas: vetor[1..4] de inteiro
temperaturas: vetor[1..4] de inteiro
inicio
para i de 1 ate 4 faca
escreval("")
escreva("Digite a hora observada: ")
leia(horas[i])
escreva("Informe a temperatura observada: ")
leia(temperaturas[i])
fimpara
para i de 1 ate 4 faca
para j de 1 ate 4 faca
se temperaturas[j] > temperaturas[i] entao
aux <- temperaturas[i]
temperaturas[i] <- temperaturas[j]
temperaturas[j] <- aux
aux <- horas[i]
horas[i] <- horas[j]
horas[j] <- aux
fimse
fimpara
fimpara
escreval("")
para i de 1 ate 4 faca
escreval("Temperatura em grau(s)", temperaturas[i], "ºC, registrada às", horas[i], "h. Já a conversão de temperatura fahrenheit é ", celsiusFahrenheit(temperaturas[i]):2:2, "ºF.")
fimpara
fimprocedimento
inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
repita
opcoes()
escolha(opcao)
caso "1"
escreval("")
escreva("Informe a temperatura em ºCelsius: ")
leia (celsius)
escreval("")
escreval(celsius, "ºC convertido(s) --> corresponde(m) a ", celsiusFahrenheit(celsius):2:2, "ºF.")
caso "2"
escreval("")
escreva("Informe a temperatura em ºFahrenheit: ")
leia (fahrenheit)
escreval("")
escreval(fahrenheit, "ºF convertido(s)--> corresponde(m) a ", fahrenheitCelsius(fahrenheit):2:2, "ºC.")
caso "3"
registroDetemperaturas()
caso "4"
escreval("")
escreval("")
escreval("Encerrando....Upgrade Programa de Temperatura...")
interrompa
outrocaso
escreval("Opção inválida")
fimescolha
ate opcao = "4"
fimalgoritmo
Anaísa Teodoro
Curtidas 0