-
Lenguaje
Pascal
-
Descripción
En una empresa se desea calcular la planilla del mes a pagar. El algoritmo debe de solicitar la cantidad N de vendedores, y por cada vendedor se solicitará:
- el nombre del vendedor
- su sueldo básico
- y el monto de ventas
Con estos datos calculará la comisión de ventas que dependerá de lo siguiente Si vendió más 15000 soles se le asignará una comisión del 10% de las ventas. Si vendió más de 10000 soles se le asignará una comisión de 8% de las ventas, en caso contrario recibirá solo 5% de las ventas. Por cada vendedor que se ingrese se mostrará en sueldo final a pagar que será la suma del sueldo básico más la comisión.
Y finalmente se mostrará el total de la planilla a pagar que será la suma de los sueldos finales de todos los trabajadores.
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
uses crt;
var i, n : integer;
var comision, monto_de_ventas, sueldo_basico, sueldo_final, total_planilla : real;
var nombre : string;
begin
total_planilla := 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 ventas: ');
readln (monto_de_ventas);
write ('Ingresa el valor de sueldo basico: ');
readln (sueldo_basico);
comision := 0;
if monto_de_ventas>15000 then
begin
comision := monto_de_ventas*0.1;
end;
if (monto_de_ventas>10000) and (monto_de_ventas<=15000) then
begin
comision := monto_de_ventas*0.08;
end;
if monto_de_ventas<=10000 then
begin
comision := monto_de_ventas*0.05;
end;
sueldo_final := sueldo_basico+comision;
total_planilla := total_planilla+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 total planilla: ', total_planilla:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.