Delphi实验一.doc

实验一
1、 习题1-9：编写一个程序，要求：输入圆的半径，计算并输出圆的内接正方形、外切正方形面积。
具体操作步骤如下：
(1)、界面设计。
使用Button、Edit、Label组件即可完成界面设计，用户界面如图所示。

(2)、属性设置。
各组件的设置如图所示。
对象
属性
属性值
说明
Label1
Caption
请输入圆的半径
标签的内容
Label2
Caption
内接正方形面积
标签的内容
Label3
Caption
外切正方形面积
标签的内容
Edit1
Text
空白
输入一个实数
Edit2
Text
空白
显示内接面积
Edit3
Text
空白
显示外切面积
Button1
Caption
计算
按钮的标题
(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)、属性设置。
各组件的设置如图所示。
对象
属性
属性值
说明
Label1
Caption
第一种商品
标签的内容
Label2
Caption
第二种商品
标签的内容
Label3
Caption
第三种商品
标签的内容
Label4
Caption
单价
标签的内容
Label5
Caption
数量
标签的内容
Label5
Caption
空白
显示总计金额
Edit1
Text
空白
输入一个正实数
Edit2
Text
空白
输入一个正实数
Edit3
Text
空白
输入一个正实数
Edit4
Text
空白
输入一个正整数
Edit5
Text
空白
输入一个正整数
Edit6
Text
空白
输入一个正整数
Button1
Caption
计算
按钮的标题
(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)、属性设置。
各组件的设置如图所示。
对象
属性
属性值
说明
Label1
Caption
请输入工资
标签的内容
Label2
Caption
100元
标签的内容
Label3
Caption
50元
标签的内容
Label4
Caption
20元
标签的内容
Label5
Caption
10元
标签的内容
Label6
Caption
5元
标签的内容
Label7
Caption
2元
标签的内容
Label8
Caption
1元
标签的内容
Label9
Caption
5角
标签的内容
Label10
Caption
2角
标签的内容
Label11
Caption
1角
标签的内容
Label12-22
Caption
张
标签的内容
Edit1
Text
空白
输入一个正实数
Edit2-11
Text
空白
显示各钞票张数
Button1
Caption
计算
按钮的标题
(3)、程序设计。
代码如下：
procedure TForm3.Button1Click(Sender: TObject);
var
i: integer;
salary,temp: real;
num,size: Array[1..10]of real;
begin
salary := strtofloat(edit1.Text);

size[1] := 100.0;
size[2] := 50.0;
size[3] := 20.0;
size[4] := 10.0;
size[5] := 5.0;
size[6] := 2.0;
size[7] := 1.0;
size[8] := 0.5;
size[9] := 0.2;
size[10] := 0.1;
temp := salary;

for i:=1 to 10 do
begin
num[i]:=Int(temp/size[i]);
temp:=temp-num[i]*size[i];
end;

if temp>=0.05 then
num[10]:=num[10]+1;
edit2.Text:=floattostr(num[1]);
edit3.Text:=floattostr(num[2]);
edit4.Text:=floattostr(num[3]);
edit5.Text:=floattostr(num[4]);
edit6.Text:=floattostr(num[5]);
edit7.Text:=floattostr(num[6]);
edit8.Text:=floattostr(num[7]);
edit9.Text:=floattostr(num[8]);
edit10.Text:=floattostr(num[9]);
edit11.Text:=floattostr(num[10]);
end;
4、习题2-8：编写程序，任意输入一个整数，判断证书的奇偶性。
具体操作步骤如下：
(1)、界面设计。
使用Button、Edit、Label组件即可完成界面设计，用户界面如图所示。

(2)、属性设置。
各组件的设置如图所示。
对象
属性
属性值
说明
Label1
Caption
请输入一个整数
标签的内容
Label2
Caption
空白
显示判断结果
Edit1
Text
空白
输入一个整数
Button1
Caption
判断
按钮的标题
(3)、程序设计。
代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
x: integer;
begin
x := strtoint(edit1.Text);
if(x Mod 2 = 0) then
label2.Caption := '这个数是一个偶数!'
else
label2.Caption := '这个数是一个奇数!';
end;