Menu

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

Denunciar
-
 acsaochoa -
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 DESPIDO
Ver más

16 respuestas

Respuesta 1 / 16

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

Unas palabras de agradecimiento nunca están de más. Deja tu comentario

CCM 39087 usuarios nos han dicho gracias este mes

Ver los 11 comentarios
Denunciar

Public Function Num2Text(ByVal value As Double) As String
Select Case value
Case 0: Num2Text = ""
Case 1, 2, 3: Num2Text = Mid("III", 1, value)
Case 4: Num2Text = "IV"
Case 5: Num2Text = "V"
Case 6, 7, 8: Num2Text = "V" & Mid("III", 1, value - 5)
Case 9: Num2Text = "IX"
Case 10: Num2Text = "X"
Case 11, 12, 13: Num2Text = "X" & Mid("III", 1, value - 10)
Case 14: Num2Text = "XIV"
Case 15: Num2Text = "XV"
Case Is < 40: Num2Text = Mid("XXX", 1, Int(value / 10)) & Num2Text(value - (Int(value / 10) * 10))
Case 40: Num2Text = "XL"
Case Is < 90: Num2Text = "L" & Mid("XXX", 1, Int(value / 10) - 5) & Num2Text(value - (Int(value / 10) * 10))
Case 90: Num2Text = "XC"
Case Is < 100: Num2Text = Num2Text(Int(value / 10) * 10) & Num2Text(value Mod 10)
Case Is < 400: Num2Text = Mid("CCC", 1, Int(value / 100)) & Num2Text(value - Int(value / 100) * 100)
Case 400: Num2Text = "CD"
Case Is < 500: Num2Text = "CD" & Num2Text(value - 400)
Case 500: Num2Text = "D"
Case Is < 600: Num2Text = "D" & Num2Text(value - 500)
Case Is < 900: Num2Text = "D" & Mid("CCC", 1, Int(value / 100) - 5) & Num2Text(value - Int(value / 100) * 100)
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 < 4000: Num2Text = Mid("MMM", 1, (Int(value / 1000))) & Num2Text(value - (Int(value / 1000) * 1000))
Case Is > 3999: MsgBox ("No se convierten números mayores de 3999 para no componer guiones (miles)" & vbCrLf _
& "o dobles guiones (millones) encima de la numeración romana"), vbInformation
End Select
End Function
Denunciar

2147 en romano
Denunciar

mmmm no entiendo ni mais
Denunciar

ni coco entiendo
Denunciar

ke onda con esto
Respuesta 2 / 16

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
Ver los 15 comentarios
Denunciar

yo entiendo el Codigo pero Esto no aque es Igual Txtmonl.Text..? que es..?
Denunciar

¿¿¿Que numero romano es: 9.571 ???
Denunciar
dark_zen
Publicaciones
152
Fecha de inscripción
lunes, 6 de septiembre de 2010
Estatus
Miembro
Última intervención
martes, 3 de enero de 2012
 93
txtmon.Text por k no poner un return

a primera vista en tu codigo ahi varios puntos donde se pueden hacer mejoras....
Denunciar

keeeeeeeeeeeeeeeeeeeee dijo no entendi nadita
Denunciar

no me ayudo de nada alguien sabe como es el 5531 en romano
Respuesta 3 / 16

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
Respuesta 4 / 16

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

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!
Denunciar

fijate q no me sirvio eso lo ise y me terminaron reprovando y me regañaron q de don de lo saq
Respuesta 6 / 16

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;
}
}
Denunciar

maestro!!!! espectacular tu codigo
Denunciar

Gracias lo voy a probar amigo me salvaste un examen que tengo que hacer. Voy tratar de interpretar tu codigo luego para que no digan que es puro copy paste :D igual muchas gracias a ti por compartirlo
Denunciar

este progama es mas aburrido que mirar una cabra comer queso
Respuesta 7 / 16

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;
}
Respuesta 8 / 16

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

seeeeeeeee!!!!
Respuesta 9 / 16

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
Respuesta 10 / 16

como hace una convercion de numeros naturales a numeros romanos
Respuesta 11 / 16

ANIS YO TAMPOCO SE SORRY
Respuesta 12 / 16

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

que significa Txtmonl.Text

y Num2
Respuesta 13 / 16

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

Respuesta 15 / 16

en c# como lo aria
amigo
Respuesta 16 / 16

no hay nadaaaaaaaaaaaaa
Haz una pregunta