UEGO 3 EN RAYA clc B=[1 0 1;0 1 1;0 1 0] j=-1; sp=0;ss=0; for f=1:3 sf=0;sc=0; sp=sp+B(f,f); ss=ss+B(f,4-f); for c=1:3 sf=sf+B(f,c); sc=sc+B(c,f); end if sf==0 | sc==0 | sp==0 | ss==0 j=0; else if sf==3 | sc==3 | sp==3 | ss==3 j=1; end end end disp(j) JUEGO BUSCAMINAS clc n=input('Ingresar orden de la matriz:'); A=zeros(n); B=ones(n)+1; m=input('Ingresar la cantidad de bombas:'); while m>(n*n)/2 m=input('Ingresar la cantidad de bombas:'); end for i=1:m f=fix(rand*n)+1; c=fix(rand*n)+1; while A(f,c)==1 f=fix(rand*n)+1; c=fix(rand*n)+1; end A(f,c)=1; end s=0; op=1; while op==1 disp(B); x=input('Ingresar fila:'); y=input('Ingresar columna:'); if B(x,y)==2 if A(x,y)==1 disp('MUERTE :-( !!!!!'); break; else for i=x-1:x+1 for j=y-1:y+1
s=s+A(i,j); B(i,j)=A(i,j); end end fprintf('\n el número de bombas desarmadas es %d',s); end else disp('La celda no es correcta'); end op=input('Desea seguir jugando: Si(1) N0 (0) :'); end % fin del while JUEGO CAP1 VS CAP2 function T=genTablero(n,m) T=zeros(n); for i=1:m f=fix(rand*n)+1; c=fix(rand*n)+1; while T(f,c)==1 f=fix(rand*n)+1; c=fix(rand*n)+1; end T(f,c)=1; end function T=disparar(M) fprintf('\n Ubicación: \n'); x=input('Ingresar fila:'); y=input('Ingresar columna:'); if M(x,y)==1 disp('Ok :-)'); M(x,y)=0; end T=M; function c=contarn(M) c=0; for i=1:length(M) for j=1:length(M) c=c+M(i,j); end end clc n=input('Ingresar orden del tablero:'); m=input('Ingresar la cantidad de 1s:'); A=genTablero(n,m); B=genTablero(n,m); for L=1:m fprintf('\n Lanzamiento %d para el cap A',L); B=disparar(B); fprintf('\n Lanzamiento %d para el cap B',L); A=disparar(A); fprintf('\n Resultados:');
ca=contarn(A); cb=contarn(B); fprintf('\n Cap A tiene %d embarcaciones ',ca); fprintf('\n Cap B tiene %d embarcaciones ',cb); end if ca>cb disp('GANA CAP A'); else if cb>ca disp('GANA CAP B'); else disp('EMPATE'); end end ´ FRASE PALINDROME function nf=compactar(f) nf=''; for i=1:length(f) if isspace(f(i))==0 nf=strcat(nf,f(i)); end end function fpalindrome(f) f=lower(f); f=compactar(f); n=length(f); b=1; for i=1:fix(n/2) if f(i)~= f(n-(i-1)) b=0; break; end end if b==1 disp('Frase palindrome'); else disp('Frase no es palindrome'); end
