-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Dado un año tecleado por el usuario, escriba el siglo al que pertenece. Recuerda que el siglo comienza el primer año de cada centenario, es por eso por lo que el año 1800 sigue siendo el siglo XVIII y será siglo XIX a partir de 1801. Nota. No se escriben todos los años, existe una fórmula para obtener las centenas del año.
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
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
Proceso _Siglo
Escribir Sin Saltar "Ingresa el valor de anno:";
Leer anno;
Escribir Sin Saltar "Ingresa el valor de ano:";
Leer ano;
siglo <- (anno-ano MOD 100)/100;
Si ano MOD 100 <> 0 Entonces
siglo <- siglo+1;
FinSi
Si siglo = 1 Entonces
Escribir "I";
FinSi
Si siglo = 2 Entonces
Escribir "II";
FinSi
Si siglo = 3 Entonces
Escribir "III";
FinSi
Si siglo = 4 Entonces
Escribir "IV";
FinSi
Si siglo = 5 Entonces
Escribir "V";
FinSi
Si siglo = 6 Entonces
Escribir "VI";
FinSi
Si siglo = 7 Entonces
Escribir "VII";
FinSi
Si siglo = 8 Entonces
Escribir "VIII";
FinSi
Si siglo = 9 Entonces
Escribir "IX";
FinSi
Si siglo = 10 Entonces
Escribir "X";
FinSi
Si siglo = 11 Entonces
Escribir "XI";
FinSi
Si siglo = 12 Entonces
Escribir "XII";
FinSi
Si siglo = 13 Entonces
Escribir "XIII";
FinSi
Si siglo = 14 Entonces
Escribir "XIV";
FinSi
Si siglo = 15 Entonces
Escribir "XV";
FinSi
Si siglo = 16 Entonces
Escribir "XVI";
FinSi
Si siglo = 17 Entonces
Escribir "XVII";
FinSi
Si siglo = 18 Entonces
Escribir "XVIII";
FinSi
Si siglo = 19 Entonces
Escribir "XIX";
FinSi
Si siglo = 20 Entonces
Escribir "XX";
FinSi
Si siglo = 21 Entonces
Escribir "XXI";
FinSi
Escribir "Valor de siglo: ", siglo;
FinProceso
Escribir Sin Saltar "Ingresa el valor de anno:";
Leer anno;
Escribir Sin Saltar "Ingresa el valor de ano:";
Leer ano;
siglo <- (anno-ano MOD 100)/100;
Si ano MOD 100 <> 0 Entonces
siglo <- siglo+1;
FinSi
Si siglo = 1 Entonces
Escribir "I";
FinSi
Si siglo = 2 Entonces
Escribir "II";
FinSi
Si siglo = 3 Entonces
Escribir "III";
FinSi
Si siglo = 4 Entonces
Escribir "IV";
FinSi
Si siglo = 5 Entonces
Escribir "V";
FinSi
Si siglo = 6 Entonces
Escribir "VI";
FinSi
Si siglo = 7 Entonces
Escribir "VII";
FinSi
Si siglo = 8 Entonces
Escribir "VIII";
FinSi
Si siglo = 9 Entonces
Escribir "IX";
FinSi
Si siglo = 10 Entonces
Escribir "X";
FinSi
Si siglo = 11 Entonces
Escribir "XI";
FinSi
Si siglo = 12 Entonces
Escribir "XII";
FinSi
Si siglo = 13 Entonces
Escribir "XIII";
FinSi
Si siglo = 14 Entonces
Escribir "XIV";
FinSi
Si siglo = 15 Entonces
Escribir "XV";
FinSi
Si siglo = 16 Entonces
Escribir "XVI";
FinSi
Si siglo = 17 Entonces
Escribir "XVII";
FinSi
Si siglo = 18 Entonces
Escribir "XVIII";
FinSi
Si siglo = 19 Entonces
Escribir "XIX";
FinSi
Si siglo = 20 Entonces
Escribir "XX";
FinSi
Si siglo = 21 Entonces
Escribir "XXI";
FinSi
Escribir "Valor de siglo: ", siglo;
FinProceso