aqui tienen uno en c++ por si no entendieron el anterior
http://programasencg...og/Romandec.cpp/*Conversion de numeros romanos a decimales
solo para valores < de 4000 en romanos*/
#include "stdio.h"
#include "conio.h"
#include "string.h"
int valores(char let);
main(){
char cad[10]={" "}; /*almacenara el numero romano*/
/*cadenas que almacenaran las divisiones de todo el numero*/
char millar[4]={" "};
char centenas[4]={" "};
char decenas[4]={" "};
char unidades[4]={" "};
/*variables para el cambio entre cada valor*/
int ban1=1, ban2=0, ban3=0, ban4=0;
int tam,/*tama¤o de la cadena*/
i,j,/*indices para accesar a las cadenas*/
acum,/*resultado de una conversion de romanos a decimal*/
valor,/*valor decimal de un numero romano*/
acumgral;/*numero romano en decimal*/
clrscr();
printf("Introduce un numero en romanos : ");
gets(cad);/*lectura del numero romano*/
tam=strlen(cad);/*determina el tama¤o de la cadena del numero romano*/
/*proceso para dividir un numero romano en sus diferentes fracciones*/
j=0;
for(i=0; i<tam; i++){/*recorrera todo el contenido de la cadena que contiene el numero romano*/
/*obtiene los millares, siempre y cuando cumpla con las condiciones*/
if (cad[i]=='M' && ban1)/*ban1 significa que se va evaluar el primer if*/
millar[j++]=cad[i];/*almacena en la cadena de millares los valores*/
else{
if (ban1){
ban1=0;/*cuando de un valor 1 pasa a un valor 0 indica que ya no volvera a entrar de nuevo a este if*/
ban2=1;/*activa el siguiente if*/
millar[j]=' ';/*finaliza la cadena de millares*/
j=0;/*inicia el indice para la siguiente lectura y escritura de las centenas*/
}
}
/*obtiene las centenas, es el mismo proceso que el anterior*/
if ((cad[i]=='C' || cad[i]=='D' || cad[i]=='M') && ban2)
centenas[j++]=cad[i];
else{
if (ban2){
ban2=0;
ban3=1;
centenas[j]=' ';
j=0;
}
}
/*obtiene las decenas el proceso es igual que el anterior*/
if ((cad[i]=='X' || cad[i]=='L' || cad[i]=='C') && ban3)
decenas[j++]=cad[i];
else{
if (ban3){
ban3=0;
ban4=1;
decenas[j]=' ';
j=0;
}
}
/*obtiene las unidades, porceso igual que el anterior*/
if (ban4)
unidades[j++]=cad[i];
else{
if (ban4){
ban4=0;
unidades[j]=' ';
}
}
}
acumgral=0;/*se almacenara el resultado en decimal*/
/*obtener millares*/
tam=strlen(millar);/*se determina el tama¤o de la cadena de millares*/
acum=0;/*acumulador para obtener los millares en decimal, este sera reutilizado para cada uno de los calculos diferentes*/
for(i=0; i<tam; i++){/*recorrerar la cadena buscando valores de millar*/
valor=valores(millar[i]);/*se obtiene el valor del romano en decimal, este valor es en millares*/
acum+=valor;/*se suma el valor obtenido al acumulador, para ver cuto es en miles*/
}
acumgral+=acum;/*se suma al acumulador general el valor obtenido en miles*/
/*obtener centenas*/
/*el proceso es parecido en cuestion de las sumas y calcular tama¤o de la cadena*/
tam=strlen(centenas);
acum=0;
acum=valores(centenas[0]);/*se obtiene un primer valor para verificar despues si este es mayor que el nuevo valor obtenido, este se almacena en el acumulador*/
for(i=1; i<=tam; i++){
valor=valores(centenas[i]);/*se obtiene el valor en decimal y verifica el tama¤o*/
if (valor<=acum)/*numeros >=100 y <=300 o >500 y <=800*/
acum+=valor;
else/*si el valor obtenido es mayor que el valor que ya se tenia entonces se trara de un numero >300 y <500 o >800 y <1000 */
acum=valor-acum;
}
acumgral+=acum;
/*obtener decenas*/
/*el proceso es el mismo que el de centenas*/
tam=strlen(decenas);
acum=0;
acum=valores(decenas[0]);
for(i=1; i<=tam; i++){
valor=valores(decenas[i]);
if (valor<=acum)/*numeros >=10 y <=30 o >50 y <=80*/
acum+=valor;
else/*numeros >30 y <50 o >80 y <100 */
acum=valor-acum;
}
acumgral+=acum;
/*obtener unidades*/
/*el proceso es el mismo que para las decenas*/
tam=strlen(unidades);
acum=0;
acum=valores(unidades[0]);
for(i=1; i<=tam; i++){
valor=valores(unidades[i]);
if (valor<=acum)/*numeros >=1 y <=3 o >5 y <=8*/
acum+=valor;
else/*numeros >3 y <5 o >8 y <10 */
acum=valor-acum;
}
acumgral+=acum;
printf("El valor en decimal es : %d", acumgral);
getch();
return 0;
}
int valores(char let)
{
switch (let){
case 'I':return 1;
case 'V':return 5;
case 'X':return 10;
case 'L':return 50;
case 'C':return 100;
case 'D':return 500;
case 'M':return 1000;
}
return 0;
}
$hð®Ïng_FÏ¿£$_Ï$_Nø¯|¯_Â_©®Ïm£!!! 
