述职报告ID20080009 - 山东外贸职业学院_10089.ppt

Keep on walkingKeep on walking杨丽敬杨丽敬Delphi程序设计工学结合特色精品课程第_二_模块 本模块题目：Object Pascal语言主要教学内容和课时分配（请注明：*重点#难点）：1.程序组成 2.数据类型与表达式 *3.程序结构与流程控制语句 *1、2、3共2课时4.自定义数据类型#2课时5.过程与函数#2课时教学目的要求：掌握pascal的语法，运行调试方法；掌握各种数据类型、语句的使用方法及相关的流程控制语句；会定义和使用函数与过程；理解有关pascal语言的各种概念。教学方法和教学手段：教学方法运用了多媒体课件讲授、开发进度讨论、代码编写示教、系统分析指导等。教学手段采用板书、多媒体、模型、示例等教学工具。讨论、思考题、作业：实训题目1：设计程序：2课时i.从键盘输入一个圆的半径，求其周长和面积。ii.输入一个华氏温度值f，要求输出其对应的摄氏温度值c。温度转换公式为：c=(f-32)*5/9。iii.从键盘输入三个整数a、b、c，将它们按照从大到小的顺序输出。实训题目2：2课时i.从键盘输入一个三位数abc，从左到右用a、b、c表示各位的数字，现要求设计程序一次输出从右到左的各位数字，即输出另一个三位数cba。例如，输入123，输出321。ii.编写两个函数，分别求2个整数的最大公约数和最小公倍数。在主函数中输入两个整数，分别调用这两个函数求得结果并输出。语言规则语言规则语句与流程控制语句与流程控制自定义数据类型自定义数据类型过程与函数过程与函数面向对象概念初步面向对象概念初步Chap2 Object PascalChap2 Object Pascal语言语言 语言规则程序的组成标识符及保留字数据类型运算符与表达式常量与变量返回DelphiDelphi程序程序程序程序工程文件工程文件工程文件工程文件单元引用单元引用单元引用单元引用;常量声明常量声明常量声明常量声明;类型定义类型定义类型定义类型定义;变量声明变量声明变量声明变量声明;过程和函数声明过程和函数声明过程和函数声明过程和函数声明;主程序及过程函数实现部分主程序及过程函数实现部分主程序及过程函数实现部分主程序及过程函数实现部分单元文件单元文件单元文件单元文件与窗体一一对应的单元文件与窗体一一对应的单元文件与窗体一一对应的单元文件与窗体一一对应的单元文件用于存储公用函数、过程、常量和变量的单元文件用于存储公用函数、过程、常量和变量的单元文件用于存储公用函数、过程、常量和变量的单元文件用于存储公用函数、过程、常量和变量的单元文件提供开发接口的组件文件提供开发接口的组件文件提供开发接口的组件文件提供开发接口的组件文件窗体文件（用于说明窗体特征的文件）窗体文件（用于说明窗体特征的文件）窗体文件（用于说明窗体特征的文件）窗体文件（用于说明窗体特征的文件）单元标题单元标题单元标题单元标题接口部分接口部分接口部分接口部分（初始化部分）（初始化部分）（初始化部分）（初始化部分）实现部分实现部分实现部分实现部分（结束部分）（结束部分）（结束部分）（结束部分）图图图图-程序的组成程序的组成程序的组成程序的组成程序由程序首部、说明部分、语句体组成。结构如下：programprogram 程序名;单元引用;常量声明;类型定义;变量声明;过程和函数声明;beginbegin语句;end.end.书写规则层次化以两格为一单位、大小写字母同义。注释的方法有两种：1)单行注释：符号“/”后的一行内容为注释。2)多行注释：注释号和（*）之间的内容为注释。程序的组成程序首部程序首部程序首部程序首部说明部分说明部分说明部分说明部分语句体语句体语句体语句体程序类型通常利用Delphi开发下面三种应用程序：Windows图形界面程序控制台程序（实例）详见example2_1服务器程序实验二、创建控制台程序使用IDE创建控制台应用程序 单击【New Items】按钮或执行“File|New|Other”菜单，系统弹出“New Items”窗口。在New页上，选择“Console Application”，单击【OK】按钮运行 example2_1返回标识符及保留字指令字在pascal语言中，标识符（identifiers）用来标志常量、变量、类型、属性、对象、过程、函数、程序、单元、库和组件等。标识符第一个字符必须是字母或下划线，它对大小写不敏感。习惯首写字母大写即可。Oject pascal语言中定义了65个保留字(resrved words)它们本身有特殊含义，不可以做标识符，如：and,case,do,for,function,with等。Oject pascal语言中定义了39个指令字（directives）也称标准命令，当用户重新定义后将失去本意，private、published等。小技巧：看代码编辑器的字体可判断。返回数据类型指针类型 Point文件类型 Files记录类型 Records集合类型 Sets数组类型 Arrays构造类型子界类型 Subrange枚举类型 Enmumerated自定义类型布尔类型 Boolean字符类型 Character实数类型 Real整数类型 Integer标准类型简单类型数据类型字符串类型 String变量类型pascalc8位有符号整数ShortIntchar8位无符号整数ByteUnsigned short16位有符号整数SmallIntshort16位无符号整数wordUnsigned short32位有符号整数Integer，longintInt，long32位无符号整数Cardinal，longwordUnsigned long4字节浮点数singlefloat8字节浮点数Double（real）double10字节浮点数extndedLong double1字节布尔值boolean任何一字节1字节字符charcharPascal/cPascal/c数据类型对照表数据类型对照表数据类型对照表数据类型对照表返回十六进制数字前加十六进制数字前加$,十六进制范围是十六进制范围是$00000000$FFFFFFFF.字符串是用单引号字符串是用单引号括起来的，假如在引号内出现连续的单引号，相当于一个。括起来的，假如在引号内出现连续的单引号，相当于一个。例如：例如：Ive learned pascal。则代表的意义是则代表的意义是Ive learned pascal。运算符算术运算符：、*、（浮点数）、div（取整）、mod（取余）关系运算符：=、=、=逻辑运算符：and、or、not、xor位运算符：and、or、not、xor（异或）、shl（左移）、shr（右移）赋值运算符：=加1减1运算：inc（i）加1、dec（i）减1 如：inc（i，3）；表达式（Expression）定义：是语言中最基本的组成部分，它表示一种求值规则，是由运算分量、运算符和圆括号组成的一个序列。运算顺序表达式的运算次序从由高到低的顺序如下：圆括号（）函数 not *，/，div，mod，and，shl，shr 乘除移位等 +，or，xor 加减或等 =，=，2 doif k mod j=0then break /退出循环else j:=j-2;实例见example2_6continue语句与break不同，continue并不终止当前循环。在循环体中遇到continue时，本次循环结束，回到循环条件，判断是否执行下一次循环，所以continue语句仅跳过最内层循环的剩余语句。返回*其他语句Exit 强行退出代码块，类似 c的return 如下：begin a:=0;exit;b:=0;end;Halt 强行制止程序运行，返回到操作系统Abort中止程序 Abort 中止当前正在执行的过程，即该过程或函数失效，而ExitExit 只是结束该过程或函结束该过程或函数数。Abort和ExitExit的区别在类的继承关系中区别很明显。ExitExit仅结束该过程或函数结束该过程或函数，如果其有继承关系时，还将继续运行子类的部分代码，但是Abort将中止当前正在执行的过程，程序将弹出所有堆栈，程序将不运行任何其他的代码。实验三、三种基本语句的练习时间：地点：5号机房 实验目的：通过习题练习基本数据类型的定义，及三种基本语句的灵活使用。（可用ctrl+J）编程完成P79 题2.3编程求1！+2！+10!的值。求证：read与readln的区别（根据提示：自己编小程序完成验证）READLN语句把来自键盘的一串数据读入相应的变量中后，便自动跳到下一行的第一数据处，如果原来行中还有未读完的数据，则忽略这些数据。另外，READLN语句后面可以不带参数，即只有一个“READLN”。此时它的作用是跳过本行，直接指向下一行的第一个数据，也可以简称为换行。那么，READLN（A，B，C）就相当于以下四句：READ（A），READ（B），READ（C），READLN。文件流式的输入输出文件流式的输入输出例 程序中的语句 由键盘输入的格式 READ（A，B）；123 READ（C，D）；456 READ（E，F，G）；789 READ（H）；101112则执行后的结果是：A1，B2，C3，D4，E5，F6，G7，H8 READLN（A，B）；123 READLN（C，D）；456 READLN（E，F，G）；789 READLN（H）；101112则执行后的结果是：A1，B2，C4，D5，E7，F8，G9，H10返回自定义数据类型对于每一种自定义数据类型，需要在使用前进行类型定义，语法格式为：type 类型名=类型；*枚举与子界类型数组类型字符串类型*集合与记录类型*文件与指针类型枚举（enumerate）将数据以标识符的形式列举出来Type=（值1，值2,值n）；此类型变量的定义：Var ：；例：type Colors=(Red,Yellow,Blue,Green,White);Var love：colors；BeginLove：=Red；End；枚举与子界类型小结：枚举元素可以进行赋值运算；枚举元素从左到右有一个序号，所以可以做关系运算（见guanxiyunsuan.dpr）常用函数有pred()、succ()、ord()子界（subrange）在有序类型的取值范围内重新定义 一部分取值范围Type Tmonth=1.12;var month：Tmonth;或var month:1.12;此类型的运算Type Tmonth=1.12;var month：Tmonth;Month：=3；则下列语句合法：Month：=month+5；子界子界数组类型定义：是数目固定、类型相同的若干变量的有序的集合。一维数组type 数组类型标识符=array下标类型 of 基类型如：type matrix=array1.10 of integer;下标类型是子界类型；基类型是指除文件以外的类型；二维数组：通常以说明多个下标的形式来定义多维数组。如，type matrix=array 1.10of array1.10 of integer;type matrix=array 1.10,1.10 of integer;var mat:matrix;或var mat:array 1.10,1.10 of integer;定义数组类型定义数组类型定义数组类型定义数组类型再定义变量再定义变量再定义变量再定义变量数组元素的引用Mat3或mat3，4注：object pascal 的数组下标不是必须从0或1开始如mat数组Var mat:array 20.31of integer;i：integer；Begin for i：=low（mat）to high（mat）do mati：=i；End;*动态数组动态数组在声明时可不指定数组大小，而在程序运行时指定数组的大小，分配了长度后，下标就从0开始。如：var A:array of array of integer;begin SetLength(A,10，10);A1，2：=10；End;实例见example2_23字符串类型变量的定义定义格式为：string 长度其中string是关键字；长度是字符串的元素个数。如：var s:string10;s:=china;s1:=a;(表示第一个字符，用于改变元素的值）运算1.字符串元素的运算：赋值、读、写、比较 2.字符串变量的运算：赋值、读、写、比较、连接+3.字符串的长度：length(s)运算对字符串变量长度的影响 字符串的实际长度存放在下标为0的数组元素s0中字符串类型字符串操作函数（课本P41）Insert、delete、str、val、copy、Concat、length、pos等见example2-25 字符数组字符数组同数组的定义Type chr=array0.9of char;实例见example2_24example2_24可见回车符对字符型数组是有效字符.学习心得：delphi的库函数需要在学习过程中慢慢积累!集合类型（一）集合类型1.定义type 集合类型=set of 元素类型;元素类型必须是顺序类型，包括整型、布尔型、字符型、枚举型和子界型，不能是实型或其他构造数据类型。集合元素个数不能超过256个（为提高效率，元素数目要小于32个）。2.运算：赋值、比较、属于和集合运算（并+、交*、差-）TypeName=set of char；/可能的值#0-#255 Colors=set of(Red,Yellow,Blue,Green,White);变量的定义VarColor：Colors；/定义了color为colors集合类型的变量color：=Red,Yellow/可能的值包含了Colors值的任何组合TypeName1=set of integer；/太多Name2=set of string；/无序当然也可以变量定义一起如：当然也可以变量定义一起如：VarS：set of 0.255;此时此时s为整型的集合变量为整型的集合变量集合类型（二）集合的比较运算有“=”和“in”（集合成员关系判断）分别表示包含于、包含和属于运算。此外还有表示集合相等“=”和不等“”如：1，2=1.3的结果是true（判断集合间关系）1In0.6的结果是true（判断元素与集合的关系）集合还有运算并+、交*、差-,他们的结果还是一个集合。集合A：1，2，6，7集合B：2，3，5，6，7，9集合A+B：1，2，3，5，6，7，9集合A*B：2，6，7集合A-B：1记录类型：由固定数目的不同类型的元素组成1.定义（同C结构体struct）如：typestudent=recordname:string8;number:integer;sex:(male,female);end;var stu:student;2.引用记录变量的域：记录变量.域。如stu.name注：可用with开域语句赋值With 记录变量 do 语句实例见example2_8 记录类型记录类型实验三、自定义数据类型的灵活运用试验目的：熟练掌握数组类型等的实际运用输入一行字符，统计其中的英文字母、数字、空格及其它字符的个数。一个5*5的二位数组 求这些元素中的最大值和最小值及所在 行标 列标。求对角线的元素之和编成并回答后面的问题如果换成array1.100 of char;需要做那些改动，试试看！（字符串可以用s:=a string的形式赋值,但是字符型数组a 20不可直接用a:=array的形式赋值,用此种形式会出现类型不匹配错误,可选用strpcopy函数赋值。）在判断具体字符的表达式中能否换成其他的运算如：=等在判断是字母时，大小写字母的判断可否看作是两个集合的运算，那时又当把运算改做什么？S1是否改变了s的值？S0允许被操作吗？*如果再定义另外一个字符串s1,对它的第一个字符进行赋值操作，能否给s1赋值？文件与指针类型文件类型 文件类型是由相同数据类型的数据元素组成的序列。其具体定义语法和使用方法详见第10章的文件操作。指针类型 指针是指向物理存储单元地址的变量。指针类型是简单数据类型，用于表示动态的数据结构。指针变量指针类型定义的语法为：type 指针类型=基类型；其中指针类型是指针类型标识符，是指针类型的标志，基类型是指针所指向的动态变量的数据类型。假如无类型，用pointer 声明（相当于c 中void*）如：Var pi：pointer；对指针变量的操作 见例2-9TypeMyrec=record I：integer；R：real；End；Pmyrec=Myrec;VarRec:pMyrec;/pMyrec的实例BeginNew（rec）；Rec.I:=10;Rec.R:=5.32;Dispose(rec);End;返回返回静态变量静态变量动态变量动态变量过程与函数过程与函数的说明与调用变量的作用域参数传递说明1.过程的说明procedure 过程名(var 参数:类型);变量声明;begin语句;end;2.函数的说明function 函数名(var 参数:类型):返回值类型;变量声明;begin语句;返回值；end;注意：函数调用返回一个值，而过程无返回值。加var时，要注意实参与变量参数 类型一致（并且注意实参值的变化）调用（实例见example2_1011）1.函数调用的格式为：函数名（实在参数列表）2.过程的调用格式为：过程名（实在参数列表）；过程与函数的说明和调用变量的作用域全局变量 在主程序中说明的变量称为全局变量。全局变量的作用域是主程序和所有子程序。局部变量 在过程、函数中说明的变量称为局部变量。局部变量只在定义它的过程或函数内有效，不能在主程序或其他子程序中使用。要访问不在当前库的说明，因在这个说明前加应用程序的名称和点号.并在unit2中的uses子句中加入。如：在unit2中调用unit1的haha过程格式为：unit1.haha(value:integer);重载 一个函数名，根据对象的不同可以完成不同的功能。见例2-14参数传递数值参数 数值参数向实在参数传递的是一个值，调用时对应的实在参数可以是常量、变量、表达式或函数，只要有值就行。在过程或函数内部改变数值参数的值不会影响其对应实在参数的值。变量参数 变量参数不仅可以接受从主程序传递来的实在参数的值（称为入口参数），也可以向主程序传递返回值（称为出口参数）。在过程或函数中对变量参数所做的修改，会影响对应的实在参数。*常量参数 适用：过程或函数执行时要求不改变形参的值。首部说明的形式参数带const的，称为常量参数*参数默认值参数声明时，可以设置默认值。例如，procedurep1(a:integer;b:integer=10);实验四：函数及文件的练习实验目的：掌握较复杂的数据类型。编写两个函数，分别求两个数的最大公约数和最小公倍数，在主函数输入两个数，分被调用这两个函数求结果输出。编写拷贝程序，将一文件拷到另一文件返回面向对象概念初步类与对象类的继承类的封装组件与TComponet类返回返回类：由数据类型变化而来，可以包含数据，但不同于普通的数据类型，除了包含数据之外，还包含了对数据进行操作的过程或函数，称为方法。方法反映的是数据的行为而不是数据本身。对象：类的实例，也叫实体(Entity)，它是类的变量。当程序运行时，对象占用内存。它与类的关系就象变量与类型的关系一样。类与对象定义类 定义其中多个不同类型的数据，以及对这些数据进行操作的方法，方法是对类的行为的描述，以过程或函数的形式给出，它的作用范围是全局的。如：typeTDate=class Year,Month,Day:integer;procedure SetDate(y,m,d:integer);function Leapyear:boolean;end;使用对象说明对象：定义了类之后，还要说明类的变量，即对象。用var说明对象是类的一个变量，如：varvar aDay:TDate;访问对象对象.数据 aDay.SetValue(2000,1,1);对象.方法 if aDay.LeapYear then 创建对象类的构造方法create：创建类的实例，并把类实例赋给类变量（对象），为对象中的数据分配内存并进行初始化，使对象处在可使用的状态。(要用关键字constructor构造函数)如：aDay:=TDate.Create;释放对象(要用关键字destructor析构函数)Free方法：释放对象所占的空间。如：aDay.Free;属性与事件属性（property）：对象状态和行为的特征值，类中数据的外在表现。事件（event）：基于一种消息处理机制，是系统向窗口发送消息的结果。Delphi的事件是在收到相应的Windows消息后被触发的。返回返回继承 继承是面向对象编程语言的基本要素之一。从现有类出发定义一个新类，就叫做新类继承了旧的类，其中被继承(Inherited)的旧类叫做祖先(Ancestor)或父类，衍生出的新类叫做它的后代(Desedant)或子类。类继承的定义格式为：type 类名=class(父类名)数据域说明；方法说明首部；end;TObject：所有类的祖先Delphi的核心是类的层次式结构，TObject是所有类的共同祖先，其它类都是TObject的子类。TObject类在System单元中定义，它没有域（数据），只是定义了一些方法，如构造方法和析构方法等。TPersistent是TObject的子类。TPersistent类定义了两个用于支持复制的虚方法：Assign和Assign To。类的继承返回返回类的封装类的封装访问控制（仅供参考）见example2_21见example2_22返回返回组件与TComponet类ActivexActivex控件类控件类返回返回感谢聆听！感谢聆听！Thanks for your time！