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);} |
Convertir Arábigos a Romanos con PHP
0000-00-00 00:00:00
[...] http://ejemplos.mis-algoritmos.com/archives/158 [...]
Alexander
0000-00-00 00:00:00
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