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