algoritmo utilizando mientras y segun
Respuestas a la pregunta
Respuesta:
ALGORITMO_Mientras;
VAR
ENTERO Contador;
INICIO
Contador <- 1;
MIENTRAS( Contador <= 100 ) HACER
ESCRIBIR( Contador );
Contador <- Contador + 1;
FIN MIENTRAS
FIN
1. Inicio
2. Mostrar “Introduzca el número del día y número del mes”
3. Pedir NDia, Nmes
4. Si Ndia>= 1 y Ndia <= 31 y Nmes >= 1 y Nmes <= 12 Entonces
Según Nmes Hacer
Caso, = 1
DDA = NDia [DDA es día del año]
Caso, = 2
DDA = NDia + 31
Caso, = 3
DDA = NDia + 59
Caso, = 4
DDA = NDia + 90
Caso, = 5
DDA = NDia + 120
Caso, = 6
DDA = NDia + 151
Caso, = 7
DDA = NDia + 181
Caso, = 8
DDA = NDia + 212
Caso, = 9
DDA = NDia + 243
Caso, = 10
DDA = NDia + 273
Caso, = 11
DDA = NDia + 304
Caso, = 12
DDA = NDia + 334
FinSegún
Mostrar “El”, NDia, “del”, Nmes, “es el día”, DDA, “del año”
SiNo
Mostrar “Datos proporcionados no válidos”
FinSi
5. Fin
Algoritmo Mientras_Segun
Mientras no salir Hacer
Escribir "---MENU---"
Escribir "Elige una opcion"
Escribir "1. Ingresar Un Numero"
Escribir "2. Salir"
leer opcion_menu
//Simplemente cada opcion llama a una funcion
Segun opcion_menu Hacer
1:
Escribir "Ingrese Un Numero?"
Leer num
2:
salir = Verdadero
De Otro Modo:
Escribir "Elige Una Opcion Válida"
Fin Segun
Fin Mientras
FinAlgoritmo
-------------------------------------------------------------------------------------
Algoritmo Mientras_Segun_Si
Escribir "Indique Un Numero"
Leer n
Mientras n!=0 Hacer
Escribir "Ingrese Numero"
Leer n
Si n>0 Entonces
Escribir "El Numero Es Mayor A 0"
FinSi
Fin Mientras
FinAlgoritmo
-------------------------------------------------------------------------------------
Algoritmo Mientras_Segun
Mientras no salir Hacer
Escribir "---MENU---"
Escribir "Elige una opcion"
Escribir "1. Ingresar Un Numero Del 1 al 10"
Escribir "2. Ingresar Un Numero Del 20 al 30"
Escribir "3. Ingresar Un Numero Del 40 al 50"
Escribir "4. Salir"
leer opcion_menu
//Simplemente cada opcion llama a una funcion
Segun opcion_menu Hacer
1:
Escribir "Ingrese Un Numero?"
Leer num
Si num>=1 && num<=10 Entonces
Escribir "El Numero Esta En El Rango 1-10"
SiNo
Escribir "El Numero Esta Fuera Del Rango"
FinSi
2:Escribir "Ingrese Un Numero?"
Leer num
Si num>=20 && num<=30 Entonces
Escribir "El Numero Esta En El Rango 20-30"
SiNo
Escribir "El Numero Esta Fuera Del Rango"
FinSi
3:Escribir "Ingrese Un Numero?"
Leer num
Si num>=40 && num<=50 Entonces
Escribir "El Numero Esta En El Rango 40-50"
SiNo
Escribir "El Numero Esta Fuera Del Rango"
FinSi
4:
salir = Verdadero
De Otro Modo:
Escribir "Elige Una Opcion Válida"
Fin Segun
Fin Mientras
FinAlgoritmo
