Delphi实验一.docVIP

实验一 习题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; 习题1-10：编写一个程序，要求：在文本编辑框中输入三种商品的单价、购买数量、计算并输出所用的总计金额。 具体操作步骤如下： (1)、界面设计。 使用Button