Delphi实验一.doc

实验一1、 习题1-9：编写一个程序，要求：输入圆的半径，计算并输出圆的内接正方形、外切正方形面积。具体操作步骤如下：(1)、界面设计。使用Button、Edit、Label组件即可完成界面设计，用户界面如图所示。(2)、属性设置。各组件的设置如图所示。对象属性属性值说明Label1Caption请输入圆的半径标签的内容Label2Caption内接正方形面积标签的内容Label3Caption外切正方形面积标签的内容Edit1Text空白输入一个实数Edit2Text空白显示内接面积Edit3Text空白显示外切面积Button1Caption计算按钮的标题(3)、程序设计。代码如下：procedure TForm1.Button1Click(Sender: TObject);var r: real;begin r := strtofloat(edit1.Text); edit2.Text := floattostr(2*r*r); edit3.Text := floattostr(4*r*r);end;2、 习题1-10：编写一个程序，要求：在文本编辑框中输入三种商品的单价、购买数量、计算并输出所用的总计金额。具体操作步骤如下：(1)、界面设计。使用Button、Edit、Label组件即可完成界面设计，用户界面如图所示。(2)、属性设置。各组件的设置如图所示。对象属性属性值说明Label1Caption第一种商品标签的内容Label2Caption第二种商品标签的内容Label3Caption第三种商品标签的内容Label4Caption单价标签的内容Label5Caption数量标签的内容Label5Caption空白显示总计金额Edit1Text空白输入一个正实数Edit2Text空白输入一个正实数Edit3Text空白输入一个正实数Edit4Text空白输入一个正整数Edit5Text空白输入一个正整数Edit6Text空白输入一个正整数Button1Caption计算按钮的标题(3)、程序设计。代码如下：procedure TForm1.Button1Click(Sender: TObject);var x,y,z: real; n1,n2,n3: integer;begin x := strtofloat(edit1.Text); y := strtofloat(edit2.Text); z := strtofloat(edit3.Text); n1 := strtoint(edit4.Text); n2 := strtoint(edit5.Text); n3 := strtoint(edit6.Text); label8.Caption := floattostr(x*n1 + y*n2 + z*n3);end;3、 习题2-5：单位发工资，某职工应发工资X元，试求各种票额钞票总张数最少的付款方案。具体操作步骤如下：(1)、界面设计。使用Button、Edit、Label组件即可完成界面设计，用户界面如图所示。(2)、属性设置。各组件的设置如图所示。对象属性属性值说明Label1Caption请输入工资标签的内容Label2Caption100元标签的内容Label3Caption50元标签的内容Label4Caption20元标签的内容Label5Caption10元标签的内容Label6Caption5元标签的内容Label7Caption2元标签的内容Label8Caption1元标签的内容Label9Caption5角标签的内容Label10Caption2角标签的内容Label11Caption1角标签的内容Label12-22Caption张标签的内容Edit1Text空白输入一个正实数Edit2-11Text空白显示各钞票张数Button1Caption计算按钮的标题(3)、程序设计。代码如下：procedure TForm3.Button1Click(Sender: TObject);var i: integer; salary,temp: real; num,size: Array1.10of real;begin salary := strtofloat(edit1.Text); size1 := 100.0; size2 := 50.0; size3 := 20.0; size4 := 10.0; size5 := 5.0; size6 := 2.0; size7 := 1.0; size8 := 0.5; size9 := 0.2; size10 := 0.1; temp := salary; for i:=1 to 10 do begin numi:=Int(temp/sizei); temp:=temp-numi*sizei; end; if temp=0.05 then num10:=num10+1; edit2.Text:=floattostr(num1); edit3.Text:=floattostr(num2); edit4.Text:=floattostr(num3); edit5.Text:=floattostr(num4); edit6.Text:=floattostr(num5); edit7.Text:=floattostr(num6); edit8.Text:=floattostr(num7); edit9.Text:=floattostr(num8); edit10.Text:=floattostr(num9); edit11.Text:=floattostr(num10);end;4、习题2-8：编写程序，任意输入一个整数，判断证书的奇偶性。具体操作步骤如下：(1)、界面设计。使用Button、Edit、Label组件即可完成界面设计，用户界面如图所示。(2)、属性设置。各组件的设置如图所示。对象属性属性值说明Label1Caption请输入一个整数标签的内容Label2Caption空白显示判断结果Edit1Text空白输入一个整数Button1Caption判断按钮的标题(3)、程序设计。代码如下：procedure TForm1.Button1Click(Sender: TObje