unit U_main; // главный модуль
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ComCtrls;
const K=3.76;
ns=14;
nv=15;
type mas_s=array[1..ns]of real;
mas_v=array[1..nv]of real;
var
// таблица D.5
D5t:array[1..9]of integer=(0,5,10,20,30,40,50,60,70); //температура
D5d:array[1..9]of real=(4.9, 7, 9.8, 19, 35.1, 63.1, 111.3, 197,
356); //влагосодержание
// массивы коєффициентов
KV_O2:mas_v=(0.5,0.5,2.0,3.0,2.5,3.5,5.0,6.5,8.0,1.5,0,0,0,0,0);
KQ:mas_v=(127.7,108,358,590,555,636,913,1185,1465,234,0,0,0,0,0);
KV0_CO2:mas_v=(1,0,1,2,2,2,3,4,5,0,0,0,1,0,0);
KV0_SO2:mas_v=(0,0,0,0,0,0,0,0,0,1,0,0,0,1,0);
KV0_H2O:mas_v=(0,1,2,2,1,3,4,5,6,1,0,0,0,0,1);
SG:mas_v; //VG -массив процентного содержания сухого газа
VG:mas_v; //VG -массив процентного содержания влажного газа
// процентный состав сухого и влажного с буквой (v) газа:
CO,COv,H2,H2v,CH4,CH4v,C2H4,C2H4v,C2H2,C2H2v,C2H6,C2H6v,C3H8,C3H8v,
C4H10,C4H10v,C5H12,C5H12v,CO2,CO2v,N2,N2v,O2,O2v,SO2,SO2v,H2S,H2Sv,
H2O, H2Ov: real;
// dsg-влагосодерж-е сухого газа, dsv-влагосодерж-е сухого воздуха
// t - температура воздуха; alfa - коэффициент избытка воздуха
// Ssg, Svg - суммы процентов для сухого и влажного газов
dsg,dsv,t,alfa,Ssg,Svg:real;
// процентный состав продуктов сгорания при alfa=1(с буквой g):
CO2g,SO2g,H2Og,N2g:real;
// процентный состав продуктов сгорания при alfa>1(с буквами ga):
CO2ga,SO2ga,H2Oga,N2ga,O2_izb:real;
// gas - массив имен газов; ММ - массив молекулярных масс
gas:array[1..nv]of string=('CO','H2','CH4','C2H4','C2H2','C2H6',
'C3H8','C4H10','C5H12','H2S','N2','O2','CO2','SO2','H2O');
MM:mas_v=(28,2,16,28,26,30,44,58,72,34,28,32,44,64,18);
fname:string; // имя файла с решением задачи расчета горения
f:Textfile; // файловая переменная
type
TForm_main = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
procedure N1Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form_main: TForm_main;
implementation
uses u_ish_dan, u_rez, U_resh;
{$R *.DFM}
// процедуры обработки пунктов меню
procedure TForm_main.N1Click(Sender: TObject);
begin
//Вывод формы на экран
Form_ish_dan.Show;
end;
procedure TForm_main.N5Click(Sender: TObject);
begin
close
end;
procedure TForm_main.N2Click(Sender: TObject);
begin
Form_rez.Show;
end;
procedure TForm_main.N4Click(Sender: TObject);
begin
Form_resh.Show
end;
end.