-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Convierte un dígito dado por el usuario en su equivalente en número romano. Repite el proceso si el usuario así lo desea.
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
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
Proceso UnDigitoANumeroRomano
Repetir
Escribir Sin Saltar "Ingresa el valor de digito:";
Leer digito;
Si digito = 1 Entonces
Escribir "I";
FinSi
Si digito = 2 Entonces
Escribir "II";
FinSi
Si digito = 3 Entonces
Escribir "III";
FinSi
Si digito = 4 Entonces
Escribir "IV";
FinSi
Si digito = 5 Entonces
Escribir "V";
FinSi
Si digito = 6 Entonces
Escribir "VI";
FinSi
Si digito = 7 Entonces
Escribir "VII";
FinSi
Si digito = 8 Entonces
Escribir "VIII";
FinSi
Si digito = 9 Entonces
Escribir "IX";
FinSi
Escribir "";
Repetir
Escribir Sin Saltar "¿Deseas repetir el proceso? (S/N):";
Leer tecla_repetir;
Hasta Que tecla_repetir='s' O tecla_repetir='n' O tecla_repetir='S' O tecla_repetir='N'
Hasta Que tecla_repetir='n' O tecla_repetir='N'
FinProceso
Repetir
Escribir Sin Saltar "Ingresa el valor de digito:";
Leer digito;
Si digito = 1 Entonces
Escribir "I";
FinSi
Si digito = 2 Entonces
Escribir "II";
FinSi
Si digito = 3 Entonces
Escribir "III";
FinSi
Si digito = 4 Entonces
Escribir "IV";
FinSi
Si digito = 5 Entonces
Escribir "V";
FinSi
Si digito = 6 Entonces
Escribir "VI";
FinSi
Si digito = 7 Entonces
Escribir "VII";
FinSi
Si digito = 8 Entonces
Escribir "VIII";
FinSi
Si digito = 9 Entonces
Escribir "IX";
FinSi
Escribir "";
Repetir
Escribir Sin Saltar "¿Deseas repetir el proceso? (S/N):";
Leer tecla_repetir;
Hasta Que tecla_repetir='s' O tecla_repetir='n' O tecla_repetir='S' O tecla_repetir='N'
Hasta Que tecla_repetir='n' O tecla_repetir='N'
FinProceso