Algoritmia - numeros a romanos

Algoritmo DecimalARomano

Procedimiento ConvertirARomano(entero decimal)

    cadena resultado = ""  // Variable para almacenar el resultado en números romanos

    // Definir los símbolos y sus valores

    enteros valores[] = [1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1]

    cadenas simbolos[] = ["M", "CM", "D", "CD", "C", "XC", "L", "XL", "X", "IX", "V", "IV", "I"]

    // Iterar sobre los valores y construir el número romano

    para i desde 0 hasta longitud(valores) - 1 hacer

        mientras decimal >= valores[i] hacer

            resultado = resultado + simbolos[i]

            decimal = decimal - valores[i]

    // Mostrar el resultado

    Escribir("El número romano correspondiente es: ", resultado)

Fin Procedimiento

// Ejemplo de uso

ConvertirARomano(354)