-
Lenguaje
Pascal
-
Descripción
Calcular la sumatoria de las ventas de los primeros N clientes y el total de descuentos otorgados. Teniendo en cuenta que:
a) Los primeros 5 clientes tienen un 20% de descuento del valor de la compra.
b) Los clientes que llegaron del puesto 11 al puesto 15 tienen un 15% de descuento del valor de la compra.
c) Los clientes que llegaron en el puesto 15 en adelante no tienen descuento.
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
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
program VentasDeLosPrimerosNClientes;
uses crt;
var i, n : integer;
var compra, descuento, descuentos, sumatoria : real;
begin
descuentos := 0;
sumatoria := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de compra: ');
readln (compra);
descuento := 0;
if (n>=1) and (n<=5) then
begin
descuento := compra*0.2;
end;
if (n>=11) and (n<=15) then
begin
descuento := compra*0.15;
end;
sumatoria := sumatoria+compra;
descuentos := descuentos+descuento;
writeln ('Valor de descuento: ', descuento:0:6);
writeln;
end;
writeln ('Valor de descuentos: ', descuentos:0:6);
writeln ('Valor de sumatoria: ', sumatoria:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var i, n : integer;
var compra, descuento, descuentos, sumatoria : real;
begin
descuentos := 0;
sumatoria := 0;
write ('Ingresa el valor de n: ');
readln (n);
for i:=1 to n do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de compra: ');
readln (compra);
descuento := 0;
if (n>=1) and (n<=5) then
begin
descuento := compra*0.2;
end;
if (n>=11) and (n<=15) then
begin
descuento := compra*0.15;
end;
sumatoria := sumatoria+compra;
descuentos := descuentos+descuento;
writeln ('Valor de descuento: ', descuento:0:6);
writeln;
end;
writeln ('Valor de descuentos: ', descuentos:0:6);
writeln ('Valor de sumatoria: ', sumatoria:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.