• Lenguaje

    Pascal

  • Descripción

    El almacén de "Don Mañe" se encuentra de aniversario y ha programado una serie de ofertas con la finalidad de brindar facilidades a sus clientes y al a vez de incrementar sus ventas. Estas ofertas se basan específicamente en un porcentaje de descuento sobre el total de compra el cual varía de acuerdo al monto. Para un monto ingresado de un cliente, se desea saber cuánto paga al final y cuanto es su descuento.
    - Por un monto mayor o igual a $500 se hará un descuento del 30%.
    - Por un monto menor de $500 pero mayor o igual a $200 se hará un descuento del 20%.
    - Por un monto menor de $200 pero mayor o igual a $100 se hará un descuento del 10%.
    Calcule el pago final y su 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
program OfertasEnUnAlmacen;
uses crt;

var descuento, monto, pago_final : real;
begin
    write ('Ingresa el valor de monto: ');
    readln (monto);
    descuento := 0;
    if monto>=500 then
        begin
            descuento := monto*0.3;
        end;
    if (monto>=200) and (monto<500) then
        begin
            descuento := monto*0.2;
        end;
    if (monto>=100) and (monto<200) then
        begin
            descuento := monto*0.1;
        end;
    pago_final := monto-descuento;
    writeln ('Valor de descuento: ', descuento:0:6);
    writeln ('Valor de pago final: ', pago_final:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.