EJERCICIO MENÚS - CHISTES

HACER UN ALGORITMO QUE DESPLIEGUE UNA SERIA DE CHISTES PARA QUE EL USUARIO ESCOGA, Y LE PREGUNTE SI LE GUSTO O NO EL CHISTE, SI RESPONDE QUE SI MUESTRA NUEVAMENTE EL MENÚ DE LO CONTRARIO CERRAR LA APLICACIÓN. 

SOLUCIÓN:

Proceso CHISTES
CHISTE<-0;
CHISTE1<-"V";
MIENTRAS CHISTE<>7 HACER
Escribir "SELECCIONE UNO DE LOS SIGUIENTES CHISTES";
Escribir "";
Escribir " 1. CHISTE SOBRE NIÑOS";
Escribir "";
Escribir " 2. CHISTES SOBRE BORRACHOS";
Escribir "";
Escribir " 3. CHISTES VERDES";
Escribir "";
Escribir " 4. CHISTES SOBRE PROFESORES";
Escribir "";
Escribir " 5. CHISTES SOBRE ESTUDIANTES";
Escribir "";
Escribir " 6. CHISTES SOBRE ANIMALES";
Escribir "";
Escribir " 7. SALIR";
Escribir "";
ESCRIBIR " INGRESE UN CHISTE, SEGUN SU RESPECTIVO NUMERO ";
Escribir "";
LEER CHISTE;
SI CHISTE=1 ENTONCES
Escribir "";
Escribir "";
Escribir "Mamá, mamá, papá se ha muerto encima de la criada."
Escribir "Pero ¿estás seguro de que se ha muerto?"
Escribir "Bueno, no está muerto del todo, todavía culea.";
Escribir "";
Escribir "";
Escribir "SI LE HA GUSTADO EL CHISTE ESCRIBA (V) DE LO CONTRARIO (F)";
Escribir "";
LEER CHISTE1;
Escribir "";
Escribir "";
SI CHISTE1= "V" ENTONCES
CHISTE<-0
Sino
CHISTE<-7
FINSI
FinSi
SI CHISTE=2 ENTONCES
Escribir "";
Escribir "";
Escribir "Entra un borracho a una cafetería y dice, celebrando, con voz balbuceante:"
Escribir "¡Feliz año nuevo!, A lo que una dama le contesta"
Escribir  "¿Feliz año nuevo? ¿En pleno agosto?, Y dice el borracho:, ¿Ya estamosh en agosto?"
Escribir  " Ay mi mujer me va a matar ¡nunca había llegado tan tarde!"
Escribir "";
Escribir "";
Escribir "SI LE HA GUSTADO EL CHISTE ESCRIBA (V) DE LO CONTRARIO (F)";
Escribir "";
LEER CHISTE1;
Escribir "";
Escribir "";
SI CHISTE1= "V" ENTONCES
CHISTE<-0
Sino
CHISTE<-7
FINSI
FinSi
SI CHISTE=3 ENTONCES
Escribir "";
Escribir "";
Escribir "-Que, te gusto?, Me pareces mesopotámico, Exótico, raro?, "
Escribir "No, pareces una mesa con un hipopótamo encima, más ancho que largo"
Escribir "";
Escribir "";
Escribir "SI LE HA GUSTADO EL CHISTE ESCRIBA (V) DE LO CONTRARIO (F)";
Escribir "";
LEER CHISTE1;
Escribir "";
Escribir "";
SI CHISTE1= "V" ENTONCES
CHISTE<-0
Sino
CHISTE<-7
FINSI
FINSI
SI CHISTE=4 ENTONCES
Escribir "";
Escribir "";
Escribir "El profesor le esta tomando un examen de teologia a una piba, en una universidad catolica,"
Escribir "Digame Senorita, ?Cual fue el primer hombre? "
Escribir "Mire profesor pregunteme lo que quiera, pero nada de meterse en mi vida privada. "
Escribir "";
Escribir "";
Escribir "SI LE HA GUSTADO EL CHISTE ESCRIBA (V) DE LO CONTRARIO (F)";
Escribir "";
LEER CHISTE1;
Escribir "";
Escribir "";
SI CHISTE1= "V" ENTONCES
CHISTE<-0
Sino
CHISTE<-7
FINSI
FINSI
SI CHISTE=5 ENTONCES
Escribir "";
Escribir "";
Escribir "A ver Pepito, si yo digo fui rica, es pasado, pero si yo digo soy hermosa,¿Que es?,"
Escribir "!Exceso de imaginacion profesora!"
Escribir "";
Escribir "";
Escribir "SI LE HA GUSTADO EL CHISTE ESCRIBA (V) DE LO CONTRARIO (F)";
Escribir "";
LEER CHISTE1;
Escribir "";
Escribir "";
SI CHISTE1= "V" ENTONCES
CHISTE<-0
Sino
CHISTE<-7
FINSI
FINSI
SI CHISTE=6 ENTONCES
Escribir "";
Escribir "";
Escribir "En la selva del Africa un leoncito se encontró a un misionero y "
Escribir "empezó a corretearlo rugiendo con deseos de matarlo,"
Escribir "a esto cuando la leona madre alcanza a ver a su pequeño"
Escribir "cachorro y le grita:Niño no juegues con la comida !!! "
Escribir "";
Escribir "";
Escribir "SI LE HA GUSTADO EL CHISTE ESCRIBA (V) DE LO CONTRARIO (F)";
Escribir "";
LEER CHISTE1;
Escribir "";
Escribir "";
SI CHISTE1= "V" ENTONCES
CHISTE<-0
Sino
CHISTE<-7
FINSI
FINSI
SI CHISTE>8 Entonces
Escribir "";
Escribir "";
Escribir "ESTE CHISTE NO ESTA DISPONIBLE, POR FAVOR DIGITE UN CHISTE DEL MENU, GRACIAS!!!"
Escribir "";
Escribir "";
FINSI
SI CHISTE<>7 ENTONCES
ESCRIBIR CHISTE;
FINSI
FinMientras
FinProceso