Текст программы

// Заголовок и перечень используемых библиотек. К стандартным добавляется библиотека Math для расчета сложных степеней и извлечения корня.

unit Dautova;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Math, Menus;

//Конструктор используемых объектов графического окна. TLabel - статичные надписи, TEdit - окно текста с изменяемым содержимым для вывода результатов расчета, TButton - кнопка запуска расчета.

type= class(TForm): TLabel;: TLabel;: TEdit;: TEdit;: TButton;: TLabel;: TLabel;: TEdit;: TEdit;: TLabel;: TEdit;: TLabel;: TLabel;: TEdit;: TLabel;: TEdit;: TLabel;: TEdit;: TLabel;: TEdit;: TLabel;: TEdit;: TLabel;: TEdit;: TLabel;: TEdit;: TLabel;: TEdit;: TLabel;: TEdit;: TLabel;: TEdit;: TLabel;: TEdit;: TLabel;: TEdit;: TLabel;: TEdit; FormCreate (Sender: TObject); //Конструктор процедуры создания диалогового окна.

procedure btn1Click(Sender: TObject); // Конструктор процедуры обработки нажатия на кнопку в диалоговом окне.

// Объявление переменных

{ Private declarations }, Q, Len, Lex, Pmax, C, Ki, J, a, n1, B1, T, Nsec, Zona, At, Vt :Integer;, La, Tf, Qo, Qs, Ks, Vob, Qmax, Frez, H, Hs, V, Tp, P, Tatm, Ai, S, Ko, fi, R, Ap, Len1, Ta, x, k2, k3, Vc, Vn, Fpol, f, Fdop, k1, Dss, Den, Uo :Real;;

// Начало программы.

var

Form1: TForm1;

implementation

{$R *.dfm}

// Процедура создания основного окна программы, основной текст программы.

procedure TForm1.FormCreate(Sender: TObject);

// Вывод окна стандартных размеров 1024*768

Form1.Width := 1024;

Form1.Height := 768;

// Присвоение значений переменным для расчетов.

Len:=230; Lex:=35; Ai:=3.2; S:=0.3; Pmax:=85; C:=2; Ki:=33; Ko:=0.625;:=0.44; D:=45; Qmax:=4.85; Ks:=0.4; Fi:=0.007; J:=130; k1:=0.3; a:=2; k3:=0.75; k2:=0.8; Vn:=2.1; D:=2; n1:=1; T:=150; Hs:=1.5; B1:=78; Nsec:=3; Zona:=3;:=10; Dss:=2.5; Den:=1.5; Uo:=1.4; Vt:=0;

// Формулы расчета:=Pmax*((Lex*C)/(Lex*C+Ki*C+Ko*Lex))*(1/(1+Fi*Ai));:=(Len-Lex)/(Ai*(1-S)*P);:=Ai/(1000/J-Ai);:=0.5*R*Ai;:=(Len+Lex*R)/(1+R);:=2.5/sqrt(Ai)*Log10(Len1/Lex);:=Vn/4;:=Vc*366/(D*n1);:=Fpol/2;:=k1*Fpol;:=Fdop+Fpol;:=(T*Vc*k3)/(Fpol*k2);:=Vc*366*4/20;:=V/35;:=Qmax*2;:=4.5*Ks*(Power(Hs, 0.8))/(Power(0.1*J*Ai, 0.05-0.001*At));:=2.8*Ks*(Dss-Den)*(Uo-Vt);:=(Nsec*Zona)/Qmax;:=Len*0.8;:=B1*0.5;

end;

// Процедура нажатия на кнопку. Запускает вывод расчетов в окна TEdit.

procedure TForm1.btn1Click(Sender: TObject);.text:=floattostr(Tatm);.text:=floattostr(P);.Text:=FloatToStr(R);.Text:=FloatToStr(Ap);.Text:=FloatToStr(Ta);.Text:=FloatToStr(Vc);.Text:=FloatToStr(Fpol);.Text:=FloatToStr(Fdop);.Text:=FloatToStr(Frez);.Text:=FloatToStr(V);.Text:=FloatToStr(Tp);.Text:=FloatToStr(H);.Text:=FloatToStr(Vob);.Text:=FloatToStr(Qs);.Text:=FloatToStr(Qo);.Text:=FloatToStr(Tf);.Text:=FloatToStr(La);.Text:=FloatToStr(B);;

end. // Конец программы.

Другие статьи

Выявление видового состава и определение условий формирования малакофауны в городских условиях Причины, определяющие распространение живых организмов на поверхности нашей планеты, легко разделить на две большие категории. Первая - факторы, влияющие на размещение условий, в которых может существовать тот или иной организм. Вторая - совокупность тех исторических ...