-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Una compañía de seguros tiene contratados a n vendedores. Cada uno hace tres ventas a la semana. Su política de pagos es que un vendedor recibe un sueldo base, y un 10% extra por comisiones de sus ventas. El gerente de su compañía desea saber cuánto dinero obtendrá en la semana cada vendedor por concepto de comisiones por las tres ventas realizadas, y cuanto tomando en cuenta su sueldo base y sus comisiones.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Proceso VendedoresDeUnaCompaniaDeSeguros
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 sueldo base:";
Leer sueldo_base;
Escribir Sin Saltar "Ingresa el valor de venta 1:";
Leer venta_1;
Escribir Sin Saltar "Ingresa el valor de venta 2:";
Leer venta_2;
Escribir Sin Saltar "Ingresa el valor de venta 3:";
Leer venta_3;
comisiones <- (venta_1+venta_2+venta_3)*0.1;
pago <- sueldo_base+comisiones;
Escribir "Valor de comisiones: ", comisiones;
Escribir "Valor de pago: ", pago;
Escribir "";
FinPara
FinProceso
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 sueldo base:";
Leer sueldo_base;
Escribir Sin Saltar "Ingresa el valor de venta 1:";
Leer venta_1;
Escribir Sin Saltar "Ingresa el valor de venta 2:";
Leer venta_2;
Escribir Sin Saltar "Ingresa el valor de venta 3:";
Leer venta_3;
comisiones <- (venta_1+venta_2+venta_3)*0.1;
pago <- sueldo_base+comisiones;
Escribir "Valor de comisiones: ", comisiones;
Escribir "Valor de pago: ", pago;
Escribir "";
FinPara
FinProceso