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