-
Lenguaje
Pascal
-
Descripción
Calcule el salario neto que debe recibir un vendedor de un almacén. Se debe tener en cuenta si tiene derecho o no al auxilio de transporte. Para el desarrollo del ejercicio tenga en cuenta las siguientes fórmulas:
sueldo devengado = salario básico * días laborados / 30
días laborados = debe ser entre 1 y 30
auxilio de transporte: lo reciben los empleados cuyo salario básico sea menor o igual a 2 salarios mínimos legales vigentes.
salario mínimo legal vigente (2013) = 589500
auxilio de transporte = 70500 * días laborados / 30 (año 2013 en colombia).
comisión de ventas = en la empresa se tiene estipulado dar una comisión de 2% sobre las ventas del mes de cada vendedor
total devengado = sueldo devengado + comisión de ventas
total deducciones = descuento por préstamos
salario neto = total devengado - total deducciones
Como resultado:
cédula empleado: xxxxx
nombre empleado: xxxxx
salario básico: xxxxx
auxilio de transporte: xxxxx
comisión de ventas: xxxxx
préstamos: xxxx
salario neto a recibir: xxxxx
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
44
45
46
47
uses crt;
var auxilio_de_transporte, comision_de_ventas, descuento_por_prestamos, dias_laborados, salario_basico : real;
var salario_minimo, salario_neto, sueldo_devengado, total_deducciones, total_devengado : real;
var ventas_del_mes : real;
var cedula_empleado, nombre_empleado : string;
begin
write ('Ingresa el cedula empleado: ');
readln (cedula_empleado);
write ('Ingresa el nombre empleado: ');
readln (nombre_empleado);
write ('Ingresa el valor de descuento por prestamos: ');
readln (descuento_por_prestamos);
write ('Ingresa el valor de dias laborados: ');
readln (dias_laborados);
write ('Ingresa el valor de salario basico: ');
readln (salario_basico);
write ('Ingresa el valor de ventas del mes: ');
readln (ventas_del_mes);
salario_minimo := 589500.0;
sueldo_devengado := salario_basico*dias_laborados/30;
if salario_basico<=salario_minimo*2 then
begin
auxilio_de_transporte := 70500.0*dias_laborados/30;
end
else
begin
auxilio_de_transporte := 0;
end;
comision_de_ventas := ventas_del_mes*0.02;
total_devengado := sueldo_devengado+comision_de_ventas;
total_deducciones := descuento_por_prestamos;
salario_neto := total_devengado-total_deducciones;
writeln ('Cedula empleado: ', cedula_empleado);
writeln ('Nombre empleado: ', nombre_empleado);
writeln ('Valor de auxilio de transporte: ', auxilio_de_transporte:0:6);
writeln ('Valor de comision de ventas: ', comision_de_ventas:0:6);
writeln ('Valor de salario minimo: ', salario_minimo:0:6);
writeln ('Valor de salario neto: ', salario_neto:0:6);
writeln ('Valor de sueldo devengado: ', sueldo_devengado:0:6);
writeln ('Valor de total deducciones: ', total_deducciones:0:6);
writeln ('Valor de total devengado: ', total_devengado:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.