Tienda de accesorios para computadores en lenguaje Pascal

Lenguaje

Pascal
Descripción

En una tienda de accesorios para computadores, el precio de venta unitario de los USB de 32 GB, se muestra en la tabla adjunta. los descuentos establecidos son aplicables cuando el número de unidades compradas es a partir de 5 unidades.
Código | Marca | Precio | Dscto (%)
1 | 3M | 50 | 10
2 | Kingstom | 45 | 15
3 | LG | 43 | 20
4 | Scandisk | 49 | 25
5 | Goldstar | 46 | 30
Determinar el importe a pagar por la cantidad de USBs comprados considerando el impuesto de ley (18% sobre la venta). mostrar importe bruto, descuento, impuesto 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
23
24
25
26
27
28
29
30
31
32
33
34

program TiendaDeAccesoriosParaComputadores;

uses crt;

var descuento, importe_a_pagar, importe_bruto, impuesto, numero_de_unidades_3M : real;

var numero_de_unidades_Goldstar, numero_de_unidades_Kingstom, numero_de_unidades_LG, numero_de_unidades_Scandisk, numero_de_unidades_compradas : real;

begin

    write ('Ingresa el valor de numero de unidades 3M: ');

    readln (numero_de_unidades_3M);

    write ('Ingresa el valor de numero de unidades Goldstar: ');

    readln (numero_de_unidades_Goldstar);

    write ('Ingresa el valor de numero de unidades Kingstom: ');

    readln (numero_de_unidades_Kingstom);

    write ('Ingresa el valor de numero de unidades LG: ');

    readln (numero_de_unidades_LG);

    write ('Ingresa el valor de numero de unidades Scandisk: ');

    readln (numero_de_unidades_Scandisk);

    descuento := 0;

    numero_de_unidades_compradas := numero_de_unidades_3M+numero_de_unidades_Kingstom+numero_de_unidades_LG+numero_de_unidades_Scandisk+numero_de_unidades_Goldstar;

    importe_bruto := numero_de_unidades_3M*50+numero_de_unidades_Kingstom*45+numero_de_unidades_LG*43+numero_de_unidades_Scandisk*49+numero_de_unidades_Goldstar*46;

    if numero_de_unidades_compradas>=5 then

        begin

            descuento := 0.1*numero_de_unidades_3M*50+0.15*numero_de_unidades_Kingstom*45+0.2*numero_de_unidades_LG*43+0.25*numero_de_unidades_Scandisk*49+0.3*numero_de_unidades_Goldstar*46;

        end;

    impuesto := (importe_bruto-descuento)*0.18;

    importe_a_pagar := importe_bruto-descuento+impuesto;

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

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

    writeln ('Valor de importe bruto: ', importe_bruto:0:6);

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

    writeln ('Valor de numero de unidades compradas: ', numero_de_unidades_compradas:0:6);

    writeln;

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

    readkey;

end.