Postulante a la marina en lenguaje Pascal

Lenguaje

Pascal
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
35
36
37
38
39
40
41
42
43
44
45

program PostulanteALaMarina;

uses crt;

var cantidad_damas, cantidad_varones, edad, sexo : integer;

var promedio_edad : real;

var tecla_repetir : char;

begin

    cantidad_damas := 0;

    cantidad_varones := 0;

    promedio_edad := 0;

    repeat

        clrscr;

        write ('Ingresa el valor de edad: ');

        readln (edad);

        writeln ('Selecciona el valor de sexo.');

        writeln ('    1.- Var'#162'n');

        writeln ('    2.- Dama');

        write ('    : ');

        repeat

            readln (sexo);

            if (sexo<1) or (sexo>2) then

                write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');

        until (sexo>=1) and (sexo<=2);

        promedio_edad := promedio_edad+edad;

        if sexo=1 then

            begin

                cantidad_varones := cantidad_varones+1;

            end

        else

            begin

                cantidad_damas := cantidad_damas+1;

            end;

        writeln;

        write (#168'Deseas repetir el proceso? (S/N): ');

        repeat

            tecla_repetir := readkey;

        until (tecla_repetir = 's') or (tecla_repetir = 'n') or (tecla_repetir = 'S') or (tecla_repetir = 'N');

    until (tecla_repetir <> 's') and (tecla_repetir <> 'S');

    promedio_edad := promedio_edad/(cantidad_damas+cantidad_varones);

    writeln ('Valor de cantidad damas: ', cantidad_damas);

    writeln ('Valor de cantidad varones: ', cantidad_varones);

    writeln ('Valor de promedio edad: ', promedio_edad:0:6);

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.