- 1、本文档共5页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
Pascal版2048
program g2048;
const dx:array[1..4] of integer=(1,0,-1,0);
dy:array[1..4] of integer=(0,1,0,-1);
var a:array[0..5,0..5] of integer;
spacei,spacej:array[1..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(a[k1,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 a[z1,z2]=a[z1+dx[z3],z2+dy[z3]] 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 (a[k1,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 a[k1,i2]0 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 a[k1,i2]0 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 a[i1,k1]0 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 a[i1,k1]0 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 a[k1,k2]=0 then
begin
inc(step0);
spacei[step0]:=k1;
spacej[step0]:=k2;
end;
if step0=1 then a[spacei[1],spacej[1]]:=2 else
begin
ra:=random(step0-1)+1;
a[spacei[ra],spacej[ra]]:=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
您可能关注的文档
- 楼宇普查测试规范(v1.0).doc
- quartus中fft模块使用(中文版).doc
- 用户调度软件使用手册V3.0.doc
- 2012.8.8修改资金筹措方式.doc
- v-ing作状语的用法.ppt
- ZTE-_中兴M820设备的调试及配置@.doc
- Linux 指令篇-文件传输.doc
- 2013-2014学年高中物理同步课件:第5章 万有引力定律及其应用 专题突破课件(鲁科版必修2).ppt
- 项目章程(EasyMap-SPI-CP-Std-ProjectRule)V1.0.doc
- VF程序设第十~十一章.ppt
- 小学科学:ESP8266智能插座电路原理与动手实践研究教学研究课题报告.docx
- 《金融开放浪潮下我国多层次监管体系构建与创新研究》教学研究课题报告.docx
- 区域教育质量监测中人工智能应用的数据质量分析与优化策略教学研究课题报告.docx
- 《金融科技监管中的数据治理与合规性要求》教学研究课题报告.docx
- 《3D打印技术在航空航天领域中的多材料制造与复合材料应用》教学研究课题报告.docx
- 《绿色金融发展中的政府职能与市场机制研究》教学研究课题报告.docx
- 《植物工厂多层立体栽培光环境调控技术对植物生长发育节律的调控机制探讨》教学研究课题报告.docx
- 销售团队年度业绩总结.docx
- 银行风险管理与金融危机防范.docx
- 银行网络攻击预警与快速响应机制.docx
最近下载
- 2025年内蒙古时事政治考试试卷带解析必考题.docx VIP
- 人教版数学三年级下册单元试卷【1-8合集,含答案】.pdf VIP
- 2025年内蒙古时事政治考试试卷带解析参考答案.docx VIP
- (答案)奥赛经典-奥林匹克数学中的几何问题---习题与讲解(第1-2章).pdf VIP
- 奥赛经典奥林匹克数学中的几何问题.pdf VIP
- 奥的斯电梯ACD4 原理图纸注释.pdf VIP
- 2025国家能源集团新疆哈密能源化工有限公司社会招聘(51人)笔试参考题库附答案解析.docx VIP
- 建设项目环境影响报告表.PDF VIP
- 呼吸科利用PDCA循环提高住院患者吸入剂使用正确率品管圈.pptx VIP
- 2024-2030年全球气动导弹弹射发射器(PMEL)行业现状、重点企业分析及项目可行性研究报告.docx
文档评论(0)