-
Lenguaje
PSeInt (Pseudocódigo)
-
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
2
3
4
5
6
7
8
9
10
11
12
13
14
Proceso EmpresaDeTeatro
Escribir Sin Saltar "Ingresa el valor de cantidad:";
Leer cantidad;
Escribir Sin Saltar "Ingresa el valor de precio de la entrada:";
Leer 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*TRUNC(cantidad/15);
Escribir "Valor de importe a pagar: ", importe_a_pagar;
Escribir "Valor de importe de la compra: ", importe_de_la_compra;
Escribir "Valor de importe del descuento: ", importe_del_descuento;
Escribir "Valor de libros de obsequio: ", libros_de_obsequio;
FinProceso
Escribir Sin Saltar "Ingresa el valor de cantidad:";
Leer cantidad;
Escribir Sin Saltar "Ingresa el valor de precio de la entrada:";
Leer 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*TRUNC(cantidad/15);
Escribir "Valor de importe a pagar: ", importe_a_pagar;
Escribir "Valor de importe de la compra: ", importe_de_la_compra;
Escribir "Valor de importe del descuento: ", importe_del_descuento;
Escribir "Valor de libros de obsequio: ", libros_de_obsequio;
FinProceso