Pascal版2048.doc

program g2048;const dx:array1.4 of integer=(1,0,-1,0); dy:array1.4 of integer=(0,1,0,-1);var a:array0.5,0.5 of integer; spacei,spacej:array1.16 of integer; i,j,z:integer; step0:longint; q:boolean;procedure print; var k1,k2:integer; begin for k1:=1 to 4 do begin for k2:=1 to 4 do write(ak1,k2:4); writeln; end; end;function remove:boolean; var z1,z2,z3:integer; begin remove:=false; for z1:=1 to 4 do for z2:=1 to 4 do for z3:=1 to 4 do if az1,z2=az1+dxz3,z2+dyz3 then begin remove:=true;exit;end; end;function over:boolean; var k1,k2:integer; begin over:=false; for k1:=1 to 4 do for k2:=1 to 4 do if (ak1,k2=0) or remove then begin over:=true;exit;end; end;function jumpw(i1,i2,i3:integer):boolean; var k1:integer; begin jumpw:=true; for k1:=i3+1 to i1-1 do if ak1,i20 then jumpw:=false; end;function jumps(i1,i2,i3:integer):boolean; var k1:integer; begin jumps:=true; for k1:=i1+1 to i3-1 do if ak1,i20 then jumps:=false; end;function jumpa(i1,i2,i3:integer):boolean; var k1:integer; begin jumpa:=true; for k1:=i3+1 to i2-1 do if ai1,k10 then jumpa:=false; end;function jumpd(i1,i2,i3:integer):boolean; var k1:integer; begin jumpd:=true; for k1:=i2+1 to i3-1 do if ai1,k10 then jumpd:=false; end;procedure born; var k1,k2,k3,ra:integer; begin for k1:=1 to 4 do for k2:=1 to 4 do if ak1,k2=0 then begin inc(step0); spaceistep0:=k1; spacejstep0:=k2; end; if step0=1 then aspacei1,spacej1:=2 else begin ra:=random(step0-1)+1; aspaceira,spacejra:=2; end; print; q:=over; end;procedure try; var i1,i2,i3:integer; ch:char; move:boolean; begin ch:=#; move:=false; while (cha) and (chs) and (chw) and (chd) do read(ch); case ch of w: begin for i1:=2 to 4 do for i2:=1 to 4 do for i3:=1 to i1-1 do begin if ai1,i20 then begin if (ai3,i2=0) and (jumpw(i1,i2,i3) then begin ai3,i2:=ai1,i2;ai1,i2:=0;move:=true;break;end; if (ai3,i2=ai1,i2) and (jumpw(i1,i2,i3) then begin ai3,i2:=2*ai1,i2;ai1,i2:=0;move:=true;if ai3,i2=2048 then begin writeln(Yeah!I win!233);readln;halt;end else break;end; end; end; end; s: begin for i1:=3 downto 1 do for i2:=1 to 4 do for i3:=4 downto i1+1 do begin if ai1,i20 then begin if (ai3,i2=0) and (jumps(i1,i2,i3) then begin ai3,i2:=ai1,i2;ai1,i2:=0;move:=true;break;end; if (ai3,i2=ai1,i2) and (jumps(i1,i2,i3) then begin ai3,i2:=2*ai1,i2;ai1,i2:=0;move:=true;if ai3,i2=2048 then begin writeln(Yeah!I win!233);readln;halt;end else break;end; end; end; end; a: begin for i1:=1 to 4 do for i2:=2 to 4 do for i3:=1 to i2-1 do begin if ai1,i20 then begin if (ai1,i3=0) and (jumpa(i1,i2,i3) then begin ai1,i3:=ai1,i2;ai1,i2:=0;move:=true;break;end; if (ai1,i3=ai1,i2) and (jumpa(i1,i2,i3) then begin ai1,i3:=2*ai1,i2;ai1,i2:=0;move:=true;if ai1,i3=2048 then begin writeln(Yeah!I win!233);readln;halt;end else break;end; end; end; end; d: begin for i1:=1 to 4 do for i2:=3 downto 1 do for i3:=4 downto i2+1 do begin if ai1,i20 then begin if (ai1,i3=0) and (jumpd(i1,i2,i3) then begin ai1,i3:=ai1,i2;ai1,i2:=0;move:=true;break;end; if (ai1,i3=ai1,i2) and (jumpd(i1,i2,i3) then begin ai1,i3:=2*ai1,i2;ai1,i2:=0;move:=true;if ai1,i3=2048 then begin writeln(Yeah!I win!233);readln;halt;end else break;end; end; end; end; / else begin writeln(Wronginput,idiot!Input again:);read(ch);end; end; if move then begin born;step0:=0;end else writeln(Cannot move); end;begin for i:=0 to 5 do for j:=0 to 5 do ai,j:=0; step0:=0; randomize; for z:=1 to 2 do begin i:=