Desfile

PROBLEMA

Para el desfile del 20 de noviembre, los alumnos podran elegir su disfraz. Los hombre podran ir en el contigente de "soldados", de "revolucionarios" o de charros. Las mujeres eligiran entre "escolta", "adelita", "tabla ritmica" o "bastonera". Guardar e imprimir un mnesaje con el nombre del alumno y el disfraz elegido.

ALGORITMO

Entradas: 

alfanumérico: género
alfanumérico: nombre
alfanumérico: disfraz
Salidas:

 alfanumérico: mensaje
INICIO
Leer genero
Leer nombre
Leer disfraz
Si genero es «HOMBRE» es:
Si disfraz es:
«Soldado» guardar en mensaje «Ud. Eligio soldado»
«Revolucionario» guardar en mensaje «Ud. Eligio Revolucionario»
«Charro» guardar en mensaje «Ud. Eligio charro»
Si no guardar en mensaje «Disfraz no identificado»
Fin_selector
Si genero es «MUJER» Entonces
Si disfraz es:
«Escolta Adelita» guardar en mensaje «Ud. Eligio Escolta Adelita»
«Tabla rítmica» guardar en mensaje «Ud. Eligio tabla rítmica»
«Bastonera» guardar en mensaje «Ud. Eligio Bastonera»
Si no guardar en mensaje «Disfraz no reconocido»
Fin_selector
Imprimir nombre
Imprimir mensaje
FIN

PSEUDOCÓDIGO
Class Disfraces
        //Declaraciones (entradas)
        Cadena: genero
        Cadena: nombre
        Cadena: disfraz
       //Declaraciones (salidas)
        Cadena: mensaje
       //Proceso 
       Main
          Print «Introduzca su genero»
          Scan genero
          Print «Introduzca su nombre»
          Scan nombre
          Print «Introduzca su disfraz»
          Scan disfraz
          If (genero="HOMBRE")then
              Swich (disfraz)
                  "SOLDADO":mensaje="UD ELIGIO SOLDADO"                                

                  "REVOLUCIONARIO":mensaje="UD ELIGIO REVOLUCIONARIO"
                  "CHARRO":mensaje="UD ELIGIO CHARRO»
                  default :mensaje=«DISFRAZ NO IDENTIFICADO"

               end_switch

          end_if
          If (genero= "MUJER") then
              Swich (disfraz)
                  "ESCOLTA ADELITA": mensaje="UD ELIGIO ESCOLTA ADELITA"
                  "TABLA RÍTMICA":mensaje="UD ELIGIO TABLA RÍTMICA"
                  "BASTONERA": mensaje="UD ELIGIO BASTONERA"
                  default :mensaje="DISFRAZ NO IDENTIFICADO"
              end_swich

         end_if
         Print nombre
         Print mensaje
         end_main