• Lenguaje

    Pascal

  • Descripción

    Una empresa ha decidido otorgar a sus vendedores una bonificación de $50 por cada hijo en edad escolar. El sueldo bruto se calcula sumando un sueldo básico de $600 más una comisión que es igual al 7.5% del importe total vendido del mes y más la bonificación. Por ley, todo vendedor está sujeto a un descuento del 11% del sueldo bruto. Dados el importe total vendido del mes y la cantidad de hijos en edad escolar, diseñe un programa que determine la comisión, la bonificación, el sueldo bruto, el descuento y el sueldo neto de un vendedor.

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
program SueldoPorVentasYNumeroDeHijos;
uses crt;

var bonificacion, comision, descuento, hijos_en_edad_escolar, sueldo_basico : real;
var sueldo_bruto, sueldo_neto, total_vendido : real;
begin
    write ('Ingresa el valor de hijos en edad escolar: ');
    readln (hijos_en_edad_escolar);
    write ('Ingresa el valor de total vendido: ');
    readln (total_vendido);
    sueldo_basico := 600;
    bonificacion := 50*hijos_en_edad_escolar;
    comision := total_vendido*0.075;
    sueldo_bruto := sueldo_basico+comision+bonificacion;
    descuento := sueldo_bruto*0.11;
    sueldo_neto := sueldo_bruto-descuento;
    writeln ('Valor de bonificacion: ', bonificacion:0:6);
    writeln ('Valor de comision: ', comision:0:6);
    writeln ('Valor de descuento: ', descuento:0:6);
    writeln ('Valor de sueldo basico: ', sueldo_basico:0:6);
    writeln ('Valor de sueldo bruto: ', sueldo_bruto:0:6);
    writeln ('Valor de sueldo neto: ', sueldo_neto:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.