Tienda de accesorios para computadores en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
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

Proceso TiendaDeAccesoriosParaComputadores

    Escribir Sin Saltar "Ingresa el valor de numero de unidades 3M:";

    Leer numero_de_unidades_3M;

    Escribir Sin Saltar "Ingresa el valor de numero de unidades Goldstar:";

    Leer numero_de_unidades_Goldstar;

    Escribir Sin Saltar "Ingresa el valor de numero de unidades Kingstom:";

    Leer numero_de_unidades_Kingstom;

    Escribir Sin Saltar "Ingresa el valor de numero de unidades LG:";

    Leer numero_de_unidades_LG;

    Escribir Sin Saltar "Ingresa el valor de numero de unidades Scandisk:";

    Leer 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;

    Si numero_de_unidades_compradas>=5 Entonces

        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;

    FinSi

    impuesto <- (importe_bruto-descuento)*0.18;

    importe_a_pagar <- importe_bruto-descuento+impuesto;

    Escribir "Valor de descuento: ", descuento;

    Escribir "Valor de importe a pagar: ", importe_a_pagar;

    Escribir "Valor de importe bruto: ", importe_bruto;

    Escribir "Valor de impuesto: ", impuesto;

    Escribir "Valor de numero de unidades compradas: ", numero_de_unidades_compradas;

FinProceso