-
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
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.
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.