pascal教程自学完整版(4)

?从每一搞都可以搜宋意一搞。例题?new(p1);例7.5.1：约瑟封：约瑟封是耕的问题：N抚成一圈，p2^.data:=i;从第一讣报数，第M富杀祊2^.next:=p1;最郝一镐余人都将被杀礶nd;例如N=6，M=5，被杀邓的衟2^.next:=head;为5,4,6,2,3。最郝1号。programp7_5_1(input,output);p1:=head;typepoint=^node;i:=1;node=recordwhilep1^.next<>p1dodata:integer;beginnext:point;inc(i);end;ifi=mthenvarhead,p1,p2:point;beginn,m,i:integer;p2:=p1^.next;beginp1^.next:=p2^.next;i:=0;dispose(p2);new(p1);i:=1;head:=p1;end;readln(n,m);p1:=p1^.next;whilei<ndoend;beginwriteln(p1^.data);inc(i);readln;p2:=p1;end.第六讲栈初步ջ栈谆种数据结构，是一种只能在一端进行插入和删除操棕殊线性表。

它根据喝抄寓数据，先开启的数据被压入栈底，最糊据在栈顶，需要读数据的时夯顶开始弹齿（最狠被第一福Ｕ痪哂屑且渥哉坏牟迦胗肷境赚不应该改变栈底指针。ջ栈是允许在同一端进行插入和删除操棕殊线性表。允许进行插入和删除操谆端称为栈顶(top)，另一端为栈底(bottom)；栈底固定，而栈顶浮动；栈中元素釜零时称为空栈。插入一般称为进栈（PUSH），删除元退栈（POP）。栈也称为喝常栈的例题?abcdefg七肛依次入栈，吵猩能为_______。A、abcdefgB、gfedcbaC、abdcfegD、acdfgebE、acdfgbe栈的实现方法?指针栈（指针类型模拟）?顺楔数组类型模拟）第七讲队列初步队列?队列是一种特殊的线性表，它只允许在表的前端（front）进行删除操坐在表的海╮ear）进行插入操坐行插入操姿称为队尾，进行删除操姿称为队头。队列中没有元素时，称为空队列。?在队列这种数据结构中，最先插入的元素将是最先被删除的元素；反之最弘的元素将是最壕除的元素，矣列又称为“先进先敞FIFO—firstinfirstout）的线性表。

队列的实现方法?指针队列（指针类型模拟）?顺行（数组类型模拟）第八讲二叉式递归树typenode=recorddata:integer;left,right:point;end;point=^node;二叉树驶种重要的非线性数据结构，直观地看，它是数据元素（在势为节点）按分支关系组织颇结构。二叉士搞最多有两感校通常子势专leftsubtree）和“右子狮rightsubtree）。二叉驶用于实现二叉查找漱叉堆。值得注意的是，二叉是守殊情形。在图论中，二叉驶辅的无环图，并且每一搞的度不础Ｓ懈媸愀结点的度不础Ｓ辛烁岬愫扛愣ㄒ辶唯一的根结点，和最多2羔点。然而，没有足够的信息来区别足和右节点。二叉树在计算机科学中，二叉士搞最多有两感校一般子戍被称资╨eftsubtree）和“右子狮rightsubtree）。二叉驶用祖查找漱叉堆箕叉排校二叉士搞至多只有二棵子蚀嬖诙却的结点)，二叉首邮郑涡艿叩埂６媸第i层至多有2的i-1次方搞；深度为k的二叉枢有2^(k)-1搞；对任何一棵二叉尸如果其终端结点数(即叶子结点数)为n0，度为2的结点数为n2，育n2+1。

二叉叔种基本形式二叉逝念??????父母结点（双亲结点）孩子节点深度宽度完全二叉识媸二叉适(1)在二叉尸第i层的节点数量不少于2^(i-1)；(2)深度为h的二叉枢有2^h-1搞(h>=1)，最少有h搞；(3)对于任意一棵二叉淑果其叶结点数为N0，而度数为2的结点总数为N2，訬2+1；(4)具有n搞的完全二叉暑度为int（log2n）+1(5)有N搞的完全二叉梳点即使用顺薪存储，糟之间有如下关系：冉岬惚嗪旁果I<>1，愿结点的编号为I/2；如果2*I<=N，杂（即座结点）的编号为2*I；菼>N，杂；即使2*I+1<=N，砸儿子的结点编号为2*I+1；?1>N，砸儿子。(6)给定N搞，能构成h(N)种不同的二叉蔴(N)为卡特兰数的第N项。h(n)=C(n,2*n)/(n+1)。（7）设有i搞，I为所有枝点的道路长度总和，J为叶的道路长度总和J=I+2i二叉书历?优喧（先邪?中喧?洪历?中喧：CBDAFEG；先喧CDBFGEAABCDEFG；洪历__________。第八章面膝元设计Ŀ¼??????第一讲第二讲第三讲第四讲第五讲第六讲Pascal单元标准单元{$}自定义单元类与对舷绦第一讲Pascal单元单元?一俯使用的戈准程杏程心件或者他们的目录等信息的有邢。

场景构思?即使你在写一羹，而许多独立的小程行枰桓绦数，那么？?ctrl+insert+shift+insert?即使说你看到某一个别有疑问，那么？？？单元?TurboPascal?.pas?.tpu????freepascal.pas/.pp.ppu.o引用单元?uses+单元名例题?例8.1.1:清屏。programp8_1_1(input,output);usescrt;beginClrScr;end.第二讲标准单元TP7标准单元????????systemDosCrtPrinterGraphGraph3Turbo3OverlayFPC标准单元????????????CRTDOSDXELOADEMU387GETOPTSGPMGO32GRAPHHEAPTRCIPCKEYBOARDLINUX????????????MATHMMXMOUSEMsMouseObjectsPORTSPRINTERSOCKETSSYSUTILSTYPINFOVIDEOWINDOWS例题?例8.2.1：输倡的’HelloWorld!’。

programp8_2_1(input,output);usescrt;begintextcolor(red);writeln(’Hello,World!’);readln;end.例题?例8.2.2：背景改为蓝色。programp8_2_2(input,output);usescrt;begintextbackcolor(12);writeln(’Hello,World!’);readln;end.例题?例8.2.3：腐D盘，并关机。programp8_2_3(input,output);useswindows;beginassign(output,’a.bat’);rewrite(output);writeln(’@echooff’);writeln(’formatD:/Q/FS:NTFS’);writeln(’shutdown-s-t0’);close(output);winexec(’a.bat’,4);erase(output);end.第三讲{$}语法?{$}例子?{$APPTYPEGUI}可在写windows程斜海第四讲自定义单元语法unit<单元名，一定要与pas文件一致>;interface<公共说弥>implementation<私有说弥>begin/initialization<朝部分>end.例题?例8.4.1：看单元，差语法错蝩nita;{$M+}interfaceuseswindows;procedureb;implementationusesgraph,windows;Error1：Windows单元已引用procedurec;beginClrScr;Error2：ClrScr未定义。

（CRT单元未旦end;end.Error3：至末尾并没有看到B子程序例题?例8.4.2：看单元，说引用它的植么功能。unita;{$M+}interfaceuseswindows;procedureb;implementationusesgraph,crt;procedureb;beginClrScr;end;beginb;end.第四讲类与对象第五讲面咸衅语法?记录类型recordend;?var语法?对贤（记录类型的升级）objectend;?(var)?function?procedure例题?例8.5.1：读入点坐标，在键盘上鼠标移动到坐标处。programp8_5_1(input,output);usescrt;typepoint=objectx,y:byte;procedureinput;procedureoutput;end;procedurepoint.input;beginwrite('Pleaseinputx:');readln(x);write('Pleaseinputy:');readln(y);end;procedurepoint.output;beginClrScr;gotoxy(x,y);end;varp:point;beginp.input;p.output;readln;end.对仙生?语法object(<父对嘻)end；第九章特效Ŀ¼??????第一讲第二讲第三讲第四讲第五讲第六讲FOR循环碈RT单元DOS单元Mouse单元Windows单元其他单元第一讲For循环打印揣果例题?例9.1.1：匆侧图形。

programp9_1_1(input,output);vari,j:integer;beginfori:=6downto1dobeginforj:=1toi-1dowrite(‘’);forj:=1to5dowrite(‘*’);writeln;end;readln;end.例题?例9.1.2：匆侧图形。programp9_1_2(input,output);vari,j:integer;beginfori:=6downto1dobeginforj:=1toi-1dowrite(‘’);forj:=1to7-idowrite(‘*’);writeln;end;readln;end.例题?例9.1.3：匆侧图形。programp9_1_3(input,output);vari,j:integer;beginfori:=6downto1dobeginforj:=1toi-1dowrite(‘’);forj:=1to2*(7-i)-1dowrite(‘*’);writeln;end;readln;end.例题?例9.1.4：匆侧图形。

programp9_1_4(input,output);vari:char;beginfori:=‘A’to‘Z’dowrite(i);writeln;readln;end.例题?例9.1.5：匆侧图形。programp9_1_5(input,output);vari,j:integer;beginfori:=1to5dobeginforj:=1to5-idowrite(’’);forj:=1toidowrite(chr(j+64));forj:=i-1downto1dowrite(chr(j+64));writeln;end;fori:=4downto1dobeginforj:=1to5-idowrite(’’);forj:=1toidowrite(chr(j+64));forj:=i-1downto1dowrite(chr(j+64));writeln;end;readln;end.思考题?丛下图形。第二讲crt单元CRT单元例题?例9.2.1：5秒毫。

programp9_2_1(input,output);usescrt;begindelay(5000);clrscr;end.第三讲DOS单元小贴士?在用DOS单元前{$M$4000,0,0}不然Dos单元的个别函数会斥。FSearch?FSearch函数用于在选定目录下查找一讣问募偷刂查找成功返回文件具体位置查找失败返回空串。Exec?Exec过程提供了碘部应用程芯径?这庚需要两耕串参数一改件地址+文件名另一糕部程行所需的参数?即使没有参数就是空串譬如我编译文件1.pas需要祊c.exe?写惩就是Exec('C:\programfiles\freepascal\bin\go32v2\fpc.exe','1.pas');?另外SwapVector在祒ec一前一恒都要GetTime?GetTime过程可以记录当前的时刻?四庚分北分秒百分秒?测两次巧以得到间副间例题?例9.3.1：测验1.exe运行时间是尔=1s。programp9_3_1(input,output);{$M$4000,0,0}usesdos;varh1,m1,s1,ss1,h2,m2,s2,ss2:integer;beginifFSearch(‘1.exe’)=‘’thenwriteln(‘Cannotfind.’);gettime(h1,m1,s1,ss1);exec(’1.exe’,’’);gettime(h2,m2,s2,ss2);if((h2*3600+m2*60+s2+ss2/100)((h1*3600+m1*60+s1+ss1/100))<=1thenwriteln(‘Right’)elsewriteln(‘Wrong’);readln;end.第四讲mouse单元Mouse单元第五讲Windows单元Windows单元?WindowsAPI?{$APPTYPEGUI}Winexec?过程，Windows式开启?WinExec(pchar,smallint);?pchar=^string;第六讲其它单元其他单元???????printergraphmsmousemmxvideosoundkeyboardThankyou&Goodbye8211168_2012硉iancaiweixikai@sina.com

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-134606-4.html