Puntos adicionales en lenguaje PSeInt (Pseudocódigo)

Lenguaje

PSeInt (Pseudocódigo)
Descripción

Una tienda comercial por campaña otorgará puntos adicionales a los clientes de sexo femenino que tengan la tarjeta de puntos de acuerdo a la edad de la persona. Los clientes menores de 18 años recibirán un adicional de 1000 puntos, de 18 años hasta menores de 25 años otorgará 2000 puntos y de 25 años a más recibirán 4000 puntos. Considerar que la cantidad de puntos otorgados se acumulará al puntaje de la tarjeta. Los datos de ingreso son nombre, edad, sexo y tiene tarjeta (Si/No).

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
35
36
37
38

Proceso PuntosAdicionales

    Escribir Sin Saltar "Ingresa el nombre:";

    Leer nombre;

    Escribir Sin Saltar "Ingresa el valor de edad:";

    Leer edad;

    Escribir "Selecciona el valor de sexo.";

    Escribir "    1.- Femenino";

    Escribir "    2.- Masculino";

    Escribir Sin Saltar "    :";

    Repetir

        Leer sexo;

        Si sexo<1 O sexo>2 Entonces

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

        FinSi

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

    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;

    puntos <- 0;

    Si sexo = 1 Y tiene_tarjeta = 1 Y edad<18 Entonces

        puntos <- 1000;

    FinSi

    Si sexo = 1 Y tiene_tarjeta = 1 Y edad>=18 Y edad<25 Entonces

        puntos <- 2000;

    FinSi

    Si sexo = 1 Y tiene_tarjeta = 1 Y edad>=25 Entonces

        puntos <- 4000;

    FinSi

    Escribir "Nombre: ", nombre;

    Escribir "Valor de puntos: ", puntos;

FinProceso