form1.vle2.Values['d_f']:=s;
i_1:=Frac(d_2*1000);
str(i_1,s_1);
i_2:=trunc(d_2*1000);
str(i_2,s);
s:=s+','+s_1;
form1.vle2.Values['d']:=s;
i_1:=Frac(b_2*1000);
str(i_1,s_1);
i_2:=trunc(b_2*1000);
str(i_2,s);
s:=s+','+s_1;
form1.vle2.Values['b']:=s;
x:=100;
y:=393;
x1:=0;
y1:=0;
x9:=x1;
y9:=1000*d_f1/2;
x6:=1000*b_1;
x5:=x6;
l_fas:=1000*(d_a1-d_1)/2;
if l_fas<1 then l_fas:=0 else
if l_fas<1.6 then l_fas:=1 else
if l_fas<2.5 then l_fas:=1.6 else
if l_fas>2.5 then l_fas:=2.5;
y2:=1000*d_a1/2-l_fas;
x3:=l_fas;
y3:=1000*d_a1/2;
x4:=1000*b_1-l_fas;
y7:=1000*d_1/2;
if (2*y3>x4-x3) then koef:=221/(2*y3)
else koef:=200/(x4-x3);
osn_linia(x+koef*x1,y+koef*y1,x+koef*x1,y+koef*y2);
osn_linia(x+koef*x1,y+koef*y2,x+koef*x3,y+koef*y3);
osn_linia(x+koef*x3,y+koef*y3,x+koef*x4,y+koef*y3);
osn_linia(x+koef*x4,y+koef*y3,x+koef*x6,y+koef*y2);
osn_linia(x+koef*x6,y+koef*y2,x+koef*x6,y+koef*y1);
osn_linia(x+koef*x1,y+koef*y9,x+koef*x6,y+koef*y9);
osn_linia(x+koef*x1,y-koef*y1,x+koef*x1,y-koef*y2);
osn_linia(x+koef*x1,y-koef*y2,x+koef*x3,y-koef*y3);
osn_linia(x+koef*x3,y-koef*y3,x+koef*x4,y-koef*y3);
osn_linia(x+koef*x4,y-koef*y3,x+koef*x6,y-koef*y2);
osn_linia(x+koef*x6,y-koef*y2,x+koef*x6,y-koef*y1);
osn_linia(x+koef*x1,y-koef*y9,x+koef*x6,y-koef*y9);
osevaya_linia(x+koef*(x1-5),y+koef*y1,x+koef*(x1+1000*b_1+5),y+koef*y1);
osevaya_linia(x+koef*(x1-5),y+koef*y7,x+koef*(x1+1000*b_1+5),Y+koef*y7);
osevaya_linia(x+koef*(x1-5),y-koef*y7,x+koef*(x1+1000*b_1+5),Y-koef*y7);
l2:
end;
procedure TForm1.SB1Click(Sender: TObject);
begin
ris;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
i:=vle1.InsertRow('d','',true);
i:=vle1.InsertRow('d_a','',true);
i:=vle1.InsertRow('d_f','',true);
i:=vle1.InsertRow('b','',true);
i:=vle2.InsertRow('d','',true);
i:=vle2.InsertRow('d_a','',true);
i:=vle2.InsertRow('d_f','',true);
i:=vle2.InsertRow('b','',true);
end;
procedure TForm1.SB2Click(Sender: TObject);
begin
chertesh;
end;
procedure TForm1.N1Click(Sender: TObject);
begin
halt;
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
ris;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
ris;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, Buttons, ExtCtrls;
type
TForm2 = class(TForm)
hst: TMaskEdit;
hg: TMaskEdit;
ht: TMaskEdit;
hh: TMaskEdit;
kk: TMaskEdit;
nn: TMaskEdit;
plotnost: TMaskEdit;
lnasosa: TMaskEdit;
StaticText1: TStaticText;
StaticText2: TStaticText;
StaticText3: TStaticText;
StaticText4: TStaticText;
StaticText5: TStaticText;
StaticText6: TStaticText;
StaticText7: TStaticText;
StaticText8: TStaticText;
StaticText9: TStaticText;
StaticText10: TStaticText;
qskv: TStaticText;
StaticText11: TStaticText;
QZad: TMaskEdit;
StaticText12: TStaticText;
Button2: TButton;
StaticText13: TStaticText;
mupl: TMaskEdit;
Bevel1: TBevel;
Bevel2: TBevel;
Label1: TLabel;
StaticText14: TStaticText;
Masa: TMaskEdit;
procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit3, Unit1, Unit5;
{$R *.dfm}
procedure TForm2.Button2Click(Sender: TObject);
var
s:string;
cod:integer;
mu_pl,h_isk,n,delta_h_d,h,h_tr,ud_ves,h_st,h_g,h_t,k,plot_nost,Q_zad,l_nasosa:real;
begin
val(hst.Text,h_st,cod);
val(hg.Text,h_g,cod);
val(ht.Text,h_t,cod);
val(kk.Text,k,cod);
val(plotnost.Text,plot_nost,cod);
val(Qzad.Text,Q_zad,cod);
val(lnasosa.Text,l_nasosa,cod);
val(hh.Text,h,cod);
val(nn.Text,n,cod);
val(mupl.Text,mu_pl,cod);
h_t:=h_t*1000000/plot_nost;
ud_ves:=1/plot_nost ;
h_tr:= (0.0012*(Q_zad) + 0.13*Q_zad - 0.25)*(h-l_nasosa);
delta_h_d:=10*exp(1/n*ln(Q_zad*ud_ves/k));
h_isk:=h_st+h_g+h_t+h_tr+delta_h_d;
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.