台州电大陈元的数据库应用程序设计离线作业(3)

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%。请根据用户在文本框中输入的基本工资，计算出增加后的工资。 答：设计界面：

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库台州电大陈元的数据库应用程序设计离线作业(3)在线全文阅读。