-
Lenguaje
Pascal
-
Descripción
Una tienda de zapatos tiene una promoción de descuento para vender al mayor, esta dependerá del número de zapatos que se compren. Si son más de diez, se les dará un 10% de descuento sobre el total de la compra; si el número de zapatos es mayor de veinte pero menor de treinta, se le otorga un 20% de descuento; y si son más treinta zapatos se otorgará un 40% de descuento. El precio de cada zapato es de $80.
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 TiendaDeZapatos;
uses crt;
var descuento, numero_de_zapatos, subtotal, total : real;
begin
write ('Ingresa el valor de numero de zapatos: ');
readln (numero_de_zapatos);
subtotal := numero_de_zapatos*80;
descuento := 0;
if (numero_de_zapatos>10) and (numero_de_zapatos<=20) then
begin
descuento := subtotal*0.1;
end;
if (numero_de_zapatos>20) and (numero_de_zapatos<=30) then
begin
descuento := subtotal*0.2;
end;
if numero_de_zapatos>30 then
begin
descuento := subtotal*0.4;
end;
total := subtotal-descuento;
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de subtotal: ', subtotal:0:6);
writeln ('Valor de total: ', total:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var descuento, numero_de_zapatos, subtotal, total : real;
begin
write ('Ingresa el valor de numero de zapatos: ');
readln (numero_de_zapatos);
subtotal := numero_de_zapatos*80;
descuento := 0;
if (numero_de_zapatos>10) and (numero_de_zapatos<=20) then
begin
descuento := subtotal*0.1;
end;
if (numero_de_zapatos>20) and (numero_de_zapatos<=30) then
begin
descuento := subtotal*0.2;
end;
if numero_de_zapatos>30 then
begin
descuento := subtotal*0.4;
end;
total := subtotal-descuento;
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de subtotal: ', subtotal:0:6);
writeln ('Valor de total: ', total:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.