《Pascal语言基础.ppt》由会员分享，可在线阅读，更多相关《Pascal语言基础.ppt（87页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、第2章 Pascal语言基础Pascal语言体现了结构化程序设计的概念。它简便易学，具有清晰明了的模块结构，丰富的数据类型和语句。Pascal语言编译、运行效率高，便于移植，因此广泛地应用于应用软件的开发。2.1 数据类型2.2 常量与变量2.3 运算符和表达式2.4 基本程序设计2.5 过程与函数2.6 常用内部函数2.1 数据类型Object Pascal的数据类型包括一些标准的数据类型，例如：整型、实型、字符型、字符串型和布尔型等等。除此之外，系统还允许用户自己定义一些较为复杂的数据类型，例如：子界类型、枚举类型、指针类型、记录类型以及文件类型等等。2.1.1 标准数据类型2.1.2 子
2、界类型2.1.3 枚举类型2.1.4 集合类型2.1.5 指针类型2.1.6 数组类型2.1.7 记录类型2.1.8 文件类型2.1.1 标准数据类型Object Pascal的数据类型包括一些基本的简单数据类型，例如：整型、实型、字符型、字符串型和布尔型等等。下表列出了标准的数据类型。数据类型表,如图所示:2.1.1 标准数据类型类别类型大小（byte）范围整型（Integer）Integer2/4-3276832767/-21474836482147483647Cardinal2/40 65535/02147483647ShortInt1-128127SmallInt2-327683276
3、7LongInt4-21474836482147483647Byte10255Word2065535实型（Real）Real62.9E-391.7E38，-2.9E-39-1.7E38Single41.5E-453.4E38，-1.5E-45-3.4E38Double85.0E-3241.7E308，-5.0E-324-1.7E308Extended103.4E-49321.1E4932，-3.4E-4932-1.1E4932Comp8-9.2E189.2E18Currency8-922337203685477.5808922337203685477.5807布尔型（Boolean）Boole
4、an1True/FalseByteBool1True/FalseWordBool2True/FalseLongBool4True/False字符型（Char）Char1ASCII码String0255ASCII码2.1.2 子界类型子界类型是Pascal允许用户定义的一个结构数据类型。如果用户预先知道一个变量的范围，就可以通过定义子界类型和子界类型变量来实现由系统自动检查变量是否超出了允许的范围。子界类型的定义：Type 类型名称类型名称=常量常量1.常量常量2；例如以下代码：type TMonth=1.12;TScore=A.F;2.1.2 子界类型var Month:TMonth;Scor
5、e:TScore;如上定义了子界类型变量Month的范围从112，Score的范围从AF。2.1.3 枚举类型枚举类型的定义：Type 类型名称类型名称=（标识符标识符1），），标识符标识符2，标识符标识符n）；）；用户经常要用到这样的数据，它是通过列举出该数据所有的可能值来定义的，如下例：type TWeekDay=(Sun,Mon,Tue,Wed,Thu,Fri,Sat);var WeekDay:TweekDay;需要注意的是，每个枚举值只能出现在一个枚举类型的定义当中，而且在每个枚举类型的定义当中只能出现一次。2.1.4 集合类型集合类型是Pascal允许用户定义的一个结构数据类型，它使
6、用户可以运用通常集合运算，例如：交集、并集和差集。集合类型是一些同类型元素的集合，这些基类型元素可以是整型、实型、布尔型、字符型、枚举型或子界类型。它通常的作用是用来检验某个元素是否被包含在一个集合当中。下例用来说明集合类型数据的定义方法和运用：type TWeekDay=Set of 1.7;var WeekDay:TWeekDay;2.1.4 集合类型begin WeekDay:=1,3,5,6;end;注意Pascal编辑程序限制了集合数目，所以整型数据不能作为集合类型的基类型。而只能是整型子界。基类型必须是有序类型，所以实型、数组类型不能作为集合类型的基类型。2.1.5 指针类型Pas
7、cal允许建立动态数据结构，它采用指针类型数据，指针类型变量的引入大大增强了程序的灵活性。一个指针类型变量用于保存一个内存地址，由于该内存地址指向的是一个动态分配的变量，所以，在定义指针类型数据时，必须说明它所指向变量的类型。例如：Type Pbirthday=TBirthday;TBirthday=Record Name:String30;Year:Integer;2.1.5 指针类型 Month:1.12;Date:1.31;end;var Pbirthday1:Pbirthday;Pint:Integer;begin Pbirthday1.Name:=Smith;Pint:=18;end
8、;2.1.6 数组类型数组类型数据是一种用户定义的结构数据类型，它是一些具有相同数据类型的元素的集合。根据数组的维数可以将数组分为一维数组、二维数组以及多维数组，每一维度的下标指明了元素的数目。其下标类型包括了除长整型以外的所有有序类型以及长整型的子界类型。例如：type TOneArray=Array3.39 of Integer;TdoubleArray=Array125,1.50 of Real;Var OneArray:TOneArray;doubleArray:TdoubleArray;2.1.7 记录类型记录类型包括了一组元素，但和数组型数据不同的是，记录类型数据可以包括相同的数据
9、类型，也可以包括不同的数据类型;这些数据可以是数值型的，也可以是非数值型的。例如：用户可以使用一个记录类型数据记录一个学生的名字、出生日期、籍贯以及学习成绩等。例如，一个学生的记录类型如下：type TStudent=Record Name:String30;Age:Integer;StudNum:Integer;Score:real;end;2.1.7 记录类型var Student1:TStudent;begin Student1.Name:=Smith;Student1.Age:=20;Student1.StudNum:=950007;Student1.Score:=87.5;end;2
10、.1.8 文件类型文件类型是用来对文件进行操作的，它包括同一类元素的线性有序组合。Delphi支持的文件类型有文本文件、记录文件和无类型文件。定义文件类型实际上是定义了一个文件类型的指针。例如：type TStudent=Record Name:String30;Age:Integer;StudNum:Integer;Score:real;end;2.1.8 文件类型Fstudent=File of Tstudent;Fstr=File of String;var Student1:FStudent;Str:Fstr;begin Student1.Name:=Smith;Student1.Ag
11、e:=20;Student1.StudNum:=950007;Student1.Score:=87.5;Str=I love Delphi 7.0.end;2.2 常量与变量常量和变量是学习各种编程语言进行程序设计的基础概念，分别代表了在程序运行过程中两种不同状态的量。常量是指在程序运行过程中其值始终不变的量；与之相反，变量则是程序运行过程中其值可以改变的量。2.2.1 常量2.2.2 变量2.2.1 常量在Pascal中用const关键字来声明常量，就像在C语言中const关键字一样，C语言跟Object Pascal语言声明常量的主要差别是，在Object Pascal语言中不需要在对常量
12、赋值时声明常量的类型，跟Visual Basic一样，编译器能根据常量的值自动判断常量的类型并分配内存；对于整型常量，编译器在运行时跟踪它的值，并不对它分配内存。例如：const ADecimalNumber=3.14;i=10;ErrorString=danger,Danger,Danger!;2.2.1 常量编译器根据如下规则来对常量分配内存：整型数被认为是最小的Integer类型（10被认为是ShortInt，32000被认为是SmallInt等）;字符串值被认为是char类型或string类型（通过$H定义）;浮点值被认为是extended数据类型，除非小数点位数小于4位（这种情况被当
13、作comp类型）;Integer和Char的集合类型被存储为它们自己。2.2.2 变量Object Pascal要求在一个过程、函数或程序前在变量声明段中声明它们。Object Pascal类似Visual Basic，但不像C和C+，是大小写不敏感的。采用大小写只是为了可读性好。当在Object Pascal中声明一个变量时，变量名在类型的前面，中间用冒号隔开，变量初始化通常要跟变量声明分开。Delphi能在var块中对全局变量赋初值，这里有一些例子演示：var i:Integer=10;2.2.2 变量 S:String=Hello World;D:Double=3.141579;能赋初值
14、的变量仅是全局变量，不是那些在过程或函数中局部变量，而且Delphi编译器自动对全局变量赋初值。当程序开始时，所有的整型数赋为0，浮点数赋为0.0，指针为null，字符串为空等等，因此，在源代码中不必对全局变量赋零初值。2.3 运算符和表达式运算符是在代码中对各种数据类型进行运算的符号。例如，有能进行加、减、乘、除的运算符，有能访问一个数组的某个单元地址的运算符。表达式由运算对象和运算符两部分组成。2.3.1 运算符2.3.2 表达式2.3.1 运算符Object Pa s c a l语言中的运算符（Operators）有：、not、*、/、div、mod、and、shl、shr、as、+、o
15、r、xor、=、=、in和is等。按照操作数数目的多少来分，运算符分为下面两类：单目运算符（Unary Operator）和双目运算符（Binary Operator）。上面的、not和为单目运算符，其余的为双目运算符。其中+和-也可以作为单目运算符来使用。单目运算符一般放在操作对象的前面，只有可以放在操作对象的后面。双目运算符都放在两个操作数之间。2.3.1 运算符有些运算符是根据给定的操作数的数据类型做相应处理的。例如，运算符not对于整型的操作数说，做的是按位取反;对于逻辑类型的操作数来说，它完成的则是逻辑取反。除了运算符、is和in外，其余操作符都可以对Variant类型的数据进行操作
16、。1.算术运算符 2.逻辑运算符3.位运算符 4.字符串运算符5.指针运算符 6.类运算符7.运算符 8.集合运算符9.关系运算符2.3.1 运算符1.算术运算符算术运算符对浮点数和整数进行加、减、乘、除和取模运算。运算符作用操作数类型 结果类型举例+两个数相加Integer，realInteger，realX+Y-两个数相减Integer，realInteger，realResult-1*两个数相乘Integer，realInteger，realP*InterestRate/两个浮点数相除Integer，realInteger，realX/2Div两个整型数相除IntegerIntegerT
17、otal div UnitSizeMod取模IntegerIntegerZ mod 82.3.1 运算符2.逻辑运算符Pascal语言用and和or作为逻辑与和逻辑或运算符，Pascal的逻辑非的运算符是not，它是用来对一个布尔表达式取反。逻辑运算符对逻辑类型的操作数进行运算，数据结果也为逻辑类型运算符作用举例Not逻辑取反运算not(C in MySet)And逻辑和运算Done and(Total0)Or逻辑或运算A or BXor逻辑异或运算A xor B2.3.1 运算符3.位运算符位运算符对整型的数据进行按位操作，所得结果也为整型数据，如表所示。运算符作用举例Not按位取反not
18、XAnd按位和X and YOr按位或X or YXor按位异或X xor YShl按位左移X shl 2Shr按位右移Y shr 22.3.1 运算符4.字符串运算符 加号（+）还可以作为字符串运算符，它可以将两个字符串联接在一起。如果两个字符串都是短字符串，那么在结果字符串长度超过255个字符的情况下，只有前面255个字符有效。2.3.1 运算符5.指针运算符 表中的运算符可以对指针类型的数据进行操作。运算符作用操作数类型结果类型举例+将指针指向的地址增加一个偏移量指针integer指针P+I-将指针指向的地址减去一个偏移量指针integer指针integerP-Q取指针指向地址中的内容指
19、针指针指向的数据类型P=判断两个指针是否指向同一个地址指针BooleanP=Q判断两个指针是否指向的是不同的地址指针BooleanPQ2.3.1 运算符6.类运算符 类运算符as和is对类或类的实例进行操作。此外，关系运算符=和也可以对类进行操作。7.运算符 运算符返回一个变量、过程或函数的地址。2.3.1 运算符8.集合运算符 集合运算符主要对两个集合进行操作，判断两个集合之间的关系，如表所示。运算符作用操作数类型结果类型举例+取两个集合的元素setsetSet1+Set2-取两个集合不同的元素setsetS-T*取两个集合共同的元素setsetS*T=判断左边的集合是否是右边集合的子集se
20、tBooleanQ=判断左边的集合是否是右边集合的母集setBooleanS1=S2=判断两个集合是否相等setBooleanS2=MySet判断两个集合是否不等setBooleanMySetS1In判断左边的集合是否与右边的集合有从属关系有序setBooleanA in Set12.3.1 运算符9.关系运算符 关系运算符可以对两个普通数据类型、类、对象、接口类型或字符串类型的数据进行比较，结果数据类型为布尔类型，如表2-7所示。运算符作用举例=判断是否相等I=Max判断是否不相等XY判断是否小于X判断是否大于Len0=判断是否小于等于Cnt=判断是否大于等于I=12.3.2 表达式一个表达
21、式由运算对象和运算符两部分组成。运算符可以分为算术运算符、逻辑运算符、串运算符、字符指针运算符、集合运算符、关系运算符以及运算符。运算符的优先顺序如表所示。运算符优先顺序类别1域、指针引用 not2取非*/div mod shl shr and as3乘除法与类型转换 -or xor4加减法=in is5比较操作运算符优先顺序类别1域、指针引用 not2取非*/div mod shl shr and as3乘除法与类型转换 -or xor4加减法=in is5比较操作 Pascal用and和or作为逻辑与和逻辑或运算符，而C语言使用&和|作为逻辑与和逻辑或的运算符，与和或最常用的是作为if语句
22、或循环语句的一部分。Pascal的逻辑非的运算符是not，它是用来对一个布尔表达式取反，相当与C语言中的！运算符，它同样也经常作为if语句的一部分，例如：if not(condition)then(do something);2.4 基本程序设计基本程序设计主要包括：程序语句、基本控件、顺序结构、选择结构、循环结构。2.4.1 程序语句2.4.2 基本控件2.4.3 顺序结构2.4.4 选择结构2.4.5 循环结构2.4.1 程序语句1.赋值语句实现功能：为变量赋值。语法形式：:=;实际举例：x:=y*z;b:=(x=1)or(y=4)and(z0);t:=sqrt(m)+4*sin(x);2
23、.GOTO语句实现功能：改变程序流程至标号语句处。语法形式：goto标号标号;实际举例：goto 100;2.4.1 程序语句3.IF语句实现功能：作条件判断控制流程。(1)单分支语句语法形式：if 布尔型表达式布尔型表达式 then 语句语句;实际举例：if x=100 then y:=x;y:=100;begin语句组语句组end;2.4.1 程序语句(2)双分支语句语法形式：if 布尔型表达式布尔型表达式 thenbegin语句组语句组endelse2.4.1 程序语句(3)多层嵌套语句语法形式：语法形式：if thenbegin endelse if thenbegin end;els
24、ebegin end;2.4.1 程序语句4.CASE语句多层嵌套的条件语句可读性差，实际编程中常采用case语句。实现功能：实现多条件选择。语法形式：Case of数值数值1：begin end;数值数值2：2.4.1 程序语句begin end;5.REPEAT语句实现功能：循环。语法形式：repeat ;until;2.4.1 程序语句6.WHILE语句实现功能：循环。语法形式：while dobegin end;end;7.FOR语句实现功能：循环。2.4.1 程序语句语法形式：for=to dobegin end;8.WITH语句实现功能：引用一个域或方法。语法形式：with dob
25、egin 2.4.2 基本控件组件是可视化编程的基础，开发人员用它们来设计用户界面以及提供给应用程序的一些非可视化性能。对于应用程序开发者来说，组件就是他们从组件面板上取得的并放到窗口上的某种事物。在这里，用户可以通过修改组件属性、建立事件处理过程来决定组件的外观或作用。从组件编写者的角度看，组件就是Object Pascal语言中的对象。这些对象可以封装系统提供的行为元素（如标准的Windows 95/98控件）。其他对象能够完全引入新的可视化或非可视化组件，这种情况下，一个组件的代码构成了该组件的全部行为。Delphi中有四种基本的组件类型供用户使用或创建：标准控件、自定义控件、图形控件和
26、非可视组件。2.4.2 基本控件在这里应注意组件（component）和控件（control）两个术语的交换使用，二者并不完全相同。控件是可视的用户界面元素。在Delphi中，控件总是组件，因为它们都是从TComponent类派生而来的。组件是一种对象，它可以出现在组件面板上，也可以被放到窗口设计器上。组件是TComponent类型，它不一定是控件，也就是说，它不一定是可视的用户界面元素。【例2-1】设计步骤：建立应用程序的用户界面：选择“新建”工程，进入窗体设计器，增加四个标签Label1Label4，四个编辑框Edit1Edit4和一个按钮Button1，如图2-1所示。设置对象属性：如表
27、所示。输入长方体的长和宽，然后计算并输出长方体的周长和面积。分析：设长方体的长和宽分别为a和b，长方体的周长和面积分别为c和s，结合题义可求出计算公式：c=2(a+b)，s=ab。对象属性属性值说明Label1Caption输入长方体的长：标签的内容Label2Caption输入长方体的宽：标签的内容Label3Caption长方体的周长：标签的内容Label4Caption长方体的面积：标签的内容Edit1Text编辑框的内容Edit2Text编辑框的内容Edit3Text编辑框的内容ReadOnlyTrue文本内容只读Edit4Text编辑框的内容ReadOnlyTrue文本内容只读But
28、ton1Caption计算按钮的标题DefaultTrue窗体的默认按钮【例2-1】编写事件代码。Procedure Tform1.Button1Click(Sender:TObject);var a,b,c,s:Real;begin a:=strtofloat(edit1.text);b:=strtofloat(edit2.text);c:=2*(a+b);s:=a*b;edit3.text:=floattostr(c);edit4.text:=floattostr(s);end;2.4.3 顺序结构顺序结构是程序中最简单、最常见的基本结构。在该结构中，各操作模块（对应于程序中的“程序段”）
29、按照出现的先后顺序依次执行，它是任何程序的主体基本结构，即使在选择结构或者更为复杂的循环结构中，也常以顺序结构作为其子结构。在顺序结构中，通常使用基本控件完成输入及输出操作，使用赋值语句等简单的操作语句组成顺序结构即可实现顺序结构程序的编写。2.4.4 选择结构选择结构是计算机科学用来描述自然界和社会生活中分支现象的重要手段。其特点是：根据所给定的条件成立（真）或否（假），而决定从实际可能的不同分支中执行某一分支的相应操作。在Delphi中，实现选择结构的语句是If语句和Case语句，这两种语句又称为条件语句，条件语句的功能就是根据表达式的值有选择地执行一组语句。2.4.4 选择结构1.If语
30、句在执行一段代码以前，If语句能让用户判断某个条件是否满足。注意如果在一条if语句中有多个条件，用户需要用括号把这几个条件分别用括号括起来。在Pascal中的begin和end，就像是C和C+中的“”和“”，例如，下面的代码是当一个条件满足时要执行多条语句：if x=6 then begin DoSomething;DoSomethingElse;DoAnotherThing;end;2.4.4 选择结构用if.else能组合多个条件：if x=100 then SomeFunctionelse if x=200 then SomeOtherFunctionelse begin Somethi
31、ngElse;Entirelyend;2.4.4 选择结构2.case语句在Pascal中的case语句就像是C和C+中的switch语句。case语句用来在多个可能的情况中选择一个条件，而不再需要用一大堆if.else if.else if结构，下面的代码是Pascal的case语句：2.4.4 选择结构case SomeIntegerVariable of 101:DoSomething;202:begin DoSomething;DoSomethingElse;end;303:DoAnotherthing;else DoTheDefault;end;注意case语句的选择因子必须是有序类
32、型，而不能用非有序的类型如字符串作为选择因子。2.4.5 循环结构循环是一种能重复执行某一动作的语言结构，Pascal中的循环结构和其他语言中的循环结构相类似，下面列出了在Pascal中要用到的各种循环结构。1.for循环for循环适合用在事先知道循环次数的情况下，下面的代码在一个循环中把控制变量加到另一个变量中，共重复10次：var i,x:Integer;begin x:=0;for i:=1 to 10 do inc(x,i);end;2.4.5 循环结构2.while循环while循环结构用在先判断某些条件是否为真，然后重复执行某一段代码的情况下。while的条件是在循环体执行前进行判
33、断的。用while循环的典型例子是当文件没有到达文件结尾时，对文件进行某一重复操作。下面的例子演示了每次从文件中读一行并写到屏幕上：Program FileIt;$APPTYPE CONSOLEvarf:=TextFile;S:=String;2.4.5 循环结构beginAssignFile(f,foo.txt);Reset(f);while not EOF(f)do beginreadln(f,S);writeln(S);end;CloseFile(f);end.Pascal中的while循环基本上跟C中的while循环和Visual Basic中Do While循环一样。2.4.5 循环
34、结构3.repeat.untilrepeaat.until循环与while循环相似，但考虑问题的角度不同，它在某个条件为真前一直执行给定的代码。因为条件测试在循环的结尾，所以循环体至少要执行一遍。Pascal的repeat.until语句大致上同于C语言中的do.while语句。2.4.5 循环结构例如，下面的代码不断地把一个计数器加1，直到它大于100为止：var x:Integer;begin x:=1;repeat inc(x);until x100;end;2.4.5 循环结构4.Break()过程在while、for或repeat循环中调用Break()，使得程序的执行流程立即跳到循
35、环的结尾，在循环中当某种条件满足时需要立即跳出循环，这时调用Break()。Pascal中的Break()类似于C语言中的break和Visual Basic中的Exit语句。下面的代码演示了在5次循环后跳出循环。var i:Integer;begin for i:=1to 100000 do begin MessageBeep(0);if i=5 then break;end;end;2.4.5 循环结构5.Continue()过程如果想跳过循环中部分代码重新开始下一次循环，就调用Continue()过程。注意下面的例子在执行第一次循环时continue()后的代码不执行：var i:Int
36、eger;begin for i:=1 to 3 do begin writeln(i,.Before Continue);if i=1 then continue;writeln(i,.After continue);end;end;2.5 过程与函数过程与函数是实现一定功能的语句块，可以在程序的其他地方被调用，也可以进行递归调用。过程与函数的区别在于：过程没有返回值，而函数有返回值。2.5.1 过程2.5.2 函数2.5.3 参数2.5.4 子程序的嵌套与递归2.5.5 变量的作用域2.5.6 Delphi的程序结构2.5.1 过程过程的定义包括过程原型、过程体的定义。过程定义的形式如下：
37、procedure procedureName(parameterList);directives;local Declarations;beginstatementsend;2.5.1 过程其中procedureName是过程名，为一个有效的标识符。parameterList为参数列表，需要指明参数的个数及其数据类型。directives是一些关于函数的指令字，可以一次设置多个，使用分号隔开。localDeclarations中定义了该函数中需要使用的一些临时变量，通常也叫做本地变量。在begin与end之间是在函数调用时实现特定功能的一系列语句。上面的parameterList、direc
38、tives、localDeclarations和statements等为可选部分。2.5.1 过程procedure NumString(N:Integer;var S:string);var V:Integer;begin V:=Abs(N);S:=;repeat S:=Chr(V mod 10+Ord(0)+S;V:=V div 10;until V=0;if N 0 do begin if Odd(I)then Result:=Result*X;I:=I div 2;X:=Sqr(X);end;end;2.5.3 参数一般将函数定义时参数列表中的参数称为形参，将函数调用时参数列表中的参数
39、称为实参。在函数原型中，多个参数之间用分号隔开，同一类型的参数可以放在一起，以逗号隔开。在函数调用的时候，在函数原型中，多个参数之间用逗号隔开。一般来说，形参列表和实参列表完全匹配是指参数的个数一样，而且顺序排列的数据类型也完全一致。对于普通的函数，如果编译器发现实参的数据类型与形参的数据类型不匹配，会将实参的数据类型进行一次或多次的“提升”，比如：将Integer类型转换为Double类型。2.5.3 参数 可以为过程和函数的参数指定默认数值。具体方法是在参数定义后面紧接着一个等号“=”，然后是一个常量。指定默认数值的参数要放在参数列表的后部，将没有指定默认数值的参数放在参数列表的前面部分。
40、在函数调用的时候，可以为设置了默认值的参数指定一个新值，在函数体中，各语句使用的是指定的新值;如果没有指定新值，则使用默认值。同样，如果存在多个设置了默认值的参数，只有前面的参数指定了新值，后面的参数才可以指定新值。【例2-2】program Project1;$APPTYPE CONSOLEuses Sysutils;/为了使用函数Format/以一定精度显示一个浮点数function ShowNum(Num:Double;Precision:Integer=4):Boolean;varMesStr:string;/浮点数显示输出的内容beginif Precision=-1 then /小
41、数点后的位数要大于或等于零beginResult:=False;Exit;/退出显示函数endelsebegin定义一个函数ShowNum，可以将一个浮点数按指定的精度输出在屏幕上。【例2-2】/设置显示的格式MesStr:=Format(%*.*f,10,Precision,Num);Result:=True;end;Writeln(MesStr);/显示数据end;beginShowNum(123.456789);/Precision默认为4ShowNum(123,5);/参数对数据类型进行升级/下面一句代码不正确,故屏蔽掉/ShowNum(123.456789,9.13);/参数对数据类
42、型不能降级ShowNum(22 div 7,5);/调用函数/可以根据函数的返回值确定下一步的操作if ShowNum(123.456789,-3)=False thenWriteln(数据格式设置错误,输出失败。);Writeln(按下回车键退出。);Readln;end.【例2-2】运行结果如下：123.4568123.000003.14286数据格式设置错误，输出失败。按Enter键退出。说明：为了使用函数Format，需要在uses语句中将Sysutils单元包含进去。【例2-2】由于小数点后的位数不可以设置为负数，所以当出现负数的时候，ShowNum函数返回False，并调用Exit
43、函数立刻退出ShowNum函数。在语句ShowNum(123,5);中，首先将整型常数123转换为浮点型常数，然后进行参数传递。在语句ShowNum(22 div 7,5);中，22 div 7的结果为3，然后再转换为浮点型常数进行参数传递。2.5.4 子程序的嵌套与递归在一个子程序（过程或函数）中包含另外一个子程序（过程或函数）的调用，称为子程序的嵌套。子程序的递归调用是指一个过程直接或间接调用自己本身，子程序直接调用自身称为直接递归，子程序间接调用自己称为间接递归。在递归调用中，一个过程执行的某一步要用到它自身的上一步（或上几步）的结果。2.5.4 子程序的嵌套与递归递归调用在处理阶乘运算
44、、级数运算、幂指数运算等方面特别有效。递归函数论是现代数学的一个重要分支，数学上常常采用递归的办法来定义一些概念。例如，自然数n的阶乘可以递归定义为：递归在算法描述中有着重要的地位，很多看似非常复杂的问题，但使用递归后可以很轻松地解决。在间接递归调用中，子程序必须超前引用，即在子程序的首部后面加上保留字forward。n!=【例2-4】编写程序打印菲波拉西（Fibonacci）数列。菲波拉西数列排列如下：1 1 2 3 5 8 13 21 34 55 分析：形成此数列的规律是，它的头两个数为1，从第三个数开始其值是它前面的两个数之和。即：。fibo=【例2-4】这里只写出了菲波拉西函数的代码，
45、事件代码用户可自己设计。Function fact(n:Real):Real;begin if n=1 Or n=2 Then fibo:=1;else fibo:=fibo(n-1)+fibo(n-2);end;利用递归算法能简单有效地解决一些特殊问题，但是由于递归调用过程比较繁琐，所以执行效率很低，在选择递归时要慎重2.5.5 变量的作用域作用域是指一个过程、函数和变量能被编译器识别的范围，例如，一个全局常量的作用域是整个程序，而一些过程中的局部变量的作用域是那些过程。【例2-5】作用域的演示的示例Program Foo;$APPTYPE CONSOLEconst SomeConstant
46、=100;var SomeGlobal:Integer;R:Real;2.5.5 变量的作用域procedure SomeProc(var R:Real);var LocalReal:Real;begin LocalReal:=10.0;R:=R-LocalReal;end;begin SomeGlobal:=SomeConstant;R:=4.593;SomeProc(R);end;2.5.5 变量的作用域SomeConstant、SomeGlobal和R是全局变量，它们在程序的任何地方都能被编译器所识别。过程SomeProc()有两个变量R和LocalReal，它们的作用域是这个过程。如果
47、试图在SomeProc()过程外访问LocalReal，编译器将显示有未知识别符的错误。如果在SomeProc()中访问R，用的是局部变量的R，如果在这个过程外用R，则用的是全局变量的R。2.5.6 Delphi的程序结构一个Delphi应用程序对应一个工程，从程序结构的角度来看，它由一个主程序与若干个单元组成，而程序段则是构成主程序和单元的基本结构要素。1.主程序Delphi工程文件中的代码即为Delphi应用程序的主程序。主程序的结构为：program工程文件名工程文件名;uses语句语句$R*.RES执行部分执行部分2.5.6 Delphi的程序结构Delphi中主程序一般很短，这是因为
48、程序的几乎所有功能在uses语句所引用的单元中。使用Delphi编程时，主程序由程序由系统自动生成，无需程序员编写主程序的代码，程序员所编写的只是程序所引用的单元文件中的代码。2.5.6 Delphi的程序结构2.单元与作用域Delphi编程强调单元或模块的使用。在引入类之前，单元是模块化编程的基础，而类也是建立在单元概念基础上的。在Dilphi的应用程序中，单元文件可以用来定义一个窗体，也可以用来定义程序中所使用的子程序、全程变量和常量等。当创建工程时，或是向工程中添加一个新窗体时，Delphi都将自动添加一个新的单元文件，该单元为新窗体定义类与对象。使用菜单命令：“File”中的“New”
49、命令，在“New”选项卡中选择“Unit”图标，就能在当前工程中添加一个与窗体无关的独立单元。2.5.6 Delphi的程序结构(1)单元的结构单元文件的结构如下所示：unit 单元名 /单元首部interface /接口部分implementation /实现部分end /单元结束 2.5.6 Delphi的程序结构(2)作用域在单元的接口部分声明的标识符（类型、常量、变量、函数和过程等）在整个单元内（自声明处起至单元结束）有效。其他单元（客户单元）引用该单元时，则在客户单元内有效。在实现部分隐含声明的标识符，不能在单元外使用，即它们在客户单元中不可见。这些标识符在本单元的实现部分自声明处起
50、至实现部分结束的任何程序段中有效。在实现部分的任何子程序段中声明的标识，则遵循程序段中标识符的作用域规则。2.5.6 Delphi的程序结构3.程序段与作用域一个程序段是由声明部分和语句部分构成的结构，其一般结构为：声明部分声明部分begin语句语句End其中声明部分用来声明类型、常量、变量、函数和过程等，语句则是程序段的执行部分，可以是简单语句、复合语句或简单语句与复合语句的任意组合。在声明部分声明的标识符（类型、常量、变量、函数和过程）其作用范围仅限于该程序段内。函数体和过程体就是典型的程序段。2.6 常用内部函数为了尽可能地减少开发应用程序的难度和工作量，Delphi提供了一个内容十分丰