PseInt_Practica13_PremiosCompra

Proceso practica21_PremiosCompraXGenero
    // Un supermercado realiza una tombola con todos los clientes, si son hombres tienen que
    // sacar de una canasta una bolita la cual tiene un numero grabado, y si son mujeres lo
    // mismo pero de otra canasta. Los premios se dan bajo la siguiente tabla:
    // PARA HOMBRES
    // ========================================================================
    //  # BOLITA            PREMIO
    //      1           Desodorante
    //      2           SixPack de cerveza
    //      3           Boxer
    //      4           Rasuradora
    //      5           Sudadera
    // PARA MUJERES
    // ========================================================================
    //  # BOLITA            PREMIO
    //      1           Locion
    //      2           Bikini
    //      3           Crema para la cara
    //      4           Plancha
    //      5           Barniz de uñas

    genero <- " "
    bolita <- 0;
    Escribir "Cual es el genero del cliente? (H=Hombre, M=Mujer)";
    Leer genero;
    si genero = "H" Entonces
        Escribir "Cual fue el numero de la bolita que saco de la canasta?";
        Leer bolita;
        segun bolita Hacer
            1:
                Escribir "Te ganaste 1 Desodorante";
            2:
                Escribir "Te ganaste 1 SixPack de cerveza";
            3:
                Escribir "Te ganaste 1 Boxer";
            4:
                Escribir "Te ganaste 1 Rasuradora";
            5:
                Escribir "Te ganaste 1 Sudadera";
            FinSegun
    Sino
        Escribir "Cual fue el numero de la bolita que saco de la canasta?";
        Leer bolita;
        segun bolita Hacer
            1:
                Escribir "Te ganaste 1 Locion";
            2:
                Escribir "Te ganaste 1 Bikini";
            3:
                Escribir "Te ganaste 1 Crema para la cara";
            4:
                Escribir "Te ganaste 1 Plancha";
            5:
                Escribir "Te ganaste 1 Barniz de uñas";
        FinSegun

    FinSi

FinProceso