《Object Pascal程序设计语言课件》由会员分享，可在线阅读，更多相关《Object Pascal程序设计语言课件（85页珍藏版）》请在金锄头文库上搜索。
1、第2章 Object Pascal程序设计语言,2.1 控制台程序 2.2 注释 2.3 标识符与关键字 2.4 基本数据类型 2.5 复杂数据类型 2.6 常量与变量 2.7 运算符与表达式 2.8 语句 2.9 过程与函数 2.10 消息框过程和函数,2.1 控制台程序,控制台程序是指一些没有图形用户界面的32位Windows应用程序，通常在控制台窗口中运行，也就是在类似以前的DOS环境下运行。这些程序很少要求用户输入大量的信息，一般只实现有限的特定的功能。如Windows目录下的Ping.exe等。 控制台程序的代码比较小，一般在几十千字节左右，占用的系统资源少。在开发阶段，编译、链接的
2、速度比较快。在学习计算机语言的过程中，可以上机编写一些短小的控制台程序进行练习。所以我们利用它可以方便学习和掌握Object Pascal语言。 控制台程序相关文件少。最少情况下可以只有一个工程文件（.dpr）和一个可执行文件（.exe）。 下面我们通过一个具体的例子进行讲解：,实例讲解,【例2.1】创建一个控制台程序。 1）创建指定目录下新建一个 “控制台” 文件夹。 2）在Delphi集成开发环境中，通过菜单【File】|【New】打开【New Items】对话框，选中【New】标签中的【Console Application】项，如图2-1所示，按下【OK】按钮。系统会自动创建一个控制台
3、程序的工程，并在代码编辑窗口中打开Project1.dpr文件。 3）通过菜单【File】|【Save All】将工程文件保存在创建的目录中。本章后面的例程都可以利用本工程来方便地实现。 4）现在可以编译、链接和运行程序，将顺利生成一个可执行程序，只是该程序不做任何工作就退出了。 5）修改文件Project1.dpr中的程序。,6）编译、链接和运行程序，测试效果。 在程序提示“请输入一行文字：”后，输入“Hello World !”。运行结果界面如图2-2所示。,Read和Write函数 1)Read 功能：read在DOS屏幕下通过键盘读入n个数据，并将这些数据赋值给n个变量。各个数据之间可
4、以通过指定字符，如果没有指定字符用空格字符或用回车符分隔。用法与C语言的scanf函数用法相似。 格式：read(V1, V2, .,Vn ) 说明：V1可以是基本数据类型的变量，也可以是字符常量。 例如： var a,b:integer; read(a,b); /读入2个整型数据，并将这2个整型数据赋值给a、b这两个变量。 在DOS屏幕下输入1 2回车后，a的值是1，b的值是2。,2)write 功能：write在DOS屏幕下输出n个数据，并将这些数据赋值给n个变量。 格式：write(P1,P2, .,Pn) 说明：P1可以是基本数据类型的变量，也可以是字符常量。 例如： var a,b:
5、integer; a=1;b=2; write(a,b); /输出a、b两个整型变量的数据。,3)readln 功能：readln与read的功能相似，只是在最后多读入一个回车符。 格式：readln(V1, V2, .,Vn ) 4)writeln 功能：writedln与write的功能相似，只是在输出的后面多输出一个回车符。 格式：writeln(V1, V2, .,Vn ) 注意：这4个函数只能在DOS环境下使用。,2.2 注释,Object Pascal语言中的注释有下面三种形式： 组合符号“”与“”的成对使用表示它们之间的内容为注释部分。 组合符号“（ *”与“* ）”的成对使用表
6、示它们之间的内容为注释部分。 符号“/ ”的单个使用表示所在行的该符号之后的内容为注释。 注意： 注释符“”与“”、“（ *”与“* ）”在使用时不支持注释的嵌套，而且必须成对使用。 建议对于单行和少量几行的注释使用符号“ / ”，对于大块注释使用“ ”和“”或“（ *”和“* ）”。,有时可以利用注释在代码中形成一个醒目的标志。比如利用注释符号形成一个矩形方框，在其中可以添加一些重要的说明文字。 在注释符“”或“（ *”后紧接着的是一个美元符号“ $”时，表示该句是一个编译器指令，它与普通的注释不同，通常用来对编译过程进行设置。比如前面的例2.1中的第二句就是一个编译器指令。 由于Delph
7、i集成开发环境中的代码编辑器在显示不同类型的代码时通过使用不同的颜色来加以区别，所以在编程的过程中，只要注意文件中代码的颜色，一般就不会错误地使用注释符了。,2.3 标识符与保留字,2.3.1 标识符的组成和作用,在Object Pascal语言中使用的是ASCII码字符集，包括英语字母A.Z、a.z、数字0.9和其他的一些标准字符。 下面的单个字符作为特殊符号存在： # $ 另外，有些字符对也作为单个的特殊符号存在，具体有： （* （. *） .） . / := = 其中，左中括号“ ”等价于“ （ .”，右中括号“ ”等价于“ . ）”，左大括号“ ”等价于“（ *”，右大括号“）”等价于
8、“* ）”。,标识符可以由任意长的一个不带空格的字符串组成，但是只有前面的255个字符有效。标识符的第一个字符必须是字母或下划线，其余字符可以是字母、数字或下划线。 下面是一些正确或错误标识符命名的实例。 正确形式错误形式 count123count test123 14_count timenew$123 _123 abc 123 一般标识符可以由一个或多个具有适当意义的英文单词组成。,Pascal语言对于字母的大小写不敏感。当然，字符串中的大小写字母是需要分清的。在编写程序的时候要保持一定的风格，不要有时候全部大写标识符，另一些时候又实行大小写混写。 标识符是用来对常量、变量、函数标号和其
9、他用户定义对象等进行命名的。在程序设计语言中，程序中的数据定义、流程控制语句等都是由标识符组成的。,2.3.2 保留字和指令字,在标识符中，有一些是系统已经使用的，它们已有特定的含义，用户不能再用它们对自己定义的量命名。下面我们来学习下Object Pascal的保留字。 Object Pascal语言本身使用的一组标识符亦称为保留字，你必须了解它的含义，以便于正确的使用，否则会造成错误。Object Pascal语言定义了65个保留字，这些保留字不能被定义为标识符。,2.4 基本数据类型,2.4.1 整型,整型数据（integer）用来存放整数。Object Pascal支持五种预定义整型，
10、它们是shortint（短整型）、smallint（整型）、 longint（长整型）、 byte（字节型）、word（字类型）和longword（双字型），每一种类型规定了相应的整数取值范围以及所占用的内存字节数。它们的特性如下表2-3所示。,实例讲解,【例2.2】将输入一个整数值并把它输出到屏幕上。 program Project1; $APPTYPE CONSOLE var x:integer; begin writeln（请输入一个整数：）; readln（x）; writeln（你输入整数的是：,x）; /下面的代码是为了在按下回车键前始终显示运行界面 writeln（按下回车键退出
11、。）; readln; end.,2.4.2 实型,实型数据（real）用类存放实数。Object Pascal支持五种预定义实型，它们是real（基本实型）、single（单精度实型）、double（双精度实型）、extended（扩展实型）、comp（装配实型）和currency（货币实型），每一种类型规定了相应的实数取值范围、所占用的内存字节数以及它们所能达到的精度。 类型 数值范围 占字节数 有效位数 Real 2.910-391.71038 6 1116 Single 1.510-453.41038 4 78 Double 5.010-3241.710308 8 1516 Comp
12、-263+1263-1 8 1920,2.4.3 布尔型,布尔型（boolean）数据用来存放逻辑值（布尔值）。布尔型的值只有两个：false和True，并且false的序号是0，True的序号是1。false 和True都是预定义常数标识符，分别表示逻辑假和逻辑真。boolean是布尔型的标识符。,2.4.4 字符型,字符型（character）用char作为标识符。字符型必须用单引号“”括起来，字母作为字符型时，大小写是不等价的，并且字符型只允许单引号中有一个字符，否则就是字符串。 字符型是ASCII字符的集合，包括2种类型：标准字符和宽字符。 AnsiChar是传统的Pascal语言的字
13、符，是标准的一字节的ANSI字符；WideChar用于保存单个两字节的Unicode字符。Unicode字符集的前256个字符与ANSI字符集相同。一般的Char表示一个AnsiChar字符。,2.4.5 枚举类型,枚举类型（enumerated）是由一组有序的标识符组成的，形式如下： type typeName = （标识符1，标识符n）; 通过预定义列出所有值的标识符来定义一个有序集合，这些值的次序和枚举类型说明中的标识符的次序识一致的。 例如： type Weektype=（Sun,Mon,Tue,Wed,Thur,Fri,Sat）; 枚举元素只能是标识符，而不能是数值常量或字符常量。不
14、要把作为枚举元素的标识符视作变量名，它不能被赋值。同一个枚举元素不能出现在两个或两个以上的枚举类型定义中。,2.4.6 字界类型,子界类型（subrange）为某个有序类型的子集。例如开始定义了一个表示颜色的枚举类型： type TColors = （Red, Blue,Green,Yellow,Orange,Purple,White,Black）; 接着就可以定义一个子界类型如下： type TMyColors = Green.White; 其中TMyColors包括了Green、Yellow、Orange、Purple和White。,2.5 复杂数据类型,结构类型（Struct）包括集合类
15、型（set）、数组类型（array）、记录类型（record）、文件类型（file）、类类型（class）、类引用类型（class reference）和接口类型（interface）等。,2.5.1 集合类型,集合类型（set）由有序类型的一些数值组成。定义方法如下： set of 基类型 例如： type TSomeInts = 1.250; / 基本类型为有序类型 TIntSet = set of TSomeInts; / 定义集合类型 TACopyOfByte = set of Byte; TSuit = set of （Club, Diamond, Heart, Spade）; TA
16、CopyOfChar = set of Char;,2.5.2 数组类型,数组类型（array）的数据为某一类相同类型的元素按一定的顺序组成的序列，包括静态数组和动态数组两种。 1静态数组的定义方式如下： array 下标下限.下标上限 of 基类型 例如： var MyArray: array 1.100 of Char; / 一维数组 type TMatrix = array 1.10 of array 1.50 of Real; / 两维数组 type TMatrix = array 1.10, 1.50 of Real; / 与上面的两维数组相同,2动态数组的定义方式如下： array of 基类型 例如： var a:array of Real; /定义动态数组 可以通过过程SetLength来为动态数组指定空间大小，例如： SetLength(a,20); /为动态数组指定空间大小 其中数组a的索引值为0.
