Televisión por cable en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
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.

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

Proceso TelevisionPorCable

    interesados_deportivo <- 0;

    interesados_cultural <- 0;

    interesados_noticias <- 0;

    interesados_peliculas <- 0;

    personas_50mil <- 0;

    promedio_edades <- 0;

    promedio_horas <- 0;

    Para i<-1 Hasta 50 Con Paso 1 Hacer

        Escribir "PROCESO ", i;

        Escribir Sin Saltar "Ingresa el valor de edad:";

        Leer edad;

        Escribir Sin Saltar "Ingresa el valor de horas a la semana:";

        Leer horas_a_la_semana;

        promedio_horas <- promedio_horas+horas_a_la_semana;

        Escribir "Selecciona el valor de canal preferido.";

        Escribir "    1.- Deportivo";

        Escribir "    2.- Cultural";

        Escribir "    3.- Noticias";

        Escribir "    4.- Películas";

        Escribir Sin Saltar "    :";

        Repetir

            Leer canal_preferido;

            Si canal_preferido<1 O canal_preferido>4 Entonces

                Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";

            FinSi

        Hasta Que canal_preferido>=1 Y canal_preferido<=4;

        Escribir "Selecciona el valor de pagar mas de 50mil.";

        Escribir "    1.- Si";

        Escribir "    2.- No";

        Escribir Sin Saltar "    :";

        Repetir

            Leer pagar_mas_de_50mil;

            Si pagar_mas_de_50mil<1 O pagar_mas_de_50mil>2 Entonces

                Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";

            FinSi

        Hasta Que pagar_mas_de_50mil>=1 Y pagar_mas_de_50mil<=2;

        Si canal_preferido = 1 Entonces

            interesados_deportivo <- interesados_deportivo+1;

        FinSi

        Si canal_preferido = 2 Entonces

            interesados_cultural <- interesados_cultural+1;

        FinSi

        Si canal_preferido = 3 Entonces

            interesados_noticias <- interesados_noticias+1;

        FinSi

        Si canal_preferido = 4 Entonces

            interesados_peliculas <- interesados_peliculas+1;

        FinSi

        Si pagar_mas_de_50mil = 1 Entonces

            personas_50mil <- personas_50mil+1;

        FinSi

        promedio_edades <- promedio_edades+edad;

        Escribir "";

    FinPara

    promedio_edades <- promedio_edades/50;

    promedio_horas <- promedio_horas/50;

    Escribir "Valor de interesados deportivo: ", interesados_deportivo;

    Escribir "Valor de interesados cultural: ", interesados_cultural;

    Escribir "Valor de interesados noticias: ", interesados_noticias;

    Escribir "Valor de interesados peliculas: ", interesados_peliculas;

    Escribir "Valor de personas 50mil: ", personas_50mil;

    Escribir "Valor de promedio edades: ", promedio_edades;

    Escribir "Valor de promedio horas: ", promedio_horas;

FinProceso