• 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

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
44
45
46
47
program VendedorDeUnAlmacen;
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.