TÉCNICA PARA DISEÑAR ALGORITMOS MODULARES

...

function resultado = Prom_Pares(Vec)

suma = 0;

cont = 0;

[m,n] = size(Vec); %trae el tamaño del vector invocado

for i = 1 : n

if mod(Vec(i),2)==0

suma = suma + Vec(i);

cont = cont+1;

end

end

if cont~=0

prom = suma / cont;

resultado = prom; %retorna el valor de la función

end

Función para calcular el porcentaje de los datos pares de un vector

function resultado = Porc_Pares(Vec)

cont = 0;

[m,n] = size(Vec);

for i = 1 : n

if mod(Vec(i),2)==0

cont = cont+1;

end

end

porc = (cont/n)*100;

resultado = porc; %retorna el valor de la función

Función para calcular el promedio de los datos impares de un vector

function resultado = Prom_Impares(Vec)

suma = 0;

cont = 0;

[m,n] = size(Vec);

for i = 1 : n

if mod(Vec(i),2)~=0

suma = suma + Vec(i);

cont = cont+1;

end

end

if cont~=0

prom = suma / cont;

resultado = prom; %retorna el valor de la función

end

Función para calcular el porcentaje de los datos impares de un vector

function resultado = Porc_Impares(Vec)

cont = 0;

[m,n] = size(Vec);

for i = 1 : n

if mod(Vec(i),2)~=0

cont = cont+1;

end

end

porc = (cont*100)/n;

resultado = porc; %retorna el valor de la función

NOTA: Esta última instrucción puede escribirse como sigue:

porc = (cont*100)/n;

return

pero efectivamente deberá cambiar la instrucción del encabezado de la function

resultado = Porc_Impares(Vec)

por

porc = Porc_Impares(Vec)

% Método de ordenamiento burbuja del vector Vec

function vec = ordenBurbuja(vec, n)

for i = 1:(n-1)

for j = 1:(n-i)

if (vector(j)>vec(j+1))

aux = vec(j);

vec(j) = vec(j+1);

vec(j+1) = aux;

end

end

end

end %fin function

MANEJO DE MATRICES CON PROGRAMACION MODULAR

Cree la tabla

Programa principal que invoca las funciones anteriores

clc;

m = input('digite la cantidad de filas de la matriz: ');

n = input('digite la cantidad de columnas de la matriz: ');

if m~=0 && n~=0

MAT = Llenar_Matriz (m,n);

Mostrar_Mat (MAT);

disp('El promedio de números pares es: ');

disp(Prom_ParesMat(MAT));

disp('El porcentaje de números pares es: ');

disp(Porc_ParesMat(MAT));

disp('El promedio de números impares es: ');

disp(Prom_ImparesMat(MAT));

disp('El porcentaje de números impares es: ');

disp(Porc_ImparesMat(MAT));

disp('El promedio de cada fila: ');

VecFila=Mostrar_PromFila(MAT);

fprintf('\n');

DatoBusca = input('digite el dato que quiere buscar: ');

busquedaSecuencialMatriz(MAT, DatoBusca)

else

fprintf('LAS DIMENSIONES DE LA MATRIZ NO SON VALIDAS');

end

fprintf('\n');

Función para crear una Matriz

function resultado=Llenar_Matriz(m,n)

for I=1:m