• 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
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.