Promedio de edades en lenguaje Pascal

Lenguaje

Pascal
Descripción

Calcular el promedio de edades de hombres, mujeres y de todo un grupo de alumnos.

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

program PromedioDeEdades;

uses crt;

var edad, genero, hombres, mujeres : integer;

var promedio_grupo, promedio_hombres, promedio_mujeres : real;

var tecla_repetir : char;

begin

    hombres := 0;

    mujeres := 0;

    promedio_grupo := 0;

    promedio_hombres := 0;

    promedio_mujeres := 0;

    repeat

        clrscr;

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

        readln (edad);

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

        writeln ('    1.- hombre');

        writeln ('    2.- mujer');

        write ('    : ');

        repeat

            readln (genero);

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

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

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

        promedio_grupo := promedio_grupo+edad;

        if genero=1 then

            begin

                promedio_hombres := promedio_hombres+edad;

                hombres := hombres+1;

            end

        else

            begin

                promedio_mujeres := promedio_mujeres+edad;

                mujeres := mujeres+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_grupo := promedio_grupo/(hombres+mujeres);

    if hombres = 0 then

        promedio_hombres := 0

    else

        promedio_hombres := promedio_hombres/hombres;

    if mujeres = 0 then

        promedio_mujeres := 0

    else

        promedio_mujeres := promedio_mujeres/mujeres;

    writeln ('Valor de hombres: ', hombres);

    writeln ('Valor de mujeres: ', mujeres);

    writeln ('Valor de promedio grupo: ', promedio_grupo:0:6);

    writeln ('Valor de promedio hombres: ', promedio_hombres:0:6);

    writeln ('Valor de promedio mujeres: ', promedio_mujeres:0:6);

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

    readkey;

end.