大学生程序设计ACM辅导教程.pdf

《大学生程序设计ACM辅导教程.pdf》由会员分享，可在线阅读，更多相关《大学生程序设计ACM辅导教程.pdf（226页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、程序设计ACM竞赛辅导教程第一章Delphi简介第 一 节 Delphi的运行环境1.1.1 Delphi 简介Delphi是著名的Borland公司开发的可视化软件开发工具。“真正的程序员用c,聪明的程序员用Delphi,这句话是对Delphi最经典、最实在的描述。Delphi被称为第四代编程语言，它具有简单、高效、功能强大的特点。和 V C 相比，Delphi更简单、更易于掌握，而在功能上却丝毫不逊色；和 V B 相比，Delphi则功能更强大、更实用。可以说Delphi同时兼备了 V C 强大的功能和V B简单易学的特点。因此，它一直是程序员至爱的编程工具。Delphi具有以下的特性：基

2、于窗体和面向对象的方法，高速的编译器，强大的数据库 支 持，与 Windows编程紧密结合，强大而成熟的组件技术。但最重要的还是ObjectPascal语言，它才是一切的根本。Object Pascal语言是在Pascal语言的基础上发展起来的，简单易学。Delphi提供了各种开发工具，包括集成环境、图像编辑(Image E d ito r),以及各种开发数据库的应用程序，如Desktop DataBase Expert等。除此之外，还允许用户挂接其它的应用程序开发工具，如 Borland公司的资源编辑器(Resourse Workshop)。在 Delphi众多的优势当中，它在数据库方面的特

3、长显得尤为突出：适应于多种数据库结构，从客户机/服务机模式到多层数据结构模式；包括高效率的数据库管理系统和新一代更先进的数据库引擎；具备最新的数据分析手段和提供大量的企业组件。Delphi发展至今，从 Delphi】、Delphi 2 到现在的Delphi6,不断添加和改进各种特性，功能越来越强大。本书将以Delphi6为基础，介绍Delphi的开发环境、基本概念，让读者能 在 Delphi环境下编写竞赛程序。1.1.2 Delphi 的 IDE 环境启动Delphi后，屏幕上会出现如图1.1所示的界面，这是使用Delphi开发Windows应用程序和Internet应用程序常见的界面。图1与

4、上面两种应用不用，编写竞赛程序常常是使用控制台应用程序(ConsoleApplication)，创建一个新的控制台应用程序可以使用如下的步骤：(I)使用菜单File-New-O ther,如 图 1.2所示良:C l os e2：C l os e A l l0 U s e U ni t.A l t+F l l昌 P r i nt.j f l E x i t图1.2(2)在 New Items 对话框中选择新建 aConsole Application(图 1.3)|u b)ect Ire ”e eDelphi 6-Project2Efe Edit Search a*D 6-Q A、5 3或口日

5、fBase|WebSetvicee|Internet因理 Pojec2|program P rp j tZ;-IDI x|_ Uses旦1凶新建的控制台应用隹序界面如a 里班米。学皿usesSysUtils;b e g in TO DO -offser-cCoasole M-32n:Insert code here e n d.Properties|Events菜单和工具栏Modded|ln$ert C ode/代码编辑窗口/1.4下面将开始我们的第一个程序：Hell。程序，并且在Delphi环境中运行这个程序。程序在代码编辑窗口中编辑，例如可以在代码编辑窗口中输入Hell。程序：progra

6、m Hello;1$APPTYPE CONSOLE)usesSysUtils;begin TODO-oUser-cConsole Main:Insert codehere WriteLn(*Hello World.);ReadLn;end.其 中，只有下划线部分是手工输入的，其 他 部 分 是 D elphi产生的代码。语句KWriteLn(Hello World.)w 是输出 aHello World.B 的字样；语 句 ReadLn”是等待输入一个回车符号，以便观察程序输出结果。然后选择菜单”Run-Run”运行程序。这时，屏幕中会出现H ello W o rld.的字样，如 图 1.5

7、所示。图1.5L1.3Delphi程序的编译、运行和调试下表列出了编译、运行和调试Delphi程序的常用命令:方 式 编 译(Compile)的 运 行(Run)步 跟 踪(Trace Into)步 执 行(Step Over)执行到光标所在位置菜单命令Project-CotnpliteRun-RunRun-Trace IntoRun-Step Over(Run to Cursor)捷i-1-单单Run-Run to Cursor F4设 置(Breakpoint)观察窗口(Watch)Run-Add Breakpoint 鼠标单击代码行左边的蓝点Run-Add Watch Ctrl+F5更多

8、的命令请参考Delphi的联机帮助。第 二 节 Delphi常量标识符是Delphi应用程序中一些量的名称，这些量包括变量(var)、常量(const)、类型(type)过程(procedure)、方法(Method)及其他，Object Pascal在应用标识符时，必须首先说明它们。Object Pascal是强类型语言，它的编译器可以检查确保赋给变量或属性的值是正确的类型，以便于您改正错误。由于Object Pascal是编译语言，所 以 Delphi的执行速度要比使用解释语言快得多。在使用标识符前说明它们，可以减少程序错误并增加代码的效率。有一点需要特别说明的是Object Pascal

9、中的标识符是不区分大小写的，这 和 C/C+语言有很大的区别。例 如:Delphi和 delphi被看成是同一个标识符。常量说明是为一个标识符赋予一个值，在程序执行过程中是不可改变的。常量说明使用保留字“const”作为开头。格式为：const常量名=常量值；下面的例子声明了三个常量：constPi=3.14159;Age=34;ProductName=Delphi;上文的三个常量分别是实型、整型和字符串型常量。常 量 用 =表示两边的值是相等的。和 C/C+语言不同，Object Pascal的字符串常量是使用单引号()作为定界符的，例如上面的Delphi,而不是使用双引号()。第 三 节

10、Delphi变量变量是程序代码中代表一个内存地址的标识符，而该地址的内存内容在程序代码执行时可以被改变。在使用变量前必须对它进行说明，即对它进行命名，并说明它的类型。在所有变量说明以前加上保留字var。变量说明左边是变量的名称，右边则是该变量的类型，中间用(：)隔开。即格式为：v a r变量名：变量类型；例如：varValue,Sum:Integer;Name:String;在 Delphi中，可以在变量声明同时赋初始值，格式为:const变量名:变量类型=变量初始值；注意，此时是使用const保留字开头，而不是var。例如：constValue:Integer:=10;Name:String

11、=Gates;第四节Delphi类型Delphi有两大数据类型，一类是系统已经预定义的，另一类是用户自定义的。ObjectPascal有一些系统预定义的数据类型，这些类型包括有：整型、实型、布尔型、字符型、指针型；而用户自定义的数据类型有枚举型、子界型、数组型、集合型、记录型、对象型等，您可以利用这些用户预定义的数据类型来构造新的数据类型以满足程序的特定需要。1.4.1 Delphi预定义类型Object Pascal有多个预定义的数据类型，您可以说明任何这些类型的变量：1.整型：与 CPU和操作系统相关的整型包括Integer和 Cardinal,在当前32位编译器下，取值范围如下：类型 范

12、围 格式Integer-2147483648.2147483647 signed 32-bitCardinal 0.4294967295 unsigned 32-bit与CPU和操作系统无关的整型如下:类型 范围 格式Shortint-128.127signed 8-bitSmallint-32768.32767signed 16-bitLongint-2147483648.2147483647signed 32-bitInt64-2八 63263-1signed 64-bitByte0.255unsigned 8-bitWord0.65535unsigned 16-bitLongword0.

13、4294967295unsigned 32-bit2.实型：下表列出了实型的范围和存储格式:类型范围有效位占用字节(bytes)Real482.9 x 10A-39.1.7x 1OA3811-126Single1.5 x 10A-45.3.4x 10A387-84Double5.0 x 10八-324.1.7 x 10A30815-168Extended3.6 x 10八-4951.1.1 x 10A493219-2010Comp-2八 63+1.2A63-119-208Currency-222337203685477.5808.922337203685477.580719-208通用类型Re

14、a在当前的解释下，等价于Double。类型范围有效位占用字节(bytes)Real5.0 x 10A-324.1.7x 10八 30815-1683.布尔型:Boolean,只包含true或False两个值，占用1 字节内存。4 .字符型：Char,一个ASCH字符；字符型的常量形式上和字符串型常量一样，都是使用单引号()作为定界符，例如：A%5.字符串类型：String一串最长可达2G 个 ASCII字符。6.指针型：Pointer,可以指向任何特定类型。相当与C/C+中 的“void*。类型的兼容性：整型类别和实型类别都各有五种类型，同一类别中，所有的类型与其他同类别的都相容，您可以将一种

15、类型的值赋给相同类别中不同类型的变量或属性，而只需要这个值的范围在被赋值的变量或属性的可能值范围内。例如，对于一个Shortint型的变量，可以接受在-128到127范围内的任意整数，例如，对 于 Shortint类型，您不能将128赋给它，因 为 128已经超出了 Shortint的范围了;此时,如将范围检查功能打开(选用OptionsIPrqject,并 在 CompilerOptions Page中选择Range Checking),将会检查出一个范围错误；如果Range Checking没有被打开，那么程序代码将可以执行，但被赋值的值将不是您期望的值。在一些情况下，您可以进行不同类型的

16、变量或属性的赋值。一般来说，可以将一个较小范围的值赋给一个较大范围的值。例如，您可以将整型值10赋给一个能接受实型值的Double类型的变量，而使其值成为10。，但如果将一个Double类型的值赋给整型变量，则会出现类型错误。如果您不清楚类型的兼容性，可以参阅Delphi的在线帮助中KType Compatibilityand Assignment Compatibilityw 主题。1.4.2枚举类型一个枚举型的声明列出了所有这种类型可以包括的值，枚举型的声明格式如下：type typeName=(vail,.vain);其中，typeName,vail,.,vain都是合法的标识符。例如：

17、typeTSound=(tsClick,tsClack,tsClock);TMyColor=(mcRed,mcBlue,mcGreen,mcYellow,mcOrange);可以定义上述枚举类型的变量和对该变量赋值如下:var MyColor:TMyColor;MyColor:=mcBlue;在枚举型中，括号中的每一个值都有一个由说明它的位置决定的整型值。例 如 mcRed有整型值0,mcBlue有整型值1 等。您可以把MyColor说明为一个整型变量，并将每种颜色赋一个整型值以达到相同的效果，但用枚举型会使得程序可读性好，编写容易。当您在枚举型中列出值时，您同时说明了这个值是一个标识符。例如

18、您的程序中如果已经含有TMyColor类型且说明了 MyColor变量，则程序中便不能使用mcRed变量，因为它已经被说明为标识符了。1.4.3 子界类型子界型是下列这些类型中某范围内的值：整型、布尔型、字符型或枚举型。任何形如Low.High的构造都表示一个子界类型，其取值范围是从Low到 High。例如：type TColors=(Red,Blue,Green,Yellow,Orange,Purple,White,Black);/(枚举类型)type TMyColors=Green.White;typeSomeNumbers=-128.127;Caps=A*.*Z;子界型限定了变量的可能取

19、值范围。当范围检查打开时，（在库单元的Implemeniation后面有$R*.DFM 字样表示范围检查打开，否则您可以在OptionsIProjectIComplier Options中选择Range Cheking来打开范围检查），如果变量取到子界以外的值，会出现一个范围检查错误。1.4.4 数组类型数组是某种数据类型的有序组合，其中每一个元素的值由其相对位置来指定，您可以在数组的某个位置上放置数据，并在需要时使用这些数据。数组的声明形式为：array indexTypel,indexTypen of baseType其中，indexType是基本类型，它的范围应该在2 G 以内，base

20、Type是数组的基类型。一般来说，indexType是子界类型。请看下面的例子：/声明数组var MyArray:array1.100 of Char;/Example 1type TMatrix=array1.10 of array1.50 of Real;/Example 2type TMatrix=array1.10,1.50 of Real;/Example 3var MyMatrix:TMatrix;/Example 4/Usage of Arrays使用数组元素的范例MyArray1:=z Az;MyMatrix150:=0.0;MyMatrix10,50:=1.0;WriteLn

21、(MyArray10);Example 1 中，声明了 一维数组 M yArray,包含 100 个 Char;Example2和 Example3 都可以定义了二维数组的类型，这两种写法都是等价的。Example4声明上述二维数组类型的变量。您也可以在声明数组时，给数组赋初始值，例如：/给数组赋初始值const MyArray:array 1.3,1.3 of Integer=(1,2,3),(4,5,6),(7,8,9);const MyChars:array 1.2 of Char=(Az,z Bz);1.4.5 字符串类型字符串类型本质上是一个一维的字符数组。当您说明一个字符串型的变量

22、时，您可以指明这个字符串的大小，下面是说明字符串类型的例子：type MyStnng:stnngl 151;var MyName:MyString;vartmpString:string;则 变 量MyName被 说 明 成 为 最 多 可 以 包 含15个字符。如果您没有说明字符串的大小，Delphi会认为字符串最多包含最大值2G个 字 符（如 变 量tmpString）。给字符串赋值可以直接使用单引号括起的字串赋值：MyName:=Bill Gates;因 为MyName是 一 个 可 以 包 含15个 字 符 的MyString型变量。当您给字符串型变量赋的值多于定义数值时，例 如 将M

23、yName赋 为FrankSmith.Franklin,则Delphi只会接受前15个 字 符FrankSmith.Fran。您可以使用索引值来访问字符串的字符，例 如，用MyNamel可 以 得 到M yName的 第 一 个 字 符B,也 可 以 直 接 地 修 改 字 符 串 中 的 字 符，例 如：MyNamel=F您 可 以 充 分 利 用Delphi丰富的运算符、过程和函数来处理字符串型的变量和属性。详细 的 请 参 阅Delphi函数与过程”中关于常用的字符串函数部分的内容。1.4.6 集合类型集 合 类 型 是 一 群 相 同 类 型 元 素 的组合，这些类型必须是有限类型如整

24、型、布 尔 型、字符型、枚 举 型 和子界型，并 且 该 类 型 的 元 素 个 数 不 得 多 于256个。在检查一个值是否属于一个特定集合时，集合类型非常有用。声 明 集 合 使 用 setof”来声明，请 看 例 子：type穴.义集含类型TSomelnts=1.250;TIntSet=set of TSomelnts;type TIntSet2=set of 1.250;/和上面的方式等价var Setl,Set2:TIntSet;/声明集合变量Setl:=1,3,5,7,9,100.200;/给集合赋值Set2:=2,4f 6,8,10;集合使用方括号为定界符，里面的元素使用逗号作为

25、分隔。集合的操作也比较丰富，常用的操作见下表：操作符操作说明参数类型结果类型例子4-合集集合，集合集合Setl+Set2-差集集合，集合集合S-T*交集集合，集合集合S*T=子集集合，集合布尔Q=S2S2=My SetMySet SIA in Setl1.4.7 记录类型记录是您的程序可以成组访问的一组数据的集合。下面的例程说明了一个记录类型的用法：typeTEmployee=recordName:string20;YearHired:1990.2000;Salsry:Double;Position:string20;end;记录包含可以保存数据的域，每一个域有一个数据类型。上文的记录TEmp

26、loyee类型就含有四个域。您可以用以下的方式说明记录型的变量：var NewEmployee,PromotedEmployee:TEmployee;用如下的方法可以访问记录的单域:NewEmployee.Salary:=1000;编写如下的语句可以给整个记录赋值:with PromotedEmployee dobeginName:=1,;YearHired:=1993;Salary:=2000.00Position:=*editor;end;您的程序可以将记录当成单一实体来操作:PromptEmployee:=NewEmployee;以上介绍了用户常用的自定义类型。在 Delphi的编程中，

27、对象是非常重要的用户自定义数据类型。象记录一样，对象是结构化的数据类型，它包含数据的域(Field),也包含作为方法的过程和函数。关于对象的详细内容请参考“面向对象Object Pascal”一节。1.4.8指针类型您可以通过下面的语法声明任何类型的指针：type pointerTypeName=ABaseType当您定义了一个记录或者是其他数据类型时，通常都会定义一个指向这种类型的指针，这样使用这种数据类型的实例时，可以避免大量重复的内存数据拷贝。下面是定义指针的例子：typeTEmployee=recordName:string20;YearHired:1990.2000;Salsry:D

28、ouble;Position:string20;end;type PEmployee=ATEmployee;创建和释放指针，分别使用New和 Dispose过程，下面是使用指针的例子:var aEmployee:PEmployee;beginNew(aEmployee);aEmployee人.Name:=Gates;Dispose(aEmployee);end.创建指针/使用指针释放指针注意：在使用指针时，“A”的位置与C/C+语言不同。第 五 节 Delphi的基本语句1.5.1赋值语句赋值语句用作把一个表达式的值赋给一个变量，例如，计算圆面积:S:=Pi*R*R;在 Delphi中，赋值号

29、为“:=。赋值时，要求表达式值的类型和变量的类型兼容，关于兼容性的问题，请 参 考 Delphi类型 一节。1.5.2复合语句在 Delphi中，一个语句是以分号“；”作为语句结束符的。复合语句的作用是把若干个语句组合起来，在逻辑上看成是一个语句。复合语句的格式是使用“begin”和“end”把一组语句组合起来，例如：if J 0 thenbeginResult:=1/J;Count:=Count+1;endelse if Count=Last thenDone:=TrueelseExit;1.5.3分支语句D elphi的跳转语句有if 和 case两个，下面就分别介绍这两个语句。i f 语

30、句i f 语句通过计算其后的表达式，并根据计算结果来决定程序执行的流程。当表达式为True时，执 行 then后的语句。否则执行else后的代码，if 语句也可以不含else部分，表达式为False时自动跳到下一行程序。if 语句可以嵌套，当使用复合语句表达时，复合语句前后需加上begin,end。else保留 字 前 不 能 加“；，而且，编译器会将else语句视为属于最靠近的i f 语句。必要时，须使用begin,end保留字来强迫else部分属于某一级的if语句。if语句的例子可以参考前述的 复合语句 中的例子。case语句case语句适用于多分支的条件判断，用case语句进行逻辑跳转比

31、编写复杂的i f语句容易阅读。case的语法格式如下：case selectorExpression ofcaseList1:statement1;caseListn:statementn;else elsestatement;end;其中，selectorExpression是序数类型的表达式（如整型，字符型，枚举型和子界类型），例如：case I of1.5:Caption:=Low1;i:=0;while i10 do6.9:Caption:=High*;0,10.99:Caption:=*Out of range,;elseCaption:=*;end;1.5.4循环语句Delphi的

32、循环语句有三种：repeat、while和for语句。repeat语句repeat语句会重复执行一行或一段语句直到某一状态为真。语句以repeat开始，以until结束，其后跟随被判断的布尔表达式。参阅以下的例程：i:=0;repeati:=i+1;Writer)(i);until i=10;程序运行的结果是：1到i o的10个数字。布尔表达式i=10（注意，与C/C+语言不同的是，“=是关系运算符，而不能进行赋值操作）直到repeaL.until程序段的结尾才会被计算,这意味着repeat语句至少会被执行一次。while语句while语句和repeat语句的不同之处是，它的布尔表达式在循环的

33、开头进行判断。while保留字后面必须跟一个布尔表达式。如果该表达式的结果为真，循环被执行，否则会退出循环，执行while语句后面的程序。下面的例程达到和上面的repeat例程达到同样的效果：begini:=i+1;writein(i);end;for语句for语句的程序代码会执行一定的次数。它需要一个循环变量来控制循环次数。您需要说明一个变量，它的类型可以是整型、布尔型、字符型、枚举型或子界型。下面的程序段达到和上面的repeat和 while例程相同的效果。var I:IntegerFor I:=1 to 10 doWriteLn(I);上述的程序段中，for语句也可以把循环变量（I）是递

34、增的，在实际应用中，有时需要循环变量是递减的，这时，只需要把to 改成downt。就可以了。break 和 continue这两个语句的作用和在C/C+语言中的作用一样，起到控制循环的流程的作用，break语句的作用是跳出循环，而continue语句的作用是转入下一轮的循环。以上介绍了三种循环语句。如果您知道循环要执行多少次的话，可以使用for语句。for循环执行速度快，效率比较高。如果您不知道循环要执行多少次，但至少会执行一次的话，选 用 repeat.until语句比较合适；当您认为程序可能一次都不执行的话，最好选用while.do语句。1.5.5输入输出语句Delphi提供了简单的输入输

35、出语句（过程）实现从文本文件或者是标准设备输入和输出文本流。相对于C/C+的输入输出而言，Delphi的输入输出会显得更加简单。输入语句procedure Readln（var F:Text;VI,V2,.,Vn）;procedure Read（var F:Text;VI,V2,.,Vn ）;如果变量F 省略的话，表示从标准设备（键盘）中读入输入，保存在变量VI,V 2,.V n中。V k可以是整型、实型、字符型或者字符串型变量，如果是字符串型变量，系统会读到回车符为止（不是空格）。ReadLn和 Read的区别在于：ReadLn把读入的值保留在变量V I,V2,V n后，会自动换行，而 Re

36、ad不会。请看下面的例子：程序 exl 5 5.dprprogram exl_5_5;$APPTYPE CONSOLEuses SysUtils;Var F:Text;Var a,b:Integer;beginAssign(F,exl_5_5.datz)ReSet(F);/指定读入文件/以读的方式打开文件Read(F,a);Read(F,b);WriteLn(a,，b)Close(F)/关闭文件end.文件 exl 5 5.dat1 23运行程序后，结 果 为“12”，而如果把程序中的Read改为ReadLn,程序运行结果会变为 “13”。输出语句：procedure Writed var F

37、:Text;Pl,P2,.,Pn);procedure Writeln(var F:Text;Pl,P2,.,Pn);把表达式Pl,P 2,，P n输出到文本文件F 中，如果省略变量F,则表示输出到标准设 备(屏 幕)中。表达式Pl,P2,P n的类型可以是整型、实型、字符型和字符串型。Write和 Writein的区别在于：Writein在输出完表达式的之后，紧接着输出一个回车符。下面是一个使用文件输出的例子：程序 exl 5 5 2.dprprogram exl_5_5_2;$APPTYPE CONSOLEuses SysUtils;var F:Text;beginAssign(F,exl

38、_5_5_2.dat);ReWrite(F);WriteLn(F,1,z,2);WriteLn(F,1+2);Close(F);end./指定输出文件/以写(覆盖)的方式打开文件关闭文件程序的输出文件和前面的exl_5_5.dat相同。需要特别说明的是，如果使用编译指令$”,当 遇 到 I/O 错误时，系统会报错；如果我们需要自行检查错误，可以使用编译指令$,然后调用函数lOResult来检测是否有I/O错误。例如,程序 exl_5_5.dpr 中 的 ReSet(F);改成 0 thentest2(A);/经前置说明，调用未执行的过程Test2writein(A);end;procedure

39、 Test2(var A:工 nteger);/经前置说明的 Test2 的执行部分beginA:=A div 2;if A0 rhentestl(A);/在 Test2中调用已执行的过程Testiend;/主程序beginAlpha:=15;给 Alpha 赋初值Testi(Alpha);/第一次调用Test 1,递归开始end.Alpha赋初值后，调用T e s ti,实现先减1 再除2 的循环递归调用，直到Alpha小于0为止。第八节 面向对象Object PascalDelphi是基于面向对象编程的先进开发环境。面向对象的程序设计(OOP)是结构化语言的自然延伸。OOP的先进编程方法，

40、会产生一个清晰而又容易扩展及维护的程序。一旦您为整的程序建立了一个对象，您和其他的程序员可以在其他的程序中使用这个对象，完全不必重新编制繁复的代码。对象的重复使用可以大大地节省开发时间，切实地提高工作效率。但是就竞赛而言，竞赛是富于创造性的活动，代码的重用率不高，因此对象在实际中使用的频率不高。下面主要讨论使用Delphi中的对象，至于Delphi如何实现对象机制，请参考Delphi的联机帮助或者相关参考书。使用对象前，需要对对象实例化，一般是通过调用Create方法来完成，释放对象的实例，一般通过调用Free方法来完成。使用对象中的属性和方法，通 过“对象名属性 和“对象名.方法”，例如：（

41、TStringList是字符串列表类）程序 exl 8.dprprogram exl_8;$APPTYPE CONSOLEusesS y sU tils,C lasse s;v arT:T S trin g L ist;beginT:=T S trin g L is t.C reate;T.A dd(D elphi 6.0);W riteL n(T.C ount);T.F ree;ReadLn;end./声明对象/对象实例化/调用对象的方法/引用对象的属性释放对象第 九 节 Delphi中使用嵌入汇编在 Delphi中可以直接嵌入汇编，使用汇编的好处是可以提高程序运行的效率，但是，另一方面，使

42、用汇编会加大编程的难度和调试的难度。因此在竞赛中往往只要一些关键而又简单的小程序段才使用汇编来编写。Delphi目前是使用32位的汇编，请先看下面的例子：program exl_9;$APPTYPE CONSOLE)usesS y sU tils;fu n c tio n C o u n ter(v ar A;C ount:I n te g e r):In te g e r;label Ib eg in,H oop;beginasmMov ESI,&A;Mov ECX,SCount;Mov EAX,0;Mov BL,0;Ib eg in:CMP E S I,BL;JNE H oop;Inc E

43、AX;H o o p:Inc E SI;loop Ib eg in;Mov&R esult,EAX;end;end;v ar X:a rra y (1.10 o f B yte;beginF illc h a r(X,s iz e o f(X),0);X 5:=1;W riteL n(C ounter(X,1 0);ReadLn;end.1函数Counter的功能是统计长度为Count的Byte类型数组A 中 0 的个数。使用汇编应该注意：(1)嵌入汇编是以“asm”开头，并以“end”结尾的部分，进入和退出汇编是不需要保存和回复各个寄存器的值，因为这项工作Delphi会自动完成。(2)汇编中

44、使用的标号，被认为是Delphi的标号，需要使用label来声明。(3)在汇编中，对 Delphi原有变量的引用，需 要 使 用 符 号，当然在没有歧异的情况下，可以省略。有歧异是指，例如：CH,&CH”是不同的两个概念，前者是寄存器的引用，而后者是对Delphi的 变 量 CH”的引用。而象上面例子中的A,Count等，前 面 的&”都可以省略。关于嵌入汇编的进一步说明，请参考Delphi联机帮助中Inline Assembler Code”部分。第二章基本算法介绍第一节概述从 60年代末开始，程序设计已经从技巧发展成一门科学。与程序设计联系最密切的课题有数据结构、算法分析与设计和程序设计方

45、法。著名的计算机科学家沃斯(N.W in h)提出了“算法+数据结构=程序”的著名观点。数据是客观事物表示的一种抽象结果，而数据结构是研究如何把客观世界待处理的信息逐层抽象成计算机可以接受的某种形式。所谓的算法是指解题方法的精确描述，它是有穷处理动作的序列。数据结构与算法有着密切的联系，数据结构是建立在算法的基础之上的。在这章里，首先在第二节介绍常用的数据结构及其在Delphi中的实现，为介绍算法做好准备。然后在第三至第九节，依次介绍一些基本的算法，如枚举算法、贪心算法、分治算法、数值计算和计算几何里的算法，以及模拟题的解法。第二节 常用数据结构在Delphi中的实现2.2.1 线性表1.概述

46、线性表是由有限具有相同的数据类型个元素组成的有序集合，线性表可以表示成：(a(),a,a2,aj,aj+对线性表常见的操作有：(1)求线性表的长度。(2)求线性表中第k 个位置的元素。(3)插入元素(4)删除元素(5)查找元素线性表实现的方法，一般来说有两种，一种是采用数组的方式实现，另一种1是采用链表的方式实现。数组实现方式的优点在于：实现简单，易于编程和调试；对（1）（2）的操作速度快（时间复杂度为0（1）。而使用链表的方式的优点在于：对（3）（4）的操作速度快（时间复杂度为0（1）；可以容纳无限个元素（当然还会受实际内存的限制）。2.线性表的数组方式实现线性表可以采用如下方式定义：typ

47、eTLinearList=recordlen:Integer;element:array 0.max of Pointer;end;其中，max是最多容纳元素的个数。实现上述的五种操作的程序段如下：unit LinearList;/求线性表的长度function LLength(var alist:TLinearList):Integer;beginResult:=alist.len;end;/求线性表中第n个位置的元素。function LGet(var alist:TLinearList;n:Integer):Pointer;beginif(n=alist.len)then Result:

48、=nilelse Result:=alist.elementn;end;/位置n前插入元素procedure LInsert(var alist:TLinearList;n:Integer;Value:Pointer);beginif n=alist.len thenalist.elementalist.len:=ValueelsebeginMove(alist.elementn,alist.elementn+1,SizeOf(Pointer)*(alist.len-n);alist.elementn:=Valueend;Inc(alist.len);end;/删除位置为n的元素procedu

49、re LDelete(var alist:TLinearList;n:Integer);beginif(n=0)and(n 0 thenbeginResult:=astack.stack astack.top;Dec(astack.top);endelse Result:=nil;end;3 .栈在Delphi中的实现D e l p h i把栈封装成类TS t a c k。和线性表类似，从竞赛的角度看，您可以认为T S t a c k可以容纳无限多个元素。TStack的主要属性和方法如下：function Count:Integer;栈 中元素 的个数function Peek:P ointe

50、r;不改变栈的状态，返回栈顶元素function Pop:Pointer;出栈function Push(AItem:Pointer):Pointer;压栈TStack在 Contnrs单元中，如果您要使用TStack类，必须先使用“uses Contnrs，引用该单兀。2.2.3队列1.概述队列又称为先进先出(last in first out,L IFO)表，队列可以表示为：(ai,a2,a3-，ai-i，ai，ai+iv,an)其中，首元素a l 称为队首，最后一个元素an称为队尾，队列的插入在队尾中进行，而删除操作在队首中进行。对队列的操作主要有：(1)入队列，push(x),把元素x