• Lenguaje

    PSeInt (Pseudocódigo)

  • Descripción

    Para ingresar a un evento hay tres tipos de boletos o tickets: General, Oro y Diamante, se debe ingresar el valor de cada uno de estos, se requiere conocer:
    a. El número de boletos o tickets vendidos de tipo general.
    b. El número de boletos o tickets vendidos de tipo oro.
    c. El número de boletos o tickets vendidos de tipo diamante.
    d. El total de los boletos o tickets vendidos.
    e. El valor total de los boletos de tipo general vendidos.
    f. El valor total de los boletos de tipo oro vendidos.
    g. El valor total de los boletos de tipo diamantes vendidos.
    h. El valor total de los boletos o tickets vendidos.

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Proceso BoletosDeUnEvento
    a <- 0;
    b <- 0;
    c <- 0;
    d <- 0;
    e <- 0;
    f <- 0;
    g <- 0;
    h <- 0;
    Escribir Sin Saltar "Ingresa el valor de ticket diamante:";
    Leer ticket_diamante;
    Escribir Sin Saltar "Ingresa el valor de ticket general:";
    Leer ticket_general;
    Escribir Sin Saltar "Ingresa el valor de ticket oro:";
    Leer ticket_oro;
    Repetir
        Escribir "Selecciona el valor de tipo de boleto.";
        Escribir "    1.- General";
        Escribir "    2.- Oro";
        Escribir "    3.- Diamante";
        Escribir Sin Saltar "    :";
        Repetir
            Leer tipo_de_boleto;
            Si tipo_de_boleto<1 O tipo_de_boleto>3 Entonces
                Escribir Sin Saltar "Valor incorrecto. Ingrésalo nuevamente.: ";
            FinSi
        Hasta Que tipo_de_boleto>=1 Y tipo_de_boleto<=3;
        Si tipo_de_boleto = 1 Entonces
            a <- a+1;
            e <- e+ticket_general;
        FinSi
        Si tipo_de_boleto = 2 Entonces
            b <- b+1;
            f <- f+ticket_oro;
        FinSi
        Si tipo_de_boleto = 3 Entonces
            b <- b+1;
            g <- g+ticket_diamante;
        FinSi
        Escribir "";
        Repetir
            Escribir Sin Saltar "¿Deseas repetir el proceso? (S/N):";
            Leer tecla_repetir;
        Hasta Que tecla_repetir='s' O tecla_repetir='n' O tecla_repetir='S' O tecla_repetir='N'
    Hasta Que tecla_repetir='n' O tecla_repetir='N'
    d <- a+b+c;
    h <- e+f+g;
    Escribir "Valor de a: ", a;
    Escribir "Valor de b: ", b;
    Escribir "Valor de c: ", c;
    Escribir "Valor de d: ", d;
    Escribir "Valor de e: ", e;
    Escribir "Valor de f: ", f;
    Escribir "Valor de g: ", g;
    Escribir "Valor de h: ", h;
FinProceso