• 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
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.