----------------------------------------------------------------------
Se precisar de ajuda para ajustar o código abaixo de acordo com as
suas necessidades, chama a gente no WhatsApp +55 (62) 98553-6711 (Osmar)
Ah, e se puder, faça uma DOAÇÃO de qualquer valor para nos ajudar
a manter o site livre de anúncios. Ficaremos eternamente gratos ;-)
Nosso PIX é: osmar@arquivodecodigos.com.br
----------------------------------------------------------------------
// Converter um número decimal em número romano
programa {
funcao inicio() {
// vamos criar um array com os valores decimais possíveis de
// cada número romano
inteiro valores_numeros_romanos[] = {1000, 900, 500, 400,
100, 90, 50, 40, 10, 9, 5, 4, 1}
// representação dos números romanos
cadeia numeros_romanos[] = {"M", "CM", "D", "CD",
"C", "XC", "L", "XL", "X", "IX", "V", "IV", "I"}
inteiro numero
cadeia resultado
// vamos pedir para o usuário informar um número decimal
escreva("Informe um número decimal: ")
leia(numero)
// para guardar o resultado
resultado = "";
// o número é maior que zero?
se (numero > 0) {
// percorremos o array de valores decimais dos números romanos
para (inteiro i = 0; i <= 12; i++) {
// enquanto o número informado for maior que o valor do
// do número romano atual
enquanto (numero >= valores_numeros_romanos[i]) {
// reduz o número informado
numero = numero - valores_numeros_romanos[i]
// concatena o número romano e continua o cálculo
resultado = resultado + numeros_romanos[i]
}
}
}
// mostramos o resultado
se (resultado == "") {
escreva("O número informado não possui número romano")
}
else {
escreva("O número romano correspondente é: ", resultado)
}
}
}
Link para compartilhar na Internet ou com seus amigos:
