Postulante a la marina en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Digite el nombre, sexo (Varón, Dama) y año de nacimiento de un postulante a la marina, muestre la edad que tiene; para continuar con el ingreso de datos de otro postulante digite una "S" o una "N" para terminar, cuando esto ocurra muestre:
- El promedio de edad de los postulantes.
- La cantidad de postulantes varones.
- La cantidad de postulante damas.

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

Proceso PostulanteALaMarina

    cantidad_damas <- 0;

    cantidad_varones <- 0;

    promedio_edad <- 0;

    Repetir

        Escribir Sin Saltar "Ingresa el valor de edad:";

        Leer edad;

        Escribir "Selecciona el valor de sexo.";

        Escribir "    1.- Varón";

        Escribir "    2.- Dama";

        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;

        promedio_edad <- promedio_edad+edad;

        Si sexo = 1 Entonces

            cantidad_varones <- cantidad_varones+1;

        SiNo

            cantidad_damas <- cantidad_damas+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'

    promedio_edad <- promedio_edad/(cantidad_damas+cantidad_varones);

    Escribir "Valor de cantidad damas: ", cantidad_damas;

    Escribir "Valor de cantidad varones: ", cantidad_varones;

    Escribir "Valor de promedio edad: ", promedio_edad;

FinProceso