Convierte un numero arabigo en romano en el rango de 1 a 3000 (Latino)

¿Has encontrado un error? ¿Tienes la solución? Deja tu correción ;-)

Antes de comentar: Gran parte de los ejercicios propuestos no tienen librerías debido a que Wordpress las eliminó al verlas como etiquetas HTML. Si sabes/tienes/conoces las librerías que hacen falta, déjalo en los comentarios. Y lo mas importante: Todos los ejemplos fueron realizados por estudiante con únicamente conocimiento básico del lenguaje, no de programación.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
/********************************** 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);}

7 comentarios en "Convierte un numero arabigo en romano en el rango de 1 a 3000 (Latino)"

Convertir Arbigos a Romanos con PHP

[...] http://ejemplos.mis-algoritmos.com/archives/158 [...]

Alexander

por favor necesito el codigo de un programa en pascal que convierta de Romanos a arabigos y vicerversa pero no importa si es solo de romano a arabigos gracias

Punto importante: Si vas a sugerir un segmento de código en algún lenguaje debes hacerlo así:

  • Si es lenguaje C <code lang="c">Código en C</code>
  • Si es lenguaje Pascal <code lang="pascal">Aquí dentro el código de Pascal</code>.

De esta manera el código coloreas el código.

Deja un comentario

Suscribirse a los comentarios.