%% prog 006 estructuras selectivas

clearvars;
close all;
clc;

%a fin de trabajar estructuras selectivas usaremos una pregunta simple
%si el número ingresado es par o impar entonces usaremos la funcion rem()
%que determina si el resto de la division es cero

%% estructura selectiva tipo 1
n1 = input('n1 = ');
NN1 = 1;
if rem(n1,2) == 0
   disp('el numero es par');
   disp(n1);
   NN1 = 4*n1;
end;

disp('NN1 = '); 
disp(NN1);

%% estructura selectiva tipo 2
n2 = input('n2 = ');
NN2 = 1;
if rem(n2,2) == 0
   disp('n2 es par');
else
   disp('n2 es impar');
end;

%alternativamente podemos decir que if es un solo comando
%if rem(n1,2) == 0  disp('el numero es par');  disp(n1);  NN1 = 4*n1; end;

%% estructura selectiva tipo 3

% resolveremos si un número es positivo, negativo o es cero
n3 = input('n3 = ');

if n3 > 0
   disp('n3 es positivo');
elseif n3 < 0
   disp('n3 es negativo');
else
   disp('n3 es cero');
end

disp('fin');