• Lenguaje

    Pascal

  • 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
program romano;
uses crt;

var numero : integer;
var tecla : char;

begin
    write ('Ingrese un n'#163'mero ar'#160'bigo: ');
    readln (numero);
    writeln;
    case (numero div 1000) mod 10 of
        1: write ('M');
        2: write ('MM');
        3: write ('MMM');
        4: write ('__'#10#13'IV');
        5: write ('_'#10#13'V');
        6: write ('__'#10#13'VI');
        7: write ('___'#10#13'VII');
        8: write ('____'#10#13'VIII');
        9: write ('__'#10#13'IX');
    end;
    case (numero div 100) mod 10 of
        1: write ('C');
        2: write ('CC');
        3: write ('CCC');
        4: write ('CD');
        5: write ('D');
        6: write ('DC');
        7: write ('DCC');
        8: write ('DCCC');
        9: write ('CM');
    end;
    case (numero div 10) mod 10 of
        1: write ('X');
        2: write ('XX');
        3: write ('XXX');
        4: write ('XL');
        5: write ('L');
        6: write ('LX');
        7: write ('LXX');
        8: write ('LXXX');
        9: write ('XC');
    end;
    case numero mod 10 of
        1: write ('I');
        2: write ('II');
        3: write ('III');
        4: write ('IV');
        5: write ('V');
        6: write ('VI');
        7: write ('VII');
        8: write ('VIII');
        9: write ('IX');
    end;
    write (#10#13#10#13'Presione una tecla para terminar . . . ');
    tecla := readkey;
end.