CALCULADORA EM NUMEROS ROMANOS

USUARIO.EXCLUIDOS 08/12/2003 18:42:59
#240
Pessoal,
A preguiça é tanta aqui nesse corpo que resolvi postar aqui, para ver se algum de vcs tem o código-fonte de uma calculadora em romano... é uma prova de lógica de programação, e eu to com uma baita preguiça, hehehe... Fiz o código uma vez, e é beeeeeem mais complicado que uma calculadora normal, porque se não me engano não pode ser com matriz de objeto, ams acabei formatando o meu HD e SEM backup... [S22] alguém tem?
CAJU 08/12/2003 20:32:33
#249 Resposta escolhida
tenho um codigo que converte números arabico para romanos


'A função abaixo converte números para romanos

'Autor: Traduzido do C para o VB por Adam Brinley Codd adamjbc@softhome.net

Public Function ConvertRomanos(Numero As Integer) As String
    Dim arabic(12) As Integer, roman(12) As String
    Dim i As Integer, out As String

    arabic(0) = 1000
    arabic(1) = 900
    arabic(2) = 500
    arabic(3) = 400
    arabic(4) = 100
    arabic(5) = 90
    arabic(6) = 50
    arabic(7) = 40
    arabic(8) = 10
    arabic(9) = 9
    arabic(10) = 5
    arabic(11) = 4
    arabic(12) = 1
    roman(0) = "M"
    roman(1) = "CM"
    roman(2) = "D"
    roman(3) = "CD"
    roman(4) = "C"
    roman(5) = "XC"
    roman(6) = "L"
    roman(7) = "XL"
    roman(8) = "X"
    roman(9) = "IX"
    roman(10) = "V"
    roman(11) = "IV"
    roman(12) = "I"

    i = 0

    Do While Numero
        Do While Numero = arabic(i)
            Numero = Numero - arabic(i)
            out = out + roman(i)
        Loop
        i = i + 1
    Loop

    ConvertRomanos = out

End Function
CAJU 08/12/2003 20:33:38
#250
Do While Numero
Do While Numero Maior= arabic(i)
Numero = Numero - arabic(i)
out = out + roman(i)
Loop
i = i + 1
Loop

Tópico encerrado , respostas não são mais permitidas
Voltar