Avançar para o conteúdo principal

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 função que recebe o valor inteiro árabe e devolve a string com o valor em numeração romana.

Public Function paraRomanos(numero As Integer) As String

Nesta função utilizamos um ciclo que vai percorrer os valores do primeiro vetor e enquanto o valor a converter for maior que o valor existente no vetor subtrai esse valor do valor original, ou seja, começa em 1000 e se o número é superior a 1000 subtrai este valor do original até restar um valor menor que 1000 para passar à segunda posição do vetor.
De cada vez que um valor é subtraído é adicionada a letra ou letras correspondentes a esse valor a uma string onde a numeração romana está a ser construída.

For i = 0 To 12
            Do While numero >= valores(i)
                numero -= valores(i)
                resultado.Append(romanos(i))
            Loop
Next

No final a função devolve a string com a numeração romana.

Return resultado.ToString()

A função completa fica assim:
    Public Function paraRomanos(numero As Integer) As String
        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"}
        Dim i As Integer
        Dim resultado As New StringBuilder()

        If numero > 3999 Or numero < 1 Then
            MessageBox.Show("Erro! Deve introduzir valores entre 1 e 3999")
            Return ""
        End If
        For i = 0 To 12
            Do While numero >= valores(i)
                numero -= valores(i)
                resultado.Append(romanos(i))
            Loop
        Next
        Return resultado.ToString()
    End Function

O projeto em Visual Basic pode ser retirado aqui.

Comentários

Mensagens populares deste blogue

Vamos fazer um carro com o Unity 3D

Neste artigo vamos fazer um carro, simples, com o Unity 3D. A ideia é utilizar o motor de física do Unity 3D para simular o comportamento do carro. Os passos a seguir são: [1] - Criar um projeto novo

C# IEnumerable e IEnumerator

Neste artigo vamos aprender como utilizar a interface IEnumerator por forma a permitir utilizar um ciclo foreach num conjunto ou coleção de dados. A maior parte das coleções (listas e outras) já implementam a interface, mas neste caso vamos personalizar a maneira como percorremos a lista. Quando utilizamos código assim: foreach(Class c in Collection) { ... } O compilador converte este código em algo assim: IEnumerator cc = Collection.GetEnumerator() while(cc.MoveNext()) { c=(Class)cc.Current; ... } Ao implementar a interface IEnumerable significa que a classe implementa uma versão da função GetEnumerator() que deve devolver uma classe que implemente a interface IEnumerator. Vamos explorar um exemplo. Começamos pela classe client Esta classe permitirá guardar os dados dos clientes, existindo um campo para indicar se o cliente ainda está ativo ou não. De seguida temos uma classe que define uma lista de clientes e que implementa a interface IEnumerable que de

React - Introdução

 Neste post vamos fazer uma breve introdução ao React. React é uma framework javascript e por isso é importante ter conhecimentos desta linguagem de programação para melhor compreender o seu funcionamento. O que é necessário? Para construir páginas com React é necessário ter instalado a framework Node e o seu instalador de packages o npm. Com o Node instalado basta abrir uma janela da linha de comandos, eu aconselho utilizar o novo Windows Terminal ou o Cmder . Na sua linha de comando escolhida execute o comando: npx create-react-app Tutorial01 Este comando vai criar uma pasta com o nome Tutorial01 e instalar dos os ficheiros necessários para construir a sua primeira aplicação React dentro dessa pasta. De seguida entramos na pasta criada com o comando: cd Tutorial01 E iniciamos a aplicação com o comando: npm start Deve conseguir ver uma página com o seguinte aspeto: A partir daqui, até fechar a linha de comando, todas as alterações feitas aos ficheiros da sua aplicação são automaticam