-
Lenguaje
Pascal
-
Descripción
Para realizar un estudio de preferencias de los televidentes se solicita un programa que pregunte a N personas la categoría televisiva de su preferencia (una sola) entre:
1. Noticias
2. Magazines
3. Novelas
4. Películas
Y la cantidad de horas semanales que dedica a su categoría preferida. Al finalizar la encuesta se debe mostrar la cantidad de personas que prefirió cada una de las categorías y el total de horas reportado.
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
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
program PreferenciasDeTelevidentes;
uses crt;
var categoria_televisiva, horas_magazines, horas_noticias, horas_novelas, horas_peliculas : integer;
var horas_semanales, i, n, personas_magazines, personas_noticias : integer;
var personas_novelas, personas_peliculas : integer;
begin
horas_magazines := 0;
horas_noticias := 0;
horas_novelas := 0;
horas_peliculas := 0;
personas_magazines := 0;
personas_noticias := 0;
personas_novelas := 0;
personas_peliculas := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de horas semanales: ');
readln (horas_semanales);
writeln ('Selecciona el valor de categoria televisiva.');
writeln (' 1.- Noticias');
writeln (' 2.- Magazines');
writeln (' 3.- Novelas');
writeln (' 4.- Pel'#161'culas');
write (' : ');
repeat
readln (categoria_televisiva);
if (categoria_televisiva<1) or (categoria_televisiva>4) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (categoria_televisiva>=1) and (categoria_televisiva<=4);
if categoria_televisiva=1 then
begin
personas_noticias := personas_noticias+1;
horas_noticias := horas_noticias+horas_semanales;
end;
if categoria_televisiva=2 then
begin
personas_magazines := personas_magazines+1;
horas_magazines := horas_magazines+horas_semanales;
end;
if categoria_televisiva=3 then
begin
personas_novelas := personas_novelas+1;
horas_novelas := horas_novelas+horas_semanales;
end;
if categoria_televisiva=4 then
begin
personas_peliculas := personas_peliculas+1;
horas_peliculas := horas_peliculas+horas_semanales;
end;
writeln;
end;
writeln ('Valor de horas magazines: ', horas_magazines);
writeln ('Valor de horas noticias: ', horas_noticias);
writeln ('Valor de horas novelas: ', horas_novelas);
writeln ('Valor de horas peliculas: ', horas_peliculas);
writeln ('Valor de personas magazines: ', personas_magazines);
writeln ('Valor de personas noticias: ', personas_noticias);
writeln ('Valor de personas novelas: ', personas_novelas);
writeln ('Valor de personas peliculas: ', personas_peliculas);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var categoria_televisiva, horas_magazines, horas_noticias, horas_novelas, horas_peliculas : integer;
var horas_semanales, i, n, personas_magazines, personas_noticias : integer;
var personas_novelas, personas_peliculas : integer;
begin
horas_magazines := 0;
horas_noticias := 0;
horas_novelas := 0;
horas_peliculas := 0;
personas_magazines := 0;
personas_noticias := 0;
personas_novelas := 0;
personas_peliculas := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de horas semanales: ');
readln (horas_semanales);
writeln ('Selecciona el valor de categoria televisiva.');
writeln (' 1.- Noticias');
writeln (' 2.- Magazines');
writeln (' 3.- Novelas');
writeln (' 4.- Pel'#161'culas');
write (' : ');
repeat
readln (categoria_televisiva);
if (categoria_televisiva<1) or (categoria_televisiva>4) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (categoria_televisiva>=1) and (categoria_televisiva<=4);
if categoria_televisiva=1 then
begin
personas_noticias := personas_noticias+1;
horas_noticias := horas_noticias+horas_semanales;
end;
if categoria_televisiva=2 then
begin
personas_magazines := personas_magazines+1;
horas_magazines := horas_magazines+horas_semanales;
end;
if categoria_televisiva=3 then
begin
personas_novelas := personas_novelas+1;
horas_novelas := horas_novelas+horas_semanales;
end;
if categoria_televisiva=4 then
begin
personas_peliculas := personas_peliculas+1;
horas_peliculas := horas_peliculas+horas_semanales;
end;
writeln;
end;
writeln ('Valor de horas magazines: ', horas_magazines);
writeln ('Valor de horas noticias: ', horas_noticias);
writeln ('Valor de horas novelas: ', horas_novelas);
writeln ('Valor de horas peliculas: ', horas_peliculas);
writeln ('Valor de personas magazines: ', personas_magazines);
writeln ('Valor de personas noticias: ', personas_noticias);
writeln ('Valor de personas novelas: ', personas_novelas);
writeln ('Valor de personas peliculas: ', personas_peliculas);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.