EXTRUCTURAS DE CONTROL ALTERNATIVA MULTIPLE (ii)

EXTRUCTURA DE CONTROL ALTERNATIVA MULTIPLE (ii)

n Ejemplo:

select case (mes)

case (1,3,5,7,8,10,12)

print *, ‘31’

case (4,6,9,11)

print *, ‘30’

case (2)

print *, ‘28’

case default

print *, ‘Mes incorrecto’

end select

segun mes

caso 1,3,5,7,8,10,12:

escribir ‘31’

caso 4,6,9,11:

escribir ‘30’

caso 2:

escribir ‘28’

otro caso:

escribir ‘Mes incorrecto’

fin según 8