• Lenguaje

    Pascal

  • Descripción

    Una tienda de víveres da un descuento por compra a sus clientes con membresía dependiendo de su tipo, sólo existen tres tipos
    de membresía, tipo A, tipo B y tipo C. Los descuentos son los siguientes:
    - Tipo A - 10% de descuento
    - Tipo B - 15% de descuento
    - Tipo C - 20% de descuento
    Nota: En caso de no tener membresía pagara el valor completo de la compra.
    Ejemplo:
    - Si un cliente es tipo A y su monto de compra es de $100, se descuenta $10 al total de la compra, terminando pagando $90.
    - Si un cliente es tipo C y ha comprado $500, se descuenta $100 de su compra, pagando $400 netos.

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
35
36
37
38
39
program DescuentoPorMembresia;
uses crt;

var tipo_de_membresia : integer;
var descuento, monto_de_compra, pago : real;
begin
    write ('Ingresa el valor de monto de compra: ');
    readln (monto_de_compra);
    writeln ('Selecciona el valor de tipo de membresia.');
    writeln ('    1.- Tipo A');
    writeln ('    2.- Tipo B');
    writeln ('    3.- Tipo C');
    writeln ('    4.- Sin membres'#161'a');
    write ('    : ');
    repeat
        readln (tipo_de_membresia);
        if (tipo_de_membresia<1) or (tipo_de_membresia>4) then
            write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
    until (tipo_de_membresia>=1) and (tipo_de_membresia<=4);
    descuento := 0;
    if tipo_de_membresia=1 then
        begin
            descuento := monto_de_compra*0.1;
        end;
    if tipo_de_membresia=2 then
        begin
            descuento := monto_de_compra*0.15;
        end;
    if tipo_de_membresia=3 then
        begin
            descuento := monto_de_compra*0.2;
        end;
    pago := monto_de_compra-descuento;
    writeln ('Valor de descuento: ', descuento:0:6);
    writeln ('Valor de pago: ', pago:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.