-
Lenguaje
Pascal
-
Descripción
Una tienda efectúa un descuento a los clientes dependiendo del monto de compra. El descuento se lleva a cabo según la siguiente tabla:
Monto de compra (soles) | Porcentaje de descuento
Menor de 500 | Sin descuento
Mayor o igual de 500 y menor de 800 | 12%
Mayor o igual de 800 y menor de 1200 | 18%
Mayor o igual de 1200 | 22%
Diseñe el algoritmo que muestre el porcentaje de descuento, su equivalente en soles y el monto final a pagar.
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 DescuentoEnUnaTiendaDependiendoDeLaCompra;
uses crt;
var descuento_en_soles, monto_de_compra, monto_final, porcentaje_de_descuento : real;
begin
write ('Ingresa el valor de monto de compra: ');
readln (monto_de_compra);
porcentaje_de_descuento := 0;
if (monto_de_compra>=500) and (monto_de_compra<800) then
begin
porcentaje_de_descuento := 12;
end;
if (monto_de_compra>=800) and (monto_de_compra<1200) then
begin
porcentaje_de_descuento := 18;
end;
if monto_de_compra>=1200 then
begin
porcentaje_de_descuento := 22;
end;
descuento_en_soles := 100.0*monto_de_compra/porcentaje_de_descuento;
monto_final := monto_de_compra-descuento_en_soles;
writeln ('Valor de descuento en soles: ', descuento_en_soles:0:6);
writeln ('Valor de monto final: ', monto_final:0:6);
writeln ('Valor de porcentaje de descuento: ', porcentaje_de_descuento:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var descuento_en_soles, monto_de_compra, monto_final, porcentaje_de_descuento : real;
begin
write ('Ingresa el valor de monto de compra: ');
readln (monto_de_compra);
porcentaje_de_descuento := 0;
if (monto_de_compra>=500) and (monto_de_compra<800) then
begin
porcentaje_de_descuento := 12;
end;
if (monto_de_compra>=800) and (monto_de_compra<1200) then
begin
porcentaje_de_descuento := 18;
end;
if monto_de_compra>=1200 then
begin
porcentaje_de_descuento := 22;
end;
descuento_en_soles := 100.0*monto_de_compra/porcentaje_de_descuento;
monto_final := monto_de_compra-descuento_en_soles;
writeln ('Valor de descuento en soles: ', descuento_en_soles:0:6);
writeln ('Valor de monto final: ', monto_final:0:6);
writeln ('Valor de porcentaje de descuento: ', porcentaje_de_descuento:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.