Delphi面向对象语言在气象业务中的应用.docVIP

Delphi 面向对象语言在气象业务中的应用 【实验目的】 熟悉Delphi集成开发环境，掌握编辑、编译、运行程序的操作 Objiect Pascal语言程序设计基础训练。理解对象Pascal程序格式，掌握基本数据类型，熟练运用分支、循环等语句控制程序流程，学会函数和过程的编写和调用。 【实验内容】 大气综合观测实习，利用常用的组件，编写一气象计算工具程序（要求程序界面友好，兼顾美观）。 首先 先展示一下实验成果： 实验步骤及过程： 先安装组件。将需要的组件先放在窗口上。 特别要注意一些细节，比如：tab键的顺序 编辑代码。 完整代码如下： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; Button1: TButton; Label3: TLabel; Label4: TLabel; Edit2: TEdit; Label5: TLabel; Label6: TLabel; Edit3: TEdit; Label7: TLabel; Label8: TLabel; Label9: TLabel; Edit4: TEdit; Edit5: TEdit; Label10: TLabel; Label11: TLabel; Edit6: TEdit; Label12: TLabel; Label13: TLabel; Edit7: TEdit; Label14: TLabel; Label15: TLabel; Edit8: TEdit; Edit9: TEdit; Button2: TButton; Label16: TLabel; Label17: TLabel; Shape1: TShape; Shape2: TShape; Shape3: TShape; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var i1{干球温度},i2{湿球温度},i3{12小时前温度},i4{附属温度},i5{气压读数},t1{干球温度订正值},t2{湿球温度订正值},t3{12小时前温度订正值},t4{附属温度订正值},p{气压读数订正值},pn,p0,e,td:integer; y,z,z1,t11,t22,t33,m,m1,e1,pn1:double; begin i1:=strtoint(Edit1.Text); i2:=strtoint(Edit2.Text); i3:=strtoint(Edit3.Text); i4:=strtoint(Edit4.Text); i5:=strtoint(Edit5.Text); t1:=i1+1;t11:=t1; t2:=i2+1;t22:=t2; t3:=i3+1;t33:=t3; t4:=i4; p:=i5; y:=p*(9.78494/9.80665)*((1+0.001818)/(1+0.0000184)); pn:=trunc(y); m:=22/(18400/(1+((t11+t33)/2+0.1)/273)); z1:=exp(m*2.302585093); z:=y*z1; p0:=trunc(z); m1:=exp(2.302585093*(7.45*t1/(t1+2350))); e1:=6.1078*m1; pn1:=pn; e:=trunc(e1-0.00062*pn1*(t22-t11)); td:=trunc