追击问题作战模拟 unit Unit2; interface uses Windows, Messa

文件名称: 追击问题作战模拟

所属分类: 网页制作

开发工具:

文件大小: 2kb

下载次数: 0

上传时间: 2011-11-14

提供者: a2391*****

下载 (2kb)

不能下载？报告错误

详细说明： unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Math, TeEngine, Series, ExtCtrls, TeeProcs, Chart; type Tcatchform = class(TForm) lbl1: TLabel; lbl2: TLabel; lbl3: TLabel; lbl4: TLabel; lbl5: TLabel; lbl6: TLabel; lbl7: TLabel; lbl8: TLabel; lbl9: TLabel; lbl10: TLabel; lbl11: TLabel; lbl12: TLabel; btn1: TButton; edt1: TEdit; edt2: TEdit; edt3: TEdit; edt4: TEdit; edt5: TEdit; edt6: TEdit; edt7: TEdit; edt8: TEdit; edt9: TEdit; edt10: TEdit; edt11: TEdit; cht1: TChart; lnsrsSeries1: TLineSeries; lbl13: TLabel; procedure btn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var catchform: Tcatchform; implementation {$R *.dfm} procedure Tcatchform.btn1Click(Sender: TObject); var LX,LY,HX,HY,LV,HVY,HV,C,X,Y:real; T1,T2,T:real; //T1是越野时间，T2是路上时间 LX1,LY1,a,b,BC,min:real; k:integer; begin HX:=strtofloat(edt1.Text); LX:=strtofloat(edt2.Text); HY:=strtofloat(edt3.Text); LY:=strtofloat(edt4.Text); C:=strtofloat(edt5.Text); HVY:=strtofloat(edt6.Text); HV:=strtofloat(edt7.Text); LV:=strtofloat(edt8.Text); BC:=0; a:=LX; b:=LY; min:=5000; repeat BC:=BC+0.001;//取步长 for k:=1 to 500 do begin a:=LX+k*BC; b:=LY+k*tan(C*pi/180)*BC; //上路点假想 T1:=sqrt(sqr(b-HY)+sqr(a-HX))/HVY; LX1:=LX+LV*cos(C*pi/180)*T1; LY1:=LY+LV*sin(C*pi/180)*T1; if LX1T then begin min:=T; X:=a; Y:=b; cht1.Series[0].AddXY(X,min,'',clred); end; end; until BC>4; edt9.Text:=floattostr(X); edt10.Text:=floattostr(Y); edt11.Text:=floattostr(min); end; end. ...展开收缩

(系统自动生成,下载前可以参看下载内容)