[计算机软件及应用]delphi实验报告.docVIP

《Delphi程序设计》 实验报告 实验名称：选择结构程序设计 实验目的 （1）掌握Object Pascal语言的数据类型，熟悉定义各种数据类型的变量的方法。 （2）学会正确使用逻辑运算符和逻辑表达式。 （3）熟悉掌握If语句和Case语句。 实验内容 实验题1 编程求以下分段函数的值，上机调试运行程序。 x (x1) y = 2x-1 (1=x10) 3x-11 (x=10) 要求使用Edit组件输入x的值，单击“计算”按钮，显示函数值。 上机操作步骤如下所示： 图1 程序代码 图2 图3 思考与练习 （1）比较if…then语句、if…then…else语句、if…then…else语句复合语句和if…then…else语句的嵌套语句的用法，试将“计算”按钮中的程序改为用if…then…else语句的嵌套语句实现。 图5 if…then…else嵌套语句程序代码 （2）编程实现输出3个数中的最大者。 上机操作步骤如下所示： 图6 窗体 图7 程序代码 图8 运行结果 实验题2 编程实现下述功能，并上机调试运行程序。 给出1个百分制成绩，要求输出其对应的成绩等级‘A’、‘B’、‘C’、‘D’、‘E’。其中：90分（包括90分）以上‘A’，80~89分为‘B’，70~79分为‘C’60~69分为 ‘D’，60分以下为 ‘E’。 上机操作步骤如下所示： 图9 窗体 思考与练习 （1）比较if…then…else语句和case语句的适用场合和各自的优缺点。 当1个程序语句的执行情况和顺序需要根据表达式的中间运算结果来确定，这就需要用条件语句来判断某个变量或表达式值得情况。Case语句对1个结果的多个分支进行判断，可以用来在多个分支的情况中选择1个条件，而不在需要用大量嵌套的if…else语句，形式上更简单，易理解。 （2）将“等级”按钮中的程序改为用if…then…else语句的嵌套语句来实现。 图13 if…then…else嵌套语句程序代码 图14 运行结果 实验总结 （1）通过实验我掌握Object Pascal语言的数据类型，熟悉了定义各种数据类型的变量的方法以及条件控制语句的两种：If语句和case语句。 （2）掌握了if…then语句、if…then…else语句、if…then…else复合语句和if…then…else语句的嵌套语句的用法。 （3）知道了if…then…else语句和case语句的适用场合和各自的优缺点： 当1个程序语句的执行情况和顺序需要根据表达式的中间运算结果来确定，这就需要用条件语句来判断某个变量或表达式值得情况。Case语句对1个结果的多个分支进行判断，可以用来在多个分支的情况中选择1个条件，而不在需要用大量嵌套的if…else语句，形式上更简单，易理解。 （4）学会了if…then…else复合语句和if…then…else语句的嵌套语句的相互转换。 《Delphi程序设计》 实验报告 实验名称： 循环结构程序设计 实验目的 （1）熟悉Object Pascal 语言中各种循环结构的使用方法。 （2） 掌握在程序设计中使用FOR…DO,WHILE…DO和REPEAT…UNTIL循环语句实现各种算法。 实验内容 实验题3 输入2个正整数，求其最大公约数和最小公倍数。 上机操作步骤如下： 图1 窗体 图2 程序代码 图3 运行结果 思考与练习 将上述程序中的while循环改写成for循环。 程序代码改写如下所示： 图4 程序代码 实验题4 输出100~999之间的所有“水仙花数”。所谓“水仙花数”是指1个3位数，其各位数字立方和等于该数本身。例如153是一个“水仙花数”，因为153=13+33+53。 上机操作步骤如下所示： 图5 窗体 图6 程序代码 图7 运行结果 思考与练习 （1）比较Object Pascal 语言中3种循环结构，分析它们的适用场合。 for循环适用于事先知道循环次数的情况，while…do循环结构用在先判断条件表达式是否为真，然后重复执行某一段代码的情况下，repeat…until在条件表达式为真前反复执行给定的代码，并且循环体至少执行1次。 实验总结 （1）通过实验掌握了Object Pascal 语言中各种循环结构的使用方法。 （2） 掌握在程序设计中使用FOR…DO,WHILE…DO和REPEAT…UN