Delphi程序设计试验指导书 8.doc

《Delphi程序设计》 实验指导书 杨长春 刘 俊 石 林 编写 常州大学 信息科学与工程学院 目 录 实验1 语法基础及常用组件应用 4 实验2 过程与函数 7 实验3 高级数据类型 8 实验4 键盘鼠标文件编程 10 实验5 多媒体编程 11 实验6 Windows高级编程 12 实验7 数据库编程 13 实验8 网络编程 14 实验1 语法基础及常用组件应用 [实验目的] (1) 掌握Delphi程序设计的上机步骤。 (2) 了解Delphi集成化开发环境。 (3) 认识应用程序框架。 (4) 掌握Object Opascal语言程序设计。 [实验要求] (1) 做好实验预习，掌握并熟悉本实验涉及到的内容 (2) 写出实验报告，内容要求： 实验目的 实验内容，实验源代码写出关键的部分，一定要写出实验中出现的错误，以及解决错误的方法。 出错信息及处理方法。 实验结果，包括实验处理结果和设计心得。 [实验环境] (1) 操作系统：Windows 2000 Pro +SP4/WinXP； (2) 开发环境：Delphi6.0/7.0 [实验内容] 1．练习使用Delphi可视化设计方法步骤 (1) 启动程序，新建工程。 (2) 添加组件 (3) 设置组件属性 (4) 编写代码 (5) 保存工程 (6) 运行工程 2．编程题（必做题） 题目1：输入圆的半径，计算并输出圆的内接正方形、外切正方形面积。 题目2：在编辑框中输入三种商品的单价、购买数量，计算并输出所用的总金额。 题目3：键盘输入a,b,c的值，判断他们能否构称三角形的三个边。如果能够构成一个三角形，则计算三角形的面积。 题目4：设计程序，求s＝1+(1+2)+(1+2+3)+(1+2+3+4)+……+(1+2+……+n)的值。 3．编程题（选做题） 题目1：单位发工资。某职工应发工资X元，试求各种票额钞票总张数最少的付款方案。 题目2：编写程序，任意输入一个整数，判断整数的奇偶性。 实验2 过程与函数 [实验目的] (1) 掌握自定义过程与函数 (2) 掌握传输传递方式：按值传递、按地址传递 (3) 理解变量作用域 [实验要求] (1) 做好实验预习，掌握并熟悉本实验涉及到的内容 (2) 写出实验报告，内容要求： 实验目的 实验内容，实验源代码写出关键的部分，一定要写出实验中出现的错误，以及解决错误的方法。 出错信息及处理方法。 实验结果，包括实验处理结果和设计心得。 [实验环境] (1) 操作系统：Windows 2000 Pro +SP4/WinXP； (2) 开发环境：Delphi6.0/7.0 [实验内容] 1．编程题（必做题） 题目1：自定义函数或过程，实现任意数是否为素数的判断。 题目2：自定义函数或过程，实现数字字符串的判断。（说明：数据字符串是一字符，包含的每个字符都是数字字符，如‘123.45’为数字字符串，‘12ab_c’，为非数字字符串） 题目3：自定义函数或过程，实现十进制到十六进制的转换。过程声明如下： procedure DemtoHex(D: Integer；var H: Integer) begin end; 其中，D为十进制数据，H为十六进制数据。 题目4：自定义函数或过程，获取任一浮点数的整数部分和小数部分； 2．编程题（选做题） 题目1：自定义函数或过程，实现求一元二次方程的根，传入参数为a,b,c，返回结果为x1,x2，注意：包含虚根。 实验3 高级数据类型 [实验目的] 掌握枚举、子界、集合、数组、记录类型的定义及应用；理解指针类型的定义及应用； [实验要求] (1) 做好实验预习，掌握并熟悉本实验涉及到的内容 (2) 写出实验报告，内容要求： 实验目的 实验内容，实验源代码写出关键的部分，一定要写出实验中出现的错误，以及解决错误的方法。 出错信息及处理方法。 实验结果，包括实验处理结果和设计心得。 [实验环境] (1) 操作系统：Windows 2000 Pro +SP4/WinXP； (2) 开发环境：Delphi6.0/7.0 [实验内容] 1．编程题（必做题） 题目1：利用枚举和子界类型实现今天、明天和昨天是星期几的判断。要求：星期一至星期日用枚举类型定义，然后通过子界类型的顺序类型函数进行计算。 题目2：利用集合类型实现筛法求素数。 题目3：利用二维数组实现输出幻方阵。幻方阵也称方阵，是指由自然数1～n(n为奇数)构成的方阵，其各行、各列以及对角线元素之和均为相等。 题目4：利用二维数组实现输出易一8╳8的方阵，对角线和反对角线元素为8，其余元素为1。 2．编程题（选做题） 题目1：使用高级类型创建一链表，实现学生基本信息管理。可以插入、修改、删除和查询学生记录信息。 提示：结点定义如下 t