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