• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    En una empresa se desea calcular la planilla del mes a pagar. El algoritmo debe de solicitar la cantidad N de vendedores, y por cada vendedor se solicitará:
    - el nombre del vendedor
    - su sueldo básico
    - y el monto de ventas
    Con estos datos calculará la comisión de ventas que dependerá de lo siguiente Si vendió más 15000 soles se le asignará una comisión del 10% de las ventas. Si vendió más de 10000 soles se le asignará una comisión de 8% de las ventas, en caso contrario recibirá solo 5% de las ventas. Por cada vendedor que se ingrese se mostrará en sueldo final a pagar que será la suma del sueldo básico más la comisión.
    Y finalmente se mostrará el total de la planilla a pagar que será la suma de los sueldos finales de todos los trabajadores.

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
Proceso PlanillaDelMes
    total_planilla <- 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 nombre:";
        Leer nombre;
        Escribir Sin Saltar "Ingresa el valor de monto de ventas:";
        Leer monto_de_ventas;
        Escribir Sin Saltar "Ingresa el valor de sueldo basico:";
        Leer sueldo_basico;
        comision <- 0;
        Si monto_de_ventas>15000 Entonces
            comision <- monto_de_ventas*0.1;
        FinSi
        Si monto_de_ventas>10000 Y monto_de_ventas<=15000 Entonces
            comision <- monto_de_ventas*0.08;
        FinSi
        Si monto_de_ventas<=10000 Entonces
            comision <- monto_de_ventas*0.05;
        FinSi
        sueldo_final <- sueldo_basico+comision;
        total_planilla <- total_planilla+sueldo_final;
        Escribir "Nombre: ", nombre;
        Escribir "Valor de comision: ", comision;
        Escribir "Valor de sueldo final: ", sueldo_final;
        Escribir "";
    FinPara
    Escribir "Valor de total planilla: ", total_planilla;
FinProceso