Descuento del 11% en una tienda en lenguaje Pascal

Lenguaje

Pascal
Descripción

Una tienda ha puesto en oferta la venta de un producto ofreciendo un 11% de descuento sobre el importe de la compra. El importe de la compra se calcula multiplicando el precio del producto por la cantidad de unidades adquiridas. El importe a pagar se calcula restando el importe de la compra menos el importe del descuento. Como incentivo especial, la tienda obsequia 2 caramelos por cada unidad adquirida. Dado el precio del producto y la cantidad de unidades adquiridas, diseñe un algoritmo que determine el importe de la compra, el importe del descuento y el importe a pagar.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

program DescuentoDel11EnUnaTienda;

uses crt;

var caramelos_obsequiados, importe_a_pagar, importe_de_la_compra, importe_del_descuento, precio_del_producto : real;

var unidades_adquiridas : real;

begin

    write ('Ingresa el valor de precio del producto: ');

    readln (precio_del_producto);

    write ('Ingresa el valor de unidades adquiridas: ');

    readln (unidades_adquiridas);

    importe_de_la_compra := precio_del_producto*unidades_adquiridas;

    importe_del_descuento := importe_de_la_compra*0.11;

    importe_a_pagar := importe_de_la_compra-importe_del_descuento;

    caramelos_obsequiados := unidades_adquiridas*2;

    writeln ('Valor de caramelos obsequiados: ', caramelos_obsequiados:0:6);

    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;

    write ('Presiona una tecla para terminar . . . ');

    readkey;

end.