-
Lenguaje
Pascal
-
Descripción
En una empresa se desea calcular la planilla del mes a pagar el algoritmo debe solicitar la cantidad n de vendedores y por cada vendedor se solicitará el nombre del vendedor, el sueldo básico y el monto de venta. Con estos datos calcular la comisión de ventas que dependerá de lo siguiente: si se vendió 1500 soles se le asignará una comisión por 10% de las ventas, si se vendió más de 1000 soles designar a una comisión de 8% de ventas, en caso de lo contrario recibirá sólo el 5% de las ventas.
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
program PlanillaDelMes2;
uses crt;
var i, n : integer;
var comision, monto_de_venta, planilla_del_mes, sueldo_basico, sueldo_final : real;
var nombre : string;
begin
planilla_del_mes := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el nombre: ');
readln (nombre);
write ('Ingresa el valor de monto de venta: ');
readln (monto_de_venta);
write ('Ingresa el valor de sueldo basico: ');
readln (sueldo_basico);
comision := 0;
if monto_de_venta>1500 then
begin
comision := monto_de_venta*0.1;
end;
if (monto_de_venta>1000) and (monto_de_venta<=1500) then
begin
comision := monto_de_venta*0.08;
end;
if monto_de_venta<=1000 then
begin
comision := monto_de_venta*0.05;
end;
sueldo_final := sueldo_basico+comision;
planilla_del_mes := planilla_del_mes+sueldo_final;
writeln ('Nombre: ', nombre);
writeln ('Valor de comision: ', comision:0:6);
writeln ('Valor de sueldo final: ', sueldo_final:0:6);
writeln;
end;
writeln ('Valor de planilla del mes: ', planilla_del_mes:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var i, n : integer;
var comision, monto_de_venta, planilla_del_mes, sueldo_basico, sueldo_final : real;
var nombre : string;
begin
planilla_del_mes := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el nombre: ');
readln (nombre);
write ('Ingresa el valor de monto de venta: ');
readln (monto_de_venta);
write ('Ingresa el valor de sueldo basico: ');
readln (sueldo_basico);
comision := 0;
if monto_de_venta>1500 then
begin
comision := monto_de_venta*0.1;
end;
if (monto_de_venta>1000) and (monto_de_venta<=1500) then
begin
comision := monto_de_venta*0.08;
end;
if monto_de_venta<=1000 then
begin
comision := monto_de_venta*0.05;
end;
sueldo_final := sueldo_basico+comision;
planilla_del_mes := planilla_del_mes+sueldo_final;
writeln ('Nombre: ', nombre);
writeln ('Valor de comision: ', comision:0:6);
writeln ('Valor de sueldo final: ', sueldo_final:0:6);
writeln;
end;
writeln ('Valor de planilla del mes: ', planilla_del_mes:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.