Menu
Haz una pregunta Denunciar Deja una respuesta

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

laucard05@live.com.mx - 30 sep 2009 a las 18:30 - Última respuesta:  acsaochoa
- 4 ago 2017 a las 21:48
Programación Haz una pregunta Denunciar Deja una respuesta
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 

48 respuestas

Denunciar Comenta la respuesta de OE HASLO
OE HASLO - 10 dic 2009 a las 02:56
+107
Vota
11
1.-LeER un numero menor a 4000 y conviértalo a numero romano
¿Te sirvió esta respuesta?  
Ver los 11 comentarios
Denunciar
guerra - 15 jun 2013 a las 00:37
si no lo ivas a explicar uvieras puesto el programa completo para entenderlo mejor.
Denunciar
juanaso - 19 jun 2013 a las 02:33
me parece exeleente
Denunciar
J - 27 ago 2013 a las 02:33
¿que weyada es esta?D: :c
En castellano porfavor*-* >:c.
Denunciar
coma - 9 ene 2014 a las 16:41
quien me puede ayudar a escribir los numeros romanos
Denunciar Comenta la respuesta de acsaochoa
acsaochoa - 4 ago 2017 a las 21:48
Hola alguien me podria ayudar hacer un diagrama de flujo que convierta un Decimal a Romano Me urge gracias
Denunciar Comenta la respuesta de Geezy
Geezy - 5 oct 2010 a las 06:48
+65
Vota
15
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
RAMA..!! - 11 may 2012 a las 23:15
hola... me lo pasas a numero natural CDLXXIX
Denunciar
RAMA..!! - 11 may 2012 a las 23:17
HOLA...me lo pasas a numero natural CDLXXIX
Denunciar
RAMA..!! - 11 may 2012 a las 23:18
?????
Denunciar
rama..!! - 22 jun 2012 a las 03:38
alguien me lo pasa a numero normal MDCCXLIX es para hoy
Denunciar
SLAP - 7 mar 2013 a las 00:36
amigos me pueden pasar este num en normal CMXLVIII
Denunciar Comenta la respuesta de caro la loca
caro la loca - 18 jul 2010 a las 21:20
+23
Vota
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
Denunciar Comenta la respuesta de jeisson
jeisson - 2 jun 2010 a las 14:47
+18
Vota
nesecito crear unprograma en pseint el cual que comvierta un num postivo a romano me podrias ayudar
Denunciar Comenta la respuesta de la chikis
la chikis - 24 ene 2011 a las 20:35
+16
Vota
1
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
CHIQUIS - 12 feb 2013 a las 23:03
fijate q no me sirvio eso lo ise y me terminaron reprovando y me regañaron q de don de lo saq
Denunciar Comenta la respuesta de Ruben Alejandro
Ruben Alejandro - 10 ene 2012 a las 01:12
+16
Vota
3
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
marben - 26 ene 2012 a las 19:30
maestro!!!! espectacular tu codigo
Denunciar
Jesus Almiron - 4 feb 2012 a las 16:31
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
la cone - 24 abr 2012 a las 18:59
este progama es mas aburrido que mirar una cabra comer queso
Denunciar Comenta la respuesta de MALANDRO
MALANDRO - 4 nov 2010 a las 23:12
+14
Vota
1
YO TENGO LA RESPUESTA: YA DEJA MORIR LA MATERIA DE ALGORITMO. NO LE HAGAS AL CUENTO PELANA.
Denunciar
LUCREE!!! - 25 mar 2012 a las 23:19
seeeeeeeee!!!!
Denunciar Comenta la respuesta de DiscordiA
DiscordiA - 4 oct 2011 a las 00:58
+14
Vota
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;
}
Denunciar Comenta la respuesta de Darkman
Darkman - 4 nov 2010 a las 18:48
+12
Vota
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
Denunciar Comenta la respuesta de martha
martha - 30 nov 2010 a las 01:04
+12
Vota
como hace una convercion de numeros naturales a numeros romanos
Denunciar Comenta la respuesta de ANA
ANA - 9 nov 2010 a las 20:29
+8
Vota
ANIS YO TAMPOCO SE SORRY
Denunciar Comenta la respuesta de FILTRO Xp
FILTRO Xp - 21 ago 2011 a las 19:08
+7
Vota
1
aque es Igual Txtmonl.Text..? que es..?
Denunciar
LOLgrace - 22 abr 2013 a las 15:46
que significa Txtmonl.Text

y Num2
Denunciar Comenta la respuesta de juan pablo
juan pablo - 5 nov 2011 a las 21:34
+7
Vota
algien me podria explicar como hacerlo con neat beans necesito hacerlo q me cambie numeros arabigos a numeros romanos
Denunciar Comenta la respuesta de pezcodrilosaurio
pezcodrilosaurio - 14 mar 2012 a las 20:18
+5
Vota
Denunciar Comenta la respuesta de snake
snake - 26 abr 2012 a las 02:57
+5
Vota
en c# como lo aria
amigo
Denunciar Comenta la respuesta de ju
ju - 22 jun 2010 a las 00:08
+3
Vota
no hay nadaaaaaaaaaaaaa
Haz una pregunta