-
Lenguaje
Pascal
-
Descripción
Una tienda de zapatos que tiene una promoción de descuento para vender al mayor, esta dependerá del número de zapatos que se compren. Sólo si son más de diez, se les dará un 10% de descuento sobre el total de la compra; 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
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program TiendaDeZapatos2;
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;
if numero_de_zapatos>10 then
begin
descuento := subtotal*0.1;
end
else
begin
descuento := 0;
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;
if numero_de_zapatos>10 then
begin
descuento := subtotal*0.1;
end
else
begin
descuento := 0;
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.