Descuento por día del padre en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Ripley por día del padre ha lanzado el 30% de descuento en todos sus productos, pero si el cliente tiene tarjeta se le aplicará un 15% de descuento adicional. Determine el monto a pagar por la compra realizada y el monto del descuento.

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

Proceso DescuentoPorDiaDelPadre

    Escribir Sin Saltar "Ingresa el valor de compra realizada:";

    Leer compra_realizada;

    descuento <- compra_realizada*0.3;

    Escribir "Selecciona el valor de tiene tarjeta.";

    Escribir "    1.- Si";

    Escribir "    2.- No";

    Escribir Sin Saltar "    :";

    Repetir

        Leer tiene_tarjeta;

        Si tiene_tarjeta<1 O tiene_tarjeta>2 Entonces

            Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";

        FinSi

    Hasta Que tiene_tarjeta>=1 Y tiene_tarjeta<=2;

    Si tiene_tarjeta = 1 Entonces

        descuento <- descuento+compra_realizada*0.15;

    FinSi

    monto_a_pagar <- compra_realizada+descuento;

    Escribir "Valor de descuento: ", descuento;

    Escribir "Valor de monto a pagar: ", monto_a_pagar;

FinProceso