-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Determinar lo que una empresa necesita calcular
a. Total de hombres.
b. Total de mujeres.
c. Porcentaje de hombres.
d. Porcentaje de mujeres.
e. Promedio de las estaturas en hombres.
f. Promedio de las estaturas en mujeres.
g. Promedio de edades de todos los empleados.
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
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
Proceso PromediosDeHombresYMujeres
a <- 0;
b <- 0;
numero_de_empleados <- 0;
c <- 0;
d <- 0;
e <- 0;
f <- 0;
g <- 0;
Repetir
Escribir Sin Saltar "Ingresa el valor de edad:";
Leer edad;
Escribir Sin Saltar "Ingresa el valor de estatura:";
Leer estatura;
numero_de_empleados <- numero_de_empleados+1;
Escribir "Selecciona el valor de genero.";
Escribir " 1.- Mujer";
Escribir " 2.- Hombre";
Escribir Sin Saltar " :";
Repetir
Leer genero;
Si genero<1 O genero>2 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que genero>=1 Y genero<=2;
g <- g+edad;
Si genero = 1 Entonces
b <- b+1;
f <- f+estatura;
SiNo
a <- a+1;
e <- e+estatura;
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 numero_de_empleados = 0 Entonces
c <- 0;
SiNo
c <- 100.0*a/numero_de_empleados;
FinSi
Si numero_de_empleados = 0 Entonces
d <- 0;
SiNo
d <- 100.0*b/numero_de_empleados;
FinSi
Si a = 0 Entonces
e <- 0;
SiNo
e <- e/a;
FinSi
Si b = 0 Entonces
f <- 0;
SiNo
f <- f/b;
FinSi
Si numero_de_empleados = 0 Entonces
g <- 0;
SiNo
g <- g/numero_de_empleados;
FinSi
Escribir "Valor de a: ", a;
Escribir "Valor de b: ", b;
Escribir "Valor de numero de empleados: ", numero_de_empleados;
Escribir "Valor de c: ", c;
Escribir "Valor de d: ", d;
Escribir "Valor de e: ", e;
Escribir "Valor de f: ", f;
Escribir "Valor de g: ", g;
FinProceso
a <- 0;
b <- 0;
numero_de_empleados <- 0;
c <- 0;
d <- 0;
e <- 0;
f <- 0;
g <- 0;
Repetir
Escribir Sin Saltar "Ingresa el valor de edad:";
Leer edad;
Escribir Sin Saltar "Ingresa el valor de estatura:";
Leer estatura;
numero_de_empleados <- numero_de_empleados+1;
Escribir "Selecciona el valor de genero.";
Escribir " 1.- Mujer";
Escribir " 2.- Hombre";
Escribir Sin Saltar " :";
Repetir
Leer genero;
Si genero<1 O genero>2 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que genero>=1 Y genero<=2;
g <- g+edad;
Si genero = 1 Entonces
b <- b+1;
f <- f+estatura;
SiNo
a <- a+1;
e <- e+estatura;
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 numero_de_empleados = 0 Entonces
c <- 0;
SiNo
c <- 100.0*a/numero_de_empleados;
FinSi
Si numero_de_empleados = 0 Entonces
d <- 0;
SiNo
d <- 100.0*b/numero_de_empleados;
FinSi
Si a = 0 Entonces
e <- 0;
SiNo
e <- e/a;
FinSi
Si b = 0 Entonces
f <- 0;
SiNo
f <- f/b;
FinSi
Si numero_de_empleados = 0 Entonces
g <- 0;
SiNo
g <- g/numero_de_empleados;
FinSi
Escribir "Valor de a: ", a;
Escribir "Valor de b: ", b;
Escribir "Valor de numero de empleados: ", numero_de_empleados;
Escribir "Valor de c: ", c;
Escribir "Valor de d: ", d;
Escribir "Valor de e: ", e;
Escribir "Valor de f: ", f;
Escribir "Valor de g: ", g;
FinProceso