-
Lenguaje
Pascal
-
Descripción
Calcular el ingreso que tiene un vendedor, teniendo en cuenta que su ingreso depende de la cantidad y clase de producto vendido. Se tiene lo siguiente:
Existen cuatro tipos de productos (A, B, C, D)
- Por el producto A, recibe el 5% por ventas menores a Bs. 100.000 y 6% por ventas mayores o iguales.
- Por el producto B recibe el 8% por ventas mayores a Bs. 100.000 y el 7% por ventas menores o iguales.
- Por el producto C, recibe el 9% por cualquier cantidad vendida.
- Por el producto D, recibe el 10% por cualquier cantidad vendida.
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
48
49
50
51
52
53
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
48
49
50
51
52
53
program IngresoDeUnVendedor;
uses crt;
var cantidad_de_producto_A, cantidad_de_producto_B, cantidad_de_producto_C, cantidad_de_producto_D, costo_del_producto_A : real;
var costo_del_producto_B, costo_del_producto_C, costo_del_producto_D, ingreso, ventas_del_producto_A : real;
var ventas_del_producto_B, ventas_del_producto_C, ventas_del_producto_D : real;
begin
write ('Ingresa el valor de cantidad de producto A: ');
readln (cantidad_de_producto_A);
write ('Ingresa el valor de cantidad de producto B: ');
readln (cantidad_de_producto_B);
write ('Ingresa el valor de cantidad de producto C: ');
readln (cantidad_de_producto_C);
write ('Ingresa el valor de cantidad de producto D: ');
readln (cantidad_de_producto_D);
write ('Ingresa el valor de costo del producto A: ');
readln (costo_del_producto_A);
write ('Ingresa el valor de costo del producto B: ');
readln (costo_del_producto_B);
write ('Ingresa el valor de costo del producto C: ');
readln (costo_del_producto_C);
write ('Ingresa el valor de costo del producto D: ');
readln (costo_del_producto_D);
ventas_del_producto_A := costo_del_producto_A*cantidad_de_producto_A;
ventas_del_producto_B := costo_del_producto_B*cantidad_de_producto_B;
ventas_del_producto_C := costo_del_producto_C*cantidad_de_producto_C;
ventas_del_producto_D := costo_del_producto_D*cantidad_de_producto_D;
ingreso := ventas_del_producto_C*0.09+ventas_del_producto_D*0.1;
if ventas_del_producto_A<100000 then
begin
ingreso := ingreso+ventas_del_producto_A*0.05;
end
else
begin
ingreso := ingreso+ventas_del_producto_A*0.06;
end;
if ventas_del_producto_B>100000 then
begin
ingreso := ingreso+ventas_del_producto_B*0.08;
end
else
begin
ingreso := ingreso+ventas_del_producto_B*0.07;
end;
writeln ('Valor de ingreso: ', ingreso:0:6);
writeln ('Valor de ventas del producto A: ', ventas_del_producto_A:0:6);
writeln ('Valor de ventas del producto B: ', ventas_del_producto_B:0:6);
writeln ('Valor de ventas del producto C: ', ventas_del_producto_C:0:6);
writeln ('Valor de ventas del producto D: ', ventas_del_producto_D:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var cantidad_de_producto_A, cantidad_de_producto_B, cantidad_de_producto_C, cantidad_de_producto_D, costo_del_producto_A : real;
var costo_del_producto_B, costo_del_producto_C, costo_del_producto_D, ingreso, ventas_del_producto_A : real;
var ventas_del_producto_B, ventas_del_producto_C, ventas_del_producto_D : real;
begin
write ('Ingresa el valor de cantidad de producto A: ');
readln (cantidad_de_producto_A);
write ('Ingresa el valor de cantidad de producto B: ');
readln (cantidad_de_producto_B);
write ('Ingresa el valor de cantidad de producto C: ');
readln (cantidad_de_producto_C);
write ('Ingresa el valor de cantidad de producto D: ');
readln (cantidad_de_producto_D);
write ('Ingresa el valor de costo del producto A: ');
readln (costo_del_producto_A);
write ('Ingresa el valor de costo del producto B: ');
readln (costo_del_producto_B);
write ('Ingresa el valor de costo del producto C: ');
readln (costo_del_producto_C);
write ('Ingresa el valor de costo del producto D: ');
readln (costo_del_producto_D);
ventas_del_producto_A := costo_del_producto_A*cantidad_de_producto_A;
ventas_del_producto_B := costo_del_producto_B*cantidad_de_producto_B;
ventas_del_producto_C := costo_del_producto_C*cantidad_de_producto_C;
ventas_del_producto_D := costo_del_producto_D*cantidad_de_producto_D;
ingreso := ventas_del_producto_C*0.09+ventas_del_producto_D*0.1;
if ventas_del_producto_A<100000 then
begin
ingreso := ingreso+ventas_del_producto_A*0.05;
end
else
begin
ingreso := ingreso+ventas_del_producto_A*0.06;
end;
if ventas_del_producto_B>100000 then
begin
ingreso := ingreso+ventas_del_producto_B*0.08;
end
else
begin
ingreso := ingreso+ventas_del_producto_B*0.07;
end;
writeln ('Valor de ingreso: ', ingreso:0:6);
writeln ('Valor de ventas del producto A: ', ventas_del_producto_A:0:6);
writeln ('Valor de ventas del producto B: ', ventas_del_producto_B:0:6);
writeln ('Valor de ventas del producto C: ', ventas_del_producto_C:0:6);
writeln ('Valor de ventas del producto D: ', ventas_del_producto_D:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.