Compra de tres productos en lenguaje Pascal

Lenguaje

Pascal
Descripción

Calcula el importe total a pagar de la compra de tres productos considerando que hay un descuento del 10% al total de la compra.

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

program CompraDeTresProductos;

uses crt;

var descuento, importe_total_a_pagar, precio_del_producto_1, precio_del_producto_2, precio_del_producto_3 : real;

var total_de_la_compra : real;

begin

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

    readln (precio_del_producto_1);

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

    readln (precio_del_producto_2);

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

    readln (precio_del_producto_3);

    total_de_la_compra := precio_del_producto_1+precio_del_producto_2+precio_del_producto_3;

    descuento := total_de_la_compra*0.1;

    importe_total_a_pagar := total_de_la_compra-descuento;

    writeln ('Valor de descuento: ', descuento:0:6);

    writeln ('Valor de importe total a pagar: ', importe_total_a_pagar:0:6);

    writeln ('Valor de total de la compra: ', total_de_la_compra:0:6);

    writeln;

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

    readkey;

end.