-
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
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.
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.