-
Notifications
You must be signed in to change notification settings - Fork 0
/
unit3.lfm
301 lines (301 loc) · 15.5 KB
/
unit3.lfm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
object FCylinder: TFCylinder
Left = 288
Height = 260
Top = 96
Width = 440
Caption = 'Деталь: цилиндр'
ClientHeight = 260
ClientWidth = 440
LCLVersion = '1.2.6.0'
object Label1: TLabel
Left = 16
Height = 15
Top = 24
Width = 176
Caption = 'Введите диаметр цилиндра, мм:'
ParentColor = False
end
object Label2: TLabel
Left = 16
Height = 15
Top = 96
Width = 150
Caption = 'Введите массу цилиндра, г:'
ParentColor = False
end
object LblDensity: TLabel
Left = 16
Height = 15
Top = 128
Width = 67
Caption = '-плотность-'
ParentColor = False
end
object Lbl_found: TLabel
Left = 16
Height = 15
Top = 160
Width = 63
Caption = '-материал-'
ParentColor = False
end
object Lbl_dRho: TLabel
Left = 16
Height = 15
Top = 192
Width = 77
Caption = '-абсолютная-'
ParentColor = False
end
object Lbl_eps: TLabel
Left = 16
Height = 15
Top = 224
Width = 92
Caption = '-относительная-'
ParentColor = False
end
object EditD: TEdit
Left = 208
Height = 23
Top = 24
Width = 120
TabOrder = 0
Text = '-диаметр-'
end
object EditM: TEdit
Left = 208
Height = 23
Top = 96
Width = 120
TabOrder = 1
Text = '-масса-'
end
object CBCompute: TButton
Left = 342
Height = 47
Top = 40
Width = 75
Caption = 'Посчитать!'
Default = True
OnClick = CBComputeClick
TabOrder = 2
end
object EditH: TEdit
Left = 208
Height = 23
Top = 56
Width = 120
TabOrder = 3
Text = '-высота-'
end
object Label3: TLabel
Left = 16
Height = 15
Top = 56
Width = 169
Caption = 'Введите высоту цилиндра, мм:'
ParentColor = False
end
object Image1: TImage
Left = 342
Height = 164
Top = 96
Width = 88
AntialiasingMode = amOn
Anchors = [akTop, akRight]
Picture.Data = {
1754506F727461626C654E6574776F726B477261706869638517000089504E47
0D0A1A0A0000000D49484452000000A20000014008060000003F09A726000000
06624B474400FF00FF00FFA0BDA7930000173A49444154789CED9D7B981D657D
C73FBB9BFB1D4810521213082485240409045442A868F1D2AA50401415B52856
AC7841A8A8B5DEAA152D5AC50B5A5BAB052950ABF8E01D01B908017243200904
882821AC40089B846477FBC77726E7ECC9D9B367CFCC9C79CF99EFE779E69973
6667CEFC76DEEFBCD7DFFB7BC118638C3101D191B701013101D80798064C8D3E
EF137D9E048C8DCE9B0474019DC0E48ADF781AE8037601CF44C7B6015B802780
EE68DB1C7D7F02783693FFA6C5289210A700B38103A37DF9E7E70363AA5CB305
89E6A9E8FB3348647D487400DBA37D7CFD6424D211C0C4E8D85E94045DC976E0
216043B43D187D7F30FAFE54956BDA8E7614E208602EB01058041C012C00F62B
3B6733A584DF006C04363130D77A02D899B26D23D933B77D1E3083812FC6D4B2
6B1E035646DB8A685B875E88B6A11D84381D5806BC18380A988F72A75E602D4A
B895C07D9484F74CB51F0A88899444390F383CDA0E41D582EDC01AE076E026E0
46E00FB9589A12AD28C4D9C052E078E038600ECA1D96037721E1DD0DDC83EA67
EDC438E05094CB2F0216032F40A5C07A24C81BA2FD43F998D8BE74A11CEF0BC0
03403F12D80DC0C7819702E3F3322E0026002F033E8104B81D3DA375C0C5E8A5
EDCACDBA16673C7032F09FA8AED60FDC0B7C06E584D51A16468C412FEE6781FB
D1B3DB0C7C1B3DD322BFB475D1099C087C17E84175BCDF001F447523D318F380
0B809BD133ED41CFF844F4CC4DC441A8887D18BDBDCB8173817DF334AA4DD917
3DDBE5E8593F8C9EFD41791A95271DC05F03D7A33EB94DA80EB8204FA30AC602
F4CC37A134B81E7825ADD9801D36A380B7A0166D3FF00BE0D5A87FCDE4C348E0
14E057284DD6006F4669D5764C003E003C8ABA5AAE048ECCD522538DA351DAF4
A24EFE0FA0B46B794600EF449DAD3DC0A514B83ED242CC01BE8ABAC9FE00FC2D
4ACB96E4245404F702DF02F6CFD71CD300FBA3B4EB45697952BEE60C8F43815F
A2FAC67568C8CDB43647003FA194A673F335A7369DA84EB18D167C7B4C5D9C04
FC0E55B3DE4780FD9007A3CEE79DC0A768D316970160341AE1DA851C2E82A9F3
BF133977DE0B2CC9D916D33C8E4169BE1578479E868C04BE813A433F47C983D9
1487B1C0BF220D7C8D1CFA83F7463DF15B81BF69F6CD4D709C86EA8DBF44DA68
0AF390EFDB46DC296D4A1C89062CD6D28456F55CE071E4193C3DEB9B9996633A
72A8780C758A67C22C940BDE883C858DA9C638D483B2119899F68FFF19F2F8BD
9D3DA7501A53C9649433AE23C511B509C0AA689B3AC4B9C6C44C035623DD24F6
0AEF40DE181B18381DD3987A988E9C6F2F4FFA436F4743766E1D9B46590CEC00
DED6E80FCC44910EDE999645A6B0BC1B45AC68A8F1F2BFC883BA10AEE326533A
805F03570DF7C265C073C899C1983498879C625E3C9C8BEE00BE9C8939A6C87C
1D4D6BAD8B65C82337B39E715358E6206D2DADE7E4AB801F656A8E29323F465D
8235998262A79C9EB939A6A8BC1E7509568B15B99B33519F8FE3A398AC98801A
C2AF2B3F5839E7E078349EEC70BA262BB6A2C6F0B2F28395423C06B8AD490699
E2F25BA4B5DD74567C9E833C268CC992B5A88F7AF76049B910F745B1F53636D9
28533C3622BFC569F1817221C6314E428F2F6D5A9F78458678D58501428C3BB0
EDEE353C2E8936533FB1C6760F9A9407D6E98BF6539A664E7BE011A8E1B357B4
EF8D0F94E7887FAA38C998AC8835F6647CA05C883BA2FD8CA699638ACAF3A3FD
73F1816A4174828EF464DA823D82F35713E262EC0C6BB2A303696C00D584B837
5ACDC8D4C7D66833F5711443348817A0408C6B81CF37C32253482E4151C4FA29
5B45A25A8E7835F2C271742F9336638137003FA8FC433521FE0005DA3C3363A3
4CF17873B4BFA6D64971D1BC00B8104DAAF79A77262DC6A0C9F6E733506BC0E0
31902F41AD9BF7676D5D1B706DB499DA5C884652BE54ED8F8309713B0AD6FD11
E0B06CEC32056201F00F2863DB51ED845A51E1AF4193A8BE87C3D099C6198762
DF5C8382365465A8E509FE0ED807AD42644C237C034D943AB7D649432D6BB519
CDE8BB1E780415D5C6D4CBA7815381E380EE7A2FDAA32553C61BD0BA1A17A661
5D9BE1C64A752E429A39A3CADFF6D05ABD0BFDC5F5C4AFA3E12C872329B1226F
0302E43DC02780B369203662AD1C31E6BDC881F63D8D58670A413D1AA9A9B57A
84082A9E735BE0C504CB48E032A48DA1FA9F531122A802DA83E227366D811713
2CE50B409D52C7F9A90911062EF0B2B0CE6BDA9139147BDECAE10C7F01A85485
085AF6E276D45BFE215A7895F30414B5D53C02F8304AFBDB18DE0250A90B1154
37F8289A7F701B8A0C5A248A28C44351FC9AE750DA0F3703AADBE96138EC043E
8E96C81D0FDC853C2CBC6673FB310AB800B813654047A1B4DF95E64D1ACD11CB
891795DE8962E8BC3605BB42A70839620770324AD31DC0274996D16452345763
0E1AE4EE076EA022F2539BD1EE423C06B815A5E535A4D330CBA468AEC67AF406
9D80E29BDC025C012CCAE87E267D16A134BB0515C327A0345D9FF58DD3CC11CB
E904DE88BA79FA809F002F49F91E797256B4B50B27023F435AB80F8D15A73DBD
B8694573353AD11B755B749FE5C8B3A72BA3FB99FA19894209DF85D2E6669456
599598B90AB19CE350BDAA0F758A7F86E275FB84C03CE062601372E3FF3F9436
59138C1063E622113E1ADDFB16B410A5D784CE8EC9E819DF829E799C113433D4
4C70428CE9025E81D6DFD88EC6B1AF06DE843CC443E6A4680B99A9A81E7B0D7A
B6DBD1B37E05F9548D821562397B03E7A046CD0ED459FA6BE4D171507E660D4A
A8DD3707031F006E44CF703B701DF00EF27754690921963309380DF82E8ADFD8
0FDC8FE6419C091C909F69BB0945883350EFC465E819F523F7FCEF206FA98983
5FDA741AF6D0CE8B2DA808B912D9BA14752F2C4545CD481408E086685B8EBA1C
521D720A9011A8A1B118AD57B214988DC67EEF40CBD8FD02B889167916A10BB1
9C5DC0AFA20D3475E118B448D1F1A8FB610C2ACEEF412EFC2B8055C04AB47075
2B3205752E2F442E578B80F968886D1BF27EFA0E2A826F8D8EB51CAD24C44A7A
1828CCD128AB3F9C52829D42A905FE47E021E041948B6E28FBFC7BCAE2393799
2E54ACCEAED80E8CF671E0F3A7D04B7533F015F472AD619009EBAD462B0BB192
1DA8685E5E717C3612E55C4A09BC0485CF8DA73AF4034FA03A5577D9E727D094
DA2DA8CF335E96A187920062A19F18EDC7508AA43619750A4F426B8A4C45BD00
F13EFE1C8F5CEC44F1613600AB51BFDE5A94B36F18CEC36835DA49888311E77E
9574A1C6CE6C601625514C8B3E1F021C1B7DDE8BA1E7E7FC7C90E33B51D0F272
81DF073C5E762C165F9E3973AE14418883D18B04F0F030AEE9A2B4BCEB38541D
8873B37E944BF644DFB750505135429185D808BD94966478B2D68966786435A8
6DCCB0B01093732E4304183243632126A715C69A83C742344160219A20B0104D
10588826082C441304EED04ECE79791BD00E5888C9C97C9E6F1170D16C82C042
3441602126E792683309701D3139458E169B1ACE114D10588826082C44130416
A209020BD104815BCDC97955DE06B403CE114D10588826082C44130416627242
094BD7D2588826082C44130416A209020BD10481856882C0232BC9F19C9514B0
1093E3597C29E0A2D90481856882C0424CCE1C3C6F2531AE2326279EC16777B0
043847344160219A20B0104D10588826082C4413046E3527E727791BD00E5888
C9F972DE06B4032E9A4D10588826082CC4E478E5A914701D3139F13A7C6EB424
C039A209020BD10481856882C042344160219A2070AB39391E5949010B3139EE
B6490117CD26082C441304166272CEA534BA621AC4424C8EC79A53C042344160
219A20B0104D10588826082C4413041E59498EE323A68085981C478C4D0117CD
26082C4413041662722EA11423D13488EB88C971B4D814286A8E380539B4F603
17E56C8BA1B8427C0AB83AFABC224F438C28AA100116467B0B31008A2EC4CDC0
A3791B622CC495C0C168E1EFEDC03A605E9E461958802AEF0BF236A40974023D
C04F816B806380C5C02EE08B39DA5514F6D05A51BB6FE60063D1C3380D09B003
E805FA72B4ABB014B5688E1B2A1F41220498058C02EECDC3A0A2536421F601F7
541CA3E29869124516E203A89E1813D757D60CF3B7AE8D369380220B71759563
1B81A79B6F8E29A21027A2FAE0AA8AE3D5C4699A441185381FB590CB453706B5
A4670367E56053E12962F7CDAD4888E56CA798CF22188A98239A00712E901CCF
5949010B31399EC597022E9A4D10588826082CC4E4CCC1F35612E33A6272E219
7CAFCAD58A16C739A209020BD10481856882C042344160219A2070AB39395E79
2A052CC4E4782DBE1470D16C82C0423441602126C72B4FA580EB88C989D7E173
A32501CE114D10588826082C44130416A209020BD104815BCDC9F1C84A0A5888
C971B74D0AB868364160219A20B01093732EA5D115D3201662723CD69C0216A2
09020BD10481856882C042344160219A20F0C84A721C1F31052CC4E438626C0A
B868364160219A20B01093F3C9683309701D31398BF236A01D708E6882C04234
4160219A20B0104D1058882608DC6A4E8E97B54801E78826082C44130416A209
020B313957449B49801B2BC99990B701ED807344130416A209020BD104818568
82C08D95E478CE4A0A5888C9F12CBE1470D16C82C042344160212667BF683309
701D3139DF8CF676074B807344130416A209020BD10481856882C0423441E056
7372BCF2540A5888C9F15A7C29E0A2D9048173C4E1310A181F7D9E008C043AA2
EFFDC04E606BF4FD59E0B9A65AD7C2145988238019C06CE0F9C054605AB4DF27
DACA3F7754FF9921E907BA8127A27D77D9F7CDD1FE616003B011D8D5E07D5A9A
7617620770208A61381789EE4060163093D2FFDFCB9E42B9979250B6A2DCEDD9
E8FCAD28F7EB073E161DFB5874BF919426548D47B9E804060A7D0EB08492D0BB
A2F377018F20516E001E04EE0356459FFB933C8C906927218E050E038E40C25B
186D935002FE1125E606E03794127A03F028D0D7E07DDF1BED7FD9E0F59DC001
E82529DFFE1C7805303D3A6F0BB012580DAC00EE8E3EEF68F0BE41D1CA429C00
BC10380E58061C058C06B6036B50427D1F25DE4A949021D28772C147801BAAFC
7D127038A597EB68E0ADC01824C2DBA3EB6E026EA154476D295A4988A390E05E
0A2C055E80EC5F07DC085C06DC117D6FA77AD61624B29BCA8E8D40558DC5C0F1
C0EB800FA3FF7B7974EECF91405BAEC1B40015610BF236A48CBD803350CEF634
B26F0D7029703AB07F7EA6EDE6DA68CB9BE948909702F7A067F5147079747C4A
7EA6ED414DAD8522C47D817703BF400D829DD1E7BF47ADDBD008458895CC06DE
83EAAE3B51CEF873B4C8F9BE39DA05010B7124F06AE007E8813D8372C13308EB
4DAE462B2C1CBE17F006E04AA0073DE3FF418DA1AE1AD7654570423C0CF802B0
0955DA6F00CEC2F164B26432F076D4B0E9473D069F01E635D186608478027216
E8430FE253C0414DB8AF19C83C24C2B8FBEA5AD420CC9A5C85D8099C8A5AB6FD
C06F8153C8A7683003E9A27ADA64E58B908B103B81B7A06E953EE0C734E7AD6B
1667455BBB7002701D4AAB75E87F4B5B904D17E232E02E34847679CABF1D0AA1
B69A93B2100520ED4369B82CC5DFDE436B5965BD87A2B7EA7AD4FFB718B58057
67743F933EAB50FFE3129486D7A35E8D43B3B859DA421C037C0E0DA9CD024E46
59FDDD29DFC7348F3B501A9E8C7A3956A206CEE8AC6E98B4683E1AF5E83F8B3A
525B69F83009ED5A34576314F07ED417790F2AE91A2193A27914EA7EB91965E1
8B802FD25EE3BD463C077C1E8DF33F0DDC0AFC131A90488D4672C403803B816D
C0F914B32BA6483962395DC005C8DBE90EA4857A49B5D5BC04F9F8DD4B4615D8
16614EB41595F9C05AD4297E749DD7A426C4D7A35CF0A7681CD384C5C790FBD8
8F80E7A1AEB31EE43892057B21878A1ED4D21E8A5484F861D4B7F4658AD32069
45BA91E3C80F81970097007F91E1FD462017B43EE043439C9B5888E747377AD7
B0CD34CD643A4ACBE5C8C901E41636B109F77E37D2C8FB6A9C934888E7A01192
731AB7B12DF964B485C4CB505ABE2CA7FBBF0B89F1ED83FC7D0FADD55BB49E89
B2DD0F025F4B60603BB2286F03AA303FDAE73592F5153483F152D4AFFCBDA12E
A847882F02BE057C02B8388975A669CC4775C43FE668C3BFA0AAC0BFA3D992B7
D63A792821EE8BBC7AFF1BF8C734AC334D613E1AF9C89B8FA0E91D57A292A37B
B013871A59F91AF29E76E3A475E840FDBA6BF23624E21CE04F0C51A5AB25C4D3
8197036F44FD43A635988DEA67A108B107B531FE0A394E0C49794B662C8AC772
6156D6B511451DE21B2E17010F210FADBABB6F2E021E2043571F5338C620215E
409D425C023C099CDD1CFB4C81381B05B55A421D6E60AF411E15FFD514D34C91
F82E12E06B2AFF504D88A7A0EE9AED191B658AC736E03B0CD168898BE67EE4F8
68EAE38A6833F5B19892CE6A16CD7F42B3B64C7D4CC0912986C39D2838D400AA
097179F6B69802137B050DA09A10EFCFDE165370D6561E281762DC67B8B139B6
9802F370B4DFDD4F5D2EC4BDA3FD934D33C714955863BB430E967BDFC4A2DCA3
22696AB21EC587796090BFBF17B9EBC72C462EFC83711CF087B2EFE733B833F2
FD28C66139DF67F0F9C6DF033E5A716C30BB61F8B62F42B12D6306B33D5EAB66
F7ACCF7221AE8FF68FD5B891D993F3A8EDF7B7BEE2FB63C0376A9C5F198CFD76
06774ED95CE5D80F19BCD7A35AC48D5AB60CD7F6CA78DD83D93E0B09B4F2F701
D80FB5685E5EE346C6A4C12B91D67687502E57EBE368346546938D32C5630672
0FDB9DA3970BB10F65958734D928533C0E41B11777AFA455597EDF8A3C238CC9
926380DB6A9DF07AB49AD1F85A271993808968B98D9A1121A6A07AE2E9CDB0C8
1492385CCDA4A14EBC0AC54C31260B7E8C66F50DC93214D1A1C811AE4C361C8C
B4F5A27A2FB805CDD237264DBE899628AE9BA5A8977C6E26E698227228D2D40B
877BE1D528927C47DA1699C2D18996B7ABAB6E58C94C1427F9DC342D3285E43C
E471339CF0C603781BEACE69347ABC3147A3BEE9B392FED0156862F4F4A43F64
0AC701C023681A6962C6A35588D600D3D2F8415308A6A18864AB807169FDE8FE
6890FA4E4AA1708D198CC9C8F7711D0A269F2A3351367B331E8B368333013934
3C4482C6C950CC41DEC877667913D3B2CC4039E1EF69C2C8DCC168AEC4701678
31ED4FF902504D1B1E2E5FE0C59E3AE60C725C006A04F055E4D9FD25526C1999
96611CF06F04B200D4D968B9ADB5C0B1791A629ACA8BD1D4922D68E023086603
BF464BE366BAA8B4C99D7871F85EE05728ED83A2138D29F600BF034ECAD71C93
01AF450DD567D15267413BC4CC05AE4333B4AE078EC8D71C930247A0B4EC4769
7B70BEE60C8F93D0B0602F5AB96AFF7CCD310DB03F4ABB5E143DE2A5F99AD338
9DC05B512C976DC0D7F1148456E0109456DB50DABD95A117876A0926A065531F
416FD7D5B8333C448E4569D38BD2EA3CDA341AEE48E04DC823A31FB5B44FC5AD
EC3C198DD2E04694262BD14A5123F334AA5974A0706A3F436F5F37EA183D324F
A30AC691E89977A334F829F09704DE12CE92996815CBF5E88D5C85E2F2B97193
3ED3D1B38D4BA4F5E8D9CFCCD3A8D0E840B307FF03F553F52277A20F0187E567
56CB132F69F75B3414F70CF06DF4AC0B9BFBD5CB38E0D5681EEC264A6FEFC5C0
4BF0B8762DC60327025F40D160FB5180CDCBD00AA163F333ADB5E94491013E8B
5C8CFAD1FCD89B814FA3C0A21373B32E7F26A267F0CF2830C273E819FD0E0DB7
1E4B0B74BDB462D67C000A8BB234DAE6A231EEBB813B50FD6705B09AF65B677A
1C2A6A1745DB916895B02EE03ED4F2BD11F5463C9A8F898DD18A42AC643F4AA2
3C0A988F12AC1715E72B9148EF073644DBD3B9585A3F9381039143C12168886D
111A0CE8442FD86AF4E2DD8426AF6FCAC5D29468072156D285126F21A59CE370
06B6C2BB29897203EABCDD1C6DDD6829D76E341F374D4603FB0053A3FDB4689B
8944178B6FEFB26B1E45A25B815EA8556852526FCAB6E54A3B0A7130263130B1
E3CFB3A2CFD52AF15B2989129413C5E28CD70A8957711D13ED630FE5D1941A55
B1F0AA8D52F4A08946F14BF120035F922D75FD772D4E91843814E328E556D318
98738DA71458721C125907650BD6443C851A0A3B28D54FB7A0EEA8F29CF6F168
DF4DFBD5638D31C618D3FAFC3FAB68BEEDB4F4C8150000000049454E44AE4260
82
}
Proportional = True
end
end