-
Lenguaje
Pascal
-
Descripción
Un vendedor desea calcular la comisión total sobre la venta de varios artículos. Al vendedor le corresponde el 10% de comisión sobre artículos, cuyo precio es menor o igual a $1.000 y el 7% de comisión sobre aquellos artículos cuyo precio sea mayor de $1.000. Obtener la comisión total, si se conoce que el vendedor hizo N 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
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
program ComisionTotalSobreLaVenta;
uses crt;
var i, n : integer;
var comision, comision_total, precio_del_articulo : real;
begin
comision_total := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de precio del articulo: ');
readln (precio_del_articulo);
if precio_del_articulo<=7000 then
begin
comision := precio_del_articulo*0.1;
end
else
begin
comision := precio_del_articulo*0.07;
end;
comision_total := comision_total+comision;
writeln ('Valor de comision: ', comision:0:6);
writeln;
end;
writeln ('Valor de comision total: ', comision_total:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var i, n : integer;
var comision, comision_total, precio_del_articulo : real;
begin
comision_total := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de precio del articulo: ');
readln (precio_del_articulo);
if precio_del_articulo<=7000 then
begin
comision := precio_del_articulo*0.1;
end
else
begin
comision := precio_del_articulo*0.07;
end;
comision_total := comision_total+comision;
writeln ('Valor de comision: ', comision:0:6);
writeln;
end;
writeln ('Valor de comision total: ', comision_total:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.