• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    Recibe un número arábigo y muestra su equivalencia en notación romana

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
Algoritmo ProcesoRomano
    Escribir Sin Saltar "Ingrese un número arábigo:";
    Leer numero;
    Escribir "";
    Segun ((numero - numero MOD 1000) / 1000) MOD 10 Hacer
        1:
            Escribir Sin Saltar "M";
        2:
            Escribir Sin Saltar "MM";
        3:
            Escribir Sin Saltar "MMM";
        4:
            Escribir "__";
            Escribir Sin Saltar "IV";
        5:
            Escribir "_";
            Escribir Sin Saltar "V";
        6:
            Escribir "__";
            Escribir Sin Saltar "VI";
        7:
            Escribir "___";
            Escribir Sin Saltar "VII";
        8:
            Escribir "____";
            Escribir Sin Saltar "VIII";
        9:
            Escribir "__";
            Escribir Sin Saltar "IX";
    FinSegun
    Segun ((numero - numero MOD 100) / 100) MOD 10 Hacer
        1:
            Escribir Sin Saltar "C";
        2:
            Escribir Sin Saltar "CC";
        3:
            Escribir Sin Saltar "CCC";
        4:
            Escribir Sin Saltar "CD";
        5:
            Escribir Sin Saltar "D";
        6:
            Escribir Sin Saltar "DC";
        7:
            Escribir Sin Saltar "DCC";
        8:
            Escribir Sin Saltar "DCCC";
        9:
            Escribir Sin Saltar "CM";
    FinSegun
    Segun ((numero - numero MOD 10) / 10) MOD 10 Hacer
        1:
            Escribir Sin Saltar "X";
        2:
            Escribir Sin Saltar "XX";
        3:
            Escribir Sin Saltar "XXX";
        4:
            Escribir Sin Saltar "XL";
        5:
            Escribir Sin Saltar "L";
        6:
            Escribir Sin Saltar "LX";
        7:
            Escribir Sin Saltar "LXX";
        8:
            Escribir Sin Saltar "LXXX";
        9:
            Escribir Sin Saltar "XC";
    FinSegun
    Segun numero MOD 10 Hacer
        1:
            Escribir Sin Saltar "I";
        2:
            Escribir Sin Saltar "II";
        3:
            Escribir Sin Saltar "III";
        4:
            Escribir Sin Saltar "IV";
        5:
            Escribir Sin Saltar "V";
        6:
            Escribir Sin Saltar "VI";
        7:
            Escribir Sin Saltar "VII";
        8:
            Escribir Sin Saltar "VIII";
        9:
            Escribir Sin Saltar "IX";
    FinSegun
    Escribir "";
FinAlgoritmo