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