%% prog007 estructuras selectivas 02

clearvars;
close all;
clc;

%% multiples estructuras selectivas 01

%este programa ingresa un numero y determina el dia de la semana
%lunes es 1, martes es 2, ..., domingo es 7, caso contrario no sirve

n1 = input('numero de dia semana n1 = ');

if n1 == 1%-----------------> pregunta si n1 es igual a uno resultado verdadero (1) o falso (0)
  disp('lunes');
elseif n1 == 2%--------------> pregunta si n1 es igual a dos resultado verdadero (1) o falso (0)
  disp('martes');
elseif n1 == 3%--------------> pregunta si n1 es igual a tres resultado verdadero (1) o falso (0)
  disp('miercoles');
elseif n1 == 4%--------------> pregunta si n1 es igual a cuatro resultado verdadero (1) o falso (0)
  disp('jueves');
elseif n1 == 5%--------------> pregunta si n1 es igual a cinco resultado verdadero (1) o falso (0)
  disp('viernes');
elseif n1 == 6%--------------> pregunta si n1 es igual a seis resultado verdadero (1) o falso (0)
  disp('sabado');
elseif n1 == 7%--------------> pregunta si n1 es igual a siete resultado verdadero (1) o falso (0)
  disp('domingo');
else%------------------------> funciona esta opcion si n1 no es ni 1,2,3,4,5,6,o 7 
  disp('numero no sirve');
end;
  
disp('fin 1');  

%% multiples estructuras selectivas tipo 2

%esta estructura compuesta pregunta si el numero es positivo, negativo o cero
%dentro de cada pregunta considera si el numero es par o impar para realizar 
%otras operaciones

n2 = input('n2 = ');

%inicio de if exterior
if n2 > 0%----------------------------------> pregunta si el numero es positivo
   
   %inicio de if interior 1
   if rem(n2,2) == 0%----------------------> combinado con el if exterior pregunta si el numero es positivo y par
      m = 2*n2;
      disp('el numero n2 es par y positivo');
      disp(m);
   else%-----------------------------------> combinado con el if exterior pregunta si el numero es positivo y impar
      m = n2 + 2;
      disp('el numero n2 es impar y positivo');
      disp(m);
   end;
   %fin de if interior 1
   
elseif n2 < 0
   
   %inicio de if interior 2
   if rem(n2,2) == 0%----------------------> combinado con el if exterior pregunta si el numero es positivo y par
      m = 5*n2;
      disp('el numero n2 es par y negativo');
      disp(m);
   else
      m = n2 - 8;
      disp('el numero n2 es impar y negativo');
      disp(m);
   end;
   %fin del if interior 2
   
else
    m = n2*100;
    disp('el numero n2 es cero');
    disp(m);
end;
%fin del if exterior 

p = n2 + 100;
disp(p);