Π Π°ΡΡΠ΅ΡΠ½Π°Ρ ΠΌΠ΅ΡΠΎΠ΄ΠΈΠΊΠ° ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΊΠΎΠΌΠΏΠ»Π΅ΠΊΡΠ°
ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΠ΅ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΈ Π·Π°Π½ΠΈΠΌΠ°ΡΡ ΡΠ½ΠΈΠΊΠ°Π»ΡΠ½ΠΎΠ΅ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΠΈ ΡΡΠ°Π»ΠΈ Π½Π΅ΠΎΡΡΠ΅ΠΌΠ»Π΅ΠΌΠΎΠΉ ΡΠ°ΡΡΡΡ Π½Π°ΡΠ΅ΠΉ ΠΏΠΎΠ²ΡΠ΅Π΄Π½Π΅Π²Π½ΠΎΠΉ Π΄Π΅ΡΡΠ΅Π»ΡΠ½ΠΎΡΡΠΈ. ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ — ΠΎΠ±Π»Π°ΡΡΡ Π½Π°ΡΠΊΠΈ ΠΈ ΡΠ΅Ρ Π½ΠΈΠΊΠΈ, Π±Π΅Π· Π·Π½Π°Π½ΠΈΡ ΠΊΠΎΡΠΎΡΠΎΠΉ Π½Π΅Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ Π΄Π°Π»ΡΠ½Π΅ΠΉΡΠ΅Π΅ ΡΠ°Π·Π²ΠΈΡΠΈΠ΅ ΡΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠ³ΠΎ ΠΎΠ±ΡΠ΅ΡΡΠ²Π°. Π ΠΎΡΠ»ΠΈΡΠΈΠ΅ ΠΎΡ Π΄ΡΡΠ³ΠΈΡ Π½Π°ΡΡΠ½ΠΎ-ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈΡ Π΄ΠΎΡΡΠΈΠΆΠ΅Π½ΠΈΠΉ ΡΡΠ΅Π΄ΡΡΠ²Π° Π²ΡΡΠΈΡΠ»ΠΈΡΠ΅Π»ΡΠ½ΠΎΠΉ ΡΠ΅Ρ Π½ΠΈΠΊΠΈ ΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠΈ ΠΏΡΠΈΠΌΠ΅Π½ΡΡΡΡΡ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ Π²ΠΎ Π²ΡΠ΅Ρ ΡΡΠ΅ΡΠ°Ρ ΠΈΠ½ΡΠ΅Π»Π»Π΅ΠΊΡΡΠ°Π»ΡΠ½ΠΎΠΉ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
Π Π°ΡΡΠ΅ΡΠ½Π°Ρ ΠΌΠ΅ΡΠΎΠ΄ΠΈΠΊΠ° ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΊΠΎΠΌΠΏΠ»Π΅ΠΊΡΠ° (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠΈΠ½ΠΈΡΡΠ΅ΡΡΡΠ²ΠΎ ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΡ ΠΈ Π½Π°ΡΠΊΠΈ Π ΠΎΡΡΠΈΠΉΡΠΊΠΎΠΉ Π€Π΅Π΄Π΅ΡΠ°ΡΠΈΠΈ ΠΠΎΡΡΠ΄Π°ΡΡΡΠ²Π΅Π½Π½ΠΎΠ΅ ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΠ΅ ΡΡΡΠ΅ΠΆΠ΄Π΅Π½ΠΈΠ΅ Π²ΡΡΡΠ΅Π³ΠΎ ΠΏΡΠΎΡΠ΅ΡΡΠΈΠΎΠ½Π°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΡ
«ΠΠΎΠΌΡΠΎΠΌΠΎΠ»ΡΡΠΊΠΈΠΉ — Π½Π° — ΠΠΌΡΡΠ΅ Π³ΠΎΡΡΠ΄Π°ΡΡΡΠ²Π΅Π½Π½ΡΠΉ ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈΠΉ ΡΠ½ΠΈΠ²Π΅ΡΡΠΈΡΠ΅Ρ «
ΠΠ½ΡΡΠΈΡΡΡ ΠΠΠΠΠ’Π ΠΠ°ΡΠ΅Π΄ΡΠ° Π’Π΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΈ ΠΌΠ°ΡΠΈΠ½ΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ ΠΠΠ―Π‘ΠΠΠ’ΠΠΠ¬ΠΠΠ― ΠΠΠΠΠ‘ΠΠ ΠΊ ΠΊΡΡΡΠΎΠ²ΠΎΠΌΡ ΠΏΡΠΎΠ΅ΠΊΡΡ Π Π°ΡΡΠ΅ΡΠ½Π°Ρ ΠΌΠ΅ΡΠΎΠ΄ΠΈΠΊΠ° ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΊΠΎΠΌΠΏΠ»Π΅ΠΊΡΠ° Π‘ΡΡΠ΄Π΅Π½Ρ Π³ΡΡΠΏΠΏΡ 5ΠΠ‘-1 Π.Π‘. ΠΡΠΎΡΠΎΠ²Π°
1. ΠΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ° ΠΈ Π°Π½Π°Π»ΠΈΠ· Π·Π°Π΄Π°ΡΠΈ
1.1 ΠΠΎΡΡΠ΅Π±Π½ΠΎΡΡΡ Π² ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΈΠΈ ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΠΏΠΎΠ³ΡΠ΅ΡΠ½ΠΎΡΡΠ΅ΠΉ
1.2 ΠΠΏΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»ΠΎΠ² Π³ΡΡΠΏΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½ΡΠ°Π»ΡΠ½ΡΡ Π΄Π°Π½Π½ΡΡ
2. ΠΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΊΠΎΠΌΠΏΠ»Π΅ΠΊΡΠ°
3. ΠΠΎΠ΄ΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
3.1 ΠΠΎΠ΄ΡΠ»Ρ Math
3.2 ΠΠΎΠ΄ΡΠ»Ρ 1
3.3 ΠΠΎΠ΄ΡΠ»Ρ 2
3.4 ΠΠΎΠ΄ΡΠ»Ρ 3
3.5 ΠΠΎΠ΄ΡΠ»Ρ 4
ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅, Π ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π Π‘ΠΏΠΈΡΠΎΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Π½ΡΡ ΠΈΡΡΠΎΡΠ½ΠΈΠΊΠΎΠ²
ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΠ΅ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΈ Π·Π°Π½ΠΈΠΌΠ°ΡΡ ΡΠ½ΠΈΠΊΠ°Π»ΡΠ½ΠΎΠ΅ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΠΈ ΡΡΠ°Π»ΠΈ Π½Π΅ΠΎΡΡΠ΅ΠΌΠ»Π΅ΠΌΠΎΠΉ ΡΠ°ΡΡΡΡ Π½Π°ΡΠ΅ΠΉ ΠΏΠΎΠ²ΡΠ΅Π΄Π½Π΅Π²Π½ΠΎΠΉ Π΄Π΅ΡΡΠ΅Π»ΡΠ½ΠΎΡΡΠΈ. ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ — ΠΎΠ±Π»Π°ΡΡΡ Π½Π°ΡΠΊΠΈ ΠΈ ΡΠ΅Ρ Π½ΠΈΠΊΠΈ, Π±Π΅Π· Π·Π½Π°Π½ΠΈΡ ΠΊΠΎΡΠΎΡΠΎΠΉ Π½Π΅Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ Π΄Π°Π»ΡΠ½Π΅ΠΉΡΠ΅Π΅ ΡΠ°Π·Π²ΠΈΡΠΈΠ΅ ΡΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠ³ΠΎ ΠΎΠ±ΡΠ΅ΡΡΠ²Π°. Π ΠΎΡΠ»ΠΈΡΠΈΠ΅ ΠΎΡ Π΄ΡΡΠ³ΠΈΡ Π½Π°ΡΡΠ½ΠΎ-ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈΡ Π΄ΠΎΡΡΠΈΠΆΠ΅Π½ΠΈΠΉ ΡΡΠ΅Π΄ΡΡΠ²Π° Π²ΡΡΠΈΡΠ»ΠΈΡΠ΅Π»ΡΠ½ΠΎΠΉ ΡΠ΅Ρ Π½ΠΈΠΊΠΈ ΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠΈ ΠΏΡΠΈΠΌΠ΅Π½ΡΡΡΡΡ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ Π²ΠΎ Π²ΡΠ΅Ρ ΡΡΠ΅ΡΠ°Ρ ΠΈΠ½ΡΠ΅Π»Π»Π΅ΠΊΡΡΠ°Π»ΡΠ½ΠΎΠΉ Π΄Π΅ΡΡΠ΅Π»ΡΠ½ΠΎΡΡΠΈ ΡΠ΅Π»ΠΎΠ²Π΅ΠΊΠ°, ΡΠΏΠΎΡΠΎΠ±ΡΡΠ²ΡΡ ΠΏΡΠΎΠ³ΡΠ΅ΡΡΡ Π² ΡΠ΅Ρ Π½ΠΈΠΊΠ΅ ΠΈ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΈ. ΠΠΎΠ½Π΅ΡΠ½ΠΎ, ΠΎΡΠ²ΠΎΠ΅Π½ΠΈΠ΅ ΡΠΆΠ΅ ΠΈΠΌΠ΅ΡΡΠΈΡ ΡΡ ΠΈ Ρ ΠΎΡΠΎΡΠΎ ΡΠ΅Π±Ρ Π·Π°ΡΠ΅ΠΊΠΎΠΌΠ΅Π½Π΄ΠΎΠ²Π°Π²ΡΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ ΡΠΈΡΡΠ΅ΠΌ ΠΈ ΠΎΡΠ½ΠΎΠ²Π°Π½Π½ΡΡ Π½Π° Π½ΠΈΡ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΉ — Π²Π°ΠΆΠ½Π°Ρ ΠΈ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠ°Ρ Π·Π°Π΄Π°ΡΠ°. ΠΡΠΆΠ½ΠΎ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΠ΅ ΡΡΠ»ΠΎΠ²ΠΈΡ Π΄Π»Ρ ΡΠ°Π·Π²ΠΈΡΠΈΡ Π² Π½Π°ΡΠ΅ΠΉ ΡΡΡΠ°Π½Π΅ ΠΈΡΡΠ»Π΅Π΄ΠΎΠ²Π°Π½ΠΈΠΉ Π² ΠΎΠ±Π»Π°ΡΡΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΡ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΉ ΠΈ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΈΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ² Π² ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΡ ΡΠΈΡΡΠ΅ΠΌΠ°Ρ ΠΈ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡΡ .
1. ΠΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ° ΠΈ Π°Π½Π°Π»ΠΈΠ· Π·Π°Π΄Π°ΡΠΈ
Π¦Π΅Π»ΡΡ Π΄Π°Π½Π½ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π° ΡΠ·ΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Delphi Π΄Π»Ρ ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΈΠΈ ΡΠΎΡΠΌΡ Π·Π°ΠΊΠΎΠ½Π° ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΠΏΠΎΠ³ΡΠ΅ΡΠ½ΠΎΡΡΠ΅ΠΉ ΡΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½ΡΠ°Π»ΡΠ½ΡΡ Π΄Π°Π½Π½ΡΡ .
1.1 ΠΠΎΡΡΠ΅Π±Π½ΠΎΡΡΡ Π² ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΈΠΈ ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΠΏΠΎΠ³ΡΠ΅ΡΠ½ΠΎΡΡΠ΅ΠΉ
ΠΠ±ΠΎΡΠ½ΠΎΠ²Π°Π½Π½ΠΎΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΌΠ½ΠΎΠ³ΠΈΡ Π·Π°Π΄Π°Ρ ΡΡΠ΅Π±ΡΠ΅Ρ ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΈΠΈ ΡΠΎΡΠΌΡ ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΠΏΠΎΠ³ΡΠ΅ΡΠ½ΠΎΡΡΠ΅ΠΉ.
ΠΡΠ° ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΈΡ Π½ΡΠΆΠ½Π°, Ρ.ΠΊ. ΡΠ°ΡΡΠ΅ΡΠ½ΠΈΠ΅ ΠΌΠ½ΠΎΠ³ΠΈΡ ΠΎΡΠ΅Π½ΠΎΠΊ Π·Π°Π²ΠΈΡΠΈΡ ΠΎΡ ΡΠΎΡΠΌΡ Π·Π°ΠΊΠΎΠ½Π° ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ. ΠΠ»Ρ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ ΠΎΠ΄Π½ΠΎΠΉ ΠΈ ΡΠΎΠΉ ΠΆΠ΅ ΠΏΠΎΠ³ΡΠ΅ΡΠ½ΠΎΡΡΠΈ Π² ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΠΈ ΠΎΡΠ΅Π½ΠΊΠΈ ΠΏΡΠΈ ΠΎΠ΄Π½ΠΎΠΌ Π·Π°ΠΊΠΎΠ½Π΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΎΠ³ΡΠ°Π½ΠΈΡΠΈΡΡΡΡ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΠΌΠ°Π»ΠΎΠΉ Π²ΡΠ±ΠΎΡΠΊΠΎΠΉ, Π² ΡΠΎ Π²ΡΠ΅ΠΌΡ ΠΊΠ°ΠΊ ΠΏΡΠΈ Π΄ΡΡΠ³ΠΎΠΌ — Π²ΡΠ±ΠΎΡΠΊΠ° ΠΈΡΡ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ Π΄ΠΎΠ»ΠΆΠ½Π° Π±ΡΡΡ Π·Π½Π°ΡΠΈΡΠ΅Π»ΡΠ½ΠΎ Π±ΠΎΠ»ΡΡΠ΅. ΠΠ· ΡΡΠΎΠ³ΠΎ ΡΠ»Π΅Π΄ΡΠ΅Ρ, ΡΡΠΎ Π·Π½Π°Π½ΠΈΠ΅ Π²ΠΈΠ΄Π° Π·Π°ΠΊΠΎΠ½Π° ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π΄Π»Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΠΎΠ΄Π½ΠΈΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² Π·Π°ΠΊΠΎΠ½Π° ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΡΠ΅ΡΠ΅Π· Π΄ΡΡΠ³ΠΈΠ΅ Π΅Π³ΠΎ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ. ΠΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ Π²ΠΈΠ΄Π° Π·Π°ΠΊΠΎΠ½Π° ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΠΏΠΎΠ³ΡΠ΅ΡΠ½ΠΎΡΡΠ΅ΠΉ ΠΌΠΎΠΆΠ΅Ρ ΡΠ»ΡΠΆΠΈΡΡ ΠΏΡΠΈΠ·Π½Π°ΠΊΠΎΠΌ ΠΊΠ°ΠΊΠΎΠ³ΠΎ-Π»ΠΈΠ±ΠΎ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΡΡΠ»ΠΎΠ²ΠΈΠΉ ΠΏΡΠΎΠ²Π΅Π΄Π΅Π½ΠΈΡ ΠΈΠ·ΠΌΠ΅ΡΠ΅Π½ΠΈΠΉ.
ΠΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½ΡΠ°Π»ΡΠ½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ ΠΎ ΡΠ°Π·Π½ΠΎΠΎΠ±ΡΠ°Π·ΠΈΠΈ ΡΠΎΡΠΌ ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΠΏΠΎΠ³ΡΠ΅ΡΠ½ΠΎΡΡΠ΅ΠΉ ΠΈΠ·ΠΌΠ΅ΡΠ΅Π½ΠΈΠΉ Π½Π°ΠΊΠΎΠΏΠ»Π΅Π½Ρ Π² Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎΠΌ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Π΅. Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΡΡΠΎΠ³ΠΎ ΡΠ°ΠΊΡ ΡΠ°Π·Π½ΠΎΠΎΠ±ΡΠ°Π·ΠΈΡ Π·Π°ΠΊΠΎΠ½ΠΎΠ² ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΠΏΠΎΠ³ΡΠ΅ΡΠ½ΠΎΡΡΠ΅ΠΉ Π±ΡΠ» ΠΏΡΠΈΠ·Π½Π°Π½ Π·Π°ΠΊΠΎΠ½ΠΎΠ΄Π°ΡΠ΅Π»ΡΠ½ΠΎ. 1 ΡΠ½Π²Π°ΡΡ 1974 Π³. Π±ΡΠ» Π²Π²Π΅Π΄Π΅Π½ Π² Π΄Π΅ΠΉΡΡΠ²ΠΈΠ΅ ΠΠΠ‘Π’ 8.011 — 72, ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°ΡΡΠΈΠΉ, ΡΡΠΎ ΠΏΡΠΈ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠΈ ΡΠ°Π·ΠΌΠ΅ΡΠ° ΠΏΠΎΠ³ΡΠ΅ΡΠ½ΠΎΡΡΠΈ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ° ΠΈΠ·ΠΌΠ΅ΡΠ΅Π½ΠΈΡ ΡΠ΅Π»Π΅ΡΠΎΠΎΠ±ΡΠ°Π·Π½ΠΎ ΡΠΊΠ°Π·ΡΠ²Π°ΡΡ Π²ΠΈΠ΄ ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ. Π’Π°ΠΊ ΠΆΠ΅ Π±ΡΠ»ΠΈ ΡΡΠ°Π½Π΄Π°ΡΡΠΈΠ·ΠΎΠ²Π°Π½Ρ ΠΌΠΎΠ΄Π΅Π»ΠΈ ΡΠ°Π²Π½ΠΎΠΌΠ΅ΡΠ½ΠΎΠ³ΠΎ, ΡΡΠ°ΠΏΠ΅ΡΠ΅ΠΈΠ΄Π°Π»ΡΠ½ΠΎΠ³ΠΎ, ΡΡΠ΅ΡΠ³ΠΎΠ»ΡΠ½ΠΎΠ³ΠΎ, Π½ΠΎΡΠΌΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΈ Π΄Π²ΡΡ ΠΌΠΎΠ΄Π°Π»ΡΠ½ΡΡ ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΠΉ.
ΠΠ°Π΄ΠΎ Π·Π°ΠΌΠ΅ΡΠΈΡΡ, ΡΡΠΎ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΈΠΈ ΡΠΎΡΠΌΡ ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΡΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½ΡΠ°Π»ΡΠ½ΡΡ Π΄Π°Π½Π½ΡΡ ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½Π°, ΠΏΡΠ΅ΠΆΠ΄Π΅ Π²ΡΠ΅Π³ΠΎ, ΠΌΠ°Π»ΠΎΡΡΡΡ ΠΎΠ±ΡΠ΅ΠΌΠ° Π²ΡΠ±ΠΎΡΠΊΠΈ. ΠΡΠΈ Π±ΠΎΠ»ΡΡΠΎΠΌ ΠΎΠ±ΡΠ΅ΠΌΠ΅ Π²ΡΠ±ΠΎΡΠΊΠΈ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ Π² Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΡΡΡΡ Π½Π°Π±Π»ΡΠ΄Π΅Π½ΠΈΠΉ, ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΠ΅ Π³ΠΈΡΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΠ°ΡΡΠΎ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΠΏΠ»Π°Π²Π½ΡΡ ΠΊΡΠΈΠ²ΡΡ, ΠΊΠΎΡΠΎΡΠ°Ρ ΠΎΡΡΠ°ΠΆΠ°Π΅Ρ Π²ΡΠ΅ Ρ Π°ΡΠ°ΠΊΡΠ΅ΡΠ½ΡΠ΅ ΠΎΡΠΎΠ±Π΅Π½Π½ΠΎΡΡΠΈ Π½Π°Π±Π»ΡΠ΄Π°Π΅ΠΌΠΎΠ³ΠΎ Π·Π°ΠΊΠΎΠ½Π°. ΠΡΡΠ³ΠΈΠΌΠΈ ΡΠ»ΠΎΠ²Π°ΠΌΠΈ, Π±ΠΎΠ»Π΅Π΅ ΡΠΎΠ½ΠΊΠ°Ρ ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΈΡ ΡΠΎΡΠΌΡ ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½Π° Π»ΠΈΡΡ ΠΏΡΠΈ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅ΠΌ ΡΠ²Π΅Π»ΠΈΡΠ΅Π½ΠΈΠΈ ΠΎΠ±ΡΠ΅ΠΌΠ° Π²ΡΠ±ΠΎΡΠΊΠΈ ΡΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½ΡΠ°Π»ΡΠ½ΡΡ Π΄Π°Π½Π½ΡΡ .
Π‘Π»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎ, ΠΌΠΎΠΆΠ½ΠΎ ΡΠ΄Π΅Π»Π°ΡΡ Π²ΡΠ²ΠΎΠ΄ ΠΎ ΡΠΎΠΌ, ΡΡΠΎ ΠΈΠΌΠ΅Π΅Ρ Π±ΠΎΠ»ΡΡΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π½Π°ΠΊΠΎΠΏΠ»Π΅Π½ΠΈΠ΅ Π΄Π°Π½Π½ΡΡ ΠΈ ΡΠΎΡΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ ΠΊΠ°ΡΠ°Π»ΠΎΠ³Π° ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΠΏΠΎΠ³ΡΠ΅ΡΠ½ΠΎΡΡΠ΅ΠΉ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ ΡΡΠ΅Π΄ΡΡΠ² ΠΈΠ·ΠΌΠ΅ΡΠ΅Π½ΠΈΠΉ (Π΄Π°ΡΡΠΈΠΊΠΎΠ², ΠΏΡΠΈΠ±ΠΎΡΠΎΠ²), ΡΠΈΡΠΎΠΊΠΎ ΠΏΡΠΈΠΌΠ΅Π½ΡΠ΅ΠΌΡΡ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ² ΠΈΠ·ΠΌΠ΅ΡΠ΅Π½ΠΈΠΉ, Π΄Π»Ρ ΡΠΎΠ³ΠΎ ΡΡΠΎΠ±Ρ ΡΡΠΈΠΌΠΈ Π΄Π°Π½Π½ΡΠΌΠΈ ΠΌΠΎΠΆΠ½ΠΎ Π±ΡΠ»ΠΎ Π·Π°ΡΠ΅ΠΌ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ Π΄Π°ΠΆΠ΅ ΠΏΡΠΈ Π½Π°Π»ΠΈΡΠΈΠΈ ΠΌΠ°Π»ΡΡ ΡΠ΅ΡΠΈΠΉ ΠΈΠ·ΠΌΠ΅ΡΠ΅Π½ΠΈΠΉ.
1.2 ΠΠΏΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»ΠΎΠ² Π³ΡΡΠΏΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½ΡΠ°Π»ΡΠ½ΡΡ Π΄Π°Π½Π½ΡΡ
ΠΠ»Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΠΌΠ΅Π΄ΠΈΠ°Π½Ρ, ΡΠ³ΠΈΠ±ΠΎΠ², Π΄ΡΡΠ³ΠΈΡ ΠΊΠ²Π°Π½ΡΠΈΠ»Π΅ΠΉ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΊΡΠΈΡΠ΅ΡΠΈΡ ΡΠΎΠ³Π»Π°ΡΠΈΡ ΠΠΎΠ»ΠΌΠΎΠ³ΠΎΡΠΎΠ²Π°-Π‘ΠΌΠΈΡΠ½ΠΎΠ²Π° ΠΈΠ»ΠΈ Π΄Π»Ρ ΠΎΠ±Π½Π°ΡΡΠΆΠ΅Π½ΠΈΡ ΠΏΡΠΎΠΌΠ°Ρ ΠΎΠ² ΡΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½ΡΠ°Π»ΡΠ½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠΈΡΡ Π² ΠΏΠΎΡΡΠ΄ΠΊΠ΅ Π²ΠΎΠ·ΡΠ°ΡΡΠ°Π½ΠΈΡ, Ρ. Π΅. ΠΏΠΎΡΡΡΠΎΠΈΡΡ Π²Π°ΡΠΈΠ°ΡΠΈΠΎΠ½Π½ΡΠΉ ΡΡΠ΄ (ΡΠΏΠΎΡΡΠ΄ΠΎΡΠ΅Π½Π½ΡΡ Π²ΡΠ±ΠΎΡΠΊΡ).
ΠΠ»Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΡΠΎΡΠΌΡ ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΠΏΡΠΎΡΡΠΎ ΡΠΏΠΎΡΡΠ΄ΠΎΡΠ΅Π½Π½ΠΎΠΉ Π²ΡΠ±ΠΎΡΠΊΠΈ Π½Π΅Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ, ΠΎΠ½Π° Π΄ΠΎΠ»ΠΆΠ½Π° Π±ΡΡΡ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Π° Π² Π²ΠΈΠ΄Π΅ Π³ΠΈΡΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΡΠΎΡΡΠΎΡΡΠ΅ΠΉ ΠΈΠ· m ΡΡΠΎΠ»Π±ΡΠΎΠ² Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠΉ ΠΏΡΠΎΡΡΠΆΠ΅Π½Π½ΠΎΡΡΡΡ d ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΡ ΠΈΠΌ ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»ΠΎΠ². ΠΡΠΈΠ½ΡΡΠΎ Π΄Π΅Π»Π°ΡΡ ΡΡΠΈ ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»Ρ ΠΎΠ΄ΠΈΠ½Π°ΠΊΠΎΠ²ΡΠΌΠΈ. Π‘ΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ ΠΎΠΏΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»ΠΎΠ² Π³ΡΡΠΏΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΡ, ΠΊΠΎΠ³Π΄Π° ΡΡΡΠΏΠ΅Π½ΡΠ°ΡΠ°Ρ ΠΎΠ³ΠΈΠ±Π°ΡΡΠ°Ρ Π³ΠΈΡΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ Π±Π»ΠΈΠ·ΠΊΠ° ΠΊ ΠΏΠ»Π°Π²Π½ΠΎΠΉ ΠΊΡΠΈΠ²ΠΎΠΉ ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ. ΠΡΠΈ Π³ΡΡΠΏΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΠΈ Π΄Π°Π½Π½ΡΡ Π² ΡΠ»ΠΈΡΠΊΠΎΠΌ Π±ΠΎΠ»ΡΡΠΎΠ΅ ΡΠΈΡΠ»ΠΎ ΠΌΠ΅Π»ΠΊΠΈΡ ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»ΠΎΠ² Π³ΠΈΡΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π±ΡΠ΄Π΅Ρ ΠΎΡΠ»ΠΈΡΠ°ΡΡΡΡ ΠΎΡ ΠΏΠ»Π°Π²Π½ΠΎΠΉ ΠΊΡΠΈΠ²ΠΎΠΉ ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ Π²ΡΠ»Π΅Π΄ΡΡΠ²ΠΈΠ΅ ΠΈΠ·ΡΠ΅Π·Π°Π½Π½ΠΎΡΡΠΈ ΠΌΠ½ΠΎΠ³ΠΈΠΌΠΈ Π²ΡΠΏΠ»Π΅ΡΠΊΠ°ΠΌΠΈ ΠΈ ΠΏΡΠΎΠ²Π°Π»Π°ΠΌΠΈ (Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»Ρ ΠΎΠΊΠ°ΠΆΡΡΡΡ ΠΏΡΡΡΡΠΌΠΈ ΠΈΠ»ΠΈ ΠΌΠ°Π»ΠΎ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Π½ΡΠΌΠΈ), Ρ. Π΅. Π±ΡΠ΄Π΅Ρ ΠΈΠΌΠ΅ΡΡ «Π³ΡΠ΅Π±Π΅Π½ΡΠ°ΡΡΠΉ» Π²ΠΈΠ΄. ΠΠΎ ΠΏΡΠΈ ΡΠ»ΠΈΡΠΊΠΎΠΌ ΠΌΠ°Π»ΠΎΠΌ ΡΠΈΡΠ»Π΅ m ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»ΠΎΠ² Ρ Π°ΡΠ°ΠΊΡΠ΅ΡΠ½ΡΠ΅ ΠΎΡΠΎΠ±Π΅Π½Π½ΠΎΡΡΠΈ Π±ΡΠ΄ΡΡ ΠΏΠΎΡΠ΅ΡΡΠ½Ρ Π²ΡΠ»Π΅Π΄ΡΡΠ²ΠΈΠ΅ ΡΠ»ΠΈΡΠΊΠΎΠΌ ΠΊΡΡΠΏΠ½ΠΎΠΉ ΡΡΡΠΏΠ΅Π½ΡΠ°ΡΠΎΡΡΠΈ. Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΠΎΠΏΡΠΈΠΌΠ°Π»ΡΠ½ΡΠΌ ΡΠΈΡΠ»ΠΎΠΌ m ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»ΠΎΠ² ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ°ΠΊΠΎΠ΅, ΠΊΠΎΠ³Π΄Π° ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΠ΅ ΡΠ³Π»Π°ΠΆΠΈΠ²Π°Π½ΠΈΠ΅ ΡΠ»ΡΡΠ°ΠΉΠ½ΡΡ Π΄Π°Π½Π½ΡΡ ΡΠΎΡΠ΅ΡΠ°Π΅ΡΡΡ Ρ ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΡΠΌ ΠΈΡΠΊΠ°ΠΆΠ΅Π½ΠΈΠ΅ΠΌ ΠΎΡ ΡΠ³Π»Π°ΠΆΠΈΠ²Π°Π½ΠΈΡ ΡΠ°ΠΌΠΎΠΉ ΠΊΡΠΈΠ²ΠΎΠΉ ΠΈΡΠΊΠΎΠΌΠΎΠ³ΠΎ ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ. ΠΠ»Ρ ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΠΏΠΎΠ³ΡΠ΅ΡΠ½ΠΎΡΡΠ΅ΠΉ ΠΎΠ΄Π½ΠΈΠΌ ΠΈΠ· ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΡ ΠΏΡΠΈΠ·Π½Π°ΠΊΠΎΠ² ΠΏΡΠΈΠ±Π»ΠΈΠΆΠ΅Π½ΠΈΡ ΠΊ ΠΎΠΏΡΠΈΠΌΡΠΌΡ ΠΌΠΎΠΆΠ΅Ρ ΡΠ»ΡΠΆΠΈΡΡ Π² Π³ΠΈΡΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΏΡΠΎΠ²Π°Π»ΠΎΠ². ΠΠ»ΠΈΠ·ΠΊΠΈΠΌ ΠΊ ΠΎΠΏΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠΌΡ ΡΡΠΈΡΠ°Π΅ΡΡΡ Π½Π°ΠΈΠ±ΠΎΠ»ΡΡΠ΅Π΅ m, ΠΏΡΠΈ ΠΊΠΎΡΠΎΡΠΎΠΌ Π³ΠΈΡΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π΅ΡΠ΅ ΡΠΎΡ ΡΠ°Π½ΡΠ΅Ρ ΠΏΠ»Π°Π²Π½ΡΠΉ Ρ Π°ΡΠ°ΠΊΡΠ΅Ρ.
2 ΠΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΊΠΎΠΌΠΏΠ»Π΅ΠΊΡΠ°
Π Π΄Π°Π½Π½ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ Π±ΡΠ΄Π΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΎ 5 ΠΌΠΎΠ΄ΡΠ»Π΅ΠΉ ΠΈ 4 ΡΠΎΡΠΌΡ.
ΠΠ΅ΡΠ²Π°Ρ ΡΠΎΡΠΌΠ° (mainForm) Π΄ΠΎΠ»ΠΆΠ½Π° ΠΎΡΡΠ°ΠΆΠ°ΡΡ Π΄ΡΡΠΆΠ΅ΡΡΠ²Π΅Π½Π½ΡΠΉ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ, Π²Π°ΡΠΈΠ°ΡΠΈΠΎΠ½Π½ΡΠΉ ΡΡΠ΄ ΡΠΈΡΠ΅Π», ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΡΠΈΡ ΡΠΈΡΠ΅Π», ΠΎΡΠ΅Π½ΠΊΡ ΡΠ΅Π½ΡΡΠ°, ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΡΠΎΠ»Π±ΡΠΎΠ² ΠΈ Π΄Π²Π΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ. Button1 Π±ΡΠ΄Π΅Ρ Π½Π°Π·ΡΠ²Π°ΡΡΡΡ «ΠΠΈΡΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°», Button2 — «Π Π°ΡΡΡΠΈΡΠ°ΡΡ».
ΠΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ ΠΊΠ½ΠΎΠΏΠΊΠΈ Button2 ΡΠ°ΡΡΡΠΈΡΡΠ²Π°ΡΡΡΡ min ΠΈ max ΡΠΈΡΠ»Π° ΡΡΠ΄Π°, ΡΠΈΡΠΈΠ½Π° ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»Π° ΠΈ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΏΠΎΠΏΠ°Π΄Π°Π½ΠΈΠΉ ΡΠΈΡΠ΅Π» Π² ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»Ρ. ΠΠ»Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π²ΡΠ²ΠΎΠ΄ΡΡΡΡ Π½Π° ΡΠΊΡΠ°Π½ Π²Π°ΡΠΈΠ°Π½ΡΡ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Π° ΡΡΠΎΠ»Π±ΡΠΎΠ² Π΄Π»Ρ Π΄Π°Π»ΡΠ½Π΅ΠΉΡΠ΅Π³ΠΎ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ Π³ΠΈΡΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. ΠΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ ΠΏΡΠ΅Π΄Π»Π°Π³Π°Π΅ΡΡΡ ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ.
Π Delphi ΠΈΠΌΠ΅Π΅ΡΡΡ Π΄Π²Π° ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ°, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡΠΈΠ΅ ΠΌΠ΅Π½Ρ: MainMenu — Π³Π»Π°Π²Π½ΠΎΠ΅ ΠΌΠ΅Π½Ρ, ΠΈ PopupMenu — Π²ΡΠΏΠ»ΡΠ²Π°ΡΡΠ΅Π΅ ΠΌΠ΅Π½Ρ (ΡΡΡΠ°Π½ΠΈΡΠ° Standard).
ΠΡΠ½ΠΎΠ²Π½ΠΎΠ΅ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ² Items. ΠΠ³ΠΎ Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΎΡΠ° ΠΌΠ΅Π½Ρ. Π Π°ΡΠΏΠΎΠ»ΠΎΠΆΠΈΠΌ Π½Π° ΡΠΎΡΠΌΠ΅ ΡΡΠΈ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ.
1) ΠΠ²ΠΎΠΉΠ½ΡΠΌ ΡΠ΅Π»ΡΠΊΠΎΠΌ ΠΏΠΎ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ MainMenu1 Π²ΡΠ·ΠΎΠ²Π΅ΠΌ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ ΠΌΠ΅Π½Ρ.
2) ΠΠ°Π΄Π°Π΅ΠΌ ΡΠ²ΠΎΠΉΡΡΠ²Ρ Caption Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π€Π°ΠΉΠ».
3) Π©Π΅Π»ΡΠΊΠΎΠΌ ΠΌΡΡΡΡ Π½ΠΈΠΆΠ΅ ΠΏΡΠ½ΠΊΡΠ° ΠΌΠ΅Π½Ρ Π€Π°ΠΉΠ» ΡΠΎΠ·Π΄Π°Π΅ΠΌ Π½ΠΎΠ²ΡΠΉ ΠΏΡΠ½ΠΊΡ ΠΡΠΊΡΡΡΡ.
4) ΠΠ½Π°Π»ΠΎΠ³ΠΈΡΠ½ΡΠΌ ΡΠΏΠΎΡΠΎΠ±ΠΎΠΌ ΡΠΎΠ·Π΄Π°Π΅ΠΌ Π²ΡΠ΅ ΠΏΡΠ½ΠΊΡΡ ΠΌΠ΅Π½Ρ Π€Π°ΠΉΠ».
5) ΠΠ½Π°Π»ΠΎΠ³ΠΈΡΠ½ΡΠΌ ΡΠΏΠΎΡΠΎΠ±ΠΎΠΌ ΡΠΎΠ·Π΄Π°Π΅ΠΌ Π²ΡΠ΅ ΠΏΡΠ½ΠΊΡΡ ΠΌΠ΅Π½Ρ ΠΡΠ°Π²ΠΊΠ°.
6) ΠΠ½Π°Π»ΠΎΠ³ΠΈΡΠ½ΡΠΌ ΡΠΏΠΎΡΠΎΠ±ΠΎΠΌ ΡΠΎΠ·Π΄Π°Π΅ΠΌ Π²ΡΠ΅ ΠΏΡΠ½ΠΊΡΡ ΠΌΠ΅Π½Ρ ?
7) ΠΠΎΠ±Π°Π²Π»ΡΠ΅ΠΌ Π½Π° ΡΠΎΡΠΌΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ ImageList1 ΠΈ Π·Π°Π½ΠΎΡΠΈΠΌ Π² Π½Π΅Π³ΠΎ ΠΈΠΊΠΎΠ½ΠΊΠΈ Π΄Π»Ρ ΠΏΡΠ½ΠΊΡΠΎΠ² ΠΌΠ΅Π½Ρ. ΠΡΠΏΠΎΠ»ΡΠ·ΡΡ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Images ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ° MainMenu1, ΡΠ²ΡΠ·ΡΠ²Π°Π΅ΠΌ ΠΌΠ΅Π½Ρ Ρ Π½Π°Π±ΠΎΡΠΎΠΌ ΠΈΠΊΠΎΠ½ΠΎΠΊ. ΠΠ»Ρ Π½Π΅ΠΊΠΎΡΠΎΡΡΡ ΠΏΡΠ½ΠΊΡΠΎΠ² ΠΌΠ΅Π½Ρ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ ImageIndex, Π·Π°Π΄Π°Π΅ΠΌ ΠΈΠΊΠΎΠ½ΠΊΠΈ.
ΠΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ ΠΊΠ½ΠΎΠΏΠΊΠΈ Button1 ΠΎΡΠΊΡΡΠ²Π°Π΅ΡΡΡ Π²ΡΠΎΡΠ°Ρ ΡΠΎΡΠΌΠ° (grafic), ΠΊΠΎΡΠΎΡΠ°Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅Ρ Π³ΡΠ°ΡΠΈΠΊΠΈ (Π³ΠΈΡΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΈΡΡ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ , ΡΠΈΠΌΠΌΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½Π½Π°Ρ Π³ΠΈΡΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΈ ΠΏΠΎΠ»ΠΈΠ³ΠΎΠ½). ΠΠ»Ρ ΡΠ΄ΠΎΠ±ΡΡΠ²Π° Π²Π½ΠΈΠ·Ρ ΡΠΎΡΠΌΡ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½Ρ ΡΠ»Π°ΠΆΠΊΠΈ (CheckBox1, CheckBox2, CheckBox3), Π° ΠΎΠ½ΠΈ Π² ΡΠ²ΠΎΡ ΠΎΡΠ΅ΡΠ΅Π΄Ρ Π½Π° ΠΏΠ°Π½Π΅Π»ΠΈ (ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ GroupBox1). ΠΡΠΈ ΡΠ»Π°ΠΆΠΊΠΈ ΠΌΠΎΠΆΠ½ΠΎ ΠΊΠ°ΠΊ Π²ΠΊΠ»ΡΡΠ°ΡΡ ΡΠ°ΠΊ ΠΈ ΠΎΡΠΊΠ»ΡΡΠ°ΡΡ. ΠΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ, ΠΏΡΠΈ ΠΎΡΠΊΡΡΡΠΈΠΈ ΡΠΎΡΠΌΡ, ΠΎΠ½ΠΈ Π°ΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°Π½Ρ.
ΠΡΠΊΡΡΠ²Π°Ρ ΠΏΡΠ½ΠΊΡ ΠΌΠ΅Π½Ρ «Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅» ΠΏΠΎΡΠ²Π»ΡΠ΅ΡΡΡ ΡΡΠ΅ΡΡΡ ΡΠΎΡΠΌΠ° (ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅). ΠΠ° Π½Π΅Π΅ ΠΏΠΎΠΌΠ΅ΡΠ΅Π½ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ Image1 (Π΄Π°Π½Π½Π°Ρ ΠΊΠ°ΡΡΠΈΠ½ΠΊΠ° ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅Ρ ΡΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ), ΠΊΠ½ΠΎΠΏΠΊΠ° «ΠΠ» (ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ Button1) ΠΈ ΠΊΡΠ°ΡΠΊΠΈΠ΅ Π΄Π°Π½Π½ΡΠ΅.
ΠΡΠΊΡΡΠ²Π°Ρ ΠΏΡΠ½ΠΊΡ ΠΌΠ΅Π½Ρ «Π‘ΠΏΡΠ°Π²ΠΊΠ°» ΠΏΠΎΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ΅ΡΠ²Π΅ΡΡΠ°Ρ ΡΠΎΡΠΌΠ° (ΡΠΏΡΠ°Π²ΠΊΠ°). ΠΠ° ΠΊΠΎΡΠΎΡΡΡ ΠΏΠΎΠΌΠ΅ΡΠ΅Π½ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ Memo1, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΎ ΠΊΠ°ΠΊ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ Π΄Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΎΠΉ.
3. ΠΠΎΠ΄ΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
3.1 ΠΠΎΠ΄ΡΠ»Ρ Math
Π Π΄Π°Π½Π½ΠΎΠΌ ΠΌΠΎΠ΄ΡΠ»Π΅ ΠΌΡ ΠΎΠΏΠΈΡΡΠ²Π°Π΅ΠΌ Π²ΡΠ΅ ΡΠ²ΠΎΠΈ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ. ΠΠ΄Π΅ΡΡ ΠΌΡ ΡΠ°ΡΡΡΠΈΡΡΠ²Π°Π΅ΠΌ ΡΠΈΡΠΈΠ½Ρ ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»Π°, ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»ΠΎΠ², max, min.
ΠΠΎΠ΄ ΠΌΠΎΠ΄ΡΠ»Ρ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½ Π² ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΈ Π.
3.2 ΠΠΎΠ΄ΡΠ»Ρ 1
ΠΠ΅ΡΠ²ΡΠΉ ΠΌΠΎΠ΄ΡΠ»Ρ ΡΠ²ΡΠ·Π°Π½ Π½Π΅ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²Π΅Π½Π½ΠΎ Ρ ΠΏΠ΅ΡΠ²ΠΎΠΉ ΡΠΎΡΠΌΠΎΠΉ, ΠΎ ΠΊΠΎΡΠΎΡΠΎΠΉ Π³ΠΎΠ²ΠΎΡΠΈΠ»ΠΎΡΡ Π²ΡΡΠ΅. ΠΠ΄Π΅ΡΡ ΠΌΡ ΠΎΠΏΠΈΡΡΠ²Π°Π΅ΠΌ Π΄ΡΡΠΆΠ΅ΡΡΠ²Π΅Π½Π½ΡΠΉ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ, Π²ΡΠ²ΠΎΠ΄ Π²Π°ΡΠΈΠ°ΡΠΈΠΎΠ½Π½ΠΎΠ³ΠΎ ΡΡΠ΄Π° Π² ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ Memo1. ΠΡΠΈΡΠ΅ΠΌ, Π½ΡΠΆΠ½ΠΎ ΡΡΠ΅ΡΡΡ, ΡΡΠΎ Π² ΡΠ°ΠΉΠ»Π΅, Π³Π΄Π΅ ΡΠΎΡ ΡΠ°Π½Π΅Π½Ρ ΡΠΈΡΠ»Π° ΠΏΠ΅ΡΠ²ΡΠΌ ΡΠΊΠ°Π·Π°Π½Π° ΠΎΡΠ΅Π½ΠΊΠ° ΡΠ΅Π½ΡΡΠ° Π₯Ρ, Π΅Π³ΠΎ ΠΌΡ Π²ΡΠ²ΠΎΠ΄ΠΈΠΌ Π½Π° ΡΠΎΡΠΌΡ Π² Label3. Π’Π°ΠΊ ΠΆΠ΅ ΠΌΡ ΠΎΠΏΠΈΡΡΠ²Π°Π΅ΠΌ Π·Π΄Π΅ΡΡ ΡΠ°ΡΡΠ΅ΡΡ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ ΠΏΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ Button2 ΠΈ Button3. ΠΠΏΠΈΡΠ°Π½Π° ΡΠ²ΡΠ·Ρ ΠΏΠ΅ΡΠ²ΠΎΠΉ ΡΠΎΡΠΌΡ ΡΠΎ Π²ΡΠΎΡΠΎΠΉ.
ΠΠΎΠ΄ ΠΌΠΎΠ΄ΡΠ»Ρ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½ Π² ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΈ Π.
3.3 ΠΠΎΠ΄ΡΠ»Ρ 2
Π Π΄Π°Π½Π½ΠΎΠΌ ΠΌΠΎΠ΄ΡΠ»Π΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠ°ΡΡΡΠΈΡΡΠ²Π°Π΅Ρ ΠΈ ΡΡΡΠΎΠΈΡ Π³ΡΠ°ΡΠΈΠΊΠΈ. Π‘Π²ΡΠ·Π°Π½ Ρ ΠΌΠΎΠ΄ΡΠ»Π΅ΠΌ 1 ΠΈ ΠΌΠΎΠ΄ΡΠ»Π΅ΠΌ Math
ΠΠΎΠ΄ ΠΌΠΎΠ΄ΡΠ»Ρ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½ Π² ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΈ Π.
3.4 ΠΠΎΠ΄ΡΠ»Ρ 3
ΠΡΠΎΡ ΠΌΠΎΠ΄ΡΠ»Ρ ΠΎΠΏΠΈΡΡΠ²Π°Π΅Ρ ΡΡΠ΅ΡΡΡ ΡΠΎΡΠΌΡ, ΡΠ²ΡΠ·Π°Π½ Ρ ΠΏΠ΅ΡΠ²ΡΠΌ ΠΌΠΎΠ΄ΡΠ»Π΅ΠΌ.
ΠΠΎΠ΄ ΠΌΠΎΠ΄ΡΠ»Ρ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½ Π² ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΈ Π.
3.5 ΠΠΎΠ΄ΡΠ»Ρ 4
ΠΠ°Π½Π½ΡΠΉ ΠΌΠΎΠ΄ΡΠ»Ρ ΠΏΡΠΈΠ»Π°Π³Π°Π΅ΡΡΡ ΠΊ ΡΠ΅ΡΠ²Π΅ΡΡΠΎΠΉ ΡΠΎΡΠΌΠ΅, Π½Π° ΠΊΠΎΡΠΎΡΠΎΠΉ ΡΠ°ΡΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ ΡΠΏΡΠ°Π²ΠΊΠ°.
ΠΠΎΠ΄ ΠΌΠΎΠ΄ΡΠ»Ρ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½ Π² ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΈ Π.
ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
Π¦Π΅Π»ΡΡ Π΄Π°Π½Π½ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ ΡΠ²Π»ΡΠ»Π°ΡΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π° ΡΠ·ΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Delphi Π΄Π»Ρ ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΈΠΈ ΡΠΎΡΠΌΡ Π·Π°ΠΊΠΎΠ½Π° ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΠΏΠΎΠ³ΡΠ΅ΡΠ½ΠΎΡΡΠ΅ΠΉ ΡΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½ΡΠ°Π»ΡΠ½ΡΡ Π΄Π°Π½Π½ΡΡ . ΠΠΎΡΡΡΠΎΠ΅Π½ΠΈΠ΅ ΠΏΠΎΠ»ΠΈΠ³ΠΎΠ½Π°, ΠΊΠΎΡΠΎΡΡΠΉ Π±ΠΎΠ»Π΅Π΅ Π½Π°Π³Π»ΡΠ΄Π½ΠΎ, ΡΠ΅ΠΌ Π³ΠΈΡΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°, ΠΎΡΡΠ°ΠΆΠ°Π΅Ρ ΡΠΎΡΠΌΡ ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ, ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΠ»ΠΎΡΡ ΠΏΡΡΠ΅ΠΌ ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΡ ΠΏΡΡΠΌΡΠΌΠΈ ΡΠ΅ΡΠ΅Π΄ΠΈΠ½ Π²Π΅ΡΡ Π½ΠΈΡ ΠΎΡΠ½ΠΎΠ²Π°Π½ΠΈΠΉ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΡΡΠΎΠ»Π±ΡΠ° Π³ΠΈΡΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. ΠΠ° ΠΏΡΠ΅Π΄Π΅Π»Π°ΠΌΠΈ Π³ΠΈΡΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΠΊΠ°ΠΊ ΡΠ»Π΅Π²Π°, ΡΠ°ΠΊ ΠΈ ΡΠΏΡΠ°Π²Π° ΡΠ»Π΅Π΄ΠΎΠ²Π°Π»ΠΈ ΠΏΡΡΡΡΠ΅ ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»Ρ, Π² ΠΊΠΎΡΠΎΡΡΡ ΡΠΎΡΠΊΠΈ, ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠ΅ ΠΈΡ ΡΠ΅ΡΠ΅Π΄ΠΈΠ½Π°ΠΌ, Π»Π΅ΠΆΠ°Π»ΠΈ Π½Π° ΠΎΡΠΈ Π°Π±ΡΡΠΈΡΡ. ΠΡΠ΅ ΡΡΠΈ ΡΠΎΡΠΊΠΈ, ΠΏΡΠΈ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΠΈ ΠΏΠΎΠ»ΠΈΠ³ΠΎΠ½Π°, ΡΠΎΠ΅Π΄ΠΈΠ½ΡΠ»ΠΈΡΡ ΠΌΠ΅ΠΆΠ΄Ρ ΡΠΎΠ±ΠΎΠΉ ΠΎΡΡΠ΅Π·ΠΊΠ°ΠΌΠΈ ΠΏΡΡΠΌΡΡ Π»ΠΈΠ½ΠΈΠΉ, ΠΎΠ±ΡΠ°Π·ΡΡ Ρ ΠΎΡΡΡ Ρ Π·Π°ΠΌΠΊΠ½ΡΡΡΡ ΡΠΈΠ³ΡΡΡ. ΠΡΠΈ Π·Π°ΠΌΠ΅Π½Π΅ Π³ΠΈΡΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΊΡΠΈΠ²ΠΎΠΉ Π² Π²ΠΈΠ΄Π΅ ΠΏΠΎΠ»ΠΈΠ³ΠΎΠ½Π° Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΠΏΡΠ°Π²ΠΈΠ»ΠΎ Π½ΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ, Ρ.ΠΊ. ΠΎΡ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ Π±ΠΎΠ»ΡΡΠΎΠ³ΠΎ ΡΡΠΎΠ»Π±ΡΠ° Π³ΠΈΡΡΠΎΠ³ΡΠ°ΠΌΠΌΡ (ΡΠΈΡ.1) ΠΎΡΡΠ΅ΠΊΠ°Π΅ΡΡΡ ΠΈ ΠΎΡΠ±ΡΠ°ΡΡΠ²Π°Π΅ΡΡΡ ΡΠ°ΡΡΡ ΠΏΠ»ΠΎΡΠ°Π΄ΠΈ Π² Π²ΠΈΠ΄Π΅ ΡΡΠ΅ΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠΎΠ², Π·Π°ΡΡΡΠΈΡ ΠΎΠ²Π°Π½Π½ΡΡ Π½Π° ΡΠΈΡ. 1 Π²Π΅ΡΡΠΈΠΊΠ°Π»ΡΠ½ΠΎ, Π° ΠΊ ΠΊΠ°ΠΆΠ΄ΠΎΠΌΡ ΠΌΠ΅Π½ΡΡΠ΅ΠΌΡ ΡΡΠΎΠ»Π±ΡΡ Π΄ΠΎΠ±Π°Π²Π»ΡΡΡΡΡ ΡΠ°ΠΊΠΈΠ΅ ΠΆΠ΅ ΠΏΠ»ΠΎΡΠ°Π΄ΠΈ ΡΡΠ΅ΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠΎΠ², Π·Π°ΡΡΡΠΈΡ ΠΎΠ²Π°Π½Π½ΡΡ Π³ΠΎΡΠΈΠ·ΠΎΠ½ΡΠ°Π»ΡΠ½ΠΎ. Π ΠΈΡΠΎΠ³ΠΎ ΠΎΠ±ΡΠ°Ρ ΠΏΠ»ΠΎΡΠ°Π΄Ρ ΠΏΠΎΠ΄ ΠΊΡΠΈΠ²ΠΎΠΉ ΠΏΠΎΠ»ΠΈΠ³ΠΎΠ½Π° ΠΎΡΡΠ°Π΅ΡΡΡ ΡΠ°Π²Π½ΠΎΠΉ ΠΏΠ»ΠΎΡΠ°Π΄ΠΈ ΠΈΡΡ ΠΎΠ΄Π½ΠΎΠΉ Π³ΠΈΡΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. ΠΠ΄Π½Π°ΠΊΠΎ ΡΡΠΎ «ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΏΠ»ΠΎΡΠ°Π΄Π΅ΠΉ» ΠΏΡΠΈ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄Π΅ ΠΎΡ Π³ΠΈΡΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΊ ΠΏΠΎΠ»ΠΈΠ³ΠΎΠ½Ρ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ Π²ΡΠ΅Π³Π΄Π° «Π²Π½ΠΈΠ· ΠΏΠΎ ΡΠΊΠ»ΠΎΠ½Ρ». Π ΠΈΡΠΎΠ³Π΅ ΠΏΠ»ΠΎΡΠ°Π΄Ρ ΡΠ΅Π½ΡΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΡΡΠΎΠ»Π±ΡΠ° Π² ΠΏΠΎΠ»ΠΈΠ³ΠΎΠ½Π΅ ΠΎΠΊΠ°Π·ΡΠ²Π°Π΅ΡΡΡ ΠΌΠ΅Π½ΡΡΠ΅ ΠΏΠ»ΠΎΡΠ°Π΄ΠΈ ΡΠ΅Π½ΡΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΡΡΠΎΠ»Π±ΡΠ° Π³ΠΈΡΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. Π§ΡΠΎΠ±Ρ ΡΡΡΡΠ°Π½ΠΈΡΡ ΡΡΠΎ ΡΠ²Π»Π΅Π½ΠΈΠ΅, ΠΌΡ ΡΡΠΈΡΠ°Π»ΠΈ ΡΠ΅Π½ΡΡΠ°Π»ΡΠ½ΡΠΉ ΡΡΠΎΠ»Π±Π΅Ρ Π³ΠΈΡΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΠΎΡΡΠΎΡΡΠΈΠΌ ΠΈΠ· Π΄Π²ΡΡ ΡΠ°Π²Π½ΡΡ ΡΡΠΎΠ»Π±ΡΠΎΠ². Π ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Π²Π΅ΡΡΠΈΠ½Π° ΠΊΡΠΈΠ²ΠΎΠΉ ΠΏΠΎΠ»ΠΈΠ³ΠΎΠ½Π° Π²ΡΡΠ΅ Π²Π΅ΡΡ Π½Π΅Π³ΠΎ ΠΎΡΠ½ΠΎΠ²Π°Π½ΠΈΡ ΡΠ΅Π½ΡΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΡΡΠΎΠ»Π±ΡΠ°, ΠΊΠ°ΠΊ ΡΡΠΎ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ ΡΡΡΠΈΡ ΠΎΠ²ΠΎΠΉ Π»ΠΈΠ½ΠΈΠ΅ΠΉ Π½Π° ΡΠΈΡ. 1, Π½ΠΎ ΠΏΠ»ΠΎΡΠ°Π΄Ρ ΠΏΠΎΠ΄ ΠΊΡΠΈΠ²ΠΎΠΉ ΠΏΠΎΠ»ΠΈΠ³ΠΎΠ½Π° Π² ΠΏΡΠ΅Π΄Π΅Π»Π°Ρ ΡΠ΅Π½ΡΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΡΡΠΎΠ»Π±ΡΠ° Π±ΡΠ΄Π΅Ρ ΡΠ°Π²Π½Π° ΠΏΠ»ΠΎΡΠ°Π΄ΠΈ ΡΠ΅Π½ΡΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΡΡΠΎΠ»Π±ΡΠ° Π³ΠΈΡΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
Π ΠΈΡ.1
ΠΠ ΠΠΠΠΠΠΠΠ Π
(ΠΠΎΠ΄ΡΠ»Ρ Math)
unit uMath;
interface
const
MaxN = 1000;
type
IndexEl = 1. maxN;
TM = array[IndexEl] of Real;
TParam = (lev, prav, kolvo);
var
arrReal: TM; //ΠΈΡΡ ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅
CountX: Integer; //ΠΊΠΎΠ»-Π²ΠΎ ΠΈΡΡ ΠΎΠ΄Π½ΡΡ ΡΠΈΡΠ΅Π»
dX: Real; //ΡΠΈΡΠΈΠ½Π° ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»Π°
MasInt: array [TParam, IndexEl] of Real;
dXmax: IndexEl;
M: integer;
N: integer; //ΡΠ°ΠΊΡΡΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΊΠΎΠ»-Π²ΠΎ ΡΠΈΡΠ΅Π»
CountInterv: Integer; //ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΊΠΎΠ»-Π²ΠΎ ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»ΠΎΠ²
i: IndexEl;
s: integer;
sa: real;
buf: Real;
imin: IndexEl;
j: IndexEl;
Me: Real;
x: Real;
Mmin: Real;
Mmax: Real;
Xc: Real;//ΠΎΡΠ΅Π½ΠΊΠ° ΡΠ΅Π½ΡΡΠ°
SredInt: Integer;
Max, Min: real;
function fMmin (N: Integer): Integer;
function fMmax (N: Integer): Integer;
function fdX (M: TM; N: Integer; Xc: Real; NInt: Integer): Real;
procedure ChastotaGist;
implementation
uses Math;
function fMmin (N: Integer): Integer;
var
x: Real;
begin
X := 0.55*power (N, 0.4);
Result := round (X);
end;
function fMmax (N: Integer): Integer;
var
x: Real;
begin
X := 1.25*power (N, 0.4);
Result := round (X);
end;
function fdX (M: TM; N: Integer; Xc: Real; NInt: Integer): Real;
var
i: Integer;
x, R: Real;
nGist, NumInt: integer;
Gist: array [1.5] of Integer;
begin
Mmax := M[1];
Mmin := M[1];
for i := 2 to N do
begin
if M[i] > Mmax then Mmax := M[i];
if M[i] < Mmin then Mmin := M[i];
end;
if abs (MMax — Xc) > abs (MMin — Xc) then
x := MMax
else
x := MMin;
Result := (2 * abs (x — Xc)) / NInt;
end;
procedure ChastotaGist;
var
i, NumInt: Integer;
begin
for i := 1 to CountInterv do
MasInt[kolvo, i] := 0;
for i := 1 to N do
begin
NumInt := Trunc ((arrReal[i] - MMin)/dx) + 1;
MasInt[kolvo, NumInt] := MasInt[kolvo, NumInt] + 1;
end;
end;
end.
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π (ΠΠΎΠ΄ΡΠ»Ρ 1)
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ImgList, Menus, StdCtrls, ExtCtrls, ExtDlgs, ComCtrls, Math;
type
TForm1 = class (TForm)
MainMenu1: TMainMenu;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
ImageList1: TImageList;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
Memo1: TMemo;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
N15: TMenuItem;
Button1: TButton;
Button2: TButton;
ComboBox1: TComboBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
N16: TMenuItem;
procedure N6Click (Sender: TObject);
procedure N11Click (Sender: TObject);
procedure N4Click (Sender: TObject);
procedure N3Click (Sender: TObject);
procedure N15Click (Sender: TObject);
procedure N2Click (Sender: TObject);
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure N16Click (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
function TextSaved: Boolean;
end;
var
Form1: TForm1;
implementation
uses Unit2, uMath, Unit3, Unit4;
{$R *.dfm}
function TForm1. TextSaved: Boolean;
begin
Result := True;
if Memo1. Modified then
case MessageDlg ('Save current document?', mtConfirmation, mbYesNoCancel, 0) of
mrYes:
begin
N3Click (Self);
Result := not Memo1. Modified;
end;
mrCancel: Result := False;
end;
end;
procedure TForm1. N6Click (Sender: TObject);
begin
if TextSaved then
begin
Memo1.Lines.Clear;
Caption := 'Text Editor';
SaveDialog1.FileName := '';
end;
end;
procedure TForm1. N11Click (Sender: TObject);
begin
Form3.Show;
end;
procedure TForm1. N4Click (Sender: TObject);
begin
with SaveDialog1 do
if Execute then
begin
Memo1.Lines.SaveToFile (FileName);
Memo1.Modified := False;
// - ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΡΠ΅ΠΊΡΡΠ° Π² ΡΠ°ΠΉΠ»Π΅
Caption := 'Text Editor — ' + ExtractFileName (FileName);
end;
end;
procedure TForm1. N3Click (Sender: TObject);
begin
with SaveDialog1 do
if FileName = '' then
N4Click (Self)
else
begin
Memo1.Lines.SaveToFile (FileName);
Memo1.Modified := False;
end;
end;
procedure TForm1. N15Click (Sender: TObject);
begin
Close;
end;
procedure TForm1. N2Click (Sender: TObject);
var
i:Integer;
f: System. Text;
sX: string;
X: Real;
begin
with OpenDialog1 do
if Execute then
begin
AssignFile (f, OpenDialog1. FileName);
Reset (f);
ReadLn (f, sX);
X := StrToFloat (sX);
Xc := X;
i := 0;
while not EOF (f) do
begin
i := i + 1;
ReadLn (f, sX);
X := StrToFloat (sX);
arrReal[i] := X;
end;
N := i;
CloseFile (f);
Label2.Caption := FloatToStr (Xc);
Label4.Caption := format ('ΠΠΎΠ»-Π²ΠΎ: %d',[N]);
Memo1.Lines.Clear;
for i:=1 to N do
Memo1.Lines.Add (format ('%f',[arrReal[i]]));
Caption := 'Text Editor — ' + ExtractFileName (FileName);
end;
end;
procedure TForm1. Button1Click (Sender: TObject);
begin
Form2.Raschet;
Form2.Show;
end;
procedure TForm1. Button2Click (Sender: TObject);
var
i, min, max: Integer;
begin
min := fMmin (N);
max := fMmax (N);
ComboBox1.Clear;
for i := min to max do
if Odd (i) then
ComboBox1.Items.Add (format ('%d',[i]));
ComboBox1.ItemIndex := ComboBox1.Items.Count — 1;
end;
procedure TForm1. N16Click (Sender: TObject);
begin
Form4.Show;
end;
end.
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π (ΠΠΎΠ΄ΡΠ»Ρ 2)
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, Math, StdCtrls;
const
MaxN = 1000;
type
TForm2 = class (TForm)
Chart1: TChart;
Series1: TBarSeries;
Series2: TBarSeries;
Series3: TLineSeries;
GroupBox1: TGroupBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
procedure CheckBox1Click (Sender: TObject);
procedure CheckBox2Click (Sender: TObject);
procedure CheckBox3Click (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure Raschet;
end;
var
Form2: TForm2;
implementation
uses Unit1, uMath;
{$R *.dfm}
{ TForm2 }
procedure TForm2. Raschet;
var
sum: Real;
i: integer;
a, Centr: Real;
begin
CountInterv:= StrToInt (Form1.ComboBox1.Items[Form1.ComboBox1.ItemIndex]);
SredInt := (CountInterv div 2) + 1;
dX := fdX (arrReal, N, Xc, CountInterv);
ChastotaGist;
Chart1.Series[0]. Clear;
Chart1.Series[1]. Clear;
Chart1.Series[2]. Clear;
//ΠΈΡΡ ΠΎΠ΄Π½ΡΠ΅
for i := 1 to CountInterv do
Chart1.Series[0]. AddXY (i, MasInt[kolvo, i]);
//ΡΠΈΠΌΠΌΠΌΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅
for i := SredInt+1 to CountInterv do
begin
sum := MasInt[kolvo, i] + MasInt[kolvo, CountInterv+1-i];
MasInt[kolvo, i] := sum /2;
MasInt[kolvo, CountInterv+1-i] := sum /2;
end;
for i := 1 to CountInterv do
Chart1.Series[1]. AddXY (i, MasInt[kolvo, i]);
//ΠΏΠΎΠ»ΠΈΠ³ΠΎΠ½
a := abs (MasInt[kolvo, SredInt] - MasInt[kolvo, SredInt — 1]);
a := a / 3 * 4;
Centr := MasInt[kolvo, SredInt — 1] + a;
Chart1.Series[2]. Clear;
Chart1.Series[2]. AddXY (0,0);
for i := 1 to CountInterv do
begin
if i <> SredInt then
Chart1.Series[2]. AddXY (i, MasInt[kolvo, i])
else
Chart1.Series[2]. AddXY (i, Centr);
end;
Chart1.Series[2]. AddXY (CountInterv+1,0);
end;
procedure TForm2. CheckBox1Click (Sender: TObject);
begin
Chart1.Series[0]. Active := CheckBox1. Checked;
end;
procedure TForm2. CheckBox2Click (Sender: TObject);
begin
Chart1.Series[1]. Active := CheckBox2. Checked;
end;
procedure TForm2. CheckBox3Click (Sender: TObject);
begin
Chart1.Series[2]. Active := CheckBox3. Checked;
end;
end.
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π (ΠΠΎΠ΄ΡΠ»Ρ 3)
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm3 = class (TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Button1: TButton;
procedure Button1Click (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3. Button1Click (Sender: TObject);
begin
Close;
end;
end.
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π (ΠΠΎΠ΄ΡΠ»Ρ 4)
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm4 = class (TForm)
Memo1: TMemo;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
{$R *.dfm}
end.
Π‘ΠΏΠΈΡΠΎΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Π½ΡΡ ΠΈΡΡΠΎΡΠ½ΠΈΠΊΠΎΠ²
1. ΠΠΎΠ²ΠΈΡΠΊΠΈΠΉ Π. Π. ΠΡΠ΅Π½ΠΊΠ° ΠΏΠΎΠ³ΡΠ΅ΡΠ½ΠΎΡΡΠ΅ΠΉ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ² ΠΈΠ·ΠΌΠ΅ΡΠ΅Π½ΠΈΠΉ / Π. Π. ΠΠΎΠ²ΠΈΡΠΊΠΈΠΉ, Π. Π ΠΠΎΠ³ΡΠ°Ρ. — 2-Π΅ ΠΈΠ·Π΄., ΠΏΠ΅ΡΠ΅ΡΠ°Π±. — Π.: ΠΠ½Π΅ΡΠ³ΠΎ — ΠΡΠΎΠΌΠΈΠ·Π΄Π°Ρ, 1991. — 304 Ρ.