Delphi程序的设计实验指导书-8.docVIP

常州大学·Delphi程序设计实验指导书 第 1 页 共 NUMPAGES 14 页 《Delphi程序设计》 实验指导书 杨长春 刘 俊 石 林 编写 常州大学 信息科学与工程学院 目 录 TOC \o 1-3 \h \z \u HYPERLINK \l _Toc317862556 实验1 语法基础及常用组件应用 PAGEREF _Toc317862556 \h 4 HYPERLINK \l _Toc317862557 实验2 过程与函数 PAGEREF _Toc317862557 \h 7 HYPERLINK \l _Toc317862558 实验3 高级数据类型 PAGEREF _Toc317862558 \h 8 HYPERLINK \l _Toc317862559 实验4 键盘鼠标文件编程 PAGEREF _Toc317862559 \h 10 HYPERLINK \l _Toc317862560 实验5 多媒体编程 PAGEREF _Toc317862560 \h 11 HYPERLINK \l _Toc317862561 实验6 Windows高级编程 PAGEREF _Toc317862561 \h 12 HYPERLINK \l _Toc317862562 实验7 数据库编程 PAGEREF _Toc317862562 \h 13 HYPERLINK \l _Toc317862563 实验8 网络编程 PAGEREF _Toc317862563 \h 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 高级数据类型 [实验目的] 掌握枚举、子界、集合、数组、记录类型的定义及应用；理解指针类