-
Lenguaje
Pascal
-
Descripción
Un supermercado desea implementar una promoción de compras para lo cual establece que a cada uno de los 50 primeros clientes que compren productos en la empresa se les hará un descuento equivalente a:
- Si eres el primer cliente se le hace un descuento del 50% de su compra.
- Si eres el segundo cliente se le hace un descuento del 49% de su compra.
- Si eres el tercer cliente se le hace un descuento del 48% de su compra .
- Y así sucesivamente hasta llegar el 50avo cliente al que se le hará el 1% de descuento de su compra.
Se pide determinar cuál es el descuento por cliente y cuanto es el descuento total que realizo a los 50 clientes.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program PromocionPara50Clientes;
uses crt;
var i : integer;
var compra, descuento_por_cliente, descuento_total : real;
begin
descuento_total := 0;
for i:=1 to 50 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de compra: ');
readln (compra);
descuento_por_cliente := 100.0*compra/(51-i);
descuento_total := descuento_total+descuento_por_cliente;
writeln ('Valor de descuento por cliente: ', descuento_por_cliente:0:6);
writeln;
end;
writeln ('Valor de descuento total: ', descuento_total:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var i : integer;
var compra, descuento_por_cliente, descuento_total : real;
begin
descuento_total := 0;
for i:=1 to 50 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de compra: ');
readln (compra);
descuento_por_cliente := 100.0*compra/(51-i);
descuento_total := descuento_total+descuento_por_cliente;
writeln ('Valor de descuento por cliente: ', descuento_por_cliente:0:6);
writeln;
end;
writeln ('Valor de descuento total: ', descuento_total:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.