《《Delphi程序设计及实验指导》电子教案-第2章.ppt》由会员分享，可在线阅读，更多相关《《Delphi程序设计及实验指导》电子教案-第2章.ppt（49页珍藏版）》请在三一办公上搜索。
1、Delphi 7 程序设计与实验指导,张景安 赵慧勤 张叶娥 傅文博编 著,第二章 面向对象的Pascal,Delphi的编程语言即Object Pascal是在Pascal的基础上发展起来的，它继承了Pascal语言语法结构严谨和编译代码高效优化等优点。本章将介绍Object Pascal的数据类型、常量、变量、运算符、语句、函数和过程等。,2.1 数据类型,2.1.1 简单数据类型简单类型包括有序类型和实型两种。1有序类型有序类型包括整型、字符型、布尔型、枚举型和子界型。有序类型是一种线性的数据结构，每个值都有唯一的前驱（除第一个）和唯一的后继（除最后一个）。(1)整型整型的表示范围及存储
2、格式见表2-1。,表2-1 整型的取值范围和存储格式,2.1 数据类型,2.1 数据类型,(2)字符型字符型的类型标识符是Char。字符型的数据只能是单个字符，不能是一串字符。例如ABC，x=?等都不是字符型的数据，而是字符串。(3)布尔型通常用到的布尔类型是Boolean，一个Boolean类型的变量占一个字节，它只有两种取值：true和false。定义变量i，ch，t分别为整型、字符型、布尔型。var i:Interge;ch:Char;t:Boolean;,2.1 数据类型,(4)枚举类型枚举类型是用一些标识符来表示一系列有序数，即由一些标识符组成的一个线性表。定义枚举类型的语法是：ty
3、petypeName=(val1,.,valn)(5)子界类型子界类型指的是某个有序类型（称为基类）的一个子集。定义子界类型的语法是：typetypeName=Low.High;,2.1 数据类型,2实型表2-2给出了实型的表示范围和存储格式。,表2-2 实型的表示范围和存储格式,2.1 数据类型,2.1.2 字符串类型字符串类型是用一对单引号括起来的一系列字符。字符串类型的表示范围和存储格式见表 2-3。,表2-3 字符串类型的表示范围和存储格式,2.1 数据类型,2.1.3 结构类型结构数据类型是一种复合数据类型，由多个数据组成。结构类型包括集合类型、数组类型、记录类型、文件类型等。1集合
4、类型集合类型是一组相同类型元素的组合。定义集合类型：typeName=set of BaseType2数组数组是一些具有相同类型元素的有序组合。(1)静态数组 静态数组的声明格式为：typeName=arrayindexType1,.,indexTypen of BaseType;,2.1 数据类型,(2)动态数组动态数组没有固定的大小或长度。当赋值或使用某些函数（如SetLength）时，动态数组在内存中重新分配。动态数组的声明格式为：type Name=array of BaseType;定义动态数组不需声明元素的个数。例如：typeDynamicarray=array of Real;v
5、ara1,a2:Dynamicarry;a1:=a2;/a1和a2指向相同的内存单元。,2.1 数据类型,3记录类型记录类型（有的语言中被称为结构）是一个不同种类元素的集合，每个元素称为字段（field）。在声明时，指定记录的名字和每个字段。声明格式为：typeRecordTypeName=recordFieldList 1:type1;FieldList 2:type2;FieldList n:type n;end;,2.1 数据类型,4文件类型文件类型是由相同类型的元素组成的有序集合。文件类型的声明格式为：typefileTypeName=file of type例：声明一个文件类型Rec
6、ordList，以上面已定义的TdateRec为数据类型。typeRecordList=file of TdateRec;var Myrecordlist:RecordList;,2.1 数据类型,2.1.4 可变类型有时要对一些数据类型变化的数据进行操作，并且在编译期间不能确定数据的类型，这时就可以使用可变类型的数据。可变类型可以使用除记录、集合、静态数组、文件等结构类型、指针类型及长整型外的所有类型。可变类型有一个特殊的值Null，表示不明的或丢失的数据。可变类型变量的声明格式为：varv1:Variant;,2.2 常量与变量,2.2.1 标识符标识符是描述Object Pascal程序
7、各个部分的名称，这些部分包括标记、对象、过程、类型、单元、变量及程序。标识符的大小写无关（即它不区分大小写），并且遵循以下规则：可为任意长度，但只有前255个字符有效。标识符的第1个字符必须是字母或下划线。跟在第1个字符后面的字符必须是字母、数字或下划线。标识符中不允许出现空格。,2.2.2 常量常量是一个在程序的运行过程中具有不变值的标识符，常量的声明格式如下：Const 常量名=表达式;变量不能在一个常量声明中使用，但算术和逻辑运算符可以，下面的函数可以在常量声明中使用。Abs Low Round Chr Odd SizeOf Hi OrdSucc High Pred Swap Lengt
8、h Ptr Trunc Lo,2.2 常量与变量,2.2 常量与变量,2.2.3 变量变量是程序代码中代表一个内存地址的标识符，而此地址中的内容在程序执行过程中可以改变。在变量使用之前必须先声明，变量声明格式如下：var 变量名表:类型名;例：var s:string;i:integer;flag:Boolean;,2.3 表达式与运算符,2.3.1 表达式表达式就是变量、常量、字符串、运算符及函数按照一定规则的组合。例：Peoples Republic Of+ChinaGross/12Max(x,y)-Min(x,y)2.3.2 运算符1赋值运算符（:=）赋值运算符“:=”是先计算赋值运算符
9、右边表达式的值，再将结果赋给左边的变量。,2.3 表达式与运算符,2算术运算符 表2-4 算术运算符,2.3 表达式与运算符,3关系运算符关系运算符是对两个类型相容且可以比较大小的数据进行比较，结果为布尔类型，见表2-5。表2-5 关系运算符,2.3 表达式与运算符,4逻辑运算符逻辑运算符对逻辑类型的操作数进行运算，结果为布尔型，见表2-6。表2-6 逻辑运算符,2.3 表达式与运算符,5集合运算符 表2-7 集合运算符,2.3 表达式与运算符,6运算符的优先级,表2-8 Object Pascal各运算符的优先级,2.4 语句,2.4.1 注释注释是添加在程序中用来说明代码功能的语句，它是非
10、执行语句，对程序的执行部分不会产生任何影响，有助于提高程序的可读性。在Object Pascal中，有三种注释标记：花括号“”注释：位于“”中的内容为注释。双斜杠“/”注释：“/”之后到本行结束的内容为注释。圆括号及星号对“（*）”注释：（*）中的内容为注释。例如以下语句都是注释：The first kind Of comment./The secondkind Of comment.(*The third kind Of comment.*),2.4 语句,2.4.2 简单语句和复合语句简单语句是Object Pascal中最简单也最常用的语句，简单语句用分号分隔。赋值语句、函数、过程调用语
11、句等是简单语句，例如下面的语句都是简单语句：r:=m+n；/两个值相加并赋值ShowMessage(Im a student.);复合语句是多个简单语句的组合，复合语句以begin表示开始，以end表示结束。例如：begini:=1;j:=i+1;s:=abc;end;,2.4 语句,2.4.3 条件语句条件语句是Object Pascal语言提供的选择结构语句，主要有如下两种：1if语句if语句的表示形式：if then else,2.4 语句,【例2-1】求两个数中的最大值。if ab thenmax:=a/在变量a之后不能加“;”Elsemax:=b;【例2-2】符号函数。-1(x0),
12、用if语句的嵌套实现，如下：if x0 then y:=1else y:=0;,2.4 语句,2case语句case语句的表示形式：case of:else end;,2.4 语句,【例2-3】编写一个程序，输入一个年份，判断是否是闰年。闰年的条件是满足下面条件之一：(1)能被4整除，但不能被100整除的年份；(2)能被100整除，也能被400整除的年份。对这两个条件都不符合的年份不是闰年。程序功能：输入一个年份，显示其是否为闰年的信息。界面设计：四个组件：两个文本框Label1和Lable2，分别显示提示和结果信息；一个Edit组件Edit1，用来输入要进行判断的年份；一个Button组件B
13、utton1，用来查询结果。如图2-1所示。,2.4 语句,图2-1 窗体界面程序代码：procedure TForm1.Button1Click(Sender:TObject);var year:Integer;flag:Boolean;,2.4 语句,begin year:=StrtoInt(Edit1.text);/将字符串转变为整型 if year mod 4=0 then begin if year mod 100=0 then begin if year mod 400=0 then flag:=true else flag:=false;end else,flag:=true;e
14、nd else flag:=false;if flag then Label2.Caption:=该年份是闰年 else Label2.Caption:=该年份不是闰年;end;,2.4 语句,2.4.4 循环控制语句 循环语句可以使用户重复执行一条或多条语句，直到满足某个条件时为止。1for语句 for语句的一般形式为：for 循环变量:=to/downto do;【例2-4】求1100所有整数的累加和。var s,i:Integer;s:=0;for i:=l to 100 do s:=s+i;,2.4 语句,2while语句while语句的一般形式为：while dowhile后面的为逻
15、辑表达式，先计算表达式的结果，如果表达式为true，while语句将重复执行循环体。如果表达式结果为false，则跳出循环，执行while之后的语句。,【例2-5】求1100所有整数的累加和。vars,i:Integer;i:=1;s:=0;while i=100 dobegins:=s+i;i:=i+1;end;,2.4 语句,3repeat语句repeat语句的一般形式为：repeat until 当使用repeat语句时，先执行循环体，再判断表达式，只要until后面的表达式为true，则将再执行循环体。因此，repeat语句下面的循环体至少执行一次。,【例2-6】求1100所有整数的累
16、加和。vars,i:Integer;i:=1;s:=0;repeats:=s+i;i:=i+1;until i100；,2.4 语句,4break语句 功能是强行退出循环，break语句只能用在循环体内。【例2-7】利用break语句退出一个while循环。vars:String;beginwhile true do/条件恒为真 begin ReadLn(s);/读入一字符串 if s=then break;/不输入任何字符，则退出循环 WriteLn(s);/输出字符串 end;end;,2.4 语句,5continue语句continue语句也用在循环体中，其作用是强行结束本次循环，转入循
17、环开始处，开始执行下一次循环操作。【例2-8】使用continue语句，求1100所有奇数之和。vari,s:Integer;s=0;beginfor i:=1 to 100 do begin if i mod 2=0 then continue;/如果为空，跳过剩余语句，转到下一个循环 s:=s+i;end;end;,2.5 函数和过程,函数和过程是实现一定功能的语句块，是程序中的特定功能单元。可以在程序的其他地方被调用，也可以进行递归调用。函数和过程的区别在于函数有返回值，而过程没有返回值。2.5.1 函数和过程的声明函数和过程在使用前必须进行声明。1函数的声明函数的声明是在程序的type
18、区，具体形式如下：function():;,2.5 函数和过程,函数的定义是在程序的implementation部分，具体形式如下：function():;varbegin:=/也可以用Result系统保留字代替end;在begin与end之间是在函数调用时实现特定功能的一系列语句。函数值的返回有两种方式：将返回值直接赋给函数名。将返回值赋给Result。,2.5 函数和过程,【例2-9】求两个数中的最大数。function Max(a,b:integer):integer;/两个形参为整型值a、b，函数返回值为整型varm:Integer;beginif ab thenm:=aelsem:=
19、b;Max:=m;/或result:=m;end;,2.5 函数和过程,2过程的声明过程的声明与函数类似，所不同的是使用的保留字不同，而且少了一个返回值类型；过程的声明是在程序的type区，具体形式如下：procedure():;过程的定义是在程序的implementation部分，具体形式如下：procedure()；begin end;,2.5 函数和过程,【例2-10】显示一行num个星号*。procedure ShowStar(num:Integer);var i:Integer;s:String;begin s:=;for i:=1 to num do s:=s+*;ShowMess
20、age(s);end;,2.5 函数和过程,2.5.2 重载函数和过程所谓重载，是指在同一个作用范围内给不同的函数或过程取同一个名称。重载可以方便编程，重载函数必须用指令字overload来进行说明。下面的两个函数就是重载函数：function Max(a:Integer;b:Integer):Integer;overload;/求两个整数的最大值 function Max(a:Real;b:Real):Real;overload;/求两个实数的最大值下面两条语句就调用了不同的函数：Max(3.7,4.6);/调用的是第二个重载函数Max(3,4);/调用的是第一个重载函数,2.5 函数和过程
21、,2.5.3 参数1形参与实参函数或过程的声明和定义时参数列表中的参数称为形式参数，简称形参；而函数或过程调用时参数列表中的参数称为实在参数，简称实参。2数值参数、变量参数和常量参数(1)数值参数在调用函数或过程时，数值参数在运行过程中只改变其形参的值，不改变其实参的值，即形参不会影响原来实参的值。(2)变量参数如果用户想改变传递的参数值，就需要使用变量参数，即在被调用程序的参数表中的形参前加上保留字var。,2.5 函数和过程,(3)常量参数如果当过程或函数执行时要求不改变形参的值，最保险的办法是使用常量参数。在参数表的参数名称前加上保留字const可以使一个形参成为常量参数。使用常量参数代
22、替数值参数可以保护用户的参数，使用户在不想改变参数值时不会意外地将新的值赋给这个参数。2.5.4 作用域在Object Pascal中，根据变量的作用域，可将变量分为：全局变量和局部变量。所谓变量的作用域，是指变量的有效范围。全局变量在整个程序中都有效，其作用域为整个程序；局部变量只在声明它的函数和过程中有效，其作用域只限于该函数或过程本身。,2.5 函数和过程,例：typevarForm1:TForm1;/全局变量Form1implementation$R*.dfmprocedure TForm1.FormCreate(Sender:TObject);var m,n:Integer;/局部变
23、量m,nForm1:Tform1;(*局部变量Form1，与上面的全局变量同名，在过程TForm1.FormCreate中局部变量起作用。*),2.5 函数和过程,2.5.5 函数和过程的调用1函数和过程的调用(1)函数的调用函数调用的一般形式为：()函数的调用往往是将返回值赋给某个变量或参与运算。例如调用例2-9，将其返回值赋给变量x的语句为：x:=Max(3,6);(2)过程的调用过程的调用的一般形式为：();其中的实参可以是常量、变量或表达式，但实参的个数和类型与形参完全匹配，即个数相同、类型一致。例如：调用例2-10的过程ShowStar的语句为：ShowStar(20);,2.5 函
24、数和过程,2函数和过程的递归调用所谓递归调用，是指函数A调用函数B，而函数B又调用函数A的情况，或是指一个函数调用自身的特殊情况。【例2-11】递归调用program Project1;($SappTypeConsole)varalpha:Integer;procedure Test2(var A:Integer):forword;(*Test2被说明为前置过程*)procedure Testl(Var A:Integer)；begina:=a-1;if a0 then,Test2(a);Writeln(a);end;procedure Test2(var a:Integer);经前置说明的T
25、est2的执行部分begin a:=a div 2;if a0 thenTest1(a);在Test2中调用已执行的过程Test1end；begina1pha:=15;/给a1pha赋初值Test1(a1plla);(*第一次调用Test1，递归开始*)end;,习题,1Object Pascal语言中有哪些常用的数据类型？变量在使用前必须先定义，如何定义各种数据类型的变量？简述Object Pascal中标识符的命名应遵循哪些规则。Object Pascal中提供了哪些类型运算符，在表达式中其优先级从高到低如何排列。4注释语句有哪几种形式？5条件语句有哪几种形式？它们在什么情况下适用。6循环
26、语句有哪几种形式？break语句与continue语句有何异同。7如何声明、定义和调用函数和过程。8什么是重载？如何进行重载函数和过程。9什么是变量的作用域？根据变量的作用域，可将变量分为哪几类。,习题,10分析下列程序段的运行结果。a:=False;b:=False;c:=True;d:=20;if a then d:=d-12 else if not b then,if c then begin x:=10;d:=d+3;endelse x:=34;运行后，d,x的值分别是、。,习题,s:=0;for i=3 to 14 do s:=s+i;运行后，s的值是。Function Fun(x:Integer):Integer;begin if x=0 then y=0 else if x0 then,y:=x+4 else y:=x-5;end;则函数调用Fun(0)、Fun(4)、Fun(-7)的值分别是、。11编程实现：输入两个整数，求这两个数之间的所有奇数之和。,
