• Lenguaje

    Pascal

  • Descripción

    Dado el peso, la altura y el sexo de 50 personas que pertenecen a Sombrerete obtenga el promedio del peso y promedio de altura. En función del sexo obtener el promedio de altura y el peso, masculino y femenino.

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
74
75
76
program PromediosDePesoYAltura;
uses crt;

var hombres, i, mujeres, sexo : integer;
var altura, peso, promedio_altura, promedio_altura_femenino, promedio_altura_masculino : real;
var promedio_peso, promedio_peso_femenino, promedio_peso_masculino : real;
begin
    hombres := 0;
    mujeres := 0;
    promedio_altura := 0;
    promedio_altura_femenino := 0;
    promedio_altura_masculino := 0;
    promedio_peso := 0;
    promedio_peso_femenino := 0;
    promedio_peso_masculino := 0;
    for i:=1 to 50 do
    begin
        writeln ('PROCESO ', i);
        write ('Ingresa el valor de altura: ');
        readln (altura);
        write ('Ingresa el valor de peso: ');
        readln (peso);
        writeln ('Selecciona el valor de sexo.');
        writeln ('    1.- femenino');
        writeln ('    2.- masculino');
        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_altura := promedio_altura+altura;
        promedio_peso := promedio_peso+peso;
        if sexo=1 then
            begin
                mujeres := mujeres+1;
                promedio_altura_femenino := promedio_altura_femenino+altura;
                promedio_peso_femenino := promedio_peso_femenino+peso;
            end
        else
            begin
                hombres := hombres+1;
                promedio_altura_masculino := promedio_altura_masculino+altura;
                promedio_peso_masculino := promedio_peso_masculino+peso;
            end;
        writeln;
    end;
    promedio_altura := promedio_altura/50;
    if mujeres = 0 then
        promedio_altura_femenino := 0
    else
        promedio_altura_femenino := promedio_altura_femenino/mujeres;
    if hombres = 0 then
        promedio_altura_masculino := 0
    else
        promedio_altura_masculino := promedio_altura_masculino/hombres;
    promedio_peso := promedio_peso/50;
    if mujeres = 0 then
        promedio_peso_femenino := 0
    else
        promedio_peso_femenino := promedio_peso_femenino/mujeres;
    if hombres = 0 then
        promedio_peso_masculino := 0
    else
        promedio_peso_masculino := promedio_peso_masculino/hombres;
    writeln ('Valor de hombres: ', hombres);
    writeln ('Valor de mujeres: ', mujeres);
    writeln ('Valor de promedio altura: ', promedio_altura:0:6);
    writeln ('Valor de promedio altura femenino: ', promedio_altura_femenino:0:6);
    writeln ('Valor de promedio altura masculino: ', promedio_altura_masculino:0:6);
    writeln ('Valor de promedio peso: ', promedio_peso:0:6);
    writeln ('Valor de promedio peso femenino: ', promedio_peso_femenino:0:6);
    writeln ('Valor de promedio peso masculino: ', promedio_peso_masculino:0:6);
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.