-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Una empresa necesita realizar un censo entre sus empleados con la siguiente información: estado civil, número de hijos, casa propia. Se debe establecer el porcentaje de empleados con vivienda propia, porcentaje de casados y porcentaje de solteros.
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
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
Proceso CensoDeEmpleados
casados <- 0;
con_vivienda_propia <- 0;
empleados <- 0;
solteros <- 0;
porcentaje_casados <- 0;
porcentaje_con_vivienda_propia <- 0;
porcentaje_solteros <- 0;
Repetir
empleados <- empleados+1;
Escribir "Selecciona el valor de estado civil.";
Escribir " 1.- Soltero";
Escribir " 2.- Casado";
Escribir Sin Saltar " :";
Repetir
Leer estado_civil;
Si estado_civil<1 O estado_civil>2 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que estado_civil>=1 Y estado_civil<=2;
Escribir "Selecciona el valor de tipo de vivienda.";
Escribir " 1.- propia";
Escribir " 2.- rentada";
Escribir " 3.- otro";
Escribir Sin Saltar " :";
Repetir
Leer tipo_de_vivienda;
Si tipo_de_vivienda<1 O tipo_de_vivienda>3 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que tipo_de_vivienda>=1 Y tipo_de_vivienda<=3;
Si estado_civil = 1 Entonces
solteros <- solteros+1;
SiNo
casados <- casados+1;
FinSi
Si tipo_de_vivienda = 1 Entonces
con_vivienda_propia <- con_vivienda_propia+1;
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'
Si empleados = 0 Entonces
porcentaje_casados <- 0;
SiNo
porcentaje_casados <- 100.0*casados/empleados;
FinSi
Si empleados = 0 Entonces
porcentaje_con_vivienda_propia <- 0;
SiNo
porcentaje_con_vivienda_propia <- 100.0*con_vivienda_propia/empleados;
FinSi
Si empleados = 0 Entonces
porcentaje_solteros <- 0;
SiNo
porcentaje_solteros <- 100.0*solteros/empleados;
FinSi
Escribir "Valor de casados: ", casados;
Escribir "Valor de con vivienda propia: ", con_vivienda_propia;
Escribir "Valor de empleados: ", empleados;
Escribir "Valor de solteros: ", solteros;
Escribir "Valor de porcentaje casados: ", porcentaje_casados;
Escribir "Valor de porcentaje con vivienda propia: ", porcentaje_con_vivienda_propia;
Escribir "Valor de porcentaje solteros: ", porcentaje_solteros;
FinProceso
casados <- 0;
con_vivienda_propia <- 0;
empleados <- 0;
solteros <- 0;
porcentaje_casados <- 0;
porcentaje_con_vivienda_propia <- 0;
porcentaje_solteros <- 0;
Repetir
empleados <- empleados+1;
Escribir "Selecciona el valor de estado civil.";
Escribir " 1.- Soltero";
Escribir " 2.- Casado";
Escribir Sin Saltar " :";
Repetir
Leer estado_civil;
Si estado_civil<1 O estado_civil>2 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que estado_civil>=1 Y estado_civil<=2;
Escribir "Selecciona el valor de tipo de vivienda.";
Escribir " 1.- propia";
Escribir " 2.- rentada";
Escribir " 3.- otro";
Escribir Sin Saltar " :";
Repetir
Leer tipo_de_vivienda;
Si tipo_de_vivienda<1 O tipo_de_vivienda>3 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que tipo_de_vivienda>=1 Y tipo_de_vivienda<=3;
Si estado_civil = 1 Entonces
solteros <- solteros+1;
SiNo
casados <- casados+1;
FinSi
Si tipo_de_vivienda = 1 Entonces
con_vivienda_propia <- con_vivienda_propia+1;
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'
Si empleados = 0 Entonces
porcentaje_casados <- 0;
SiNo
porcentaje_casados <- 100.0*casados/empleados;
FinSi
Si empleados = 0 Entonces
porcentaje_con_vivienda_propia <- 0;
SiNo
porcentaje_con_vivienda_propia <- 100.0*con_vivienda_propia/empleados;
FinSi
Si empleados = 0 Entonces
porcentaje_solteros <- 0;
SiNo
porcentaje_solteros <- 100.0*solteros/empleados;
FinSi
Escribir "Valor de casados: ", casados;
Escribir "Valor de con vivienda propia: ", con_vivienda_propia;
Escribir "Valor de empleados: ", empleados;
Escribir "Valor de solteros: ", solteros;
Escribir "Valor de porcentaje casados: ", porcentaje_casados;
Escribir "Valor de porcentaje con vivienda propia: ", porcentaje_con_vivienda_propia;
Escribir "Valor de porcentaje solteros: ", porcentaje_solteros;
FinProceso