Convertir números a números romanos Resuelto/Cerrado

Question

Hola,
pues yo tengo un problema grave y ojala y me puedan ayudar 
TENGO QUE  ACER  UN PROGRAMA  EN VISUAL BASIC  EN EL QUE TENGO QUE   COMBERTIR NUMEROS  A NUMEROS ROMANOS  PR NO PUEDO YA INTENTE MUCHAS COSAS PR NO E CONSEGUIDO NADA 
Y ES MI TRABAJO PARA PODER PASAR EL PROGRAMA PR ESO NO ES LO MAS GRABE  SI NO QUE NOS TIENEN QUE PREGUNTAR DE QUE SE TRATA COMO ESTA COMPLEMENTADO.

AGRADECIENDOLE  A BER LEIDO ESTE MANSEJA Y ESPERANDO UNA PRONTA RESPUESTA  ME DESPIDOConfiguraci&oacute;n: Windows Vista Internet Explorer 8.0

OE HASLO · Accepted Answer

1.-LeER  un numero menor  a 4000 y conviértalo a numero romano

jeisson · Answer

nesecito crear unprograma en pseint el cual que comvierta un num postivo a romano me podrias ayudar

ju · Answer

no hay nadaaaaaaaaaaaaa

caro la loca · Answer

mira pds acer esto escribes  los numero que necesitas y haces esto.......=NUMERO.ROMANO(A1:A2)
lo de a 1 a 2 es depende digamos haces del 1 al 5 y haces a1 a5....y es en mayuscula

Geezy · Answer

para convertir del numeros enteros a romanos creamos una funcion utilizando seleccion de casos la cual utilizaremos luego dentro del codigo en la zona del button ....

Public Class Form1
    Public Function Num2Text(ByVal value As Double) As String

        value = Int(value)

        Select Case value

            Case 1 : Num2Text = "I"

            Case 2 : Num2Text = "II"

            Case 3 : Num2Text = "III"

            Case 4 : Num2Text = "IV"

            Case 5 : Num2Text = "V"

            Case 6 : Num2Text = "VI"

            Case 7 : Num2Text = "VII"

            Case 8 : Num2Text = "VIII"

            Case 9 : Num2Text = "lX"

            Case 10 : Num2Text = "X"

            Case 11 : Num2Text = "XI"

            Case 12 : Num2Text = "XII"

            Case 13 : Num2Text = "XIII"

            Case 14 : Num2Text = "XIV"

            Case 15 : Num2Text = "XV"

            Case Is < 20 : Num2Text = "X" & Num2Text(value - 10)

            Case 20 : Num2Text = "XX"

            Case Is < 30 : Num2Text = "XX" & Num2Text(value - 20)

            Case 30 : Num2Text = "XXX"

            Case 40 : Num2Text = "XI"

            Case 50 : Num2Text = "L"

            Case 60 : Num2Text = "LX"

            Case 70 : Num2Text = "LXX"

            Case 80 : Num2Text = "LXXX"

            Case 90 : Num2Text = "XC"

            Case Is < 100 : Num2Text = Num2Text(Int(value \ 10) * 10) & "" & Num2Text(value Mod 10)

            Case 100 : Num2Text = "C"

            Case Is < 200 : Num2Text = "C" & Num2Text(value - 100)

            Case 200, 300, 400, 600, 800 : Num2Text = Num2Text(Int(value \ 100)) & "C"

            Case 500 : Num2Text = "D"

            Case 700 : Num2Text = "DCC"

            Case 900 : Num2Text = "CM"

            Case Is < 1000 : Num2Text = Num2Text(Int(value \ 100) * 100) & " " & Num2Text(value Mod 100)

            Case 1000 : Num2Text = "M"

            Case Is < 2000 : Num2Text = "M" & Num2Text(value Mod 1000)

            Case Is < 1000000 : Num2Text = Num2Text(Int(value \ 1000)) & " M"

                If value Mod 1000 Then Num2Text = Num2Text & " " & Num2Text(value Mod 1000)



        End Select



        If value = 1 Then

            Txtmonl.Text = Num2Text



        Else

            txtmonl.Text = Num2Text

        End If

    End Function

'PROGRAMANDO EN LA ZONA DEL BUTTO EN EL EVENTO CLICK

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sValor As String

        Dim i, r As Single

        sValor = txtmon.Text

        txtmon.Text = Val(Replace(sValor, ",", "."))

        i = Int(Val(txtmon.Text))

        r = CInt((txtmon.Text - i) * 100)

        Num2Text(Val(txtmon.Text))

        If r > 0 Then

            Txtmonl.Text = Txtmonl.Text & " CON " + Num2Text(r)

        End If

        txtmon.Text = Format(txtmon.Text, )


    End Sub

Darkman · Answer

Estooooo, ¿y un corrector ortográfico, no tendrás verdad?, por que es imposible escribir con tantas faltas en tan poco espacio........y no es excusa el decir "no se"....tienes unos correctores fantasticos y gratuitos en la red

MALANDRO · Answer

YO TENGO LA RESPUESTA: YA DEJA MORIR LA MATERIA DE ALGORITMO. NO LE HAGAS AL CUENTO PELANA.

ANA · Answer

ANIS YO TAMPOCO SE SORRY

martha · Answer

como hace una convercion de numeros naturales a numeros romanos

la chikis · Answer

Mira es muy sencillo solo tienes que poner en tu cuaderno una lista del 1 al 10 luego inventas el numero que quieras y lo combites a numero romano por ejemplo:

01:1245=mccxlv

espero que te sirva!

FILTRO Xp · Answer

aque es Igual Txtmonl.Text..? que es..?

DiscordiA · Answer

Aqui les traigo la ayuda muchachos : leanlo bien y aganlo compilar en el programa Dv-C++

#include <cstdlib>
#include <iostream>

using namespace std;

int main(int argc, char *argv[])
{

int x,a,b,c,d,e,f;
cout<<"Ingrese un numero entre 1000 a 2000"<<endl;
cin>>x;

a=x/1000;
b=x%1000;
c=b/100;
d=b%100;
e=d/10;
f=d%10;

if(x>=1000 && x<=2000)
{

switch(a)
{
case 1:
cout<<"M";
break;
}
switch(c)
{
case 1:
cout<<"C";
break;
case 2:
cout<<"CC";
break;
case 3:
cout<<"CCC";
break;
case 4:
cout<<"CD";
break;
case 5:
cout<<"D";
break;
case 6:
cout<<"DC";
break;
case 7:
cout<<"DCC";
break;
case 8:
cout<<"DCCC";
break;
case 9:
cout<<"CM";
break;
}
switch(e)
{
case 1:
cout<<"X";
break;
case 2:
cout<<"XX";
break;
case 3:
cout<<"XXX";
break;
case 4:
cout<<"XL";
break;
case 5:
cout<<"L";
break;
case 6:
cout<<"LX";
break;
case 7:
cout<<"LXX";
break;
case 8:
cout<<"LXXX";
break;
case 9:
cout<<"XC";
}
switch (f)
{
case 1:
cout<<"I";
break;
case 2:
cout<<"II";
break;
case 3:
cout<<"III";
break;
case 4:
cout<<"IV";
break;
case 5:
cout<<"V";
break;
case 6:
cout<<"VI";
break;
case 7:
cout<<"VII";
break;
case 8:
cout<<"VIII";
break;
case 9:
cout<<"IX";
break;
}
}

system("PAUSE");
return EXIT_SUCCESS;
}

juan pablo · Answer

algien me podria explicar como hacerlo con neat beans necesito hacerlo q me cambie numeros arabigos a numeros romanos

Ruben Alejandro · Answer

public class ClaseConvertir {

    public String convertirRomano(int num) {
        String romano = "";
        int[] numeros = {1000, 500, 100, 50, 10, 5, 1};
        String[] letras = {"M", "D", "C", "L", "X", "V", "I"};
        for (int i = 0; num >= 1; i++) {
            int x = num / numeros[i];
            if (x < 4) {
                for (int j = 0; j < x; j++) {
                    romano += letras[i];
                }
            } else {
                for (int j = 0; j < 5 - x; j++) {
                    romano += letras[i];
                }
                romano += letras[i - 1];
            }
            num -= x * numeros[i];
        }
        return romano;
    }
}

snake · Answer

en c# como lo aria
amigo

Convertir números a números romanos

16 respuestas

Discusiones similares

¡Suscríbete a nuestra Newsletter!