• 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
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