-
Lenguaje
PSeInt (Pseudocódigo)
-
Descripción
Una empresa paga a sus empleados un sueldo básico en base a la siguiente tabla:
Categoría/Básico
a=100
b=500
c=600
d=700
Adicionalmente les paga una comisión en base al monto de sus ventas según se detalla en el siguiente cuadro:
Ventas/Básico
0 a 500= 0%
501 a 1500=20%
1501 a 2500= 30%
Más de 2500=40%
Calcular y mostrar el sueldo básico, la comisión y el sueldo final de un empleado.
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
32
33
34
35
36
37
38
39
40
41
42
43
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
32
33
34
35
36
37
38
39
40
41
42
43
Proceso ComisionPorCategoriaYVentas
Escribir Sin Saltar "Ingresa el valor de ventas:";
Leer ventas;
sueldo_basico <- 0;
comision <- 0;
Escribir "Selecciona el valor de categoria.";
Escribir " 1.- A";
Escribir " 2.- B";
Escribir " 3.- C";
Escribir " 4.- D";
Escribir Sin Saltar " :";
Repetir
Leer categoria;
Si categoria<1 O categoria>4 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que categoria>=1 Y categoria<=4;
Si categoria = 1 Entonces
sueldo_basico <- 100;
FinSi
Si categoria = 2 Entonces
sueldo_basico <- 500;
FinSi
Si categoria = 3 Entonces
sueldo_basico <- 600;
FinSi
Si categoria = 4 Entonces
sueldo_basico <- 700;
FinSi
Si ventas>=501 Y ventas<1501 Entonces
comision <- ventas*0.2;
FinSi
Si ventas>=1501 Y ventas<=2500 Entonces
comision <- ventas*0.3;
FinSi
Si ventas>2500 Entonces
comision <- ventas*0.4;
FinSi
sueldo_final <- sueldo_basico+comision;
Escribir "Valor de comision: ", comision;
Escribir "Valor de sueldo basico: ", sueldo_basico;
Escribir "Valor de sueldo final: ", sueldo_final;
FinProceso
Escribir Sin Saltar "Ingresa el valor de ventas:";
Leer ventas;
sueldo_basico <- 0;
comision <- 0;
Escribir "Selecciona el valor de categoria.";
Escribir " 1.- A";
Escribir " 2.- B";
Escribir " 3.- C";
Escribir " 4.- D";
Escribir Sin Saltar " :";
Repetir
Leer categoria;
Si categoria<1 O categoria>4 Entonces
Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
FinSi
Hasta Que categoria>=1 Y categoria<=4;
Si categoria = 1 Entonces
sueldo_basico <- 100;
FinSi
Si categoria = 2 Entonces
sueldo_basico <- 500;
FinSi
Si categoria = 3 Entonces
sueldo_basico <- 600;
FinSi
Si categoria = 4 Entonces
sueldo_basico <- 700;
FinSi
Si ventas>=501 Y ventas<1501 Entonces
comision <- ventas*0.2;
FinSi
Si ventas>=1501 Y ventas<=2500 Entonces
comision <- ventas*0.3;
FinSi
Si ventas>2500 Entonces
comision <- ventas*0.4;
FinSi
sueldo_final <- sueldo_basico+comision;
Escribir "Valor de comision: ", comision;
Escribir "Valor de sueldo basico: ", sueldo_basico;
Escribir "Valor de sueldo final: ", sueldo_final;
FinProceso