Traductor De Numeros Romanos 4dxa
This document was ed by and they confirmed that they have the permission to share it. If you are author or own the copyright of this book, please report to us by using this report form. Report r6l17
Overview 4q3b3c
& View Traductor De Numeros Romanos as PDF for free.
More details 26j3b
- Words: 1,101
- Pages: 9
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:
#include<stdio.h> #include<stdlib.h> #include<string.h> //VARIABLES GLOBALES char NumeroRomano[10]; char valores[]={'I','V','X','L','C','D','M'}; int i,auxiliar,au=0,longitud,centinela; void main() { int AnalisisLexico(); void AnalisisSintactico(); int res; printf("Ingrese un numero romano: "); scanf("%s",NumeroRomano); i=0; res=AnalisisLexico(); if(res==0) { printf("Analisis Lexico: Correcto"); AnalisisSintactico(); system("pause"); exit(0); } else { system("pause"); exit(1); } } /*****************************************************/ int AnalisisLexico() { int j,aux; longitud = strlen(NumeroRomano); for(j=0;j
56: aux=0; 57: else 58: { 59: if(NumeroRomano[j]==valores[5]) 60: aux=0; 61: else 62: { 63: if(NumeroRomano[j]==valores[6]) 64: aux=0; 65: } 66: } 67: 68: } 69: } 70: } 71: } 72: if(aux==1) 73: { 74: printf("\nAnalisis lexico: Incorrecto"); 75: aux=1; 76: printf("\nIngrese un caracter Correcto... \nHasta pronto...\n"); 77: break; 78: } 79: } 80: return(aux); 81: } 82: /*****************************************************/ 83: void AnalisisSintactico() 84: { 85: void parea(char caracter[1]); 86: void Produccion_O(); 87: void Produccion_K(); 88: void Produccion_W(); 89: void Produccion_A(); 90: void Produccion_T(); 91: void Produccion_Z(); 92: void Produccion_B(); 93: void Produccion_E(); 94: void Produccion_H(); 95: void Produccion_R(); 96: void Produccion_S(); 97: void Produccion_F(); 98: void Produccion_G(); 99: void Produccion_Y(); 100: void Produccion_M(); 101: void imprima(); 102: switch(NumeroRomano[i]) 103: { 104: case 'I': centinela=0; 105: Produccion_O(); 106: i=0; 107: if(centinela==0) 108: { 109: Produccion_A(); 110: if(centinela==0)
111: 112: 113: 114: 115: 116: 117: 118: 119: 120: 121: 122: 123: 124: 125: 126: 127: 128: 129: 130: 131: 132: 133: 134: 135: 136: 137: 138: 139: 140: 141: 142: 143: 144: 145: 146: 147: 148: 149: 150: 151: 152: 153: 154: 155: 156: 157: 158: 159: 160: 161: 162: 163: 164: 165:
imprima(); } break; case 'V':Produccion_A(); break; case 'X':Produccion_B(); break; case 'L':Produccion_F(); break; case 'C':Produccion_G(); break; case 'D':Produccion_Y(); break; case 'M':Produccion_M(); break; default : printf("El caracter %s es Incorrecto...",NumeroRomano[i]); } } /*****************************************************/ void calcula() { int auxi=0,contador=0,auxil=1,ind; int busqueda(); int numeros[]={1,5,10,50,100,500,1000}; i=0; while(i
=0) { contador = contador + numeros[ind]; if(numeros[ind]>auxi) contador = contador-(2*auxi); auxi = numeros[ind]; } i++; } printf("\nEl Numero Romano %s es: %d\n",NumeroRomano,contador); } /*****************************************************/ int busqueda() { int j,ind; for(j=0;j<7;j++) { if(NumeroRomano[i]==valores[j]) ind=j; } return(ind); } /*****************************************************/ void imprima() {
166: 167: 168: 169: 170: 171: 172: 173: 174: 175: 176: 177: 178: 179: 180: 181: 182: 183: 184: 185: 186: 187: 188: 189: 190: 191: 192: 193: 194: 195: 196: 197: 198: 199: 200: 201: 202: 203: 204: 205: 206: 207: 208: 209: 210: 211: 212: 213: 214: 215: 216: 217: 218: 219: 220:
void calcula(); if(centinela!=0) { printf("\nAnalisis Sintactico: El numero romano esta escrito correctamente..."); calcula(); } else printf("\nAnalisis Sintactico: EL numero romano NO está escrito correctamente..."); } /*****************************************************/ void parea(char caracter[]) { void imprima(); void calcula(char caracter[1]); if(NumeroRomano[i]==caracter[0]) { if(longitud!=i+1) i++; else { centinela=1; imprima(); i=longitud+2; } } else centinela=0; } /*****************************************************/ void Produccion_O() { void Produccion_K(); if(NumeroRomano[i]==valores[0]) { parea("I"); Produccion_K(); Produccion_K(); auxiliar=0; } } /*****************************************************/ void Produccion_K() { if(NumeroRomano[i]==valores[0]) parea("I"); } /*****************************************************/ void Produccion_W() { if(NumeroRomano[i]==valores[0]) { parea("I"); parea("V"); auxiliar=0;
221: 222: 223: 224: 225: 226: 227: 228: 229: 230: 231: 232: 233: 234: 235: 236: 237: 238: 239: 240: 241: 242: 243: 244: 245: 246: 247: 248: 249: 250: 251: 252: 253: 254: 255: 256: 257: 258: 259: 260: 261: 262: 263: 264: 265: 266: 267: 268: 269: 270: 271: 272: 273: 274: 275:
} } /*****************************************************/ void Produccion_A() { auxiliar=1; if((NumeroRomano[i]==valores[0])&&(NumeroRomano[i+1]==valores[1])) Produccion_W(); if((NumeroRomano[i]==valores[0])&&(NumeroRomano[i+1]==valores[2])) Produccion_Z();
//PARA EL VALOR
//PARA EL VALOR
if(auxiliar==1) { //PARA AGREGAR I's DESPUES DE UN V,X,L,C... if(((NumeroRomano[i]==valores[0])&&((NumeroRomano[i-1]==valores[1])||(NumeroRomano[i-1 Produccion_T(); }
if(auxiliar==1) { if((NumeroRomano[i]==valores[1])||(NumeroRomano[i]==valores[2])) { //VALORES ARRIVA DE V=5 parea("V"); Produccion_T(); if((NumeroRomano[i]==valores[1])||(NumeroRomano[i]==valores[2])||(NumeroRomano[i]= { centinela=0; imprima(); } } else { if(centinela==0) imprima(); } } } /*****************************************************/ void Produccion_T() { Produccion_O(); } /*****************************************************/ void Produccion_Z() { if(NumeroRomano[i]==valores[0]) { parea("I"); parea("X"); auxiliar=0; } } /*****************************************************/
276: void Produccion_B() 277: { 278: void Produccion_SIGNO1(); 279: void Produccion_SIGNO2(); 280: if((NumeroRomano[i]==valores[2])&&(NumeroRomano[i+1]==valores[3])&&(au!=1)) //PARA EL CA 281: { 282: Produccion_SIGNO1(); 283: } 284: else 285: { 286: if((NumeroRomano[i]==valores[2])&&(NumeroRomano[i+1]==valores[4])) //PARA EL CASO DE X 287: Produccion_SIGNO2(); 288: else 289: { 290: if(NumeroRomano[i]==valores[2]) //PARA EL CASO DE 20 EN ADELANTE 291: { 292: parea("X"); 293: Produccion_E(); 294: } 295: else 296: { 297: if((NumeroRomano[i]==valores[0])||(NumeroRomano[i]==valores[1])) 298: Produccion_A(); 299: else 300: { 301: centinela=0; 302: imprima(); 303: } 304: } 305: 306: } 307: } 308: } 309: /*****************************************************/ 310: void Produccion_E() 311: { 312: if(NumeroRomano[i]==valores[2]) 313: { 314: parea("X"); 315: Produccion_H(); 316: } 317: else 318: { 319: if((NumeroRomano[i]==valores[0])||(NumeroRomano[i]==valores[1])) 320: Produccion_A(); 321: else 322: { 323: if((NumeroRomano[i]==valores[3])||(NumeroRomano[i]==valores[4])||(NumeroRomano[i]= 324: { 325: centinela=0; 326: imprima(); 327: } 328: } 329: } 330: }
331: 332: 333: 334: 335: 336: 337: 338: 339: 340: 341: 342: 343: 344: 345: 346: 347: 348: 349: 350: 351: 352: 353: 354: 355: 356: 357: 358: 359: 360: 361: 362: 363: 364: 365: 366: 367: 368: 369: 370: 371: 372: 373: 374: 375: 376: 377: 378: 379: 380: 381: 382: 383: 384: 385:
/*****************************************************/ void Produccion_H() { if(NumeroRomano[i]==valores[2]) { parea("X"); Produccion_R(); } else Produccion_A(); } /*****************************************************/ void Produccion_SIGNO1() { if(NumeroRomano[i]==valores[2]) { parea("X"); parea("L"); Produccion_R(); } } /*****************************************************/ void Produccion_SIGNO2() { if(NumeroRomano[i]==valores[2]) { parea("X"); parea("C"); Produccion_R(); } } /*****************************************************/ void Produccion_R() { Produccion_A(); } /*****************************************************/ void Produccion_S() { au=1; Produccion_B(); } /*****************************************************/ void Produccion_F() { if(NumeroRomano[i]==valores[3]) { parea("L"); Produccion_S(); } else Produccion_B(); } /*****************************************************/
386: 387: 388: 389: 390: 391: 392: 393: 394: 395: 396: 397: 398: 399: 400: 401: 402: 403: 404: 405: 406: 407: 408: 409: 410: 411: 412: 413: 414: 415: 416: 417: 418: 419: 420: 421: 422: 423: 424: 425: 426: 427: 428: 429: 430: 431: 432: 433: 434: 435: 436: 437: 438: 439: 440:
void Produccion_G() { void Produccion_J(); void Produccion_SIGNO3(); void Produccion_SIGNO4(); if((NumeroRomano[i]==valores[4])&&(NumeroRomano[i+1]==valores[5])) Produccion_SIGNO3(); else { if((NumeroRomano[i]==valores[4])&&(NumeroRomano[i+1]==valores[6])) Produccion_SIGNO4(); else { if(NumeroRomano[i]==valores[4]) { parea("C"); Produccion_J(); } else Produccion_F(); } } } /*****************************************************/ void Produccion_J() { void Produccion_P(); if(NumeroRomano[i]==valores[4]) { parea("C"); Produccion_P(); } else Produccion_F(); } /*****************************************************/ void Produccion_P() { void Produccion_U(); if(NumeroRomano[i]==valores[4]) { parea("C"); Produccion_U(); } else Produccion_F(); } /*****************************************************/ void Produccion_SIGNO3() { parea("C"); parea("D"); Produccion_U(); } /*****************************************************/
441: 442: 443: 444: 445: 446: 447: 448: 449: 450: 451: 452: 453: 454: 455: 456: 457: 458: 459: 460: 461: 462: 463: 464: 465: 466: 467: 468: 469: 470: 471: 472: 473: 474:
void Produccion_SIGNO4() { parea("C"); parea("M"); Produccion_U(); } /*****************************************************/ void Produccion_U() { Produccion_F(); } /*****************************************************/ void Produccion_Y() { void Produccion_Q(); if(NumeroRomano[i]==valores[5]) { parea("D"); Produccion_Q(); } else Produccion_G(); } /*****************************************************/ void Produccion_Q() { Produccion_G(); } /*****************************************************/ void Produccion_M() { if(NumeroRomano[i]==valores[6]) parea("M"); }
#include<stdio.h> #include<stdlib.h> #include<string.h> //VARIABLES GLOBALES char NumeroRomano[10]; char valores[]={'I','V','X','L','C','D','M'}; int i,auxiliar,au=0,longitud,centinela; void main() { int AnalisisLexico(); void AnalisisSintactico(); int res; printf("Ingrese un numero romano: "); scanf("%s",NumeroRomano); i=0; res=AnalisisLexico(); if(res==0) { printf("Analisis Lexico: Correcto"); AnalisisSintactico(); system("pause"); exit(0); } else { system("pause"); exit(1); } } /*****************************************************/ int AnalisisLexico() { int j,aux; longitud = strlen(NumeroRomano); for(j=0;j
56: aux=0; 57: else 58: { 59: if(NumeroRomano[j]==valores[5]) 60: aux=0; 61: else 62: { 63: if(NumeroRomano[j]==valores[6]) 64: aux=0; 65: } 66: } 67: 68: } 69: } 70: } 71: } 72: if(aux==1) 73: { 74: printf("\nAnalisis lexico: Incorrecto"); 75: aux=1; 76: printf("\nIngrese un caracter Correcto... \nHasta pronto...\n"); 77: break; 78: } 79: } 80: return(aux); 81: } 82: /*****************************************************/ 83: void AnalisisSintactico() 84: { 85: void parea(char caracter[1]); 86: void Produccion_O(); 87: void Produccion_K(); 88: void Produccion_W(); 89: void Produccion_A(); 90: void Produccion_T(); 91: void Produccion_Z(); 92: void Produccion_B(); 93: void Produccion_E(); 94: void Produccion_H(); 95: void Produccion_R(); 96: void Produccion_S(); 97: void Produccion_F(); 98: void Produccion_G(); 99: void Produccion_Y(); 100: void Produccion_M(); 101: void imprima(); 102: switch(NumeroRomano[i]) 103: { 104: case 'I': centinela=0; 105: Produccion_O(); 106: i=0; 107: if(centinela==0) 108: { 109: Produccion_A(); 110: if(centinela==0)
111: 112: 113: 114: 115: 116: 117: 118: 119: 120: 121: 122: 123: 124: 125: 126: 127: 128: 129: 130: 131: 132: 133: 134: 135: 136: 137: 138: 139: 140: 141: 142: 143: 144: 145: 146: 147: 148: 149: 150: 151: 152: 153: 154: 155: 156: 157: 158: 159: 160: 161: 162: 163: 164: 165:
imprima(); } break; case 'V':Produccion_A(); break; case 'X':Produccion_B(); break; case 'L':Produccion_F(); break; case 'C':Produccion_G(); break; case 'D':Produccion_Y(); break; case 'M':Produccion_M(); break; default : printf("El caracter %s es Incorrecto...",NumeroRomano[i]); } } /*****************************************************/ void calcula() { int auxi=0,contador=0,auxil=1,ind; int busqueda(); int numeros[]={1,5,10,50,100,500,1000}; i=0; while(i
166: 167: 168: 169: 170: 171: 172: 173: 174: 175: 176: 177: 178: 179: 180: 181: 182: 183: 184: 185: 186: 187: 188: 189: 190: 191: 192: 193: 194: 195: 196: 197: 198: 199: 200: 201: 202: 203: 204: 205: 206: 207: 208: 209: 210: 211: 212: 213: 214: 215: 216: 217: 218: 219: 220:
void calcula(); if(centinela!=0) { printf("\nAnalisis Sintactico: El numero romano esta escrito correctamente..."); calcula(); } else printf("\nAnalisis Sintactico: EL numero romano NO está escrito correctamente..."); } /*****************************************************/ void parea(char caracter[]) { void imprima(); void calcula(char caracter[1]); if(NumeroRomano[i]==caracter[0]) { if(longitud!=i+1) i++; else { centinela=1; imprima(); i=longitud+2; } } else centinela=0; } /*****************************************************/ void Produccion_O() { void Produccion_K(); if(NumeroRomano[i]==valores[0]) { parea("I"); Produccion_K(); Produccion_K(); auxiliar=0; } } /*****************************************************/ void Produccion_K() { if(NumeroRomano[i]==valores[0]) parea("I"); } /*****************************************************/ void Produccion_W() { if(NumeroRomano[i]==valores[0]) { parea("I"); parea("V"); auxiliar=0;
221: 222: 223: 224: 225: 226: 227: 228: 229: 230: 231: 232: 233: 234: 235: 236: 237: 238: 239: 240: 241: 242: 243: 244: 245: 246: 247: 248: 249: 250: 251: 252: 253: 254: 255: 256: 257: 258: 259: 260: 261: 262: 263: 264: 265: 266: 267: 268: 269: 270: 271: 272: 273: 274: 275:
} } /*****************************************************/ void Produccion_A() { auxiliar=1; if((NumeroRomano[i]==valores[0])&&(NumeroRomano[i+1]==valores[1])) Produccion_W(); if((NumeroRomano[i]==valores[0])&&(NumeroRomano[i+1]==valores[2])) Produccion_Z();
//PARA EL VALOR
//PARA EL VALOR
if(auxiliar==1) { //PARA AGREGAR I's DESPUES DE UN V,X,L,C... if(((NumeroRomano[i]==valores[0])&&((NumeroRomano[i-1]==valores[1])||(NumeroRomano[i-1 Produccion_T(); }
if(auxiliar==1) { if((NumeroRomano[i]==valores[1])||(NumeroRomano[i]==valores[2])) { //VALORES ARRIVA DE V=5 parea("V"); Produccion_T(); if((NumeroRomano[i]==valores[1])||(NumeroRomano[i]==valores[2])||(NumeroRomano[i]= { centinela=0; imprima(); } } else { if(centinela==0) imprima(); } } } /*****************************************************/ void Produccion_T() { Produccion_O(); } /*****************************************************/ void Produccion_Z() { if(NumeroRomano[i]==valores[0]) { parea("I"); parea("X"); auxiliar=0; } } /*****************************************************/
276: void Produccion_B() 277: { 278: void Produccion_SIGNO1(); 279: void Produccion_SIGNO2(); 280: if((NumeroRomano[i]==valores[2])&&(NumeroRomano[i+1]==valores[3])&&(au!=1)) //PARA EL CA 281: { 282: Produccion_SIGNO1(); 283: } 284: else 285: { 286: if((NumeroRomano[i]==valores[2])&&(NumeroRomano[i+1]==valores[4])) //PARA EL CASO DE X 287: Produccion_SIGNO2(); 288: else 289: { 290: if(NumeroRomano[i]==valores[2]) //PARA EL CASO DE 20 EN ADELANTE 291: { 292: parea("X"); 293: Produccion_E(); 294: } 295: else 296: { 297: if((NumeroRomano[i]==valores[0])||(NumeroRomano[i]==valores[1])) 298: Produccion_A(); 299: else 300: { 301: centinela=0; 302: imprima(); 303: } 304: } 305: 306: } 307: } 308: } 309: /*****************************************************/ 310: void Produccion_E() 311: { 312: if(NumeroRomano[i]==valores[2]) 313: { 314: parea("X"); 315: Produccion_H(); 316: } 317: else 318: { 319: if((NumeroRomano[i]==valores[0])||(NumeroRomano[i]==valores[1])) 320: Produccion_A(); 321: else 322: { 323: if((NumeroRomano[i]==valores[3])||(NumeroRomano[i]==valores[4])||(NumeroRomano[i]= 324: { 325: centinela=0; 326: imprima(); 327: } 328: } 329: } 330: }
331: 332: 333: 334: 335: 336: 337: 338: 339: 340: 341: 342: 343: 344: 345: 346: 347: 348: 349: 350: 351: 352: 353: 354: 355: 356: 357: 358: 359: 360: 361: 362: 363: 364: 365: 366: 367: 368: 369: 370: 371: 372: 373: 374: 375: 376: 377: 378: 379: 380: 381: 382: 383: 384: 385:
/*****************************************************/ void Produccion_H() { if(NumeroRomano[i]==valores[2]) { parea("X"); Produccion_R(); } else Produccion_A(); } /*****************************************************/ void Produccion_SIGNO1() { if(NumeroRomano[i]==valores[2]) { parea("X"); parea("L"); Produccion_R(); } } /*****************************************************/ void Produccion_SIGNO2() { if(NumeroRomano[i]==valores[2]) { parea("X"); parea("C"); Produccion_R(); } } /*****************************************************/ void Produccion_R() { Produccion_A(); } /*****************************************************/ void Produccion_S() { au=1; Produccion_B(); } /*****************************************************/ void Produccion_F() { if(NumeroRomano[i]==valores[3]) { parea("L"); Produccion_S(); } else Produccion_B(); } /*****************************************************/
386: 387: 388: 389: 390: 391: 392: 393: 394: 395: 396: 397: 398: 399: 400: 401: 402: 403: 404: 405: 406: 407: 408: 409: 410: 411: 412: 413: 414: 415: 416: 417: 418: 419: 420: 421: 422: 423: 424: 425: 426: 427: 428: 429: 430: 431: 432: 433: 434: 435: 436: 437: 438: 439: 440:
void Produccion_G() { void Produccion_J(); void Produccion_SIGNO3(); void Produccion_SIGNO4(); if((NumeroRomano[i]==valores[4])&&(NumeroRomano[i+1]==valores[5])) Produccion_SIGNO3(); else { if((NumeroRomano[i]==valores[4])&&(NumeroRomano[i+1]==valores[6])) Produccion_SIGNO4(); else { if(NumeroRomano[i]==valores[4]) { parea("C"); Produccion_J(); } else Produccion_F(); } } } /*****************************************************/ void Produccion_J() { void Produccion_P(); if(NumeroRomano[i]==valores[4]) { parea("C"); Produccion_P(); } else Produccion_F(); } /*****************************************************/ void Produccion_P() { void Produccion_U(); if(NumeroRomano[i]==valores[4]) { parea("C"); Produccion_U(); } else Produccion_F(); } /*****************************************************/ void Produccion_SIGNO3() { parea("C"); parea("D"); Produccion_U(); } /*****************************************************/
441: 442: 443: 444: 445: 446: 447: 448: 449: 450: 451: 452: 453: 454: 455: 456: 457: 458: 459: 460: 461: 462: 463: 464: 465: 466: 467: 468: 469: 470: 471: 472: 473: 474:
void Produccion_SIGNO4() { parea("C"); parea("M"); Produccion_U(); } /*****************************************************/ void Produccion_U() { Produccion_F(); } /*****************************************************/ void Produccion_Y() { void Produccion_Q(); if(NumeroRomano[i]==valores[5]) { parea("D"); Produccion_Q(); } else Produccion_G(); } /*****************************************************/ void Produccion_Q() { Produccion_G(); } /*****************************************************/ void Produccion_M() { if(NumeroRomano[i]==valores[6]) parea("M"); }
Related Documents 171j1w
Traductor De Numeros Romanos 4dxa
January 2023 0
Numeros Romanos 6h1971
September 2022 0
Numeros Romanos 6h1971
November 2019 288
Numeros Romanos 6h1971
June 2022 0
Numeros-romanos 3sy3t
June 2022 0