-
Lenguaje
Pascal
-
Descripción
Un nuevo operador de televisión por cable desea ofrecer nuevos servicios en su ciudad. Para esto, se requiere saber en una muestra de 50 personas:
- Cuántas horas a la semana invierten en ver televisión.
- Que tipo de canal prefieren ver: deportivo, cultural, de noticias o de películas.
- Cuántas personas están dispuestas a pagar más de 50 mil pesos por el servicio de televisión.
- La edad de la persona.
Debe mostrar:
a. El promedio de horas semanales que invierten los encuestados en ver televisión.
b. La cantidad de personas interesadas en cada canal: deportivo, cultural, de noticias o de películas.
c. La cantidad de personas que están dispuestas a pagar más de 50 mil pesos por el servicio.
d. El promedio de edades de los encuestados.
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
77
uses crt;
var canal_preferido, edad, horas_a_la_semana, i, interesados_cultural : integer;
var interesados_deportivo, interesados_noticias, interesados_peliculas, pagar_mas_de_50mil, personas_50mil : integer;
var promedio_edades, promedio_horas : real;
begin
interesados_deportivo := 0;
interesados_cultural := 0;
interesados_noticias := 0;
interesados_peliculas := 0;
personas_50mil := 0;
promedio_edades := 0;
promedio_horas := 0;
for i:=1 to 50 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de edad: ');
readln (edad);
write ('Ingresa el valor de horas a la semana: ');
readln (horas_a_la_semana);
promedio_horas := promedio_horas+horas_a_la_semana;
writeln ('Selecciona el valor de canal preferido.');
writeln (' 1.- Deportivo');
writeln (' 2.- Cultural');
writeln (' 3.- Noticias');
writeln (' 4.- Pel'#161'culas');
write (' : ');
repeat
readln (canal_preferido);
if (canal_preferido<1) or (canal_preferido>4) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (canal_preferido>=1) and (canal_preferido<=4);
writeln ('Selecciona el valor de pagar mas de 50mil.');
writeln (' 1.- Si');
writeln (' 2.- No');
write (' : ');
repeat
readln (pagar_mas_de_50mil);
if (pagar_mas_de_50mil<1) or (pagar_mas_de_50mil>2) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (pagar_mas_de_50mil>=1) and (pagar_mas_de_50mil<=2);
if canal_preferido=1 then
begin
interesados_deportivo := interesados_deportivo+1;
end;
if canal_preferido=2 then
begin
interesados_cultural := interesados_cultural+1;
end;
if canal_preferido=3 then
begin
interesados_noticias := interesados_noticias+1;
end;
if canal_preferido=4 then
begin
interesados_peliculas := interesados_peliculas+1;
end;
if pagar_mas_de_50mil=1 then
begin
personas_50mil := personas_50mil+1;
end;
promedio_edades := promedio_edades+edad;
writeln;
end;
promedio_edades := promedio_edades/50;
promedio_horas := promedio_horas/50;
writeln ('Valor de interesados deportivo: ', interesados_deportivo);
writeln ('Valor de interesados cultural: ', interesados_cultural);
writeln ('Valor de interesados noticias: ', interesados_noticias);
writeln ('Valor de interesados peliculas: ', interesados_peliculas);
writeln ('Valor de personas 50mil: ', personas_50mil);
writeln ('Valor de promedio edades: ', promedio_edades:0:6);
writeln ('Valor de promedio horas: ', promedio_horas:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.