ObjectPascal语言基础.ppt

Delphi 程序设计,主讲：陈强,南昌理工学院计算机系, Delphi 程序设计,第1章 Delphi 2005简介 第2章 Object Pascal语言基础 第3章 Windows应用程序界面设计 第4章 菜单、工具栏和对话框 第5章 使用复杂组件 第6章 面向对象的核心特性 第7章 多文档界面设计 第8章 程序调试与异常处理 第9章 文件操作和流 第10章 多媒体应用设计 第11章 数据库应用设计 第12章 综合应用设计, Delphi 程序设计,第2章 Object Pascal语言基础,2.1 语言成分 2.2 语句与流程控制 2.3 定义数据类型 2.4 构造数据类型 2.5 过程和函数, Delphi 程序设计,2.1 语言成分,2.1.1 程序组成 2.1.2 标准数据类型 2.1.3 运算符与表达式 2.1.4 标准函数 2.1.5 常量与变量, Delphi 程序设计,2.1.1 程序组成,程序结构 【例2.1】 显示程序结构。 词汇集 基本字符 保留字 指示字 标识符 分隔符,注释和编译指令 注释 编译指令 Pascal代码书写风格, Delphi 程序设计,2.1.2 标准数据类型,什么是数据类型 数据类型的分类 简单数据类型 构造数据类型 指针类型, Delphi 程序设计,2.1.2 标准数据类型,整数类型 实数类型 布尔类型 字符类型 字符串类型, Delphi 程序设计,2.1.3 运算符与表达式,运算符 算术运算符 关系运算符 位运算符 逻辑运算符 运算符的优先级, Delphi 程序设计,【例2.2】 mod运算的用法。,(w + 1) mod 7 /明天 (w 1 + 7 ) mod 7 /昨天, Delphi 程序设计,2.1.3 运算符与表达式,表达式 表达式及其运算规则 表达式的数据类型 布尔表达式中的短路计算 书写表达式时的注意事项, Delphi 程序设计,【例2.3】 使用表达式。,i mod 2=0 /取值为true时，i为一个偶数，否则为奇数 (i=0) and (i=9) /判断i的值是否在0到9之间, Delphi 程序设计,2.1.4 标准函数,函数的概念 常用标准函数说明 调用标准函数 【例2.4】 使用标准函数。 odd(i) /取值为true时，i为一个奇数，否则为偶数 chr(ord(ch)+ord(a)-ord(A) /将ch转换成小写字母, Delphi 程序设计,2.1.5 常量与变量,常量 直接常量和符号常量 常量定义 变量 变量声明 变量初始化 变量参与的运算, Delphi 程序设计,2.2 语句与流程控制,2.2.1 简单语句 2.2.2 流程控制的概念 2.2.3 复合语句 2.2.4 条件语句 2.2.5 循环语句, Delphi 程序设计,2.2.1 简单语句,赋值语句 【例2.5】 变量赋值。 空语句 过程调用语句 读语句 写语句 【例2.6】 求一个三位数的数字和。 【例2.7】 判断一个年份是否为闰年。, Delphi 程序设计,2.2.2 流程控制的概念,顺序结构 分支结构 循环结构, Delphi 程序设计,图2.4 不执行与死循环, Delphi 程序设计,2.2.3 复合语句,begin 语句1; 语句2; end, Delphi 程序设计,2.2.4 条件语句,if语句 if语句的语法格式 if 布尔表达式 then 语句1 else 语句2 【例2.8】 求三个整数中的最大值。 复合条件 if语句嵌套, Delphi 程序设计,2.2.4 条件语句,case语句 case 表达式 of 常量1: 语句1; 常量2: 语句2; else 语句n; end; 【例2.9】 计算每月的天数。, Delphi 程序设计,2.2.5 循环语句,while语句 while语句语法 while 布尔表达式 do 语句 【例2.10】 用while语句求110的累加和。 while语句循环执行次数问题讨论, Delphi 程序设计,2.2.5 循环语句,repeat语句 repeat语句语法 repeat 语句; until 布尔表达式; 【例2.11】 用repeat语句求110的累加和。 repeat语句循环执行次数问题讨论, Delphi 程序设计,2.2.5 循环语句,for语句 for语句语法 for 循环变量:=初值 to 终值 do 语句 for 循环变量:=初值 downto 终值 do 语句 【例2.12】 用for语句求110的累加和。 for语句循环执行次数问题讨论, Delphi 程序设计,2.2.5 循环语句,【例2.13】 求一个日期（年月日）对应的是星期几。 多重循环 【例2.14】 求100以内的素数。, Delphi 程序设计,2.3 定义数据类型,2.3.1 类型定义 2.3.2 枚举和子界类型 2.3.3 类型兼容原则, Delphi 程序设计,2.3.1 类型定义,type 类型 = 类型描述; 例如， type datatype = integer; arrint = array 110 of integer;, Delphi 程序设计,2.3.2 枚举和子界类型,枚举类型 定义枚举类型 type 枚举类型 = (枚举常量,枚举常量) 声明枚举类型变量 枚举类型变量能够进行的操作 枚举类型变量不能进行的操作 子界类型 type 子界类型 = 常量1常量2;, Delphi 程序设计,2.3.3 类型兼容原则,类型相同 两个数据类型具有完全相同的性质。 类型相容 两个不同的数据类型具有某些相同的性质 赋值相容 一种数据类型的值可以通过赋值操作赋给另一种数据类型的变量。, Delphi 程序设计,2.4 构造数据类型,2.4.1 数组类型 2.4.2 字符串类型 2.4.3 集合类型 2.4.4 记录类型 2.4.5 文件类型 2.4.6 指针类型, Delphi 程序设计,2.4.1 数组类型,一维数组 定义一维数组类型 type 数组类型 = array 下标类型 of 元素类型; 声明一维数组变量 数组声明时可赋初值 数组元素的引用格式 数组元素的运算 获得数组下标的上界和下界 两个数组变量间的赋值运算, Delphi 程序设计,【例2.15】 用一维数组计算Fibonacci序列值。,Fibonacci序列是指首两项为0、1，以后各项的值是其前两项值之和的序列： 0，1，1，2，3，5，8， 其数学中的递推定义为：, Delphi 程序设计,2. 二维数组,【例2.16】 显示螺旋方阵。, Delphi 程序设计,3. 动态数组,var a:array of integer; SetLength(a,5);,【例2.17】 以动态数组显示幻方阵。, Delphi 程序设计,4. 不规则的多维数组,【例2.18】 使用动态数组输出杨辉三角。, Delphi 程序设计,2.4.2 字符串类型,3种字符串类型 字符串元素的运算 字符串变量的运算 用于字符串运算的标准过程和函数 【例2.19】 判断回文字符串。, Delphi 程序设计,2.4.3 集合类型,集合类型的定义 type 集合类型 = set of 元素类型; 集合类型的值 集合类型的运算 赋值运算 关系运算 属于运算 集合运算 【例2.20】 “筛选法”求素数。, Delphi 程序设计,2.4.4 记录类型,记录类型与变量 对记录变量中的域进行操作 对记录变量进行赋值操作 【例2.21】 使用记录类型表示复数。 开域语句,type 记录类型 = record 域1:类型1; 域2:类型2; end;, Delphi 程序设计,5. 记录数组,var group:array 150of student;, Delphi 程序设计,2.4.5 文件类型,文件类型是一种构造数据类型，根据文件中数据元素的数据类型，可将文件类型分为3种：文本文件、类型文件和无类型文件。对不同类型的文件所进行的操作也有所差别。文件类型的定义语法和使用方法详见9.3节。, Delphi 程序设计,2.4.6 指针类型,变量所占用存储单元的静态分配与动态分配 静态变量和动态变量 声明指针变量 指针所指向的变量 对指针变量的操作 使用标准过程new与dispose动态生成或撤销变量 指针指向数组和记录 使用指针构成链表, Delphi 程序设计,2.5 过程和函数,2.5.1 过程的声明与调用 2.5.2 函数的声明与调用 2.5.3 变量的作用域 2.5.4 参数传递 2.5.5 过程/函数中参数的类型兼容原则 2.5.6 过程/函数的重载 2.5.7 递归的过程与函数, Delphi 程序设计,2.5.1 过程的声明与调用,过程声明 procedure 过程 (参数列表); /过程首部 局部声明部分; /过程声明部分 begin /语句体 语句; end; /此处以分号结束 过程调用 过程(参数,参数), Delphi 程序设计,2.5.2 函数的声明与调用,函数声明 function 函数(参数列表):类型; /函数首部 局部声明部分; /函数声明部分 begin /语句体 语句; end; 函数怎样返回值 fact:=10; /为函数名赋值，返回结果 result:=10 /为result变量赋值，返回结果 函数调用 函数过程(参数,参数) 【例2.22】 计算阶乘并显示计算公式。, Delphi 程序设计,2.5.3 变量的作用域,全局变量 局部变量 【例2.23】 求100以内的Smith数。, Delphi 程序设计,2.5.4 参数传递,参数声明 值参数 变量参数 常量参数 输出参数 参数默认值 【例2.24】 求500以内的亲密数对。, Delphi 程序设计,2.5.5 过程/函数中参数的类型兼容原则,参数传递的类型兼容原则 形式参数的类型声明限制 函数返回值的类型限制, Delphi 程序设计,2.5.6 过程/函数的重载,function Max(A,B: Integer): Integer; overload; function Max(A,B: Int64): Int64; overload; 重