-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Una empresa registra el sexo, edad y estado civil de sus empleados a través de un número entero positivo de cuatro cifras de acuerdo a lo siguiente: la primera cifra de la izquierda representa el estado civil (1 para soltero, 2 para casado, 3 para viudo y 4 para divorciado), las siguientes dos cifras representan la edad y la tercera cifra representa el sexo (1 para femenino y 2 para masculino). Determinar el estado civil, edad y sexo de un empleado conociendo el número que empaqueta dicha información.
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
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
Proceso EstadoCivilEdadYSexo
Escribir Sin Saltar "Ingresa el valor de informacion:";
Leer informacion;
estado_civil <- (informacion MOD 10000-informacion MOD 1000)/1000;
Si estado_civil = 1 Entonces
Escribir "Soltero";
FinSi
Si estado_civil = 2 Entonces
Escribir "Casado";
FinSi
Si estado_civil = 3 Entonces
Escribir "Viudo";
FinSi
Si estado_civil = 4 Entonces
Escribir "Divorciado";
FinSi
edad <- (informacion MOD 1000-informacion MOD 10)/10;
sexo <- informacion MOD 10;
Si sexo = 1 Entonces
Escribir "Femenino";
FinSi
Si sexo = 2 Entonces
Escribir "Masculino";
FinSi
Escribir "Valor de edad: ", edad;
Escribir "Valor de estado civil: ", estado_civil;
Escribir "Valor de sexo: ", sexo;
FinProceso
Escribir Sin Saltar "Ingresa el valor de informacion:";
Leer informacion;
estado_civil <- (informacion MOD 10000-informacion MOD 1000)/1000;
Si estado_civil = 1 Entonces
Escribir "Soltero";
FinSi
Si estado_civil = 2 Entonces
Escribir "Casado";
FinSi
Si estado_civil = 3 Entonces
Escribir "Viudo";
FinSi
Si estado_civil = 4 Entonces
Escribir "Divorciado";
FinSi
edad <- (informacion MOD 1000-informacion MOD 10)/10;
sexo <- informacion MOD 10;
Si sexo = 1 Entonces
Escribir "Femenino";
FinSi
Si sexo = 2 Entonces
Escribir "Masculino";
FinSi
Escribir "Valor de edad: ", edad;
Escribir "Valor de estado civil: ", estado_civil;
Escribir "Valor de sexo: ", sexo;
FinProceso