ΠŸΠΎΠΌΠΎΡ‰ΡŒ Π² написании студСнчСских Ρ€Π°Π±ΠΎΡ‚
АнтистрСссовый сСрвис

ΠœΠ°Ρ‚Π΅ΠΌΠ°Ρ‚ΠΈΡ‡Π΅ΡΠΊΠΈΠ΅ ΠΌΠ΅Ρ‚ΠΎΠ΄Ρ‹ Ρ‚Π΅ΠΎΡ€ΠΈΠΈ массового обслуТивания

ΠšΠΎΠ½Ρ‚Ρ€ΠΎΠ»ΡŒΠ½Π°ΡΠŸΠΎΠΌΠΎΡ‰ΡŒ Π² Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠΈΠ£Π·Π½Π°Ρ‚ΡŒ ΡΡ‚ΠΎΠΈΠΌΠΎΡΡ‚ΡŒΠΌΠΎΠ΅ΠΉ Ρ€Π°Π±ΠΎΡ‚Ρ‹

НСсмотря Π½Π° ΠΏΡ€ΠΎΡΡ‚ΠΎΡ‚Ρƒ Π² ΠΎΡΠ²ΠΎΠ΅Π½ΠΈΠΈ, Delphi позволяСт ΠΏΠΈΡΠ°Ρ‚ΡŒ слоТныС ΠΈ ΠΌΠΎΡ‰Π½Ρ‹Π΅ ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ½Ρ‹Π΅ ΠΏΡ€ΠΎΠ΄ΡƒΠΊΡ‚Ρ‹. БистСма Ρ€Π°Π·Ρ€Π°Π±ΠΎΡ‚ΠΊΠΈ ΠΏΠΎΠ΄Π΄Π΅Ρ€ΠΆΠΈΠ²Π°Π΅Ρ‚ ΠΏΠΎΠ΄ΠΊΠ»ΡŽΡ‡Π΅Π½ΠΈΠ΅ Ρ€Π°Π·Π»ΠΈΡ‡Π½Ρ‹Ρ… систСмных Π±ΠΈΠ±Π»ΠΈΠΎΡ‚Π΅ΠΊ, Π²Π½Π΅ зависимости ΠΎΡ‚ Ρ‚ΠΎΠ³ΠΎ, Π½Π° ΠΊΠ°ΠΊΠΎΠΌ языкС программирования ΠΎΠ½ΠΈ написаны. Delphi содСрТит мноТСство ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€ ΠΈ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΉ для взаимодСйствия с Windows. Π’ Ρ‡Π°ΡΡ‚ности, Π·Π° ΡΡ‡Π΅Ρ‚ использования Ρ‚Π΅Ρ…Π½ΠΎΠ»ΠΎΠ³ΠΈΠΈ OLE, стало Π²ΠΎΠ·ΠΌΠΎΠΆΠ½Ρ‹ΠΌ ΡƒΠΏΡ€Π°Π²Π»Π΅Π½ΠΈΠ΅… Π§ΠΈΡ‚Π°Ρ‚ΡŒ Π΅Ρ‰Ρ‘ >

ΠœΠ°Ρ‚Π΅ΠΌΠ°Ρ‚ΠΈΡ‡Π΅ΡΠΊΠΈΠ΅ ΠΌΠ΅Ρ‚ΠΎΠ΄Ρ‹ Ρ‚Π΅ΠΎΡ€ΠΈΠΈ массового обслуТивания (Ρ€Π΅Ρ„Π΅Ρ€Π°Ρ‚, курсовая, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½Ρ‚Ρ€ΠΎΠ»ΡŒΠ½Π°Ρ)

1. Π‘ΠΏΠ΅Ρ†ΠΈΠ°Π»ΡŒΠ½Π°Ρ Ρ‡Π°ΡΡ‚ΡŒ

1.1 ΠžΠ±Ρ‰Π°Ρ постановка Π·Π°Π΄Π°Ρ‡ΠΈ

Π˜ΡΠΏΠΎΠ»ΡŒΠ·ΡƒΡ систСму массового обслуТивания Π½Π°ΠΉΡ‚ΠΈ ΠΎΠΏΡ‚ΠΈΠΌΠ°Π»ΡŒΠ½Ρ‹ΠΉ Π²Π°Ρ€ΠΈΠ°Π½Ρ‚ проСктирования АЗБ.

1.2 ΠœΠ°Ρ‚Π΅ΠΌΠ°Ρ‚ΠΈΡ‡Π΅ΡΠΊΠ°Ρ модСль

Π‘Ρ€Π΅Π΄Π½ΠΈΠΉ ΠΈΠ½Ρ‚Π΅Ρ€Π²Π°Π» ΠΌΠ΅ΠΆΠ΄Ρƒ прибытиями Π°Π²Ρ‚ΠΎΠΌΠΎΠ±ΠΈΠ»Π΅ΠΉ 12 ΠΌΠΈΠ½.

Π’Π°Ρ€ΠΈΠ°Π½Ρ‚Ρ‹ ΡΡ‚Ρ€ΠΎΠΈΡ‚Π΅Π»ΡŒΡΡ‚Π²Π° АЗБ ΠΈΠΌΠ΅ΡŽΡ‚ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠ΅ срСдниС Π²Ρ€Π΅ΠΌΠ΅Π½Π° обслуТивания Π°Π²Ρ‚ΠΎΠΌΠΎΠ±ΠΈΠ»Π΅ΠΉ 12.5 ΠΌΠΈΠ½, 11 ΠΌΠΈΠ½, 10 ΠΌΠΈΠ½, 10.5 ΠΌΠΈΠ½, 13 ΠΌΠΈΠ½.

1.3 Алгоритм ΠΌΠ΅Ρ‚ΠΎΠ΄Π°

1. Находим Π» (срСднСС число ΠΊΠ»ΠΈΠ΅Π½Ρ‚ΠΎΠ² ΠΏΠΎΡΠ²Π»ΡΡŽΡ‰ΠΈΡ…ΡΡ Π² ΠΠ—Π‘ Π·Π° Π΅Π΄ΠΈΠ½ΠΈΡ†Ρƒ Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ) с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρ‹ 1/срСдний ΠΈΠ½Ρ‚Π΅Ρ€Π²Π°Π» ΠΌΠ΅ΠΆΠ΄Ρƒ прибытиями Π°Π²Ρ‚ΠΎΠΌΠΎΠ±ΠΈΠ»Π΅ΠΉ;

2. Находим ΠΌ Ρ ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρ‹ 1/срСднСС врСмя обслуТивания автомобиля;

3. Находим Π  (Π½Π°Π³Ρ€ΡƒΠ·ΠΊΠ° систСмы) с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρ‹ Π»/ΠΌ;

4. Находим Π•1 (коэффициСнт простои систСмы) с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρ‹ 1-Π ;

5. Находим Π•2 (срСднСС число ΠΊΠ»ΠΈΠ΅Π½Ρ‚ΠΎΠ² Π² ΡΠΈΡΡ‚Π΅ΠΌΠ΅ с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρ‹ Π /(1-Π );

6. Находим Π•3 (срСдняя Π΄Π»ΠΈΠ½Π° ΠΎΡ‡Π΅Ρ€Π΅Π΄ΠΈ) с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρ‹ Π 2(1-Π );

7. Находим Π•4 (Π‘Ρ€Π΅Π΄Π½Π΅Π΅ врСмя прСбывания ΠΊΠ»ΠΈΠ΅Π½Ρ‚Π° Π² ΡΠΈΡΡ‚Π΅ΠΌΠ΅) с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρ‹ 1/(ΠΌ-Π»);

8. Находим Π•5 (ВрСмя прСбывания ΠΊΠ»ΠΈΠ΅Π½Ρ‚Π° Π² ΠΎΡ‡Π΅Ρ€Π΅Π΄ΠΈ) с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρ‹ Π /(ΠΌ-Π»);

ПослС вычислСний Π΄Π΅Π»Π°Π΅ΠΌ Π°Π½Π°Π»ΠΈΠ· ΠΎΠΏΠΈΡ€Π°ΡΡΡŒ Π½Π° Π΄Π°Π½Π½Ρ‹Π΅ ΠΏΠΎΠ»ΡƒΡ‡Π΅Π½Π½Ρ‹Π΅ ΠΏΡ€ΠΈ вычислСнии.

1.4 ОбоснованиС Π²Ρ‹Π±ΠΎΡ€Π° ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ½ΠΎΠ³ΠΎ обСспСчСния

Π― Π²Ρ‹Π±Ρ€Π°Π» язык программирования Delphi, ΠΌΡ‹ ΠΏΡ€ΠΎΡ…ΠΎΠ΄ΠΈΠ»ΠΈ всСго Π΄Π²Π° языка программирования это языки Borland Pascal ΠΈ Borland Delphi. Из ΡΡ‚ΠΈΡ… Π΄Π²ΡƒΡ… языков ΠΌΠ½Π΅ Π±Ρ‹Π»ΠΎ Π±ΠΎΠ»Π΅Π΅ ΡƒΠ΄ΠΎΠ±Π½ΠΎ Ρ€Π°Π·Ρ€Π°Π±Π°Ρ‚Ρ‹Π²Π°Ρ‚ΡŒ ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡƒ Π½Π° Delphi ΠΏΠΎΡ‚ΠΎΠΌΡƒ Ρ‡Ρ‚ΠΎ:

Π’ Delphi примСняСтся ΠΎΠ±ΡŠΠ΅ΠΊΡ‚Π½ΠΎ-Π²ΠΈΠ·ΡƒΠ°Π»ΡŒΠ½Π°Ρ тСхнология построСния ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌ. Π Π°Π·ΠΌΠ΅Ρ‰Π΅Π½ΠΈΠ΅ всСх Π²ΠΈΠ·ΡƒΠ°Π»ΡŒΠ½Ρ‹Ρ… ΠΎΠ±ΡŠΠ΅ΠΊΡ‚ΠΎΠ² Π½Π° ΡΠΊΡ€Π°Π½Π΅ происходит Π² Ρ€Π΅ΠΆΠΈΠΌΠ΅ «ΠΊΠΎΠ½ΡΡ‚Ρ€ΡƒΠΊΡ‚ΠΎΡ€Π°». Π­Ρ‚ΠΎ позволяСт Π·Π½Π°Ρ‡ΠΈΡ‚Π΅Π»ΡŒΠ½ΠΎ ΡƒΡΠΊΠΎΡ€ΠΈΡ‚ΡŒ Ρ€Π°Π·Ρ€Π°Π±ΠΎΡ‚ΠΊΡƒ интСрфСйса ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡ‹.

Однако Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΠΏΡ€ΠΈΠ²Π»Π΅ΠΊΠ°Ρ‚Π΅Π»ΡŒΠ½Π°Ρ ΠΎΡΠΎΠ±Π΅Π½Π½ΠΎΡΡ‚ΡŒ Delphi ΠΊΠ°ΠΊ срСды Ρ€Π°Π·Ρ€Π°Π±ΠΎΡ‚ΠΊΠΈ — это автоматичСская гСнСрация тСкста ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡ‹ Π½Π° ΡΠ·Ρ‹ΠΊΠ΅ Object Pascal. Delphi Π³Π΅Π½Π΅Ρ€ΠΈΡ€ΡƒΠ΅Ρ‚ объявлСния классов ΠΈ ΠΏΠ΅Ρ€Π΅ΠΌΠ΅Π½Π½Ρ‹Ρ…, Π° Ρ‚Π°ΠΊΠΆΠ΅, Π²ΠΊΠ»ΡŽΡ‡Π°Π΅Ρ‚ Π² Ρ‚Скст ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡ‹ Π·Π°Π³ΠΎΡ‚ΠΎΠ²ΠΊΠΈ ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€ ΠΎΠ±Ρ€Π°Π±ΠΎΡ‚ΠΊΠΈ событий. Π­Ρ‚ΠΎ Π½Π΅ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ Π·Π½Π°Ρ‡ΠΈΡ‚Π΅Π»ΡŒΠ½ΠΎ ΠΏΠΎΠ²Ρ‹ΡˆΠ°Π΅Ρ‚ ΡΠΊΠΎΡ€ΠΎΡΡ‚ΡŒ Ρ€Π°Π±ΠΎΡ‚Ρ‹, Π½ΠΎ ΠΈ Π·Π°Ρ‰ΠΈΡ‰Π°Π΅Ρ‚ программиста ΠΎΡ‚ ΡΠΎΠ²Π΅Ρ€ΡˆΠ΅Π½ΠΈΡ ошибок Π² ΠΎΠ±ΡŠΡΠ²Π»Π΅Π½ΠΈΠΈ классов.

НСсмотря Π½Π° ΠΏΡ€ΠΎΡΡ‚ΠΎΡ‚Ρƒ Π² ΠΎΡΠ²ΠΎΠ΅Π½ΠΈΠΈ, Delphi позволяСт ΠΏΠΈΡΠ°Ρ‚ΡŒ слоТныС ΠΈ ΠΌΠΎΡ‰Π½Ρ‹Π΅ ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ½Ρ‹Π΅ ΠΏΡ€ΠΎΠ΄ΡƒΠΊΡ‚Ρ‹. БистСма Ρ€Π°Π·Ρ€Π°Π±ΠΎΡ‚ΠΊΠΈ ΠΏΠΎΠ΄Π΄Π΅Ρ€ΠΆΠΈΠ²Π°Π΅Ρ‚ ΠΏΠΎΠ΄ΠΊΠ»ΡŽΡ‡Π΅Π½ΠΈΠ΅ Ρ€Π°Π·Π»ΠΈΡ‡Π½Ρ‹Ρ… систСмных Π±ΠΈΠ±Π»ΠΈΠΎΡ‚Π΅ΠΊ, Π²Π½Π΅ зависимости ΠΎΡ‚ Ρ‚ΠΎΠ³ΠΎ, Π½Π° ΠΊΠ°ΠΊΠΎΠΌ языкС программирования ΠΎΠ½ΠΈ написаны. Delphi содСрТит мноТСство ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€ ΠΈ Ρ„ΡƒΠ½ΠΊΡ†ΠΈΠΉ для взаимодСйствия с Windows. Π’ Ρ‡Π°ΡΡ‚ности, Π·Π° ΡΡ‡Π΅Ρ‚ использования Ρ‚Π΅Ρ…Π½ΠΎΠ»ΠΎΠ³ΠΈΠΈ OLE, стало Π²ΠΎΠ·ΠΌΠΎΠΆΠ½Ρ‹ΠΌ ΡƒΠΏΡ€Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΈΠ· ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌ, написанных Π½Π° Delphi, прилоТСниями Microsoft Office ΠΈ ΠΏΠ΅Ρ€Π΅Π΄Π°Ρ‡Π° ΠΈΠΌ Π΄Π°Π½Π½Ρ‹Ρ… Π² Π°Π²Ρ‚оматичСском Ρ€Π΅ΠΆΠΈΠΌΠ΅.

Π’Π°ΠΊΠΈΠΌ ΠΎΠ±Ρ€Π°Π·ΠΎΠΌ, Delphi ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒ для написания ΠΊΠ°ΠΊ простых, Ρ‚Π°ΠΊ ΠΈ ΡΠ»ΠΎΠΆΠ½Ρ‹Ρ… ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ½Ρ‹Ρ… ΠΏΡ€ΠΎΠ΄ΡƒΠΊΡ‚ΠΎΠ².

2. ВСхнологичСская Ρ‡Π°ΡΡ‚ΡŒ

2.1 РСшСниС Π·Π°Π΄Π°Ρ‡ΠΈ Ρ€ΡƒΡ‡Π½Ρ‹ΠΌ способом

ΠŸΡƒΡΡ‚ΡŒ для ΠΎΠ±Ρ‰ΠΈΡ… условий постановки Π·Π°Π΄Π°Ρ‡ΠΈ ΠΏΠΎ ΠΏΡ€ΠΎΠ΅ΠΊΡ‚ΠΈΡ€ΠΎΠ²Π°Π½ΠΈΡŽ АЗБ. Π˜Π·Π²Π΅ΡΡ‚Π½Ρ‹ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠ΅ Π΄Π°Π½Π½Ρ‹Π΅ срСдний ΠΈΠ½Ρ‚Π΅Ρ€Π²Π°Π» ΠΌΠ΅ΠΆΠ΄Ρƒ прибытиями Π°Π²Ρ‚ΠΎΠΌΠΎΠ±ΠΈΠ»Π΅ΠΉ 12 ΠΌΠΈΠ½. Π’Π°Ρ€ΠΈΠ°Π½Ρ‚Ρ‹ ΡΡ‚Ρ€ΠΎΠΈΡ‚Π΅Π»ΡŒΡΡ‚Π²Π° АЗБ ΠΈΠΌΠ΅ΡŽΡ‚ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰ΠΈΠ΅ срСдниС Π²Ρ€Π΅ΠΌΠ΅Π½Π° обслуТивания Π°Π²Ρ‚ΠΎΠΌΠΎΠ±ΠΈΠ»Π΅ΠΉ 12.5 ΠΌΠΈΠ½, 11 ΠΌΠΈΠ½, 10 ΠΌΠΈΠ½, 10.5 ΠΌΠΈΠ½, 13 ΠΌΠΈΠ½. Π Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚Ρ‹ расчСтов ΠΏΠΎ ΠΈΡΡΠ»Π΅Π΄ΠΎΠ²Π°Π½ΠΈΡŽ Ρ€Π°Π·Π»ΠΈΡ‡Π½Ρ‹Ρ… Π²Π°Ρ€ΠΈΠ°Π½Ρ‚ΠΎΠ² ΡΡ‚Ρ€ΠΎΠΈΡ‚Π΅Π»ΡŒΡΡ‚Π²Π° АЗБ.

Ρ„ΠΎΡ€ΠΌΡƒΠ»Ρ‹

1/ Π»

;

12 ΠΌΠΈΠ½

12 ΠΌΠΈΠ½

12 ΠΌΠΈΠ½

12 ΠΌΠΈΠ½

12 ΠΌΠΈΠ½

Π»

;

0.8 333

0.8 333

0.8 333

0.8 333

0.8 333

1/ ΠΌ

;

12.5

10.5

ΠΌ

;

0.08

0.9 091

0.1

0.9 524

0.7 692

Π 

Π» / ΠΌ

1,4 162

0,91 662

0.8333

0.87 495

1.8 333

Π•1

1-Π 

— 0,4 162

0,8 338

0,1667

0,12 505

— 0,8 333

Π•2

Π /(1-Π )

— 25,0269

10,99 328

4,9988

6,9968

— 13,48

Π•3

Π 2(1-Π )

— 26,0685

10,7 666

4,1655

6,12 185

— 14,8 381

Π•4

1/(ΠΌ - Π»)

— 300,3

131,92 612

59,988

83,96 306

— 156,624

Π•5

Π /(ΠΌ - Π»)

— 312,798

120,92 612

49,988

73,46 348

— 169,624

ΠŸΠ΅Ρ€Π²Ρ‹ΠΉ ΠΈ ΠΏΡΡ‚Ρ‹ΠΉ Π²Π°Ρ€ΠΈΠ°Π½Ρ‚Ρ‹ ΡΡ‚Ρ€ΠΎΠΈΡ‚Π΅Π»ΡŒΡΡ‚Π²Π° АЗБ Π½Π΅Π³ΠΎΠ΄Π½Ρ‹ ΠΈΠ·-Π·Π° Ρ‚ΠΎΠ³ΠΎ, Ρ‡Ρ‚ΠΎ ΠΎΡ‡Π΅Ρ€Π΅Π΄ΡŒ Π² ΡΡ‚ΠΈΡ… случаях Π±ΡƒΠ΄Π΅Ρ‚ расти Π΄ΠΎ Π±Π΅ΡΠΊΠΎΠ½Π΅Ρ‡Π½ΠΎΡΡ‚ΠΈ.

4 Π²Π°Ρ€ΠΈΠ°Π½Ρ‚ Ρ…ΠΎΡ€ΠΎΡˆ ΠΏΠΎ ΠΏΠΎΠΊΠ°Π·Π°Ρ‚Π΅Π»ΡŽ возмоТности загруТСнности оборудования Π =0.873 ΠΈ ΡΠ»Π΅Π΄ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΠ½ΠΎ ΠΌΠ°Π»ΠΎΠΉ срСднСй Π΄ΠΎΠ»ΠΈ простоя оборудования Π•1=0.127

2 Π²Π°Ρ€ΠΈΠ°Π½Ρ‚ ΠΏΡ€ΠΈ этом Π²Π°Ρ€ΠΈΠ°Π½Ρ‚Π΅ Π²ΠΎΠ·Π½ΠΈΠΊΠ°ΡŽΡ‚ большиС ΠΎΡ‡Π΅Ρ€Π΅Π΄ΠΈ ΠΈ ΡΠ»Π΅Π΄ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΠ½ΠΎ большС срСдняя врСмя простоя Π°Π²Ρ‚ΠΎΠΌΠΎΠ±ΠΈΠ»Π΅ΠΉ Π•4=142.857

3 Π²Π°Ρ€ΠΈΠ°Π½Ρ‚ ΠΏΡ€ΠΈΠ²ΠΎΠ΄ΠΈΡ‚ ΠΊ Ρ‚ΠΎΠΌΡƒ, Ρ‡Ρ‚ΠΎ ΠΎΠ±ΠΎΡ€ΡƒΠ΄ΠΎΠ²Π°Π½ΠΈΠ΅ Π² ΡΡ€Π΅Π΄Π½Π΅ΠΌ ΠΏΠΎΠ»ΠΎΠ²ΠΈΠ½Ρƒ Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ простаиваСт, Π½ΠΎ ΡΡ€Π΅Π΄Π½Π΅Π΅ число Π°Π²Ρ‚ΠΎΠΌΠΎΠ±ΠΈΠ»Π΅ΠΉ Π² ΡΠΈΡΡ‚Π΅ΠΌΠ΅ Ρ€Π°Π²Π½ΠΎ Ρ‚ΠΎΠ»ΡŒΠΊΠΎ 1 Π° ΡΡ€Π΅Π΄Π½ΡΡ потСря Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ Ρ€Π°Π²Π½Ρ‹ 12 ΠΌΠΈΠ½ ΠΏΡ€ΠΈ срСднСм Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ обслуТивания 10 ΠΌΠΈΠ½.

ΠžΠΊΠΎΠ½Ρ‡Π°Ρ‚Π΅Π»ΡŒΠ½Ρ‹ΠΉ Π²Ρ‹Π±ΠΎΡ€ ΠΏΡ€ΠΎΠ΅ΠΊΡ‚Π° АЗБ ΠΎΡ‡Π΅Π²ΠΈΠ΄Π½ΠΎ ΠΏΡ€ΠΈΠ½Π°Π΄Π»Π΅ΠΆΠΈΡ‚ Π»ΠΈΡ†Ρƒ ΠΏΡ€ΠΈΠ½ΠΈΠΌΠ°ΡŽΡ‰Π΅ΠΌΡƒ Ρ€Π΅ΡˆΠ΅Π½ΠΈΠ΅, Π½ΠΎ ΠΏΡ€Π΅Π΄Π²Π°Ρ€ΠΈΡ‚Π΅Π»ΡŒΠ½Π°Ρ рСкомСндация ΠΏΠΎ Ρ€Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚Π°ΠΌ Π°Π½Π°Π»ΠΈΠ·Π° ΠΌΠΎΠΆΠ΅Ρ‚ ΡΠΎΡΡ‚ΠΎΡΡ‚ΡŒ Π² ΠΏΡ€Π΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΠΉ 3-Π³ΠΎ Π²Π°Ρ€ΠΈΠ°Π½Ρ‚Π° Ссли ΠΈΡΡ…ΠΎΠ΄ΠΈΡ‚ΡŒ ΠΎΡ‚ Ρ‚ΠΎΠ³ΠΎ Ρ‡Ρ‚ΠΎ Π½Π°Π±Π»ΡŽΠ΄Π°Π΅Ρ‚ΡΡ рост Π°Π²Ρ‚ΠΎΠΌΠΎΠ±ΠΈΠ»ΡŒΠ½ΠΎΠ³ΠΎ ΠΏΠ°Ρ€ΠΊΠ° Π² ΡΡ‚Ρ€Π°Π½Π΅.

2.2 Алгоритм ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡ‹

procedure FormActivate (Sender: TObject); - ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π° Π°ΠΊΡ‚ΠΈΠ²Π°Ρ†ΠΈΠΉ Ρ‚Π°Π±Π»ΠΈΡ†Ρ‹ вычислСний.

procedure Button1Click (Sender: TObject); - ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π° производящая основныС вычислСния ΠΈ ΠΏΡ€Π΅Π΄ΠΎΡΡ‚Π°Π²Π»ΡΡŽΡ‰Π°Ρ Ρ€Π΅ΠΊΠΎΠΌΠ΅Π½Π΄Π°Ρ†ΠΈΠΉ ΠΏΠΎ Π²Ρ‹Π±ΠΎΡ€Ρƒ Π²Π°Ρ€ΠΈΠ°Π½Ρ‚Π° ΡΡ‚Ρ€ΠΎΠΈΡ‚Π΅Π»ΡŒΡΡ‚Π²Π° АЗБ Π½Π° ΠΎΡΠ½ΠΎΠ²Π΅ Π°Π½Π°Π»ΠΈΠ·Π°.

procedure tab1KeyPress (Sender: TObject; var Key: Char); - ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π° Π·Π°ΠΏΡ€Π΅Ρ‰Π°ΡŽΡ‰Π°Ρ Π²Π²ΠΎΠ΄ символов Π² ΡΡ‡Π΅ΠΉΡƒΠΈ Ρ‚Π°Π±Π»ΠΈΡ†Ρ‹ для Π²Π²ΠΎΠ΄Π° исходных Π΄Π°Π½Π½Ρ‹Ρ… ΠΈ Π·Π°ΠΏΡ€Π΅Ρ‰Π°ΡŽΡ‰Π°Ρ Π²Π²ΠΎΠ΄ Π² ΠΎΡΡ‚Π°Π»ΡŒΠ½Ρ‹Π΅ поля Ρ‚Π°Π±Π»ΠΈΡ†Ρ‹ для вычислСний.

procedure FormClose (Sender: TObject; var Action: TCloseAction); - ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π° ΠΎΡ‡ΠΈΡ‰Π°ΡŽΡ‰Π°Ρ поля Ρ‚Π°Π±Π»ΠΈΡ†Ρ‹ ΠΏΡ€ΠΈ Π·Π°ΠΊΡ€Ρ‹Ρ‚ΠΈΠΉ Ρ„ΠΎΡ€ΠΌΡ‹.

procedure Button2Click (Sender: TObject); - ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π° Π·Π°Π³Ρ€ΡƒΠΆΠ°ΡŽΡ‰Π°Ρ исходныС Π΄Π°Π½Π½Ρ‹Π΅ автоматичСский.

procedure Button3Click (Sender: TObject); - ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Π° ΠΎΡ‡ΠΈΡ‰Π°ΡŽΡ‰Π°Ρ поля Ρ‚Π°Π±Π»ΠΈΡ†Ρ‹.

2.3 Анализ Ρ€Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚ΠΎΠ²

Π ΡƒΡ‡Π½Ρ‹Π΅ подсчСты ΠΈ ΠΏΠΎΠ΄ΡΡ‡Π΅Ρ‚Ρ‹, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹Π΅ Π²Ρ‹ΠΏΠΎΠ»Π½ΠΈΠ» ΠΊΠΎΠΌΠΏΡŒΡŽΡ‚Π΅Ρ€ ΠΏΠΎΠ»Π½ΠΎΡΡ‚ΡŒΡŽ совпали, ΡΠ»Π΅Π΄ΠΎΠ²Π°Ρ‚Π΅Π»ΡŒΠ½ΠΎ, ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ° Π²Ρ‹ΠΏΠΎΠ»Π½Π΅Π½Π° ΠΏΡ€Π°Π²ΠΈΠ»ΡŒΠ½ΠΎ.

Π’ Ρ‚СхнологичСской части Π΄Π°Π½Π½ΠΎΠ³ΠΎ курсового ΠΏΡ€ΠΎΠ΅ΠΊΡ‚Π° Π±Ρ‹Π»ΠΎ ΠΏΡ€ΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ΠΎ Ρ€Π΅ΡˆΠ΅Π½ΠΈΠ΅ Π·Π°Π΄Π°Ρ‡ΠΈ Ρ€ΡƒΡ‡Π½Ρ‹ΠΌ способом, Π΄Π°Π½ Π°Π»Π³ΠΎΡ€ΠΈΡ‚ΠΌ ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡ‹, ΠΊΠΎΡ‚ΠΎΡ€Ρ‹ΠΉ описываСт Ρ…ΠΎΠ΄ Ρ€Π°Π±ΠΎΡ‚Ρ‹ ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡ‹. ΠŸΡ€ΠΎΠ²Π΅Π΄Π΅Π½ Π°Π½Π°Π»ΠΈΠ· Ρ€Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚ΠΎΠ², Π² ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠΌ ΠΏΡ€ΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ΠΎ сравнСниС Ρ€Π΅Π·ΡƒΠ»ΡŒΡ‚Π°Ρ‚ΠΎΠ² Ρ€Π°Π±ΠΎΡ‚Ρ‹ ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡ‹ с Ρ€ΡƒΡ‡Π½Ρ‹ΠΌ подсчСтом.

3. Руководство ΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚Π΅Π»ΡŽ

Для Ρ‚ΠΎΠ³ΠΎ Ρ‡Ρ‚ΠΎΠ±Ρ‹ Π½Π°Ρ‡Π°Ρ‚ΡŒ Ρ€Π°Π±ΠΎΡ‚Ρƒ Π½Π°ΠΆΠΌΠΈΡ‚Π΅ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡƒ «Run», ΠΏΡ€ΠΈ этом появится Ρ‚Π°Π±Π»ΠΈΡ†Π° для вычислСния.

ΠΏΡ€ΠΎΠ΅ΠΊΡ‚ΠΈΡ€ΠΎΠ²Π°Π½ΠΈΠ΅ Π°Π²Ρ‚ΠΎΠ·Π°ΠΏΡ€Π°Π²ΠΎΡ‡Π½Ρ‹ΠΉ обслуТиваниС ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ° Π’ ΠΏΠ΅Ρ€Π²ΡƒΡŽ строку Π½Π΅ΠΎΠ±Ρ…ΠΎΠ΄ΠΈΠΌΠΎ ввСсти срСдний ΠΈΠ½Ρ‚Π΅Ρ€Π²Π°Π» ΠΌΠ΅ΠΆΠ΄Ρƒ прибытиями Π°Π²Ρ‚ΠΎΠΌΠΎΠ±ΠΈΠ»Π΅ΠΉ. Π’ Ρ‚Ρ€Π΅Ρ‚ΡŒΡŽ строку Π½Π°Π΄ΠΎ ввСсти срСднСС врСмя обслуТивания ΠΎΠ΄Π½ΠΎΠ³ΠΎ автомобиля ΡΠΎΠΎΡ‚Π²Π΅Ρ‚ΡΡ‚Π²ΡƒΡŽΡ‰ΠΈΠΌ АЗБ. Π˜ΡΡ…ΠΎΠ΄Π½Ρ‹Π΅ Π΄Π°Π½Π½Ρ‹Π΅ ΠΌΠΎΠΆΠ½ΠΎ Π·Π°Π³Ρ€ΡƒΠ·ΠΈΡ‚ΡŒ автоматичСский, для этого слСдуСт Π½Π°ΠΆΠ°Ρ‚ΡŒ ΠΊΠ½ΠΎΠΏΠΊΡƒ 'ЗначСния'. ПослС Ρ‚ΠΎΠ³ΠΎ ΠΊΠ°ΠΊ ΠΏΡ€ΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π²Ρ‹ΠΏΠΎΠ»Π½ΠΈΡ‚ Π½Π΅ΠΎΠ±Ρ…ΠΎΠ΄ΠΈΠΌΡ‹Π΅ вычислСния ΠΌΠΎΠΆΠ½ΠΎ ΠΎΡ‡ΠΈΡΡ‚ΠΈΡ‚ΡŒ поля Ρ‚Π°Π±Π»ΠΈΡ†Ρ‹ Π½Π°ΠΆΠ°Ρ‚ΠΈΠ΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΠΈ 'ΠžΡ‡ΠΈΡΡ‚ΠΈΡ‚ΡŒ'. НС ΠΏΡ‹Ρ‚Π°ΠΉΡ‚Π΅ΡΡŒ ввСсти значСния Π² ΠΎΡΡ‚Π°Π»ΡŒΠ½Ρ‹Π΅ поля Ρ‚Π°Π±Π»ΠΈΡ†Ρ‹ ΠΈΠ»ΠΈ символы Π² ΠΏΠΎΠ»Ρ для Π²Π²ΠΎΠ΄Π° исходных Π·Π½Π°Ρ‡Π΅Π½ΠΈΠΉ, это Π½Π΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ. ПослС Π²Π²ΠΎΠ΄Π° всСх Π½Π΅ΠΎΠ±Ρ…ΠΎΠ΄ΠΈΠΌΡ‹Ρ… Π·Π½Π°Ρ‡Π΅Π½ΠΈΠΈ Ρ‰Π΅Π»ΠΊΠ½ΠΈΡ‚Π΅ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΠ΅ «Π’Ρ‹Ρ‡ΠΈΡΠ»ΠΈΡ‚ΡŒ».

Для Π²Ρ‹Ρ…ΠΎΠ΄Π° ΠΈΠ· ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΡ‹ Π½Π°ΠΆΠΌΠΈΡ‚Π΅ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡƒ 'Exit'.

Π—Π°ΠΊΠ»ΡŽΡ‡Π΅Π½ΠΈΠ΅

Π’ Ρ€Π°Π±ΠΎΡ‚Π΅ написаны ΠΌΠ΅Ρ‚ΠΎΠ΄Ρ‹ ΠΈ ΠΌΠΎΠ΄Π΅Π»ΠΈ БМО. Π’ Π½Π°ΡΡ‚оящСС врСмя БМО Π·Π°Π½ΠΈΠΌΠ°Π΅Ρ‚ ΠΎΠ΄Π½ΠΎ ΠΈΠ· ΡΠ°ΠΌΡ‹Ρ… ΠΏΠ΅Ρ€Π²Ρ‹Ρ… мСст ΠΈΠ· ΠΎΠ±Π»Π°ΡΡ‚ΠΈ ΠΌΠ°Ρ‚Π΅ΠΌΠ°Ρ‚ΠΈΠΊΠΈ Π² ΠΏΡ€ΠΎΠΌΡ‹ΡˆΠ»Π΅Π½Π½ΠΎΠΉ, Π±Ρ‹Ρ‚ΠΎΠ²ΠΎΠΉ, ΠΌΠ°Ρ‚Π΅Ρ€ΠΈΠ°Π»ΡŒΠ½ΠΎΠΉ, ΠΊΠΎΠΌΠΏΡŒΡŽΡ‚Π΅Ρ€Π½ΠΎΠΉ ΠΈ Π΄Ρ€ΡƒΠ³ΠΈΡ… сфСрах Π΄Π΅ΡΡ‚Π΅Π»ΡŒΠ½ΠΎΡΡ‚ΠΈ, Π³Π΄Π΅ Π½ΡƒΠΆΠ½Ρ‹ экономичСскиС расчСты. Π§Π΅ΠΌ дальшС ΠΌΡ‹ ΡƒΡ…ΠΎΠ΄ΠΈΠΌ Π² ΡΠΎΠ²Ρ€Π΅ΠΌΠ΅Π½Π½ΠΎΡΡ‚ΡŒ, Ρ‚Π΅ΠΌ большС ΡƒΠΏΠΎΡ‚Ρ€Π΅Π±Π»ΡΡŽΡ‚ΡΡ экономичСскиС расчСты, ΠΈ Ρ‚Π΅ΠΌ большС Π±ΡƒΠ΄Π΅Ρ‚ ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΠΎΠ²Π°Ρ‚ΡŒΡΡ БМО. РаньшС БМО рассчитывали Π²Ρ€ΡƒΡ‡Π½ΡƒΡŽ, сСйчас БМО ΠΌΠΎΠΆΠ½ΠΎ Ρ€Π°ΡΡΡ‡ΠΈΡ‚Π°Ρ‚ΡŒ ΠΈ Π½Π° ΠΏΠ΅Ρ€ΡΠΎΠ½Π°Π»ΡŒΠ½ΠΎΠΌ ΠΊΠΎΠΌΠΏΡŒΡŽΡ‚Π΅Ρ€Π΅, Π½Π° ΠΊΠΎΡ‚ΠΎΡ€ΠΎΠΌ Π±ΡƒΠ΄Π΅Ρ‚ установлСна ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ°, которая Π±ΡƒΠ΄Π΅Ρ‚ Π΄Π΅Π»Π°Ρ‚ΡŒ расчСты БМО. Π’ ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΌ БМО ΠΏΡ€Π΅Π΄Π½Π°Π·Π½Π°Ρ‡Π΅Π½Π° для Ρ‚ΠΎΠ³ΠΎ, Ρ‡Ρ‚ΠΎΠ±Ρ‹ ΠΈΠΌΠ΅Ρ‚ΡŒ Π±ΠΎΠ»ΡŒΡˆΡƒΡŽ Π²Ρ‹Π³ΠΎΠ΄Ρƒ ΠΏΡ€Π΅Π΄ΠΏΡ€ΠΈΡΡ‚ΠΈΡŽ, ΠΎΡ€Π³Π°Π½ΠΈΠ·Π°Ρ†ΠΈΠΈ, ΠΊΠΎΠΌΠΏΠ°Π½ΠΈΠΈ ΠΈ Ρ‚. Π΄. ΠΏΡ€ΠΈ ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡŒΠ½Ρ‹Ρ… Π·Π°Ρ‚Ρ€Π°Ρ‚Π°Ρ…. ΠŸΡ€ΠΈ этом Ρ€Π°ΡΡΡ‡ΠΈΡ‚Π°Ρ‚ΡŒ, Ρ‡Ρ‚ΠΎΠ±Ρ‹ Π½Π΅ Π±Ρ‹Π»ΠΎ простоСв Ρ€Π°Π±ΠΎΡ‡ΠΈΡ… мСст, ΠΊΠΎΠΌΠΏΡŒΡŽΡ‚Π΅Ρ€ΠΎΠ², машин ΠΏΠ΅Ρ€Π΅Π²ΠΎΠ·ΠΈΠΌΡ‹Ρ… Π³Ρ€ΡƒΠ· ΠΈ Ρ‚. Π΄.

Π‘ΠΎΠ»ΡŒΡˆΠΎΠΉ Π²ΠΊΠ»Π°Π΄ Π² Ρ€Π°Π·Π²ΠΈΡ‚ΠΈΠ΅ БМО внСсли ΠΎΡ‡Π΅Π½ΡŒ ΠΌΠ½ΠΎΠ³ΠΎ ΡƒΡ‡Π΅Π½Ρ‹Ρ… ΠΏΠΎ Π²ΡΠ΅ΠΌΡƒ ΠΌΠΈΡ€Ρƒ. Π’Π°ΠΊ ΠΆΠ΅ Π² Ρ€Π°Π·Π²ΠΈΡ‚ΠΈΠ΅ БМО Π±Ρ‹Π»ΠΈ Π²Π»ΠΎΠΆΠ΅Π½Ρ‹ Ρ€Π°Π±ΠΎΡ‚Ρ‹ ΠΈ ΡΡ‚арания ΠΌΠ½ΠΎΠ³ΠΈΡ… российских ΡƒΡ‡Π΅Π½Ρ‹Ρ…. Одни ΠΈΠ· ΡΠ°ΠΌΡ‹Ρ… извСстных Π±Ρ‹Π»ΠΈ ΠΈ Π΅ΡΡ‚ΡŒ Ρ‚Π°ΠΊΠΈΠ΅ ΡƒΡ‡Π΅Π½Ρ‹Π΅ ΠΊΠ°ΠΊ Π“Π½Π΅Π΄Π΅Π½ΠΊΠΎ ΠΈ Π₯ΠΈΠ½Ρ‡ΠΈΠ½. Они Π½Π΅ Ρ‰Π°Π΄ΠΈΠ»ΠΈ сСбя ΠΈ ΡΠ²ΠΎΠΈ силы для развития БМО.

1. БСрСТная Π•. Π’., Π‘Π΅Ρ€Π΅ΠΆΠ½ΠΎΠΉ Π’. И. «ΠœΠ°Ρ‚СматичСскиС ΠΌΠ΅Ρ‚ΠΎΠ΄Ρ‹ модСлирования экономичСских систСм», 2001 Π³.

2. Π‘Π°ΡƒΠ»ΡŒΠ΅Π² Π’. К. «ΠœΠ°Ρ‚СматичСскиС ΠΌΠ΅Ρ‚ΠΎΠ΄Ρ‹ Ρ‚Π΅ΠΎΡ€ΠΈΠΈ массового обслуТивания», 1999 Π³.

3. БуслСнко Н. П. «ΠΠ²Ρ‚оматизация ΠΈΠΌΠΈΡ‚Π°Ρ†ΠΈΠΎΠ½Π½ΠΎΠ³ΠΎ модСлирования слоТных систСм».

4. Π―ΠΊΠΎΠ²Π»Π΅Π² Π‘. А. «ΠœΠΎΠ΄Π΅Π»ΠΈΡ€ΠΎΠ²Π°Π½ΠΈΠ΅ систСм».

ΠŸΡ€ΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ А

Листинги ΠΌΠΎΠ΄ΡƒΠ»Π΅ΠΉ

unit Unit_tab1;

interface

uses

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

Dialogs, StdCtrls, Grids;

type

TForm2 = class (TForm)

tab1: TStringGrid;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Label1: TLabel;

procedure FormActivate (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure tab1KeyPress (Sender: TObject; var Key: Char);

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

ΠŸΡ€ΠΎΠ΄ΠΎΠ»ΠΆΠ΅Π½ΠΈΠ΅ прилоТСния Π‘

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2. FormActivate (Sender: TObject);

begin

tab1. Cells [1,0]: ='Π€ΠΎΡ€ΠΌΡƒΠ»Ρ‹';

tab1. Cells [2,0]: ='1';

tab1. Cells [3,0]: ='2';

tab1. Cells [4,0]: ='3';

tab1. Cells [5,0]: ='4';

tab1. Cells [6,0]: ='5';

tab1. Cells [0,1]: ='1/L';

tab1. Cells [0,2]: ='L';

tab1. Cells [0,3]: ='1/M';

tab1. Cells [0,4]: ='M';

TAB1. Cells [0,5]: ='P';

tab1. Cells [0,6]: ='E1';

tab1. Cells [0,7]: ='E2';

TAB1. Cells [0,8]: ='E3';

tab1. Cells [0,9]: ='E4';

tab1. Cells [0,10]: ='E5';

tab1. Cells [1,5]: ='L/M';

ΠŸΡ€ΠΎΠ΄ΠΎΠ»ΠΆΠ΅Π½ΠΈΠ΅ прилоТСния Π‘

tab1. Cells [1,6]: ='1-P';

tab1. Cells [1,7]: ='P/(1-P)';

tab1. Cells [1,8]: ='P2/(1-P)';

tab1. Cells [1,9]: ='1/(M-L)';

tab1. Cells [1,10]: ='P/(M-L)';

end;

procedure TForm2. Button1Click (Sender: TObject);

var

i, j, numb_min:integer;

min:real;

mas:array [1. 10,1.5] of real;

begin

label1. Caption:='';

for i:=1 to 10 do

for j:=1 to 5 do

begin

if (length (tab1.cells [j+1, i])<>0) and (tab1. Cells [j+1, i]<>' ')

then mas [i, j]: =strtofloat (tab1. Cells [j+1, i])

else mas [i, j]: =0;

end;

for i:=1 to 10 do

for j:=2 to 6 do

tab1. Cells [j, i]: =' ';

for j:=1 to 5 do

ΠŸΡ€ΠΎΠ΄ΠΎΠ»ΠΆΠ΅Π½ΠΈΠ΅ прилоТСния Π‘

try

mas [2, j]: =round (1/mas [1, j]*100 000)/100 000;

mas [4, j]: =round (100 000*1/mas [3, j])/100 000;

mas [5, j]: =round (100 000*mas [2, j]/mas [4, j])/100 000;

mas [6, j]: =round (100 000*(1-mas [5, j]))/100 000;

if mas [6, j]=0 then continue;

mas [7, j]: =round (100 000*mas [5, j]/mas [6, j])/100 000;

mas [8, j]: =round (100 000*sqr (mas[5, j])/mas [6, j])/100 000;

mas [9, j]: =round (100 000*1/(mas [4, j] - mas [2, j]))/100 000;

mas [10, j]: =round (100 000*mas [5, j]*mas [9, j])/100 000;

except

on EzeroDivide do

begin

showmessage ('ΠŸΠΎΠΏΡ‹Ρ‚ΠΊΠ° дСлСния Π½Π° Π½ΠΎΠ»ΡŒ!');

exit;

end;

end;

for i:=1 to 10 do

for j:=1 to 5 do

tab1.cells [j+1, i]: =floattostr (mas[i, j]);

for i:=1 to 5 do

begin

label1. Caption:=label1.caption+'АЗБ β„–'+floattostr (i)+#13;

if mas [5, i]>1 then

label1. Caption:=label1.caption+'Π’ случаС Π΄Π°Π½Π½ΠΎΠ³ΠΎ АЗБ ΠΎΡ‡Π΅Ρ€Π΅Π΄ΡŒ Π±ΡƒΠ΄Π΅Ρ‚ расти Π΄ΠΎ Π±Π΅ΡΠΊΠΎΠ½Π΅Ρ‡Π½ΠΎΡΡ‚ΠΈ'+#13

else

begin

ΠŸΡ€ΠΎΠ΄ΠΎΠ»ΠΆΠ΅Π½ΠΈΠ΅ прилоТСния Π‘

if mas [5, i]=1 then

label1. Caption:=label1. Caption+'Полная Π·Π°Π³Ρ€ΡƒΠ·ΠΊΠ° оборудования'+#13

else

begin

if mas [5, i]>0.7 then

label1. Caption:=LABEL1.CAPTION+'Π₯ΠΎΡ€ΠΎΡˆΠ°Ρ Π·Π°Π³Ρ€ΡƒΠ·ΠΊΠ° оборудования'+#13;

if mas [5, i]<0.4 then

label1. Caption:=label1.caption+'CистСма Π΄ΠΎΠ»Π³ΠΎ простаиваСт '+#13;

if (mas [5, i]<0.7) and (mas [5, i]>0.4) then

label1. Caption:=label1. Caption+'ΠžΠ±ΠΎΡ€ΡƒΠ΄ΠΎΠ²Π°Π½ΠΈΠ΅ Π² ΡΡ€Π΅Π΄Π½Π΅ΠΌ простаиваСт'+#13;

end;

end;

label1. Caption:=label1. Caption+#13;

end;

min:=1000;

for j:=1 to 5 do

begin

if ((mas [10, j]=0) and (mas [5, j]>0.3)) or (mas [5, j]=1) then

begin

min:=mas [10, j];

numb_min:=j;

end;

end;

if (min<1000) then

begin

ΠŸΡ€ΠΎΠ΄ΠΎΠ»ΠΆΠ΅Π½ΠΈΠ΅ прилоТСния Π‘

if min<>0 then

label1. Caption:=label1.caption+'ΠŸΡ€Π΅Π΄Π»Π°Π³Π°Π΅ΠΌ '+inttostr (numb_min)+'-Π²Π°Ρ€ΠΈΠ°Π½Ρ‚ АЗБ, учитывая рост '+#13+

'Π°Π²Ρ‚ΠΎΠΌΠΎΠ±ΠΈΠ»ΡŒΠ½ΠΎΠ³ΠΎ ΠΏΠ°Ρ€ΠΊΠ° Π² ΡΡ‚Ρ€Π°Π½Π΅'+#13

else

label1. Caption:=label1.caption+'ΠŸΡ€Π΅Π΄Π»Π°Π³Π°Π΅ΠΌ '+inttostr (numb_min)+'-Π²Π°Ρ€ΠΈΠ°Π½Ρ‚ АЗБ'+#13;

end

else

label1. Caption:=label1.caption+'НСту подходящСго Π²Π°Ρ€ΠΈΠ°Π½Ρ‚Π°'+#13;

end;

procedure TForm2. tab1KeyPress (Sender: TObject; var Key: Char);

begin

if (tab1. Row=1) or (tab1. Row=3) then

begin

case key of

#8,'0'.'9':;

#13:

if tab1. row

then tab1. row:=tab1.row+1;

if key<>decimalseparator then

key:=decimalseparator;

else

key:=chr (0);

end;

ΠŸΡ€ΠΎΠ΄ΠΎΠ»ΠΆΠ΅Π½ΠΈΠ΅ прилоТСния Π‘

end

else

case key of

#13:

if tab1. row

then tab1. row:=tab1.row+1;

else

key:=chr (0);

end;

end;

procedure TForm2. FormClose (Sender: TObject; var Action: TCloseAction);

var

i, j: integer;

begin

for i:=1 to 10 do

for j:=2 to 6 do

tab1. Cells [j, i]: =' ';

end;

procedure TForm2. Button2Click (Sender: TObject);

var

j:integer;

ΠŸΡ€ΠΎΠ΄ΠΎΠ»ΠΆΠ΅Π½ΠΈΠ΅ прилоТСния Π‘

begin

for j:=2 to 6 do

tab1. Cells [j, 1]: =floattostr (12);

tab1. Cells [2,3]: =floattostr (12.5);

tab1. Cells [3,3]: =floattostr (11);

tab1. Cells [4,3]: =floattostr (10);

tab1. Cells [5,3]: =floattostr (10.5);

tab1. Cells [6,3]: =floattostr (13);

end;

procedure TForm2. Button3Click (Sender: TObject);

var

i, j: integer;

begin

for i:=1 to 10 do

for j:=2 to 6 do

tab1. Cells [j, i]: =' ';

label1. Caption:='';

end;

end.

ΠŸΡ€ΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π‘

ΠœΠ°ΠΊΠ΅Ρ‚Ρ‹ экранных Ρ„ΠΎΡ€ΠΌ Рисунок Π’.1 — Кнопка автоматичСского Π²Π²ΠΎΠ΄Π° значСния

ΠŸΠΎΠΊΠ°Π·Π°Ρ‚ΡŒ вСсь тСкст
Π—Π°ΠΏΠΎΠ»Π½ΠΈΡ‚ΡŒ Ρ„ΠΎΡ€ΠΌΡƒ Ρ‚Π΅ΠΊΡƒΡ‰Π΅ΠΉ Ρ€Π°Π±ΠΎΡ‚ΠΎΠΉ