• Lenguaje

    Pascal

  • Descripción

    Se le ha pedido que presente el análisis del problema que permita determinar cuántas de las 70 personas encuestadas son de género masculino, cuantos de género femenino además el promedio de las estaturas del todo el grupo.

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
program MasculinosFemeninosYPromedioDeEstatura;
uses crt;

var femeninos, genero, i, masculinos : integer;
var estatura, promedio_estaturas : real;
begin
    femeninos := 0;
    masculinos := 0;
    promedio_estaturas := 0;
    for i:=1 to 70 do
    begin
        writeln ('PROCESO ', i);
        write ('Ingresa el valor de estatura: ');
        readln (estatura);
        writeln ('Selecciona el valor de genero.');
        writeln ('    1.- Masculino');
        writeln ('    2.- Femenino');
        write ('    : ');
        repeat
            readln (genero);
            if (genero<1) or (genero>2) then
                write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
        until (genero>=1) and (genero<=2);
        if genero=1 then
            begin
                masculinos := masculinos+1;
            end
        else
            begin
                femeninos := femeninos+1;
            end;
        promedio_estaturas := promedio_estaturas+estatura;
        writeln;
    end;
    promedio_estaturas := promedio_estaturas/70;
    writeln ('Valor de femeninos: ', femeninos);
    writeln ('Valor de masculinos: ', masculinos);
    writeln ('Valor de promedio estaturas: ', promedio_estaturas:0:6);
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.