初三1000米成绩转换工具代码

1、unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; procedure Button1Click(Sender: TObject); function TForm1.ChengJiDJ(FS: real): string; private Private declara

2、tions public Public declarations end;var Form1: TForm1;implementation$R *.dfmfunction Tform1.ChengJiDJ(FS: real): string; /自定义函数输入成绩返回成绩等级begin if (FS<=3.30) then result:= '15'else if (FS<=3.36) and (FS>3.30) thenresult:= '14.5'else if (FS<=3.38) and (FS>3.36) then res

3、ult:= '14'else if (FS<=3.42) and (FS>3.38) then result:= '13.5'else if (FS<=3.46) and (FS>3.42) then result:= '13'else if (FS<=3.50) and (FS>3.46) then result:= '12.5'else if (FS<=3.54) and (FS>3.50) then result:= '12'else if (FS<=3.

4、58) and (FS>3.54) then result:= '11.5'else if (FS<=4.02) and (FS>3.58) then result:= '11'else if (FS<=4.06) and (FS>4.02) then result:= '10.5'else if (FS<=4.10) and (FS>4.06) then result:= '10'else if (FS<=4.15) and (FS>4.10) then result:= &

5、#39;9.5'else if (FS<=4.20) and (FS>4.15) then result:='9'else if (FS<=4.25) and (FS>4.20) then result:= '8'else if (FS<=4.30) and (FS>4.25) then result:= '7'else if (FS<=4.35) and (FS>4.30) then result:= '6'else if (FS<=4.45) and (FS>

6、4.35) thenresult:= '5'else if (FS<=4.55) and (FS>4.45) then result:= '4'elseif (FS<=5.05) and (FS>4.55) then result:= '3'else if (FS<=5.15) and (FS>5.05) then result:= '2'else if (FS<=5.25) and (FS>5.15) then result:= '1'else if (FS>5.25) then result:= '0' end;procedure TForm