-
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
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.
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.