» , »


>

>̲Ͳ²

>ֲͲͲ

>

> ӲӔ

:

>

> ..

> ..

> - 2008


>

/ > >.. >. >
1 > >Q > 15000
2 >... > 0,95
3 >n 8

>

>,,,, , в,, , ,-, ,OBJECTPASCAL,EXCEL.

> 5, 2, 3.

' . :

ObjectPascal, ;

Microsoft Excel.

- ; ; ; .


1.

2.

3.-

4. .

5. ,

6.

7.

8.

9.

10.


, , XVIII . ' . XIX . ³, (, , ) . 1920- . XX . ' , 30- . .

- , , . , , 񳺿 . , , , ( ).


1.

>. >. .
I . . III .
>Q > 12500 10000 15000
>... > - 0,98 0,96 0,95
ʳ >n - 6 4 8

, ( 1).

1.

, , . (>=2) u=2.

...


... ; =0,980,97, =0,960,95.

( 2).

2.

, .

, ,

, ;


, .

>

=5,5 .

( 1) dK, .

ij

, . =25.

, 10.

ij

.

ij .

.

 


2.

>1- Microsoft Excel .

>2- Microsoft Excel .


3.-

1

2

3

4

5

6 7

8

9

10

11

12

13

14

14

15

16

17

18

19

20

21

22

23

24

25

26

27


4.

>- Q () :

1. .

2. .

3. ... .

4. ... .

5 7. .

8. z.

9. .

10. , .

11. .

12. .

13. г Smax1 Smax2..

14. .

15. J ( ).

16 - 19. .

20. .

21. ( , 10).

22. D.

23. D ( , 10).

24. Dy.

25. Dy ( , 10).

26. .

27. ʳ .

 

5. ,

/

1. >Q >Q real
2. >...

>kpdb real
3. ʳ >n >nb real
4. > a a real
5. > u u real
6. >...

>kpdp real
7. >...

>kpdn real
8. >Smax1 >smax1 real
9. , >Smax2 >smax2 real
10. >Sp >sp real
11. >nk >nk real
12. ij >D >db real
13. ij >dk >dk real
14. , e e real
15. ij D >d real
16. ij >Dy >du real

6.

>unitUnit1;

>interface

>uses

Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,

>StdCtrls,Grids,math;

>type

>TForm1 =class(TForm)

>GroupBox1:TGroupBox;

>GroupBox2:TGroupBox;

>Button1:TButton;

>Button2:TButton;

>Button3:TButton;

>Label1:TLabel;

>Label2:TLabel;

>Edit1:TEdit;

>Label3:TLabel;

>Edit2:TEdit;

>Label4:TLabel;

>Edit3:TEdit;

>Label5:TLabel;

>Edit4:TEdit;

>Label6:TLabel;

>Edit5:TEdit;

>Label7:TLabel;

>Edit6:TEdit;

>Label8:TLabel;

>Edit7:TEdit;

>Label9:TLabel;

>Edit8:TEdit;

>Label10:TLabel;

>Edit9:TEdit;

>Label11:TLabel;

>Label12:TLabel;

>Edit10:TEdit;

>Edit11:TEdit;

>Label13:TLabel;

>Edit12:TEdit;

>Label14:TLabel;

>Label15:TLabel;

>Edit13:TEdit;

>Label16:TLabel;

>Label17:TLabel;

>Label18:TLabel;

>Label19:TLabel;

>Edit14:TEdit;

>Edit15:TEdit;

>Edit16:TEdit;

>Edit17:TEdit;

>Label20:TLabel;

>Label21:TLabel;

>Label22:TLabel;

>Label23:TLabel;

>Label24:TLabel;

>Label25:TLabel;

>Label26:TLabel;

>Button4:TButton;

>procedureButton3Click(Sender:TObject);

>procedureButton2Click(Sender:TObject);

>procedureButton1Click(Sender:TObject);

>procedureButton4Click(Sender:TObject);

private

{Privatedeclarations }

public

{ Publicdeclarations }

end;

>var

>Form1:TForm1;

>Q,kpdb,nk,e,sp,dk,db,d,du:real;

>nb:integer;

>mdk:array[1..16]ofreal=(8.1,9.7,11.5,13.0,14.5,16.0,17.5,19.5,21.0,22.5,

24.0,25.5,27.5,29.0,32.0,35.5); // 4//

>msp:array[1..16]ofinteger=(3430,4930,6750,8805,11100,13650,16550,19800,

>23250,27000,31000,35300,39900,44750,54950,66600); 4

>implementation

>usesUnit2;

{$R *.>DFM}

>procedureTForm1.Button3Click(Sender:TObject);

>begin

>close;

end;

{=============== =====================}

>procedureTForm1.Button2Click(Sender:TObject);

>begin

>Edit8.Text:='';

>Edit9.Text:='';

>Edit10.Text:='';

>Edit11.Text:='';

>Edit12.Text:='';

>Edit13.Text:='';

>Edit14.Text:='';

>Edit15.Text:='';

>Edit16.Text:='';

>Edit17.Text:='';

end;

{=============== =====================}

>procedureTForm1.Button1Click(Sender:TObject);

>Var

>kpdp,kpdn,smax1,smax2,kpdmin,nb,a,u,z:real;

>j,mj:integer;db10,d10:real;

>begin

>q:=strtofloat(edit1.text);

>kpdb:=strtofloat(edit2.text);

>nb:=strtofloat(edit3.text);

>a:=strtofloat(edit4.text);

>u:=strtofloat(edit5.text);

>nk:=strtofloat(edit6.text);

>e:=strtofloat(edit7.text);

>kpdp:=(1-power(kpdb,u))/((1-kpdb)*u);

>kpdn:=(1-power(kpdb,u))*power(kpdb,nb)/((1-kpdb)*u);

>Ifkpdp>=kpdnthenkpdmin:=kpdnelsekpdmin:=kpdp;

>z:=u*a;

>smax1:=q/(z*kpdmin);

>smax2:=q/a*(1-kpdb)/(1-power(kpdb,u))/power(kpdb,nb);

//>Ifsmax1=smax2then

>sp:=smax1*nk;

// 4//

>Forj:=1 to 16do

>Ifmsp[j]>spthen

>BEGIN

>mj:=j;

>break;

end;

>dk:=mdk[mj];

>db:=e*dk;

>d:=(e-1)*dk;

>db10:=(trunc(db/10)+1)*10;

>d10:=(trunc(d/10)+1)*10;

>du:=0.8*db10;

>edit8.text:=FormatFloat('0.0#',kpdp);

>edit9.text:=FormatFloat('0.0#',kpdn);

>edit10.text:=FormatFloat('#0.000',smax1);

>edit11.text:=FormatFloat('#0.000',smax2);

>edit12.text:=FormatFloat('#0',z);

>edit13.text:=FormatFloat('#0.000',sp);

>edit14.text:=FormatFloat('#0.0',dk);

>edit15.text:=FormatFloat('#0',db10);

>edit16.text:=FormatFloat('#0.00',d);

>edit17.text:=FormatFloat('#0.000',du);

end;

{=============== =====================}

>procedureTForm1.Button4Click(Sender:TObject);

>begin

>form1.Hide;

>form2.show;

end;

end.

>unitUnit2;

>interface

>uses

Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,

>Grids,StdCtrls;

>type

>TForm2 =class(TForm)

>Button1:TButton;

>Button2:TButton;

>StringGrid1:TStringGrid;

>Label1:TLabel;

>Label2:TLabel;

>procedureButton1Click(Sender:TObject);

>procedureFormCreate(Sender:TObject);

>procedureButton2Click(Sender:TObject);

private

{Privatedeclarations }

public

{ Publicdeclarations }

end;

>var

>Form2:TForm2;

>implementation

>usesUnit1;

{$R *.>DFM}

>procedureTForm2.Button1Click(Sender:TObject);

>begin

>form2.Hide;

>form1.show;

end;

>procedureTForm2.FormCreate(Sender:TObject);

>vari:integer;

>begin

>fori:=1 to 16do

>stringgrid1.Cells[i-1,0]:=formatfloat('#0.0',unit1.mdk[i]);

>fori:=1 to 16do

>stringgrid1.Cells[i-1,1]:=formatfloat('#000',unit1.msp[i]);

end;

>procedureTForm2.Button2Click(Sender:TObject);

>begin

>close

end;

end.

 

7.

4- :

>procedureButton1Click(Sender:TObject) .

>procedureButton2Click(Sender:TObject) .

>procedureButton3Click(Sender:TObject)

>procedureButton4Click , .

, , , .


8. .

3. Delphi.

4. Delphi.

 

5


9.

.

, Delphi. :Kruk.exe, . , 4, ( ). ( ). .

 

10.

, , , Delphi 3 Microsoft Office1.

, , .

Borland Delphi 3. Microsoft1.

>A24=0.975 Delphi... =0,98,

>25=0.647 Delphi.. ( ) =0,65,

>A26=4 Delphi z=4,

>A27=5797.461 Delphi (>)Smax1=5797.461,

>A28=5797,461 Delphi (>)Smax2=5797.461,

>A29=31886.0336 Delphi Sp=31886,034,

>30=637.5 Delphi ij( )D=640,

>32=612 Delphi ij ( )D=612.00,

>A33=620 Delphi ij Dy=620.

, . , , .

, , . , , , - , .


1....2- . - . , > , 1988.

2. 07.09.0218 /.:..,..,-: ,2007,-64.

3. ..1 3 .,, 1998,.390


3 6X25

ij dK, 8,1 9,7 11,5 13,0 14,5 16,0 17,5 19,5
, 3430 4930 6750 8805 11100 13650 16550 19800
ij dK, 21,0 22,5 24,0 25,5 27,5 29,0 32,0 35,5
, 23250 27000 31000 35300 39900 44750 54950 66600

: