4.8 在编辑框中输入一个实数，利用备注框输出该实数及其平方和平方根。 答：设计界面：
运行界面：
代码： unit Unit1; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type
TForm1 = class(TForm) Edit1: TEdit; Label1: TLabel; Memo1: TMemo; Label2: TLabel;
procedure Edit1Change(Sender: TObject); procedure FormCreate(Sender: TObject); private
{ Private declarations } public
{ Public declarations } end; var
Form1: TForm1;
num1 : Real; //原实数 num2 : Real; //实数平方 num3 : Real; //实数平方根 implementation
{$R *.dfm}
procedure TForm1.Edit1Change(Sender: TObject); begin
if form1.Edit1.Text <> '' then begin
num1 := StrToFloat(form1.Edit1.Text); num2 := Sqr(num1); num3 := Sqrt(num1);
form1.Memo1.Lines.Clear;
form1.Memo1.Lines.Add('实数为 : ' + FloatToStr(num1)); form1.Memo1.Lines.Add('平方为 : ' + FloatToStr(num2)); form1.Memo1.Lines.Add('平方根为 : ' + FloatToStr(num3)); end; end; End.
第五章
5.11 任意给定3个实数，按照从大到小的顺序依次输出这3个数。 答：设计界面：
运行界面：
代码：unit Unit1;
interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type
TForm1 = class(TForm) num1Edit: TEdit; Label1: TLabel; Label2: TLabel; resultLabel: TLabel; num2Edit: TEdit; num3Edit: TEdit;
procedure num1EditChange(Sender: TObject);
procedure num2EditChange(Sender: TObject); procedure num3EditChange(Sender: TObject); private
{ Private declarations }
procedure CompareNumber(); public
{ Public declarations } end; var
Form1: TForm1;
num1 : Real; //数字1 num2 : Real; //数字2 num3 : Real; //数字3
compnum : Real; //比较时转换2数 outStr : String; //输出结果; implementation
{$R *.dfm}
procedure TForm1.CompareNumber(); begin
if (trim(form1.num1Edit.Text) <> '') And (trim(form1.num3Edit.Text) <> '') then begin
num1 := StrToFloat(form1.num1Edit.Text); num2 := StrToFloat(form1.num2Edit.Text); num3 := StrToFloat(form1.num3Edit.Text);
if num2 > num1 then begin
compnum := num1; num1 := num2; num2 := compnum; end;
if num3 > num1 then begin
compnum := num1; num1 := num3; num3 := compnum; end;
if num3 > num2 then
(trim(form1.num2Edit.Text) <> '') And begin
compnum := num2; num2 := num3; num3 := compnum; end;
outStr := FloatToStr(num1) + ',' + FloatToStr(num2) + ',' + FloatToStr(num3);
form1.resultLabel.Caption := outStr; end; end;
procedure TForm1.num1EditChange(Sender: TObject); begin
form1.CompareNumber; end;
procedure TForm1.num2EditChange(Sender: TObject); begin
form1.CompareNumber; end;
procedure TForm1.num3EditChange(Sender: TObject); begin
form1.CompareNumber; end; end.
5.13 假设工资的增幅标准为：若基本工资大于等于1000元，增加工资20%；若小于1000元大于等于800元，则增加工资15%；若小于800元，则增加工资10%。请根据用户在文本框中输入的基本工资，计算出增加后的工资。 答：设计界面：