• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    Un vendedor ha realizado N ventas y desea saber cuántas fueron por 10,000 o menos, cuántas fueron por más de 10,000 pero por menos de 20,000, y cuánto fue el monto de las ventas de cada una y el monto global. Determinar los totales.

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
Proceso TotalesDeNVentas
    ventas_de_0_a_10000 <- 0;
    ventas_de_10000_a_20000 <- 0;
    monto_ventas_de_0_a_10000 <- 0;
    monto_ventas_de_10000_a_20000 <- 0;
    monto_global <- 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 venta:";
        Leer venta;
        Si venta<=10000 Entonces
            ventas_de_0_a_10000 <- ventas_de_0_a_10000+1;
            monto_ventas_de_0_a_10000 <- monto_ventas_de_0_a_10000+venta;
        FinSi
        Si venta>10000 Y venta<=20000 Entonces
            ventas_de_10000_a_20000 <- ventas_de_10000_a_20000+1;
            monto_ventas_de_10000_a_20000 <- monto_ventas_de_10000_a_20000+venta;
        FinSi
        monto_global <- monto_global+venta;
        Escribir "";
    FinPara
    Escribir "Valor de ventas de 0 a 10000: ", ventas_de_0_a_10000;
    Escribir "Valor de ventas de 10000 a 20000: ", ventas_de_10000_a_20000;
    Escribir "Valor de monto ventas de 0 a 10000: ", monto_ventas_de_0_a_10000;
    Escribir "Valor de monto ventas de 10000 a 20000: ", monto_ventas_de_10000_a_20000;
    Escribir "Valor de monto global: ", monto_global;
FinProceso