/********************************** A2R.C ***********************************/
/* Creado por: Manuel F Mart¡nez.                          manpaz@email.com */
/* Lenguaje:   C/C++                                                        */
/* Fecha:      Guatemala Abril 15, 2001                                     */
/* ************************************************************************ */
/* Objetivo: Convierte un n£mero ar bigo a romano, la entrada puede ser un  */
/*           n£mero entero en el rango de 1 a 3000.                         */
/* Descripci¢n:  El programa  toma el valor de  entrada y el  valor de esa  */
/*               posici¢n.                                                  */
/*                   p.e.:  int numeroArabigo = 3 7 5 9                     */
/* El n£mero 3 est   en la primera  posici¢n,  el n£mero 7  en la  segunda, */
/*            El n£mero 5 ...   ;  para obtener el 3 hacemos:               */
/*                      result = numeroArabigo / 1000                       */
/*            Entonces "result" almacena el valor en "miles".               */
/* Despu‚s, la funci¢n a2roman (int, int, char, char),  recive un par metro */
/* entero y tres caracteres, los par metros "char" indican los tres valores */
/* romanos  posibles para este n£mero y,  el entero indica el valor de esta */
/* posici¢n, la funci¢n a2roman analiza el n£mero y retorna un "string" con */
/* el equivalente en n£mero romano.  Despu‚s,  hace la misma operaci¢n para */
/* "centenas",  solo que el resultado es igual a "numeroArabigo/100" y etc. */
/****************************************************************************/
/* NOTA: SI UTILIZA VISUAL C++ PRIMERO CREE UN ESPACIO DE TRABAJO,  SEGUNDO */
/*       ELIMINE LA LINEA "clrscr();" ENTONCES COMPILE EL PROGRAMA.         */
/****************************************************************************/
 
/* Archivos de cabecera */
#include <stdio.h>
#include <conio.h>
#include <string.h>
 
/* Los caracteres "c1" y "c2" son inicializados en orden que no afecten a
	los "miles". */
char *a2roman (int valor, char *c1, char *c2, char *c3);
 
int main (void)
{
	int numeroArabigo = 1;   /* Inicializaci¢n para leer al menos una vez  */
	int result;              /* "result" almacena el valor de la posici¢n  */
	char roman[15] = "";     /* "roman" contiene la cadena "ar bigo-romano */
 
	/* Este ciclo perminte continuar si "numeroArabigo" ar bigo se encuentra
		en el rango */
	do
	{
		/* Limpiar la pantalla */
		clrscr();
 
		/* Imprimir un mensaje al usuario */
		printf ("Ingrese un entero en el rango de 1 a 3000: nt");
 
		/* Leer el valor */
		scanf ("%d", &numeroArabigo);
	}
	while ((numeroArabigo < 1) || (numeroArabigo > 3000));
 
	/* Obtener el valor de los "miles" */
	if ((numeroArabigo <= 3000) && (numeroArabigo >= 1000))
	{
		result = numeroArabigo / 1000;
		strcat (roman, a2roman(result, "M", " ", " "));
		numeroArabigo -= (result * 1000);
	}
 
	/* Obtener el valor de las "centenas" */
	if ((numeroArabigo < 1000) && (numeroArabigo >= 100))
	{
		result = numeroArabigo / 100;
		strcat (roman, a2roman(result, "C", "D", "M"));
		numeroArabigo -= (result * 100);
	}
 
	/* Obtener el valor de las "centenas" */
	if ((numeroArabigo < 100) && (numeroArabigo >= 10))
	{
		result = numeroArabigo / 10;
		strcat (roman, a2roman(result, "X", "L", "C"));
		numeroArabigo -= (result * 10);
	}
 
	/* Obtener el valor de las "unidades" */
	if ((numeroArabigo < 10) && (numeroArabigo >= 1))
	{
		strcat (roman, a2roman(numeroArabigo, "I", "V", "X"));
	}
 
	/* Despliegar el n£mero romano */
	printf ("El n£mero romano es: nt%snn", roman);
	printf ("tt...Presione cualquier tecla para terminar.");
	getch();
 
	/* Retorno exitoso */
	return 0;
}
 
char *a2roman (int valor, char *c1, char *c2, char *c3)
{
	int i;	/* "i" es el ¡ndice de iteraciones */
	char rRoman[15] = "";
 
	/* Si "valor" = 1, 2, 3 */
	if ((valor >= 1) && (valor <= 3))
	{
		for (i = 0; i < valor; i++)
			strcat (rRoman, c1);
	}
 
	/* Si "valor" = 5, 6, 7, 8 */
	if ((valor >= 5) && (valor <= 8))
	{
		strcat (rRoman, c2);
 
		for (i = 0; i < (valor - 5); i++)
			strcat (rRoman, c1);
	}
 
	/* Si "valor" = 4 */
	if (valor == 4)
	{
		strcat (rRoman, c1);
		strcat (rRoman, c2);
	}
 
	/* Si "valor" = 9 */
	if (valor == 9)
	{
		strcat (rRoman, c1);
		strcat (rRoman, c3);
	}
 
	return (rRoman);
}