Elaborar un menú con un WHILE el cual de la opción al usuario de selecciones el numero del mes que desee y este imprima por pantalla el nombre del mes.
Proceso los_12_Meses //Cruz Sosa Aldo ING.Biomedica "B"
Definir m Como caracter
Definir op Como entero
op<-0
Mientras op!=13 Hacer
Escribir " #1 Para Mes 1 "
Escribir " #2 Para Mes 2 "
Escribir " #3 Para Mes 3 "
Escribir " #4 Para Mes 4 "
Escribir " #5 Para Mes 5 "
Escribir " #6 Para Mes 6 "
Escribir " #7 Para Mes 7 "
Escribir " #8 Para Mes 8 "
Escribir " #9 Para Mes 9 "
Escribir " #10 Para Mes 10 "
Escribir " #11 Para Mes 11 "
Escribir " #12 Para Mes 12 "
Escribir " #13 Para Salir "
Escribir " Seleccionar La Pocision (Numerica) De Un Mes "
leer op
si op=1 Entonces
Escribir " La Pocision # ",op, " Es Enero ";
SiNo
si op=2 Entonces
Escribir " La Pocision # ",op, " Es Febrero ";
sino
si op=3 Entonces
Escribir " La Pocision # ",op, " Es Marzo ";
SiNo
si op=4 Entonces
Escribir " La Pocision # ",op, " Es Abril ";
SiNo
si op=5 Entonces
Escribir " La Pocision # ",op, " Es Mayo ";
sino
si op=6 Entonces
Escribir " La Pocision # ",op, " Es Junio ";
SiNo
si op=7 Entonces
Escribir " La Pocision # ",op, " Es Julio ";
SiNo
si op=8 Entonces
Escribir " La Pocision # ",op, " Es Agosto ";
SiNo
si op=9 Entonces
Escribir " La Pocision # ",op, " Es Septiembre ";
SiNo
si op=10 Entonces
Escribir " La Pocision # ",op, " Es Octubre ";
SiNo
si op=11 Entonces
Escribir " La Pocision # ",op, " Es Noviembre ";
sino
si op=12 Entonces
Escribir " La Pocision # ",op, " Es Diciembre ";
SiNo
si op<1 o op>12 Entonces
Escribir " Numero Incorrecto ";
Escribir " Terminamos "
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinMientras
FinProceso
Definir m Como caracter
Definir op Como entero
op<-0
Mientras op!=13 Hacer
Escribir " #1 Para Mes 1 "
Escribir " #2 Para Mes 2 "
Escribir " #3 Para Mes 3 "
Escribir " #4 Para Mes 4 "
Escribir " #5 Para Mes 5 "
Escribir " #6 Para Mes 6 "
Escribir " #7 Para Mes 7 "
Escribir " #8 Para Mes 8 "
Escribir " #9 Para Mes 9 "
Escribir " #10 Para Mes 10 "
Escribir " #11 Para Mes 11 "
Escribir " #12 Para Mes 12 "
Escribir " #13 Para Salir "
Escribir " Seleccionar La Pocision (Numerica) De Un Mes "
leer op
si op=1 Entonces
Escribir " La Pocision # ",op, " Es Enero ";
SiNo
si op=2 Entonces
Escribir " La Pocision # ",op, " Es Febrero ";
sino
si op=3 Entonces
Escribir " La Pocision # ",op, " Es Marzo ";
SiNo
si op=4 Entonces
Escribir " La Pocision # ",op, " Es Abril ";
SiNo
si op=5 Entonces
Escribir " La Pocision # ",op, " Es Mayo ";
sino
si op=6 Entonces
Escribir " La Pocision # ",op, " Es Junio ";
SiNo
si op=7 Entonces
Escribir " La Pocision # ",op, " Es Julio ";
SiNo
si op=8 Entonces
Escribir " La Pocision # ",op, " Es Agosto ";
SiNo
si op=9 Entonces
Escribir " La Pocision # ",op, " Es Septiembre ";
SiNo
si op=10 Entonces
Escribir " La Pocision # ",op, " Es Octubre ";
SiNo
si op=11 Entonces
Escribir " La Pocision # ",op, " Es Noviembre ";
sino
si op=12 Entonces
Escribir " La Pocision # ",op, " Es Diciembre ";
SiNo
si op<1 o op>12 Entonces
Escribir " Numero Incorrecto ";
Escribir " Terminamos "
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
FinMientras
FinProceso
No hay comentarios:
Publicar un comentario