实验2 数组、条件语句、循环语句及九九乘法表开发.doc

实验2 数组、条件语句、循环语句及九九乘法表开发一、实验目的1. 掌握数组的使用方法，并能够灵活运用。2. 掌握顺序语句和条件语句的语法结构、使用方法及注意事项。3. 掌握循环语句的语法结构、使用方法及注意事项。二、实验内容【实验题1】编程求以下分段函数的值，上机调试运行程序。 x (x1)y= 2x-1 (1x10)3x-11 (x10)要求使用Edit组件输入x的值，按“计算”按钮，显示函数值。【实验题2】编程实现下述功能，并上机调试运行程序。给出百分制的成绩，要求输出其对应的成绩等级“A”，“B”，“C”，“D”，“E”。其中：90分(包括90分)以上为“A”，8089分为“B”，7079分为“C”，6069分为“D”，60分以下为“E”。【实验题3】输出100999之间的所有“水仙花数”。所谓“水仙花数”是指1个3位数，其各位数字立方和等于该数本身。例如153是1个“水仙花数”，因为153=13+53+33。【实验题4】利用循环语句编程实现九九乘法表。要求在一个Memo组件中显示，且各行各列严格对齐。三、实验仪器、设备1.计算机（Windows2000以上的操作系统，2.4GHz以上主频，512M以上内存）；2.Delphi 7.0（或更高版本）软件集成开发环境。四、实验步骤【实验题1】(1)选择主菜单的FileNewApplication，新建1个应用程序。(2)在窗体上放置2个Label组件，1个Edit组件和2个Button组件。窗体如图2.1所示。各组件的主要属性见表2-1。表2-1 各组件的主要属性图2.1 窗体设计(3)双击“计算”按钮，在TForm1.Button1Click事件处理器的编辑区中输入下列代码：var x,y:integer; result:string;begin x:= strtoint(edit1.text); if x1 then y:=x else if x10 then y:=2*x-1 else y:=3*x-11; str(y,result); /相当于result:=inttostr(y)； label2.caption:=函数值为：+result;end;(4)双击“关闭”按钮，在TForm1.Button2Click事件处理器的编辑区中输入下列一行代码：close;(5)保存文件，按F9键运行程序。在Edit1中输入数值，按“计算”按钮，观看运行结果。如图2.2和图2.3所示是分别输入7和14时的运行结果。 图2.2 运行结果之一 图2.3 运行结果之二【实验题2】 (1)选择主菜单的FileNewApplication，新建1个应用程序。(2)在窗体上放置2个Label组件，1个Edit组件和2个Button组件。窗体设计如图2.4所示。各组件的主要属性见表2-2。表-2-2 各组件的主要属性图2.4 窗体设计(3)双击“等级”按钮，在TForm1.Button1Click事件处理器的编辑区中输入下列代码：var score: 0.100; grade: string;begin score:=strtoint(edit1.text); case score of 90.100: grade:=A; 80.89: grade:=B; 70.79: grade:=C; 60.69: grade:=D; else grade:=E; end;label2.caption:=该成绩的等级是：+grade;end;(4)双击“关闭”按钮，在TForm1.Button2Click事件处理器的编辑区中输入代码“close”；(5)保存文件，按F9键运行程序。在Edit1中输入成绩，按“等级”按钮，观看运行结果。图2.5和图2.6是分别输入56和87时的运行结果。 图2.5 运行结果一 图2.6 运行结果二【实验题3】(1)选择主菜单的FileNewApplication，新建1个应用程序。(2)在窗体上放置1个Label组件，1个Memo组件和2个Button组件。窗体设计如图2.9所示，各组件的主要属性见表2-4。图2.10 运行结果表2-4 各组件的主要属性图2.9 窗体设计(3)双击“输出”按钮，在TForm1.Button1Click事件处理器的编辑区中输入下列代码：var i,j,k,n:integer; result:string; begin for n:=100 to 999 do begin i:=n div 100; j:=n div 10-i*10; k:=n mod 10; if n=i*i*i+j*j*j+k*k*k then begin str(n,result); Memo1.Lines.add(result); end;end; end;(4)双击“关闭”按钮，在TForm1.Button2Click 事件处理器的编辑区中输入代码“close”；(5)保存文件，按F9键运行程序。单击“输出”按钮，观看运行结果，如图2.10所示。【实验题4】(1)选择主菜单的FileNewApplication，新建1个应用程序。(2)在窗体上放置1个Label组件，1个Memo组件和2个Button组件。窗体设计如图2.11所示，各组件的主要属性见表2-5。表2-5 各组件的主要属性组 件 名属 性属 性 值Form1Caption九九乘法表Button1Caption打印九九乘法表Button2Caption退出程序图2.11 窗体设计(3)双击“打印九九乘法表”按钮，在TForm1.Button1Click事件处理器的编辑区中输入下列代码：var i,j:integer; str1:string;begin memo1.Clear; memo1.Lines.Add( 九九乘法表 ); memo1.Lines.Add(); str1:=; for i:=1 to 9 do begin for j:=1 to i do beginif (j=3) and (i=3) or (i=4) then str1:=str1+ +inttostr(j)+*+inttostr(i)+=+inttostr(i*j)+ else str1:=str1+inttostr(i)+*+inttostr(j)+=+inttostr(i*j)+ ; /表达式输出 end; memo1.Lines.Add(str1); /输出显示 str1:=; end;(4)双击“退出程序”按钮，在TForm1.Button2Click 事件处理器的编辑区中输入代码“close”；(5)保存文件，按F9键运行程序。单击“打印九九乘法表”按钮，观看运行结果，如图2.12所示。图2.12 运行结果五、实验的注意事项1.在事件代码中使用条件语句时，应该注意代码的层次。2.为了保护程序的完整性，每个实验题目应建立一个独立的文件夹。3.注意代码中的组件名称要和窗口设计中的组件名称一致。六、实验报告要求1.书写实验报告时，应写明所用的设备、软件及其版本、机器编号。2.实验内容部分要详细写出实验项目所要求的具体内容和实验所要完成的主要功能。2.在实验步骤中要求写出详细的参数设置和实验结果。3.实验总结中应写出在程序设计或调试过程中出现的主要问题及解决方法或思路。七、思考题1.比较ifthen语句、ifthenelse语句、ifthenelse复合语句和ifthenelse语句的嵌套语句的用法，试将【实验题1】中“计算”按钮中的程序改为用ifthenels