Como converter de decimal para números romanos em VisuAlg - Exercícios Resolvidos de VisuAlg

algoritmo "Converter um número decimal em número romano"

var
  // Variáveis usadas na resolução do problema
  valores_numeros_romanos: vetor[0..12] de inteiro
  numeros_romanos: vetor[0..12] de caractere
  numero, i: inteiro
  resultado: caractere

inicio
  // vamos criar um vetor com os valores decimais possíveis de
  // cada número romano
  valores_numeros_romanos[0] <- 1000
  valores_numeros_romanos[1] <- 900
  valores_numeros_romanos[2] <- 500
  valores_numeros_romanos[3] <- 400
  valores_numeros_romanos[4] <- 100
  valores_numeros_romanos[5] <- 90
  valores_numeros_romanos[6] <- 50
  valores_numeros_romanos[7] <- 40
  valores_numeros_romanos[8] <- 10
  valores_numeros_romanos[9] <- 9
  valores_numeros_romanos[10] <- 5
  valores_numeros_romanos[11] <- 4
  valores_numeros_romanos[12] <- 1

  // representação dos números romanos
  numeros_romanos[0] <- "M"
  numeros_romanos[1] <- "CM"
  numeros_romanos[2] <- "D"
  numeros_romanos[3] <- "CD"
  numeros_romanos[4] <- "C"
  numeros_romanos[5] <- "XC"
  numeros_romanos[6] <- "L"
  numeros_romanos[7] <- "XL"
  numeros_romanos[8] <- "X"
  numeros_romanos[9] <- "IX"
  numeros_romanos[10] <- "V"
  numeros_romanos[11] <- "IV"
  numeros_romanos[12] <- "I"