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

运行界面：

代码： unit Unit1;

interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type

TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; resultLabel: TLabel;

procedure Edit1Change(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end; var

Form1: TForm1; salary: Real; outSalary: Real; implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject); begin

salary := StrToFloat(form1.Edit1.Text);

if (salary >= 1000) then

outSalary := salary * (1 + 0.2)

else if (salary < 1000) And (salary >= 800) then outSalary := salary * (1 + 0.15) else if (salary < 800) then

outSalary := salary * (1 + 0.1);

form1.resultLabel.Caption := FloatToStr(outSalary); end; End.

第六章

6.5 设s=1X2X3X…Xn，求s不大于20000时最大的n。 答：设计界面：

运行界面：

代码： unit Unit1;

interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type

TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; resultLabel: TLabel;

procedure FormCreate(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end;

var

Form1: TForm1;

number, n, tot: Integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject); begin

tot := 1; n := 0;

number := StrToInt(form1.Edit1.Text); While tot <= number do begin

n := n + 1; tot := tot * n; end;

form1.resultLabel.Caption := IntToStr(n-1); end; end.

6.10 在标签上输出100~200之间的所有的奇数，其中3的倍数除外。 答：设计界面：

运行界面：

代码：

unit Unit1;

interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type

TForm1 = class(TForm) resultLabel: TLabel;

procedure FormCreate(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end; var

Form1: TForm1; number, i: Integer; outStr: String;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject); begin

for i:= 100 to 200 do begin

if i mod 2 <> 0 then if i mod 3 <> 0 then

outStr := outStr + ' ' + IntToStr(i);

form1.resultLabel.Caption := outStr; end; end; end.

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