运行界面：
代码： 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.