• Lenguaje

    PSeInt (Pseudocódigo)

  • 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
Proceso PreferenciasDeTelevidentes
    horas_magazines <- 0;
    horas_noticias <- 0;
    horas_novelas <- 0;
    horas_peliculas <- 0;
    personas_magazines <- 0;
    personas_noticias <- 0;
    personas_novelas <- 0;
    personas_peliculas <- 0;
    Escribir Sin Saltar "Ingresa el valor de n:";
    Leer n;
    Para i<-1 Hasta n Con Paso 1 Hacer
        Escribir "PROCESO ", i;
        Escribir Sin Saltar "Ingresa el valor de horas semanales:";
        Leer horas_semanales;
        Escribir "Selecciona el valor de categoria televisiva.";
        Escribir "    1.- Noticias";
        Escribir "    2.- Magazines";
        Escribir "    3.- Novelas";
        Escribir "    4.- Películas";
        Escribir Sin Saltar "    :";
        Repetir
            Leer categoria_televisiva;
            Si categoria_televisiva<1 O categoria_televisiva>4 Entonces
                Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
            FinSi
        Hasta Que categoria_televisiva>=1 Y categoria_televisiva<=4;
        Si categoria_televisiva = 1 Entonces
            personas_noticias <- personas_noticias+1;
            horas_noticias <- horas_noticias+horas_semanales;
        FinSi
        Si categoria_televisiva = 2 Entonces
            personas_magazines <- personas_magazines+1;
            horas_magazines <- horas_magazines+horas_semanales;
        FinSi
        Si categoria_televisiva = 3 Entonces
            personas_novelas <- personas_novelas+1;
            horas_novelas <- horas_novelas+horas_semanales;
        FinSi
        Si categoria_televisiva = 4 Entonces
            personas_peliculas <- personas_peliculas+1;
            horas_peliculas <- horas_peliculas+horas_semanales;
        FinSi
        Escribir "";
    FinPara
    Escribir "Valor de horas magazines: ", horas_magazines;
    Escribir "Valor de horas noticias: ", horas_noticias;
    Escribir "Valor de horas novelas: ", horas_novelas;
    Escribir "Valor de horas peliculas: ", horas_peliculas;
    Escribir "Valor de personas magazines: ", personas_magazines;
    Escribir "Valor de personas noticias: ", personas_noticias;
    Escribir "Valor de personas novelas: ", personas_novelas;
    Escribir "Valor de personas peliculas: ", personas_peliculas;
FinProceso