-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Una compañía fabrica focos de colores (verdes, blancos y rojos). De un lote de N focos, generar para cada iteración un número aleatorios entre 1 y 30 para simular la población, y contabilizar el número de focos de cada color que hay en existencia, según: si el número aleatorio generado esta entre 1 y 10 el foco es verde, entre 11 y 20 el foco el blanco y entre 21 y 30 el foco es rojo.
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
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
Proceso FabricaDeFocos2
focos_verdes <- 0;
focos_blancos <- 0;
focos_rojos <- 0;
Escribir Sin Saltar "Ingresa el valor de n:";
Leer n;
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "PROCESO ", i;
numero_aleatorio <- 1+AZAR(30);
Si numero_aleatorio>=1 Y numero_aleatorio<=10 Entonces
focos_verdes <- focos_verdes+1;
Escribir "Verde";
FinSi
Si numero_aleatorio>=11 Y numero_aleatorio<=20 Entonces
focos_blancos <- focos_blancos+1;
Escribir "Blanco";
FinSi
Si numero_aleatorio>=21 Y numero_aleatorio<=30 Entonces
focos_rojos <- focos_rojos+1;
Escribir "Rojo";
FinSi
Escribir "Valor de numero aleatorio: ", numero_aleatorio;
Escribir "";
FinPara
Escribir "Valor de focos verdes: ", focos_verdes;
Escribir "Valor de focos blancos: ", focos_blancos;
Escribir "Valor de focos rojos: ", focos_rojos;
FinProceso
focos_verdes <- 0;
focos_blancos <- 0;
focos_rojos <- 0;
Escribir Sin Saltar "Ingresa el valor de n:";
Leer n;
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir "PROCESO ", i;
numero_aleatorio <- 1+AZAR(30);
Si numero_aleatorio>=1 Y numero_aleatorio<=10 Entonces
focos_verdes <- focos_verdes+1;
Escribir "Verde";
FinSi
Si numero_aleatorio>=11 Y numero_aleatorio<=20 Entonces
focos_blancos <- focos_blancos+1;
Escribir "Blanco";
FinSi
Si numero_aleatorio>=21 Y numero_aleatorio<=30 Entonces
focos_rojos <- focos_rojos+1;
Escribir "Rojo";
FinSi
Escribir "Valor de numero aleatorio: ", numero_aleatorio;
Escribir "";
FinPara
Escribir "Valor de focos verdes: ", focos_verdes;
Escribir "Valor de focos blancos: ", focos_blancos;
Escribir "Valor de focos rojos: ", focos_rojos;
FinProceso