-
Lenguaje
Pascal
-
Descripción
Una empresa de teatro ha puesto en oferta la venta de todas sus entradas ofreciendo un 6.58 % de descuento. Dada la cantidad de entradas y el precio unitario, determine el importe de la compra, el importe del descuento, el importe a pagar y el obsequio otorgado.
- El importe de compra se calcula multiplicando el precio de la entrada por la cantidad.
- El descuento es igual al 6.58 % del importe de la compra.
- El importe a pagar se calcula restando el importe compra menos el importe del descuento.
- Adicionalmente, la empresa obsequia 3 libros por cada 15 entradas adquiridas.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program EmpresaDeTeatro;
uses crt, math;
var cantidad, importe_a_pagar, importe_de_la_compra, importe_del_descuento, libros_de_obsequio : real;
var precio_de_la_entrada : real;
begin
write ('Ingresa el valor de cantidad: ');
readln (cantidad);
write ('Ingresa el valor de precio de la entrada: ');
readln (precio_de_la_entrada);
importe_de_la_compra := precio_de_la_entrada*cantidad;
importe_del_descuento := importe_de_la_compra*0.0658;
importe_a_pagar := importe_de_la_compra-importe_del_descuento;
libros_de_obsequio := 3*floor(cantidad/15);
writeln ('Valor de importe a pagar: ', importe_a_pagar:0:6);
writeln ('Valor de importe de la compra: ', importe_de_la_compra:0:6);
writeln ('Valor de importe del descuento: ', importe_del_descuento:0:6);
writeln ('Valor de libros de obsequio: ', libros_de_obsequio:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt, math;
var cantidad, importe_a_pagar, importe_de_la_compra, importe_del_descuento, libros_de_obsequio : real;
var precio_de_la_entrada : real;
begin
write ('Ingresa el valor de cantidad: ');
readln (cantidad);
write ('Ingresa el valor de precio de la entrada: ');
readln (precio_de_la_entrada);
importe_de_la_compra := precio_de_la_entrada*cantidad;
importe_del_descuento := importe_de_la_compra*0.0658;
importe_a_pagar := importe_de_la_compra-importe_del_descuento;
libros_de_obsequio := 3*floor(cantidad/15);
writeln ('Valor de importe a pagar: ', importe_a_pagar:0:6);
writeln ('Valor de importe de la compra: ', importe_de_la_compra:0:6);
writeln ('Valor de importe del descuento: ', importe_del_descuento:0:6);
writeln ('Valor de libros de obsequio: ', libros_de_obsequio:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.