-
Lenguaje
Pascal
-
Descripción
En una librería se realiza un descuento de la cantidad de libros solicitados por el cliente. Si el pedido es mayor que 100 libros se le aplica un descuento del 5% al total de su compra, de lo contrario el descuento sera del 7%. Imprimir la cantidad descontada y el total a pagar por el cliente.
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 DescuentoEnUnaLibreria;
uses crt;
var cantidad_de_libros, descuento, total_a_pagar, total_de_la_compra : real;
begin
write ('Ingresa el valor de cantidad de libros: ');
readln (cantidad_de_libros);
write ('Ingresa el valor de total de la compra: ');
readln (total_de_la_compra);
if cantidad_de_libros>100 then
begin
descuento := total_de_la_compra*0.05;
end
else
begin
descuento := total_de_la_compra*0.07;
end;
total_a_pagar := total_de_la_compra-descuento;
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de total a pagar: ', total_a_pagar:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var cantidad_de_libros, descuento, total_a_pagar, total_de_la_compra : real;
begin
write ('Ingresa el valor de cantidad de libros: ');
readln (cantidad_de_libros);
write ('Ingresa el valor de total de la compra: ');
readln (total_de_la_compra);
if cantidad_de_libros>100 then
begin
descuento := total_de_la_compra*0.05;
end
else
begin
descuento := total_de_la_compra*0.07;
end;
total_a_pagar := total_de_la_compra-descuento;
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de total a pagar: ', total_a_pagar:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.