-
Lenguaje
Pascal
-
Descripción
En el mercado se realiza una promoción, la cual consiste en hacer un descuento a sus clientes, con base en su edad, según se establece a continuación:
- Menor de 15 años 0%.
- Mayor o igual a 15 años, pero menor de 30 años 10%.
- Mayor o igual a 30 años, pero menor de 50 años 15%.
- Mayor o igual a 50 años 20%.
¿Cuál será la cantidad que el cliente debe pagar por su compra?
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
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
program PromocionEnElMercado;
uses crt;
var descuento, edad, pago_por_la_compra, subtotal : real;
begin
write ('Ingresa el valor de edad: ');
readln (edad);
write ('Ingresa el valor de subtotal: ');
readln (subtotal);
descuento := 0;
if (edad>=15) and (edad<30) then
begin
descuento := subtotal*0.1;
end;
if (edad>=30) and (edad<50) then
begin
descuento := subtotal*0.15;
end;
if edad>=50 then
begin
descuento := subtotal*0.2;
end;
pago_por_la_compra := subtotal-descuento;
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de pago por la compra: ', pago_por_la_compra:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var descuento, edad, pago_por_la_compra, subtotal : real;
begin
write ('Ingresa el valor de edad: ');
readln (edad);
write ('Ingresa el valor de subtotal: ');
readln (subtotal);
descuento := 0;
if (edad>=15) and (edad<30) then
begin
descuento := subtotal*0.1;
end;
if (edad>=30) and (edad<50) then
begin
descuento := subtotal*0.15;
end;
if edad>=50 then
begin
descuento := subtotal*0.2;
end;
pago_por_la_compra := subtotal-descuento;
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de pago por la compra: ', pago_por_la_compra:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.