Avançar para o conteúdo principal

Mensagens

A mostrar mensagens de março, 2014

Numeração Romana

Vamos hoje fazer um pequeno programa que converte os números da numeração árabe para a numeração romana. Segundo a Wikipédia "O sistema de numeração romana (ou números romanos) desenvolveu-se na Roma Antiga e utilizou-se em todo o seu Império." Uma vez que os romanos não conheciam o 0 (zero) vamos limitar o nosso programa a valores entre 1 e 3999. Para começar definimos dois vetores: Dim valores As Integer() = New Integer() {1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1} Dim romanos As String() = New String() {"M", "CM", "D", "CD", "C", "XC", "L", "XL", "X", "IX", "V", "IV", "I"} O primeiro tem os valores inteiros que correspondem a determinadas letras que se encontram no segundo. O segundo vetor contém as letras que são combinadas, ou não, e que permitem representar os valores na numeração romana. Para fazermos a conversão vamos criar uma f