• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    Pide un número romano y lo convierte a notación arábiga

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
Algoritmo ProcesoRomano
    Dimension romanos[4,9];
    romanos[1,1] <- "M";
    romanos[1,2] <- "MM";
    romanos[1,3] <- "MMM";
    romanos[2,1] <- "C";
    romanos[2,2] <- "CC";
    romanos[2,3] <- "CCC";
    romanos[2,4] <- "CD";
    romanos[2,5] <- "D";
    romanos[2,6] <- "DC";
    romanos[2,7] <- "DCC";
    romanos[2,8] <- "DCCC";
    romanos[2,9] <- "CM";
    romanos[3,1] <- "X";
    romanos[3,2] <- "XX";
    romanos[3,3] <- "XXX";
    romanos[3,4] <- "XL";
    romanos[3,5] <- "L";
    romanos[3,6] <- "LX";
    romanos[3,7] <- "LXX";
    romanos[3,8] <- "LXXX";
    romanos[3,9] <- "XC";
    romanos[4,1] <- "I";
    romanos[4,2] <- "II";
    romanos[4,3] <- "III";
    romanos[4,4] <- "IV";
    romanos[4,5] <- "V";
    romanos[4,6] <- "VI";
    romanos[4,7] <- "VII";
    romanos[4,8] <- "VIII";
    romanos[4,9] <- "IX";
    arabigo <- 0;
    multiplo <- 1000;
    Escribir "Ingrese un número romano: ";
    Leer original;
    original <- Mayusculas(original);
    romano <- original;
    Para i<-1 Hasta 4 Con Paso 1 Hacer
        Si i=1 Entonces
            j <- 3;
        Sino
            j <- 9;
        FinSi
        Mientras j>0 Hacer
            tamano <- Longitud(romanos[i,j]);
            Si romanos[i,j]=Subcadena(romano, 1, tamano) Entonces
                arabigo <- arabigo + j * multiplo;
                romano <- Subcadena(romano, tamano+1, Longitud(romano));
                j <- 0;
            FinSi
            j <- j-1;
        FinMientras
        multiplo <- multiplo / 10;
    FinPara
    Escribir "";
    Si Longitud(romano)=0 Entonces
        Escribir original, " = ", arabigo;
    Sino
        Escribir "El número romano ", original, " es incorrecto.";
    FinSi
FinAlgoritmo