Ensayo

% 2da Eval II term 2011.Tema 1. Recursiva Euclides mcd(a,b)
function z=mcdeuclides(a,b)
if b==0
z=a;
end
if b>0
c=mod(a,b);
z=mcdeuclides(b,c);-------------------------------------------------
end
% 2da Eval II Term 2011. Tema 2. funcion ubicaficha
function z=ubicaficha(m,n)
for f=1:1:n
for c=1:1:n
z(f,c)=0;
end
end
ficha=2;
while~(ficha>(m+1))
f=fix(rand*n)+1;
c=fix(rand*n)+1;
if z(f,c)==0
z(f,c)=ficha;
ficha=ficha+1;
end
-------------------------------------------------
end
% funcion muevecaballofunction z=muevecaballo(f,c)
n=8;
for i=1:1:n
for j=1:1:n
z(i,j)=0;
end
end
if f>2
if c<7
z(f-2,c+1)=1;
end
if c>1
z(f-2,c-1)=1;
end
endif f<7
if c<7
z(f+2,c+1)=1;
end
if c>1
z(f+2,c-1)=1;
end
end
if c<7
if f>1
z(f-1,c+2)=1;
end
if f<7
z(f+1,c+2)=1;
endend
if c>2
if f>1
z(f-1,c-2)=1;
end
if f<7
z(f+1,c-2)=1;
end
-------------------------------------------------
end
% 2da Eval II Term 2011. % Tema 3.Programa verifica ataque caballo
f=input('Posicion en fila:');
c=input('Posición en columna:');
contrincante=ubicaficha(6,8);
jugador=muevecaballo(f,c);
atacado=0;
for i=1:1:8
for j=1:1:8if contrincante(i,j)>0 && jugador(i,j)==1;
atacado=atacado+1;
end
end
end
-------------------------------------------------
disp(atacado);
% 2da Eval IITerm 2011. Tema 4.Postulante universitario
postula=struct('cedula',123,'nombre','Juan','nacim', 1990,'prov',1,'carrera',3);
n=0; op=1;
while ~(op==5)
disp('1. Registra postulante');disp('2. Consulta Día de prueba');
disp('3. Postulantes por Provincia');
disp('4. Postulantes por carrera');
disp('5. Salir');
op=input('Opción:');
switch (op)
case 1...