rompecabezas

download rompecabezas

If you can't read please download the document

description

Codigo para juego de rompesabezas

Transcript of rompecabezas

a=[2,3,4;1,0,5;8,6,7];b=[1,2,3;4,5,6;7,8,0];x=0;disp(a); while a~=b; for i= 1:3; for j=1:3; if a(i,j)==0; disp('8 Mover Arriba'); disp('2 Mover Abajo'); disp('4 Mover Izquierda'); disp('6 Mover derecha'); x=input('Ingrese el valor '); if x==8; a(i,j)=a(i-1,j); a(i-1,j)=0; disp(a); end if x==2; a(i,j)=a(i+1,j); a(i+1,j)=0; disp(a); end if x==4; a(i,j)=a(i,j-1); a(i,j-1)=0; disp(a); end if x==6; a(i,j)=a(i,j+1); a(i,j+1)=0; disp(a); end end end end end