ΠΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΌΠ΅ΡΠΎΠ΄Ρ ΡΠ΅ΠΎΡΠΈΠΈ ΠΌΠ°ΡΡΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠ±ΡΠ»ΡΠΆΠΈΠ²Π°Π½ΠΈΡ
ΠΠ΅ΡΠΌΠΎΡΡΡ Π½Π° ΠΏΡΠΎΡΡΠΎΡΡ Π² ΠΎΡΠ²ΠΎΠ΅Π½ΠΈΠΈ, 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 — ΠΠ½ΠΎΠΏΠΊΠ° Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ Π²Π²ΠΎΠ΄Π° Π·Π½Π°ΡΠ΅Π½ΠΈΡ