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