摘要：
Pascal内存病毒Chaobs从互联网上获得 pascal病毒虽然说只用Ctrl+Pause Break就可以关闭，但是像有些程序一旦启动，不用等你找到那两个键，就自己运行结束关闭了。比如下面一个程序：vara:text;beginassign(a,'C:\WINDOWS\system32\sys... 阅读全文
摘要：
{ 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... 阅读全文
摘要：
一个很经典的井字棋游戏 Pascal源码Chaobs奉上注意：1.有的FP版本不支持汉语，将会出现乱码。2.别想赢电脑了，平手不错了。井字过三关：program TicTacToe;uses crt;vara:Array [1..3] of Array [1..3] of char;b:Array ... 阅读全文
摘要：
一个双人的游戏 Pascal源码附上只要俩人不脑残，一下午玩不完。。。又是控制台游戏中的一朵奇葩。Free Pascal 射击游戏Program shooting_game;uses crt;const cz:array[1..4,1..2] of -1..1=((0,1),(1,0),(0,-1)... 阅读全文
摘要：
大富翁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... 阅读全文
摘要：
不要消灭星星 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: ... 阅读全文
摘要：
用二分法求在（a,b)上单调的函数近似值第八行的表达式可更改，第三行的kexi决定的精度，小数值计算可将第五行的extended更为real或doublePROGRAM EQUANTION (input,output);CONST kexi=0.0000001;VAR a,b,c:extended;... 阅读全文
摘要：
基本算法 这些都是非常基本的的算法，希望所有学习的人都能理解！ 1.数论算法 求两数的最大公约数 function gcd(a,b:integer):integer; begin if b=0 then gcd:=a else gcd:=gcd (b,a mod b); end ; 求两数的最小公倍... 阅读全文