-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Una empresa tiene N empleados, cada uno posee una ficha que contiene los siguientes datos:
- Nombre.
- Edad de la persona.
- Estado civil (S,C,V,D).
- Sexo (F/M).
- Sueldo.
- Número de hijos
Se pide desarrollar un programa para determinar:
a) El total de mujeres casadas que ganan más de 100,000 bolívares y tenga más de dos hijos.
b) La edad promedio de las mujeres.
c) El total de hombres solteros menores de 40 años que ganan menos de 200,000 bolívares.
d) El total de viudos con más tres hijos.
e) Promedio de hijos de todos los empleados.
f) Porcentaje de hombres y mujeres.
g) Promedio de sueldos.
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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
Proceso FichasDeNEmpleados
a <- 0;
c <- 0;
d <- 0;
hombres <- 0;
mujeres <- 0;
b <- 0;
e <- 0;
g <- 0;
porcentaje_de_hombres <- 0;
porcentaje_de_mujeres <- 0;
Escribir Sin Saltar "Ingresa el valor de n:";
Leer n;
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "PROCESO ", i;
Escribir Sin Saltar "Ingresa el nombre:";
Leer nombre;
Escribir Sin Saltar "Ingresa el valor de edad:";
Leer edad;
Escribir Sin Saltar "Ingresa el valor de numero de hijos:";
Leer numero_de_hijos;
Escribir Sin Saltar "Ingresa el valor de sueldo:";
Leer sueldo;
Escribir "Selecciona el valor de estado civil.";
Escribir " 1.- Soltero";
Escribir " 2.- Casado";
Escribir " 3.- Viudo";
Escribir " 4.- D";
Escribir Sin Saltar " :";
Repetir
Leer estado_civil;
Si estado_civil<1 O estado_civil>4 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que estado_civil>=1 Y estado_civil<=4;
Escribir "Selecciona el valor de sexo.";
Escribir " 1.- Femenino";
Escribir " 2.- Masculino";
Escribir Sin Saltar " :";
Repetir
Leer sexo;
Si sexo<1 O sexo>2 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que sexo>=1 Y sexo<=2;
Si sexo = 1 Y estado_civil = 2 Y sueldo>100000 Y numero_de_hijos>2 Entonces
a <- a+1;
FinSi
Si sexo = 1 Entonces
mujeres <- mujeres+1;
b <- b+edad;
SiNo
hombres <- hombres+1;
FinSi
Si sexo = 2 Y estado_civil = 1 Y edad<40 Y sueldo<200000 Entonces
c <- c+1;
FinSi
Si estado_civil = 3 Y numero_de_hijos>3 Entonces
d <- d+1;
FinSi
e <- e+numero_de_hijos;
g <- g+sueldo;
Escribir "Nombre: ", nombre;
Escribir "";
FinPara
Si mujeres = 0 Entonces
b <- 0;
SiNo
b <- b/mujeres;
FinSi
Si n = 0 Entonces
e <- 0;
SiNo
e <- e/n;
FinSi
Si n = 0 Entonces
g <- 0;
SiNo
g <- g/n;
FinSi
Si n = 0 Entonces
porcentaje_de_hombres <- 0;
SiNo
porcentaje_de_hombres <- 100.0*hombres/n;
FinSi
Si n = 0 Entonces
porcentaje_de_mujeres <- 0;
SiNo
porcentaje_de_mujeres <- 100.0*mujeres/n;
FinSi
Escribir "Valor de a: ", a;
Escribir "Valor de c: ", c;
Escribir "Valor de d: ", d;
Escribir "Valor de hombres: ", hombres;
Escribir "Valor de mujeres: ", mujeres;
Escribir "Valor de b: ", b;
Escribir "Valor de e: ", e;
Escribir "Valor de g: ", g;
Escribir "Valor de porcentaje de hombres: ", porcentaje_de_hombres;
Escribir "Valor de porcentaje de mujeres: ", porcentaje_de_mujeres;
FinProceso
a <- 0;
c <- 0;
d <- 0;
hombres <- 0;
mujeres <- 0;
b <- 0;
e <- 0;
g <- 0;
porcentaje_de_hombres <- 0;
porcentaje_de_mujeres <- 0;
Escribir Sin Saltar "Ingresa el valor de n:";
Leer n;
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "PROCESO ", i;
Escribir Sin Saltar "Ingresa el nombre:";
Leer nombre;
Escribir Sin Saltar "Ingresa el valor de edad:";
Leer edad;
Escribir Sin Saltar "Ingresa el valor de numero de hijos:";
Leer numero_de_hijos;
Escribir Sin Saltar "Ingresa el valor de sueldo:";
Leer sueldo;
Escribir "Selecciona el valor de estado civil.";
Escribir " 1.- Soltero";
Escribir " 2.- Casado";
Escribir " 3.- Viudo";
Escribir " 4.- D";
Escribir Sin Saltar " :";
Repetir
Leer estado_civil;
Si estado_civil<1 O estado_civil>4 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que estado_civil>=1 Y estado_civil<=4;
Escribir "Selecciona el valor de sexo.";
Escribir " 1.- Femenino";
Escribir " 2.- Masculino";
Escribir Sin Saltar " :";
Repetir
Leer sexo;
Si sexo<1 O sexo>2 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que sexo>=1 Y sexo<=2;
Si sexo = 1 Y estado_civil = 2 Y sueldo>100000 Y numero_de_hijos>2 Entonces
a <- a+1;
FinSi
Si sexo = 1 Entonces
mujeres <- mujeres+1;
b <- b+edad;
SiNo
hombres <- hombres+1;
FinSi
Si sexo = 2 Y estado_civil = 1 Y edad<40 Y sueldo<200000 Entonces
c <- c+1;
FinSi
Si estado_civil = 3 Y numero_de_hijos>3 Entonces
d <- d+1;
FinSi
e <- e+numero_de_hijos;
g <- g+sueldo;
Escribir "Nombre: ", nombre;
Escribir "";
FinPara
Si mujeres = 0 Entonces
b <- 0;
SiNo
b <- b/mujeres;
FinSi
Si n = 0 Entonces
e <- 0;
SiNo
e <- e/n;
FinSi
Si n = 0 Entonces
g <- 0;
SiNo
g <- g/n;
FinSi
Si n = 0 Entonces
porcentaje_de_hombres <- 0;
SiNo
porcentaje_de_hombres <- 100.0*hombres/n;
FinSi
Si n = 0 Entonces
porcentaje_de_mujeres <- 0;
SiNo
porcentaje_de_mujeres <- 100.0*mujeres/n;
FinSi
Escribir "Valor de a: ", a;
Escribir "Valor de c: ", c;
Escribir "Valor de d: ", d;
Escribir "Valor de hombres: ", hombres;
Escribir "Valor de mujeres: ", mujeres;
Escribir "Valor de b: ", b;
Escribir "Valor de e: ", e;
Escribir "Valor de g: ", g;
Escribir "Valor de porcentaje de hombres: ", porcentaje_de_hombres;
Escribir "Valor de porcentaje de mujeres: ", porcentaje_de_mujeres;
FinProceso