资源描述：
《Delphi面向对象语言在气象业务中的应用》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、Delphi面向对象语言在气象业务中的应用【实验目的】1、熟悉Delphi集成开发环境，掌握编辑、编译、运行程序的操作2、ObjiectPascal语言程序设计基础训练。理解对象Pascal程序格式，掌握基本数据类型，熟练运用分支、循环等语句控制程序流程，学会函数和过程的编写和调用。【实验内容】1、大气综合观测实习，利用常用的组件，编写一气象计算工具程序（要求程序界面友好，兼顾美观）。首先先展示一下实验成果：实验步骤及过程:1、先女装组件。将需要的组件先放在窗口上。特别要注意一些细节，比如:tab键的顺序Controlslistedintaborder:nnnnnnnn山山川山ud川山川u
2、二二-二二二一「rl二二二二二二「rlEdit:TEditJjJjOKCancel旦elp2、编辑代码。目Unii■pasUnit"13:«strtoint(Edit3.Text);A■x4:=svrzomz(Ed丄匸4.Texz);♦15:=strtomt(Edit5.Text);■tl:=11+1;til:=tl;■Z2:=i2+l;C22:=C2;■t3:=1341;r33:=t3;♦匸4:=14;p：=±5;■y:=p*(9.78494/9.80665)*((1+0.001318)/(1+0.0000184));■pn:=rrunc(y);■m:=22/(18400/(1+((tl
3、l+t33)/2+0.1)/273));zl:=exp(m*2.302585093);♦z:=y*zl;——pO:=trunc(z);mi:=exp(2.3025S5093>(7.45*rl/(ti42350)));■el:=6.1078*ml;■pnl:=pn;■e:=trunc(ei-0.00062*pni*;■td:=cxunc(243.92*ln((el-0.00062*pnl*(t22-tll))/6.107S)/(7.6Jv
4、l<1iKi)圜163:441nsertCode/Dlagram/(±ZTForml+LJVariables兀onstank•±□Uses完整代码如下：
5、unitUnitl;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ExtCtrls;typeTForm1=class(TForm)Label1:TLabel;Editl:TEdit;Label2:TLabel;Button1:TButton;Label3:TLabel;Label4:TLabel;Edit2:TEdit;Label5:TLabel;Label6:TLabel;Edit3:TEdit;Label7:TLabel;Label8:TL
6、abel;Label9:TLabel;Edit4:TEdit;Edit5:TEdit;Label10:TLabel;Label11:TLabel;Edit6:TEdit;Label12:TLabel;Label13:TLabel;Edit7:TEdit;Label14:TLabel;Labell5:TLabel;Edits：TEdit;Edit9:TEdit;Button2:TButton;Label16:TLabel;Label17:TLabel;Shape1:TShape;Shape2:TShape;Shape3:TShape;procedureButton1Click(Sender:
7、TObject);procedureButton2Click(Sender:TObject);private｛Privatedeclarations)public｛Publicdeclarations｝end;varForm1:TForm1;implementation｛$R*.dfm｝procedureTForm1.Button1Click(Sender:TObject);var订｛干球温度打2｛湿球温度｝,i3｛12小时前温度｝,i4｛附属温度打5｛气压读数｝」1｛干球温度订正值口2｛湿球温度订正值｝,t3｛12小时前温度订正值口4｛附属温度订正值｝,p｛气压读数订正｛S｝,pn,pO
8、,e,td:integer;y,z,zl,tll,t22,t33,m,m1,e1,pnl:double;beginil:=strtoint(Edit1.Text);i2:=strtoint(Edit2.Text);i3:=strtoint(Edit3.Text);i4:=strtoint(Edit4.Text);i5:=strtoint(Edit5.Text);tl:=il+l;tll:=tl;t2:=i2+l;t22:
