-
Lenguaje
Pascal
-
Descripción
Se ingresan el nombre, el sexo (Masculino o Femenino), la edad y el tipo de película que prefiere ver (Comedias, Documentales, y Acción) de 500 personas para conocer gustos sobre películas.
Informar:
a) El porcentaje de personas que prefieren peliculas de acción.
b) La cantidad de mujeres que prefieren ver documentales.
c) El promedio de edad de las mujeres que prefieren ver comedias.
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
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
program TiposDePelicula;
uses crt;
var cantidad_mujeres_comedia, cantidad_mujeres_documentales, cantidad_personas_accion, edad, i : integer;
var sexo, tipo_de_pelicula : integer;
var porcentaje_personas_accion, promedio_mujeres_comedia : real;
begin
cantidad_mujeres_comedia := 0;
cantidad_mujeres_documentales := 0;
cantidad_personas_accion := 0;
porcentaje_personas_accion := 0;
promedio_mujeres_comedia := 0;
for i:=1 to 500 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de edad: ');
readln (edad);
writeln ('Selecciona el valor de sexo.');
writeln (' 1.- Masculino');
writeln (' 2.- Femenino');
write (' : ');
repeat
readln (sexo);
if (sexo<1) or (sexo>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (sexo>=1) and (sexo<=2);
writeln ('Selecciona el valor de tipo de pelicula.');
writeln (' 1.- Comedias');
writeln (' 2.- Documentales');
writeln (' 3.- Acci'#162'n');
write (' : ');
repeat
readln (tipo_de_pelicula);
if (tipo_de_pelicula<1) or (tipo_de_pelicula>3) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (tipo_de_pelicula>=1) and (tipo_de_pelicula<=3);
if tipo_de_pelicula=3 then
begin
cantidad_personas_accion := cantidad_personas_accion+1;
end;
if (sexo=2) and (tipo_de_pelicula=2) then
begin
cantidad_mujeres_documentales := cantidad_mujeres_documentales+1;
end;
if (sexo=2) and (tipo_de_pelicula=1) then
begin
cantidad_mujeres_comedia := cantidad_mujeres_comedia+1;
promedio_mujeres_comedia := promedio_mujeres_comedia+edad;
end;
writeln;
end;
porcentaje_personas_accion := 100.0*cantidad_personas_accion/500;
if cantidad_mujeres_comedia = 0 then
promedio_mujeres_comedia := 0
else
promedio_mujeres_comedia := promedio_mujeres_comedia/cantidad_mujeres_comedia;
writeln ('Valor de cantidad mujeres comedia: ', cantidad_mujeres_comedia);
writeln ('Valor de cantidad mujeres documentales: ', cantidad_mujeres_documentales);
writeln ('Valor de cantidad personas accion: ', cantidad_personas_accion);
writeln ('Valor de porcentaje personas accion: ', porcentaje_personas_accion:0:6);
writeln ('Valor de promedio mujeres comedia: ', promedio_mujeres_comedia:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var cantidad_mujeres_comedia, cantidad_mujeres_documentales, cantidad_personas_accion, edad, i : integer;
var sexo, tipo_de_pelicula : integer;
var porcentaje_personas_accion, promedio_mujeres_comedia : real;
begin
cantidad_mujeres_comedia := 0;
cantidad_mujeres_documentales := 0;
cantidad_personas_accion := 0;
porcentaje_personas_accion := 0;
promedio_mujeres_comedia := 0;
for i:=1 to 500 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de edad: ');
readln (edad);
writeln ('Selecciona el valor de sexo.');
writeln (' 1.- Masculino');
writeln (' 2.- Femenino');
write (' : ');
repeat
readln (sexo);
if (sexo<1) or (sexo>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (sexo>=1) and (sexo<=2);
writeln ('Selecciona el valor de tipo de pelicula.');
writeln (' 1.- Comedias');
writeln (' 2.- Documentales');
writeln (' 3.- Acci'#162'n');
write (' : ');
repeat
readln (tipo_de_pelicula);
if (tipo_de_pelicula<1) or (tipo_de_pelicula>3) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (tipo_de_pelicula>=1) and (tipo_de_pelicula<=3);
if tipo_de_pelicula=3 then
begin
cantidad_personas_accion := cantidad_personas_accion+1;
end;
if (sexo=2) and (tipo_de_pelicula=2) then
begin
cantidad_mujeres_documentales := cantidad_mujeres_documentales+1;
end;
if (sexo=2) and (tipo_de_pelicula=1) then
begin
cantidad_mujeres_comedia := cantidad_mujeres_comedia+1;
promedio_mujeres_comedia := promedio_mujeres_comedia+edad;
end;
writeln;
end;
porcentaje_personas_accion := 100.0*cantidad_personas_accion/500;
if cantidad_mujeres_comedia = 0 then
promedio_mujeres_comedia := 0
else
promedio_mujeres_comedia := promedio_mujeres_comedia/cantidad_mujeres_comedia;
writeln ('Valor de cantidad mujeres comedia: ', cantidad_mujeres_comedia);
writeln ('Valor de cantidad mujeres documentales: ', cantidad_mujeres_documentales);
writeln ('Valor de cantidad personas accion: ', cantidad_personas_accion);
writeln ('Valor de porcentaje personas accion: ', porcentaje_personas_accion:0:6);
writeln ('Valor de promedio mujeres comedia: ', promedio_mujeres_comedia:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.