Основной модуль

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.