Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΠΎΠΉ ΠΈΠ³ΡΡ Β«ΠΠΎΡΡΠΊΠΎΠΉ Π±ΠΎΠΉΒ»
ΠΠ·Π°ΠΈΠΌΠΎΠ΄Π΅ΠΉΡΡΠ²ΠΈΠ΅ Ρ ΠΈΠ³ΡΠ°ΡΡΠΈΠΌ — ΡΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΡ ΡΡΠ΅Π΄ΡΡΠ², ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»ΡΠ΅ΠΌΡΡ ΠΈΠ³ΡΠ°ΡΡΠ΅ΠΌΡ Π΄Π»Ρ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΈΠ³ΡΠΎΠ²ΠΎΠΉ ΡΡΠ΅Π΄Ρ. Π§Π°ΡΠ΅ Π²ΡΠ΅Π³ΠΎ ΡΡΠΎ ΠΊΠ»Π°Π²ΠΈΠ°ΡΡΡΠ° ΠΏΠ΅ΡΡΠΎΠ½Π°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ°. ΠΡΠΈ ΠΈΠΌΠΈΡΠ°ΡΠΈΠΈ Π°Π²ΡΠΎΠΌΠΎΠ±ΠΈΠ»ΡΠ½ΡΡ Π³ΠΎΠ½ΠΎΠΊ Π²ΠΎΠ΄ΠΈΡΠ΅Π»Ρ ΠΈΠ·ΠΌΠ΅Π½ΡΠ΅Ρ Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ ΠΈ ΡΠΊΠΎΡΠΎΡΡΡ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΡ ΠΏΠΎ ΡΡΠ°ΡΡΠ΅, ΠΏΡΠΈ ΡΡΠΎΠΌ Π±ΠΎΠ»ΡΡΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΈΠΌΠ΅Π΅Ρ Π±ΡΡΡΡΠΎΡΠ° ΡΠ΅Π°ΠΊΡΠΈΠΈ Π½Π° ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Ρ Π΄Π΅ΠΊΠΎΡΠ°ΡΠΈΠΉ, ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΡΡΠ°ΡΡΡ, ΠΏΠΎΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΏΡΠ΅ΠΏΡΡΡΡΠ²ΠΈΠΉ (Π½Π° ΡΡΠ°ΡΡΠ΅ ΠΌΠΎΠ³ΡΡ Π±ΡΡΡ ΠΏΠΎΠ²ΠΎΡΠΎΡΡ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΠΎΠΉ ΠΈΠ³ΡΡ Β«ΠΠΎΡΡΠΊΠΎΠΉ Π±ΠΎΠΉΒ» (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
Π‘ΠΎΠ΄Π΅ΡΠΆΠ°Π½ΠΈΠ΅ ΠΏΡΠΎΠ΅ΠΊΡΠ°
I. Π’Π΅ΠΎΡΠ΅ΡΠΈΡΠ΅ΡΠΊΠ°Ρ ΡΠ°ΡΡΡ ΠΠ³ΡΡ ΠΈ ΠΈΡΠΊΡΡΡΡΠ²Π΅Π½Π½ΡΠΉ ΠΈΠ½ΡΠ΅Π»Π»Π΅ΠΊΡ
II. Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΠΠ±ΡΠ°Ρ Π±Π»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΠ½Π΅ΡΠ½ΠΈΠΉ Π²ΠΈΠ΄ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΠ΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅, ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ², ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΡ Π² ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΈ ΠΠΈΡΡΠΈΠ½Π³ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π° ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΡΠ°Π²ΠΈΠ» ΠΈΠ³ΡΡ «ΠΠΎΡΡΠΊΠΎΠΉ Π±ΠΎΠΉ».
ΠΠ° ΠΈΠ³ΡΠΎΠ²ΠΎΠΉ ΠΏΠ»ΠΎΡΠ°Π΄ΠΊΠ΅ ΡΠ°Π·ΠΌΠ΅ΡΠΎΠΌ 10 Π½Π° 10 ΠΊΠ»Π΅ΡΠΎΠΊ ΠΠ³ΡΠΎΠΊ ΡΠ°ΡΡΡΠ°Π²Π»ΡΠ΅Ρ ΠΎΠ΄ΠΈΠ½ ΠΊΠΎΡΠ°Π±Π»Ρ ΡΠ°Π·ΠΌΠ΅ΡΠΎΠΌ ΡΠ΅ΡΡΡΠ΅ ΠΊΠ»Π΅ΡΠΊΠΈ, Π΄Π²Π° ΠΊΠΎΡΠ°Π±Π»Ρ ΡΠ°Π·ΠΌΠ΅ΡΠΎΠΌ ΡΡΠΈ ΠΊΠ»Π΅ΡΠΊΠΈ, ΡΡΠΈ ΠΊΠΎΡΠ°Π±Π»Ρ ΡΠ°Π·ΠΌΠ΅ΡΠΎΠΌ Π΄Π²Π΅ ΠΊΠ»Π΅ΡΠΊΠΈ ΠΈ ΡΠ΅ΡΡΡΠ΅ ΠΊΠΎΡΠ°Π±Π»Ρ ΡΠ°Π·ΠΌΠ΅ΡΠΎΠΌ Π² ΠΎΠ΄Π½Ρ ΠΊΠ»Π΅ΡΠΊΡ (Π΄Π»Ρ ΠΎΠ±Π»Π΅Π³ΡΠ΅Π½ΠΈΡ ΠΊΠΎΡΠ°Π±Π»ΠΈ ΡΠ°ΡΡΡΠ°Π²Π»ΡΡΡΡΡ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ). ΠΡΠΈ ΡΡΠΎΠΌ ΠΊΠΎΡΠ°Π±Π»Ρ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΡΡΡ ΡΠΎΡΠ΅Π΄Π½ΠΈΡ ΠΊΠ»Π΅ΡΠΎΠΊ, ΡΡΠΎΡΡΠΈΡ Π½Π° ΠΎΠ΄Π½ΠΎΠΉ Π²Π΅ΡΡΠΈΠΊΠ°Π»ΠΈ ΠΈΠ»ΠΈ Π½Π° ΠΎΠ΄Π½ΠΎΠΉ Π³ΠΎΡΠΈΠ·ΠΎΠ½ΡΠ°Π»ΠΈ. Π‘ΠΎΡΠ΅Π΄Π½ΠΈΠ΅ ΠΊΠΎΡΠ°Π±Π»ΠΈ Π½Π΅ Π΄ΠΎΠ»ΠΆΠ½Ρ ΠΈΠΌΠ΅ΡΡ ΠΎΠ±ΡΠΈΡ ΡΠΎΡΠ΅ΠΊ. ΠΡΠΎΡΠΈΠ²Π½ΠΈΠΊΠΎΠΌ ΠΠ³ΡΠΎΠΊΠ° ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΠΎΠΌΠΏ (ΠΠΎΠΌΠΏΡΡΡΠ΅Ρ), ΠΊΠΎΡΠΎΡΡΠΉ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΡΠ°ΡΡΡΠ°Π²Π»ΡΠ΅Ρ ΠΊΠΎΡΠ°Π±Π»ΠΈ Π½Π° ΡΠ²ΠΎΠ΅ΠΌ ΠΏΠΎΠ»Π΅ ΠΏΠΎ ΡΠΊΠ°Π·Π°Π½Π½ΡΠΌ Π²ΡΡΠ΅ ΠΏΡΠ°Π²ΠΈΠ»Π°ΠΌ.
ΠΠΎΡΠ»Π΅ ΡΠ°ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ Π±ΠΎΠΉ. ΠΠ½ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΠΏΠΎΠΎΡΠ΅ΡΠ΅Π΄Π½ΡΠ΅ Π²ΡΡΡΡΠ΅Π»Ρ ΠΠ³ΡΠΎΠΊΠ° ΠΈ ΠΠΎΠΌΠΏΠ°. ΠΡΠΈ ΠΏΠΎΠΏΠ°Π΄Π°Π½ΠΈΠΈ Π² ΠΊΠΎΡΠ°Π±Π»Ρ ΠΏΡΠΎΡΠΈΠ²Π½ΠΈΠΊΠ° ΡΡΠ°ΡΡΠ½ΠΈΠΊ Π±ΠΎΡ ΠΏΠΎΠ»ΡΡΠ°Π΅Ρ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΠΏΡΠΎΠ²Π΅Π΄Π΅Π½ΠΈΡ Π²Π½Π΅ΠΎΡΠ΅ΡΠ΅Π΄Π½ΠΎΠ³ΠΎ Π²ΡΡΡΡΠ΅Π»Π°. ΠΠ³ΡΠ° Π·Π°ΠΊΠ°Π½ΡΠΈΠ²Π°Π΅ΡΡΡ ΠΏΡΠΈ ΡΠ½ΠΈΡΡΠΎΠΆΠ΅Π½ΠΈΠΈ ΠΎΠ΄Π½ΠΈΠΌ ΠΈΠ· ΡΡΠ°ΡΡΠ½ΠΈΠΊΠΎΠ² Π²ΡΠ΅Ρ ΠΊΠΎΡΠ°Π±Π»Π΅ΠΉ ΠΏΡΠΎΡΠΈΠ²Π½ΠΈΠΊΠ°.
ΠΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ° Π·Π°Π΄Π°ΡΠΈ.
Π Π΄Π°Π½Π½ΠΎΠΌ ΠΏΡΠΎΠ΅ΠΊΡΠ΅ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ ΠΈΠ·Π²Π΅ΡΡΠ½ΡΡ ΠΈΠ³ΡΡ «ΠΠΎΡΡΠΊΠΎΠΉ Π±ΠΎΠΉ». ΠΠ°ΠΈΠ±ΠΎΠ»Π΅Π΅ Π²Π°ΠΆΠ½ΡΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ ΡΡΠΎΠΉ ΠΈΠ³ΡΡ: Π°Π»Π³ΠΎΡΠΈΡΠΌΡ ΡΠ°ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ ΠΊΠΎΡΠ°Π±Π»Π΅ΠΉ ΠΏΠΎ ΠΏΠΎΠ»Ρ, Π²ΡΠ±ΠΎΡΠ° Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΠ΄Π°ΡΠ° ΠΠΎΠΌΠΏΠ° Π² ΠΏΠΎΠ»Π΅ ΠΠ³ΡΠΎΠΊΠ° ΠΈ Π½Π΅ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²Π΅Π½Π½ΠΎ Π½Π°Π½Π΅ΡΠ΅Π½ΠΈΠ΅ ΡΠ΄Π°ΡΠ° ΠΈΠΌ.
I. Π’Π΅ΠΎΡΠ΅ΡΠΈΡΠ΅ΡΠΊΠ°Ρ ΡΠ°ΡΡΡ
ΠΠ³ΡΡ ΠΈ ΠΈΡΠΊΡΡΡΡΠ²Π΅Π½Π½ΡΠΉ ΠΈΠ½ΡΠ΅Π»Π»Π΅ΠΊΡ
Π§Π΅Π»ΠΎΠ²Π΅ΠΊ Π½Π°Π΄Π΅Π»Π΅Π½ ΠΈΠ½ΡΠ΅Π»Π»Π΅ΠΊΡΠΎΠΌ. Π ΠΊΠΎΠΌΠΏΡΡΡΠ΅Ρ? Π‘Π΅ΠΉΡΠ°Ρ ΠΌΠ½ΠΎΠ³ΠΎ Π³ΠΎΠ²ΠΎΡΡΡ ΠΎ ΡΠ°ΠΊ Π½Π°Π·ΡΠ²Π°Π΅ΠΌΠΎΠΌ ΠΈΡΠΊΡΡΡΡΠ²Π΅Π½Π½ΠΎΠΌ ΠΈΠ½ΡΠ΅Π»Π»Π΅ΠΊΡΠ΅. Π£ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ° ΡΡΠΎ, ΠΏΡΠ΅ΠΆΠ΄Π΅ Π²ΡΠ΅Π³ΠΎ ΠΏΠ°ΠΌΡΡΡ. ΠΠ³ΠΎ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠ²Π½Π°Ρ ΠΏΠ°ΠΌΡΡΡ (ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π½Π°Ρ Π΄Π»Ρ Π±ΡΡΡΡΠΎΠ³ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ) ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π·Π°ΠΏΠΈΡΡΠ²Π°ΡΡ ΡΠ»ΠΎΠ²Π° ΠΈ ΠΏΠΎΠ»ΡΡΠ°ΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ Π·Π° ΠΌΠΈΠΊΡΠΎΡΠ΅ΠΊΡΠ½Π΄Ρ.
ΠΠΎΠΌΠΏΡΡΡΠ΅Ρ ΠΎΠ±Π»Π°Π΄Π°Π΅Ρ Π±ΠΎΠ»ΡΡΠΈΠΌΠΈ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡΠΌΠΈ ΠΏΠΎ Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΎΠΉ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ, Π΅Π³ΠΎ Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠ°ΡΠΈΠΉ Π²Π΅ΡΡΠΌΠ° ΠΎΠ±ΡΠΈΡΠ΅Π½ ΠΈ Π½Π΅ΠΏΡΠ΅ΡΡΠ²Π½ΠΎ ΡΠΎΠ²Π΅ΡΡΠ΅Π½ΡΡΠ²ΡΠ΅ΡΡΡ. Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ° ΠΌΠΎΠ³ΡΡ Π±ΡΡΡ Π·Π°Π»ΠΎΠΆΠ΅Π½Ρ ΡΠ²ΡΠΈΡΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΏΡΠΈΠ΅ΠΌΡ, Π²ΡΡΠ°Π±ΠΎΡΠ°Π½Π½ΡΠ΅ Π»ΡΠ΄ΡΠΌΠΈ ΠΏΡΠΈ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ Π²ΠΈΠ΄Π°Ρ Π΄Π΅ΡΡΠ΅Π»ΡΠ½ΠΎΡΡΠΈ. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΏΡΠΈ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ Π΄Π»Ρ ΠΈΠ³ΡΡ Π² ΡΠ°Ρ ΠΌΠ°ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΎΠΏΡΡ Π»ΡΡΡΠΈΡ ΡΠ°Ρ ΠΌΠ°ΡΠΈΡΡΠΎΠ² ΠΌΠΈΡΠ°.
ΠΠΎΠ½Π΅ΡΠ½ΠΎ, Π»ΡΠ΄ΠΈ ΠΈΠΌΠ΅ΡΡ Π½Π΅ΠΎΡΠΏΠΎΡΠΈΠΌΡΠ΅ ΠΈΠ½ΡΠ΅Π»Π»Π΅ΠΊΡΡΠ°Π»ΡΠ½ΡΠ΅ ΠΏΡΠ΅ΠΈΠΌΡΡΠ΅ΡΡΠ²Π° ΠΏΠ΅ΡΠ΅Π΄ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ°ΠΌΠΈ, Π½ΠΎ Π²Π΅Π΄Ρ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΡ — ΡΡΠΎ ΠΏΠΎΡΠΎΠΆΠ΄Π΅Π½ΠΈΠ΅ Π²ΡΡΠΎΠΊΠΎΡΠ°Π·Π²ΠΈΡΠΎΠ³ΠΎ ΡΠ΅Π»ΠΎΠ²Π΅ΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅Π»Π»Π΅ΠΊΡΠ°, ΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎ, Π²Π·Π°ΠΈΠΌΠΎΠ΄Π΅ΠΉΡΡΠ²ΡΡ Ρ Π½ΠΈΠΌΠΈ, ΡΠ΅Π»ΠΎΠ²Π΅ΠΊ ΡΡΠ°Π»ΠΊΠΈΠ²Π°Π΅ΡΡΡ ΠΏΠΎ ΡΡΡΠ΅ΡΡΠ²Ρ Ρ ΠΌΠΎΠ΄ΠΈΡΠΈΡΠΈΡΠΎΠ²Π°Π½Π½ΡΠΌ ΡΠ΅Π»ΠΎΠ²Π΅ΡΠ΅ΡΠΊΠΈΠΌ ΠΈΠ½ΡΠ΅Π»Π»Π΅ΠΊΡΠΎΠΌ.
Π Π²ΡΠ΅ ΠΆΠ΅ ΡΠ°ΠΌΠΎΠ΅ ΡΠ»Π°Π±ΠΎΠ΅ ΠΌΠ΅ΡΡΠΎ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ° — Π΅Π³ΠΎ ΠΈΠ½ΡΠ΅Π»Π»Π΅ΠΊΡ. Π‘Π΅ΠΉΡΠ°Ρ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ Π½Π΅ΠΎΠ±ΡΡΠ½ΠΎ Π±ΡΡΡΡΠΎΠ΅ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΠ΅ ΡΡΠ΅Ρ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΌΠ°ΡΠΈΠ½Π½ΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅Π»Π»Π΅ΠΊΡΠ°, Π½ΠΎ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΠ΅ Π²Π³Π»ΡΠ±Ρ, Π² Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠΈ ΡΠΎΠ²Π΅ΡΡΠ΅Π½ΡΡΠ²ΠΎΠ²Π°Π½ΠΈΡ Π΅Π³ΠΎ ΠΌΠ΅Ρ Π°Π½ΠΈΠ·ΠΌΠΎΠ² ΠΈΠ΄Π΅Ρ ΠΌΠ΅Π΄Π»Π΅Π½Π½ΠΎ.
Π‘Π»Π΅Π΄ΡΠ΅Ρ ΠΎΡΠΌΠ΅ΡΠΈΡΡ Π΅ΡΠ΅ ΠΎΠ΄Π½Ρ ΠΎΡΠΎΠ±Π΅Π½Π½ΠΎΡΡΡ ΡΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠΎΠ² — Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΠΈΡ ΡΠ²ΡΠ·ΠΈ ΠΌΠ΅ΠΆΠ΄Ρ ΡΠΎΠ±ΠΎΠΉ ΠΈ ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ Π½Π° ΡΡΠΎΠΉ ΠΎΡΠ½ΠΎΠ²Π΅ Π²ΡΡΠΈΡΠ»ΠΈΡΠ΅Π»ΡΠ½ΡΡ ΡΠΈΡΡΠ΅ΠΌ ΠΈ ΡΠ΅ΡΠ΅ΠΉ. Π‘ ΠΏΠΎΠΌΠΎΡΡΡ Π»ΠΎΠΊΠ°Π»ΡΠ½ΡΡ ΡΠ΅ΡΠ΅ΠΉ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½ΡΡΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΡ ΠΎΠ΄Π½ΠΎΠ³ΠΎ Π·Π΄Π°Π½ΠΈΡ ΠΈΠ»ΠΈ ΠΏΡΠ΅Π΄ΠΏΡΠΈΡΡΠΈΡ. Π’Π΅Π»Π΅ΡΠΎΠ½Π½ΡΠ΅ ΡΠ΅ΡΠΈ ΠΈ ΡΠΏΡΡΠ½ΠΈΠΊΠΈ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡ ΡΠΎΠ·Π΄Π°ΡΡ Π³Π»ΠΎΠ±Π°Π»ΡΠ½ΡΠ΅ Π²ΡΡΠΈΡΠ»ΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΡΠ΅ΡΠΈ.
ΠΠΎΠ»ΡΡΠΎΠ΅ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ Π½Π°Ρ ΠΎΠ΄ΡΡ ΠΎΠΏΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ Π²ΠΎΠ»ΠΎΠΊΠΎΠ½Π½ΡΠ΅ ΠΊΠ°Π½Π°Π»Ρ ΡΠ²ΡΠ·ΠΈ. Π§Π΅ΡΠ΅Π· ΠΊΠ°Π½Π°Π»Ρ ΡΠ²ΡΠ·ΠΈ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΡ ΠΎΠ±ΠΌΠ΅Π½ΠΈΠ²Π°ΡΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°ΠΌΠΈ ΠΈ Π΄Π°Π½Π½ΡΠΌΠΈ, ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎΠ΅ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠ΅ ΡΠ΅ΡΡΡΡΠΎΠ². Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΠΊΠΎΠΌΠΏΡΡΡΠ΅Ρ ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡΡ ΡΠ΅ΡΠΌΠΈΠ½Π°Π»ΠΎΠΌ Π²ΡΡΠΈΡΠ»ΠΈΡΠ΅Π»ΡΠ½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ, ΠΈ ΠΊΠΎΠ³Π΄Π° ΡΠ΅Π»ΠΎΠ²Π΅ΠΊ ΠΈΠΌΠ΅Π΅Ρ Ρ Π½ΠΈΠΌ Π΄Π΅Π»ΠΎ, ΡΠΎ ΠΎΠ½ ΡΡΠ°Π»ΠΊΠΈΠ²Π°Π΅ΡΡΡ Ρ ΡΠ°ΡΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠΌ Π² ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅ ΠΈ Π²ΠΎ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ ΠΌΠ°ΡΠΈΠ½Π½ΡΠΌ ΠΈΠ½ΡΠ΅Π»Π»Π΅ΠΊΡΠΎΠΌ.
Π§Π΅Π»ΠΎΠ²Π΅ΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ ΠΊΠΎΠΌΠΏΡΡΡΠ΅Ρ Π»ΠΈΠ±ΠΎ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΏΠ°ΡΡΠ½Π΅ΡΠ° Π² ΠΈΠ³ΡΠ΅, Π»ΠΈΠ±ΠΎ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΏΠΎΡΡΠ΅Π΄Π½ΠΈΠΊΠ° ΠΏΡΠΈ ΠΈΠ³ΡΠ°Ρ Ρ Π΄ΡΡΠ³ΠΈΠΌΠΈ Π»ΡΠ΄ΡΠΌΠΈ. Π ΠΌΠΎΠΆΠ½ΠΎ Π»ΠΈ ΠΊΠΎΠΌΠΏΡΡΡΠ΅Ρ ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°ΡΡ ΠΊΠ°ΠΊ ΠΏΠ°ΡΡΠ½Π΅ΡΠ°? ΠΠ΅Π΄Ρ ΠΎΠ½ Π½Π΅ ΠΎΠ±Π»Π°Π΄Π°Π΅Ρ ΡΠΌΠΎΡΠΈΡΠΌΠΈ, ΡΡΠ²ΡΡΠ²Π°ΠΌΠΈ, Ρ Π½Π΅Π³ΠΎ Π½Π΅Ρ Π΄ΡΡΠΈ ΠΈ ΡΠ΅ΡΠ΄ΡΠ°. ΠΠΎΠ½Π΅ΡΠ½ΠΎ, ΡΠ°Π·Π½ΠΈΡΠ° ΠΌΠ΅ΠΆΠ΄Ρ ΡΠ΅Π»ΠΎΠ²Π΅ΠΊΠΎΠΌ ΠΈ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠΎΠΌ Π³ΡΠΎΠΌΠ°Π΄Π½Π°Ρ, Π½ΠΎ ΡΠ΅Π»ΠΎΠ²Π΅ΠΊ ΠΏΠ΅ΡΠ΅Π΄Π°Π» ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΡ ΡΠ°ΡΡΡ ΡΠ²ΠΎΠ΅Π³ΠΎ ΠΈΠ½ΡΠ΅Π»Π»Π΅ΠΊΡΠ°, ΠΎΠΏΡΡΠ°, Π·Π½Π°Π½ΠΈΠΉ, Π½Π°Π²ΡΠΊΠΎΠ² Ρ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅ΠΉ ΡΠΌΠΎΡΠΈΠΎΠ½Π°Π»ΡΠ½ΠΎΠΉ ΠΎΠΊΡΠ°ΡΠΊΠΎΠΉ. ΠΠ΅Π΄Π°ΡΠΎΠΌ Π³ΠΎΠ²ΠΎΡΡΡ ΠΎ Π΄ΡΡΠΆΠ΅ΡΡΠ²Π΅Π½Π½ΠΎΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠΌ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠΈ. Π Π²ΠΌΠ΅ΡΡΠ΅ Ρ ΠΈΠ½ΡΠ΅Π»Π»Π΅ΠΊΡΠΎΠΌ ΡΠ΅Π»ΠΎΠ²Π΅ΠΊ ΠΏΠ΅ΡΠ΅Π΄Π°Π» ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΡ ΠΈ ΡΠ°ΡΡΡ ΡΠ²ΠΎΠ΅Π³ΠΎ ΡΠ΅ΠΏΠ»Π°, ΡΠ²ΠΎΠ΅ ΡΠΌΠ΅Π½ΠΈΠ΅ Π»ΡΠ±ΠΈΡΡ ΠΈ Π½Π΅Π½Π°Π²ΠΈΠ΄Π΅ΡΡ, ΡΠ²ΠΎΠ΅ ΠΎΡΠ½ΠΎΡΠ΅Π½ΠΈΠ΅ ΠΊ ΠΎΠΊΡΡΠΆΠ°ΡΡΠ΅ΠΌΡ ΠΌΠΈΡΡ ΠΈ Π΄ΡΡΠ³ΠΈΠΌ Π»ΡΠ΄ΡΠΌ.
ΠΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΡΠ΅ ΠΈΠ³ΡΡ ΠΏΠΎΡΠ²ΠΈΠ»ΠΈΡΡ Π²ΠΌΠ΅ΡΡΠ΅ Ρ ΠΏΠ΅ΡΠ²ΡΠΌΠΈ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ°ΠΌΠΈ. ΠΠΎ ΠΌΠ΅ΡΠ΅ ΡΠΎΠ²Π΅ΡΡΠ΅Π½ΡΡΠ²ΠΎΠ²Π°Π½ΠΈΡ ΠΌΠ°ΡΠΈΠ½ ΡΠΎΠ²Π΅ΡΡΠ΅Π½ΡΡΠ²ΠΎΠ²Π°Π»ΠΈΡΡ ΠΈ ΠΈΠ³ΡΡ. ΠΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΡΠ΅ ΠΈΠ³ΡΡ Π·Π°Π½ΡΠ»ΠΈ Π²Π°ΠΆΠ½ΠΎΠ΅ ΠΌΠ΅ΡΡΠΎ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠΌ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠΈ ΠΠΠ. Π ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΡΡΠ²Π΅Π½Π½ΠΎΠΉ ΡΡΠ΅ΡΠ΅ ΠΎΠ½ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ Π΄Π»Ρ ΠΎΠ±ΡΡΠ΅Π½ΠΈΡ, ΠΏΡΠΈΡ ΠΎΠ»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΎΠΉ ΡΠ°Π·Π³ΡΡΠ·ΠΊΠΈ ΠΏΠ΅ΡΡΠΎΠ½Π°Π»Π°.
ΠΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΡΠ΅ ΠΈΠ³ΡΡ ΡΠ΅Π°Π»ΡΠ½ΠΎΠ³ΠΎ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ Π½Π° ΠΏΠ΅ΡΡΠΎΠ½Π°Π»ΡΠ½ΠΎΠΉ ΠΠΠ Π΄Π»Ρ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΈΠ³ΡΠ°ΡΡΠ΅Π³ΠΎ Π±Π΅Π· ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΎΠ±ΠΎΡΡΠ΄ΠΎΠ²Π°Π½ΠΈΡ («ΠΌΡΡΠ΅ΠΊ», «Π΄ΠΆΠΎΠΉΡΡΠΈΠΊΠΎΠ²» ΠΈ Π΄Ρ.) ΠΌΠΎΠΆΠ½ΠΎ ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°ΡΡ ΠΊΠ°ΠΊ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΡ Π·Π°Π΄Π°ΡΡ — Π² Π½Π΅ΠΉ ΠΈΠΌΠ΅ΡΡΡΡ ΡΡΠ»ΠΎΠ²ΠΈΡ, ΡΠ΅Π»Ρ ΠΈ ΡΡΠ΅Π΄ΡΡΠ²Π° Π΅Π΅ Π΄ΠΎΡΡΠΈΠΆΠ΅Π½ΠΈΡ. Π Π΅ΡΠ΅Π½ΠΈΠ΅ Π·Π°Π΄Π°ΡΠΈ — ΠΏΡΠΎΡΠ΅ΡΡ, ΡΠΏΡΠ°Π²Π»ΡΠ΅ΠΌΡΠΉ ΠΈΠ³ΡΠ°ΡΡΠΈΠΌ Π² ΡΠ΅Π°Π»ΡΠ½ΠΎΠΌ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ ΠΏΠΎ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠΌ ΠΏΡΠ°Π²ΠΈΠ»Π°ΠΌ. Π’Π΅ΡΠ΅Π½ΠΈΠ΅ ΠΏΡΠΎΡΠ΅ΡΡΠ° ΠΎΡΠ΅Π½ΠΈΠ²Π°Π΅ΡΡΡ ΠΏΠΎ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Π½ΠΎΠΌΡ ΠΊΡΠΈΡΠ΅ΡΠΈΡ.
Π ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΠΎΠΉ ΠΈΠ³ΡΠ΅ ΠΌΠΎΠΆΠ½ΠΎ Π²ΡΠ΄Π΅Π»ΠΈΡΡ ΡΡΠΈ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ°: ΠΈΠ³ΡΠΎΠ²ΡΡ ΡΡΠ΅Π΄Ρ, Π²Π·Π°ΠΈΠΌΠΎΠ΄Π΅ΠΉΡΡΠ²ΠΈΠ΅ Ρ ΠΈΠ³ΡΠ°ΡΡΠΈΠΌ ΠΈ ΠΎΡΠ΅Π½ΠΊΡ ΠΈΠ³ΡΠΎΠ²ΠΎΠΉ ΡΠΈΡΡΠ°ΡΠΈΠΈ.
ΠΠ³ΡΠΎΠ²Π°Ρ ΡΡΠ΅Π΄Π° — ΡΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ², ΡΠ²ΡΠ·Π΅ΠΉ Π² ΠΈΠ³ΡΠ΅ ΠΈ ΠΏΡΠ°Π²ΠΈΠ» ΠΈΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ. Π’Π°ΠΊ, Π² ΡΠ°Ρ ΠΌΠ°ΡΠ°Ρ ΠΈΠ³ΡΠΎΠ²Π°Ρ ΡΡΠ΅Π΄Π° ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΡ Π΄ΠΎΡΠΊΠΈ, Π΄Π²ΡΡ Π½Π°Π±ΠΎΡΠΎΠ² ΡΠΈΠ³ΡΡ, ΠΏΡΠ°Π²ΠΈΠ» ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΡ ΡΠΈΠ³ΡΡ ΠΏΠΎ Π΄ΠΎΡΠΊΠ΅ ΠΈ ΠΏΡΠ°Π²ΠΈΠ» ΠΈΡ Π²Π·ΡΡΠΈΡ ΠΈΠ»ΠΈ ΠΏΡΠ΅Π²ΡΠ°ΡΠ΅Π½ΠΈΡ.
ΠΠ·Π°ΠΈΠΌΠΎΠ΄Π΅ΠΉΡΡΠ²ΠΈΠ΅ Ρ ΠΈΠ³ΡΠ°ΡΡΠΈΠΌ — ΡΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΡ ΡΡΠ΅Π΄ΡΡΠ², ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»ΡΠ΅ΠΌΡΡ ΠΈΠ³ΡΠ°ΡΡΠ΅ΠΌΡ Π΄Π»Ρ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΈΠ³ΡΠΎΠ²ΠΎΠΉ ΡΡΠ΅Π΄Ρ. Π§Π°ΡΠ΅ Π²ΡΠ΅Π³ΠΎ ΡΡΠΎ ΠΊΠ»Π°Π²ΠΈΠ°ΡΡΡΠ° ΠΏΠ΅ΡΡΠΎΠ½Π°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ°. ΠΡΠΈ ΠΈΠΌΠΈΡΠ°ΡΠΈΠΈ Π°Π²ΡΠΎΠΌΠΎΠ±ΠΈΠ»ΡΠ½ΡΡ Π³ΠΎΠ½ΠΎΠΊ Π²ΠΎΠ΄ΠΈΡΠ΅Π»Ρ ΠΈΠ·ΠΌΠ΅Π½ΡΠ΅Ρ Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ ΠΈ ΡΠΊΠΎΡΠΎΡΡΡ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΡ ΠΏΠΎ ΡΡΠ°ΡΡΠ΅, ΠΏΡΠΈ ΡΡΠΎΠΌ Π±ΠΎΠ»ΡΡΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΈΠΌΠ΅Π΅Ρ Π±ΡΡΡΡΠΎΡΠ° ΡΠ΅Π°ΠΊΡΠΈΠΈ Π½Π° ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Ρ Π΄Π΅ΠΊΠΎΡΠ°ΡΠΈΠΉ, ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΡΡΠ°ΡΡΡ, ΠΏΠΎΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΏΡΠ΅ΠΏΡΡΡΡΠ²ΠΈΠΉ (Π½Π° ΡΡΠ°ΡΡΠ΅ ΠΌΠΎΠ³ΡΡ Π±ΡΡΡ ΠΏΠΎΠ²ΠΎΡΠΎΡΡ ΡΠ°Π·Π½ΠΎΠΉ ΠΊΡΡΡΠΈΠ·Π½Ρ, ΠΊΠ°ΠΌΠ½ΠΈ, ΡΡΠ΅ΠΊΠ»Π°, Π»ΡΠΆΠΈ, ΠΌΠ°ΡΠΈΠ½Ρ ΠΌΠΎΠΆΠ΅Ρ Π·Π°Π½Π΅ΡΡΠΈ, ΠΎΠ½Π° ΠΌΠΎΠΆΠ΅Ρ ΠΏΠΎΡΠ΅ΡΠΏΠ΅ΡΡ Π°Π²Π°ΡΠΈΡ).
ΠΡΠ΅Π½ΠΊΠ° ΠΈΠ³ΡΠΎΠ²ΠΎΠΉ ΡΠΈΡΡΠ°ΡΠΈΠΈ — ΡΠΎΠΎΡΠ½ΠΎΡΠ΅Π½ΠΈΡ ΠΈ ΡΡΠ»ΠΎΠ²ΠΈΡ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡ ΡΠ΅Π»Ρ ΠΏΠΎΠ²Π΅Π΄Π΅Π½ΠΈΡ ΠΈΠ³ΡΠ°ΡΡΠ΅Π³ΠΎ. Π‘ΡΠ΄Π° Π²ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ ΡΠΈΡΡΠ΅ΠΌΠ° ΠΎΡΠΊΠΎΠ² ΠΈ ΡΡΡΠ°ΡΠΎΠ² Π·Π° ΠΈΠ³ΡΠΎΠ²ΡΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ, ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠΉ ΠΈ ΠΊΠΎΠ½Π΅ΡΠ½ΠΎΠΉ ΡΠΈΡΡΠ°ΡΠΈΠΈ.
ΠΠΎΡΠ»Π΅ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΡΠΆΠ΅ΡΠ°, ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ ΠΈΠ³ΡΠΎΠ²ΠΎΠΉ ΡΡΠ΅Π΄Ρ, Π²ΡΠ±ΠΎΡΠ° ΡΠΏΠΎΡΠΎΠ±ΠΎΠ² Π²Π·Π°ΠΈΠΌΠΎΠ΄Π΅ΠΉΡΡΠ²ΠΈΡ Ρ ΠΈΠ³ΡΠ°ΡΡΠΈΠΌ ΠΈ ΡΠΈΡΡΠ΅ΠΌΡ ΠΊΡΠΈΡΠ΅ΡΠΈΠ΅Π² ΠΎΡΠ΅Π½ΠΊΠΈ ΠΏΠΎΠ²Π΅Π΄Π΅Π½ΠΈΡ ΠΈΠ³ΡΠ°ΡΡΠ΅Π³ΠΎ Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ ΡΡΠ°ΠΏ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. ΠΠ³ΡΠΎΠ²Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠ°ΡΠ΅ Π²ΡΠ΅Π³ΠΎ ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· Π΄Π²ΡΡ ΡΠ°ΡΡΠ΅ΠΉ: ΠΏΠ΅ΡΠ²Π°Ρ ΡΠ΅Π°Π»ΠΈΠ·ΡΠ΅Ρ Π²Π½ΡΡΡΠ΅Π½Π½ΡΡ, Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΡΡ ΡΡΡΡΠΊΡΡΡΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΠΎΠΉ ΠΈΠ³ΡΡ, Ρ. Π΅. ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅Ρ ΠΈΠ³ΡΡ Π² ΡΠΈΡΡΠ΅ΠΌΠ΅ ΠΌΠ°ΡΠΈΠ½Π½ΡΡ Π΄Π°Π½Π½ΡΡ ΠΈ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΎΠ², Π²ΡΠΎΡΠ°Ρ — ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅Ρ ΠΏΡΠΎΡΠ΅ΡΡ ΠΈΠ³ΡΡ Π½Π° ΡΠ΅ΡΠΌΠΈΠ½Π°Π»Π΅ (ΡΡΠ° ΡΠ°ΡΡΡ ΡΠ²ΡΠ·Π°Π½Π° Ρ ΡΡΡΠ΅ΡΠΈΡΠ΅ΡΠΊΠΈΠΌΠΈ ΠΈ ΡΡΠ³ΠΎΠ½ΠΎΠΌΠΈΡΠ΅ΡΠΊΠΈΠΌΠΈ Π°ΡΠΏΠ΅ΠΊΡΠ°ΠΌΠΈ, ΠΏΠΎΡΡΠΎΠΌΡ Π΅ΠΉ ΠΏΡΠΈΠ΄Π°Π΅ΡΡΡ ΠΎΡΠΎΠ±ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅, Π²Π΅Π΄Ρ ΠΈΠ³ΡΠ° Π΄ΠΎΠ»ΠΆΠ½Π° ΠΏΡΠΈΠ½ΠΎΡΠΈΡΡ ΠΈΠ³ΡΠ°ΡΡΠ΅ΠΌΡ ΡΠ΄ΠΎΠ²ΠΎΠ»ΡΡΡΠ²ΠΈΠ΅). Π ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΡΡ ΠΈΠ³ΡΠ°Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π½Π΅Π±ΠΎΠ»ΡΡΠΎΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΡΠΆΠ΅ΡΠΎΠ², ΡΠ°ΡΠ΅ Π²ΡΠ΅Π³ΠΎ ΡΡΠΎ ΠΌΠΎΠ΄ΠΈΡΠΈΠΊΠ°ΡΠΈΠΈ ΠΎΠ±ΡΡΠ½ΡΡ , ΡΡΠ°Π΄ΠΈΡΠΈΠΎΠ½Π½ΡΡ ΠΈΠ³Ρ ΠΈ ΠΆΠΈΠ·Π½Π΅Π½Π½ΡΡ ΡΠΈΡΡΠ°ΡΠΈΠΉ, Π½ΠΎ ΡΠΎΡΠΌΡ ΠΈΡ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΎΠ³ΡΠΎΠΌΠ½Ρ.
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈΠ·ΠΎΠ±ΡΠ°Π·ΠΈΡΠ΅Π»ΡΠ½ΠΎΠΉ ΡΡΠΎΡΠΎΠ½Ρ ΠΈΠ³ΡΡ Π±ΠΎΠ»Π΅Π΅ ΡΡΡΠ΄ΠΎΠ΅ΠΌΠΊΠΎ, ΡΠ΅ΠΌ Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΎΠΉ. ΠΡΠ½ΠΎΠ²Ρ ΠΈΠ³ΡΠΎΠ²ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΠΎΡΡΠ°Π²Π»ΡΠ΅Ρ Π΅Π΅ Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠ°Ρ ΡΡΡΡΠΊΡΡΡΠ°, Π² ΠΊΠΎΡΠΎΡΠΎΠΉ Π²ΡΠ΄Π΅Π»ΡΡΡ ΡΡΠΈ ΠΈΠ΅ΡΠ°ΡΡ ΠΈΡΠ΅ΡΠΊΠΈΡ ΡΡΠΎΠ²Π½Ρ (ΠΏΠ»Π°Π½Π°) — ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠ²Π½ΡΠΉ, ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΈ ΡΡΡΠ°ΡΠ΅Π³ΠΈΡΠ΅ΡΠΊΠΈΠΉ.
ΠΠΏΠ΅ΡΠ°ΡΠΈΠ²Π½ΡΠΉ ΠΏΠ»Π°Π½ — ΡΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ Π²Π½ΡΡΡΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΌΠ΅ΠΆΠ΄Ρ Π΄Π²ΡΠΌΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΡΠΌΠΈ Π΄Π΅ΠΉΡΡΠ²ΠΈΡΠΌΠΈ ΠΈΠ³ΡΠ°ΡΡΠ΅Π³ΠΎ.
Π’Π°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΏΠ»Π°Π½ — ΡΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΡ ΠΈΠ³ΡΠΎΠ²ΡΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ, Π²Π΅Π΄ΡΡΠΈΡ ΠΊ Π΄ΠΎΡΡΠΈΠΆΠ΅Π½ΠΈΡ ΠΊΠ°ΠΊΠΎΠΉ-Π»ΠΈΠ±ΠΎ Π»ΠΎΠΊΠ°Π»ΡΠ½ΠΎΠΉ ΡΠ΅Π»ΠΈ.
Π‘ΡΡΠ°ΡΠ΅Π³ΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΏΠ»Π°Π½ — ΠΏΠ»Π°Π½ Π²ΡΠ΅ΠΉ ΠΈΠ³ΡΡ, ΠΊΠΎΡΠΎΡΠ°Ρ Π΄ΠΎΠ»ΠΆΠ½Π° ΡΡΡΠΎΠΈΡΡΡΡ ΡΠ°ΠΊ, ΡΡΠΎΠ±Ρ Π΄ΠΎΡΡΠΈΡΡ ΡΠ΅Π»ΠΈ ΠΈ Π΄ΠΎΠ±ΠΈΡΡΡΡ Π²ΡΠΈΠ³ΡΡΡΠ° (ΠΏΡΠΈ Π°Π²ΡΠΎΠΌΠΎΠ±ΠΈΠ»ΡΠ½ΡΡ Π³ΠΎΠ½ΠΊΠ°Ρ Π½Π΅ ΠΏΠΎΡΠ΅ΡΠΏΠ΅ΡΡ Π°Π²Π°ΡΠΈΠΈ, Π±ΡΡΡΡΠΎ ΠΏΡΠΈΠΉΡΠΈ ΠΊ ΡΠΈΠ½ΠΈΡΡ, ΡΠΌΠ΅Π½ΡΡΠΈΡΡ Π·Π°ΡΡΠ°ΡΡ Π½Π° Π²ΠΎΡΡΡΠ°Π½ΠΎΠ²ΠΈΡΠ΅Π»ΡΠ½ΡΠΉ ΡΠ΅ΠΌΠΎΠ½Ρ ΠΌΠ°ΡΠΈΠ½Ρ). ΠΠΎΡΡΠΈΠΆΠ΅Π½ΠΈΠ΅ ΡΡΡΠ°ΡΠ΅Π³ΠΈΡΠ΅ΡΠΊΠΈΡ ΡΠ΅Π»Π΅ΠΉ — Π΄Π΅Π»ΠΎ Π½Π΅ ΠΏΡΠΎΡΡΠΎΠ΅. ΠΠΈΡΡ ΠΌΠ½ΠΎΠ³ΠΎΠΊΡΠ°ΡΠ½ΠΎΠ΅ ΡΡΠ°ΡΡΠΈΠ΅ Π² ΠΈΠ³ΡΠ΅, ΠΏΠΎΡΡΠΈΠΆΠ΅Π½ΠΈΠ΅ Π²ΡΠ΅Ρ Π΅Π΅ ΠΎΡΠΎΠ±Π΅Π½Π½ΠΎΡΡΠ΅ΠΉ, Π±ΡΡΡΡΠΎΡΠ° ΡΠ΅Π°ΠΊΡΠΈΠΈ, ΠΏΡΠ΅Π΄Π²ΠΈΠ΄Π΅Π½ΠΈΠ΅ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡ Π΄ΠΎΠ±ΠΈΠ²Π°ΡΡΡΡ Ρ ΠΎΡΠΎΡΠΈΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ².
II. Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ
ΠΠ±ΡΠ°Ρ Π±Π»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
P1Left ΠΈ P2Left — ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π½Π΅ΡΠ±ΠΈΡΡΡ ΠΏΠ°Π»ΡΠ± ΠΊΠΎΡΠ°Π±Π»Π΅ΠΉ ΠΏΠΎΠ»Π΅ΠΉ 1 ΠΈ 2 ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΠΎ.
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΡ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΎΠ².
ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° «ΠΠΎΡΡΠΊΠΎΠΉ Π±ΠΎΠΉ» ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· ΡΡΠ΅Ρ ΡΠΎΡΠΌ ΠΈ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΌΠΎΠ΄ΡΠ»Ρ, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ Π½Π°Ρ ΠΎΠ΄ΡΡΡΡ Π²ΡΠ΅ ΠΎΡΠ½ΠΎΠ²Π½ΡΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ. ΠΠ° ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΡΠΎΡΠΌΠ΅ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½Ρ ΠΎΠ±ΡΠ΅ΠΊΡΡ, ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΊΠΎΡΠΎΡΡΡ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠ΅ ΡΠΎΠ±ΡΡΠΈΡ. Π’Π°ΠΊ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠΏΡΠ°Π²Π»ΡΡΡΠΈΡ ΠΊΠ½ΠΎΠΏΠΎΠΊ ΠΌΠΎΠΆΠ½ΠΎ:
Π½Π°ΡΠ°ΡΡ ΠΈΠ³ΡΡ (ΡΡΡ ΠΆΠ΅ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΡΠ°ΡΡΡΠ°Π²ΠΈΡΡ ΠΊΠΎΡΠ°Π±Π»ΠΈ) ΠΈΠ·ΠΌΠ΅Π½ΠΈΡΡ ΡΠ»ΠΎΠΆΠ½ΠΎΡΡΡ ΠΈΠ³ΡΡ;
ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ ΠΏΡΠ°Π²ΠΈΠ»Π°Ρ ΠΈΠ³ΡΡ;
ΠΏΠΎΠ»ΡΡΠΈΡΡ ΡΠΏΡΠ°Π²ΠΊΡ ΠΎΠ± Π°Π²ΡΠΎΡΠ΅.
ΠΠ½Π΅ΡΠ½ΠΈΠΉ Π²ΠΈΠ΄ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
ΠΠ΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅, ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ
ΠΈΠ³ΡΠ° ΠΌΠΎΡΡΠΊΠΎΠΉ Π±ΠΎΠΉ ΠΊΠΎΠΌΠΏΡΡΡΠ΅Ρ
Visual Basic, ΠΊΠ°ΠΊ ΠΈ Π±ΠΎΠ»ΡΡΠΈΠ½ΡΡΠ²ΠΎ ΡΠ·ΡΠΊΠΎΠ² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ Π΄Π»Ρ Ρ ΡΠ°Π½Π΅Π½ΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅. ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Ρ Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΠ·ΡΠ΅ΡΡΡ ΠΈΠΌΠ΅Π½Π΅ΠΌ — ΡΠ»ΠΎΠ²ΠΎΠΌ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠΌ Π΄Π»Ρ ΡΡΡΠ»ΠΊΠΈ Π½Π° Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ, ΠΈ ΡΠΈΠΏΠΎΠΌ, ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡΠΈΠΌ Π²ΠΈΠ΄ Π΄Π°Π½Π½ΡΡ , ΠΊΠΎΡΠΎΡΡΠΉ ΠΌΠΎΠΆΠ½ΠΎ Ρ ΡΠ°Π½ΠΈΡΡ Π² ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ.
Π ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅:
S1 (9, 9) as Byte
S2 (9, 9) as Byte — ΠΏΠΎΠ»Ρ 1 ΠΈ 2, ΡΠΎΠ΄Π΅ΡΠΆΠ°Ρ ΠΏΠΎΠ»Π½ΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ ΡΠ°ΡΡΡΠ°Π²Π»Π΅Π½Π½ΡΡ Π½Π° Π½ΠΈΡ ΠΊΠΎΡΠ°Π±Π»ΡΡ , ΠΏΡΠΎΡΡΡΠ΅Π»ΡΠ½Π½ΡΡ ΠΈ Π½Π΅ΠΏΡΠΎΡΡΡΠ΅Π»ΡΠ½Π½ΡΡ ΠΌΠ΅ΡΡΠ°Ρ . ΠΠ°ΠΆΠ΄Π°Ρ ΠΊΠ»Π΅ΡΠΊΠ° ΠΌΠΎΠΆΠ΅Ρ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ 4 Π·Π½Π°ΡΠ΅Π½ΠΈΡ: 0 — ΠΏΡΡΡΠΎ ΠΈ Π½Π΅ΠΏΡΠΎΡΡΡΠ΅Π»ΡΠ½ΠΎ, 1 — Π½Π΅ΠΏΠΎΠ΄Π±ΠΈΡΠ°Ρ ΡΠ°ΡΡΡ ΠΊΠΎΡΠ°Π±Π»Ρ, 2 — ΠΏΡΡΡΠΎ, Π½ΠΎ ΠΏΡΠΎΡΡΡΠ΅Π»ΡΠ½ΠΎ, 3 — ΠΏΠΎΠ΄Π±ΠΈΡΠ°Ρ ΡΠ°ΡΡΡ ΠΊΠΎΡΠ°Π±Π»Ρ.
V1 (9,9) as Byte
V2 (9,9) as Byte — Π°Π½Π°Π»ΠΎΠ³ΠΈΡΠ½ΠΎ S1 (9,9) ΠΈ S2 (9,9), ΡΠΎΠ»ΡΠΊΠΎ ΡΠΎΠ΄Π΅ΡΠΆΠ°Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ Π»ΠΈΡΡ ΠΎΠ± ΠΎΡΠΊΡΡΡΡΡ ΠΈΠ³ΡΠΎΠΊΠΎΠΌ Π»ΠΈΠ±ΠΎ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠΎΠΌ ΠΌΠ΅ΡΡΠ°Ρ .
Num — Π½ΠΎΠΌΠ΅Ρ ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ ΠΏΠΎΠ»Ρ. ΠΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π»ΠΈΠ±ΠΎ 1, Π»ΠΈΠ±ΠΎ 2.
Slozhnost — ΡΡΠΎΠ²Π΅Π½Ρ ΠΠΎΠΌΠΏΠ°. ΠΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΎΡ 1 Π΄ΠΎ 9.
StrX, StrY — ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ, Π²ΡΠ±ΡΠ°Π½Π½ΡΠ΅ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠΎΠΌ Π΄Π»Ρ «ΡΠ΄Π°ΡΠ°». ΠΠΎΠ³ΡΡ Π±ΡΡΡ ΠΎΡ 0 Π΄ΠΎ 9.
P1Left, P2Left — ΡΠΎΠ΄Π΅ΡΠΆΠ°Ρ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ «Π½Π΅ΡΠ±ΠΈΡΡΡ » ΡΠ΅Π³ΠΌΠ΅Π½ΡΠΎΠ² ΠΊΠΎΡΠ°Π±Π»Π΅ΠΉ Π΄Π»Ρ ΠΏΠΎΠ»Π΅ΠΉ 1 ΠΈ 2 ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΠΎ.
ShotResult — ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅Π³ΠΎ Π²ΡΡΡΡΠ΅Π»Π°: «Π Π°Π½Π΅Π½», «Π£Π±ΠΈΡ», «ΠΠΈΠΌΠΎ», «ΠΠΎΠ²ΡΠΎΡΠ½Π°Ρ ΡΡΡΠ΅Π»ΡΠ±Π° (Π±ΡΠ»ΠΎ ΠΏΠΎΠΏΠ°Π΄Π°Π½ΠΈΠ΅) — Ρ ΠΎΠ΄ Π·Π°ΡΡΠΈΡΠ°Π½» ΠΈ «ΠΠΎΠ²ΡΠΎΡΠ½Π°Ρ ΡΡΡΠ΅Π»ΡΠ±Π° (ΠΌΠΈΠΌΠΎ) — Ρ ΠΎΠ΄ Π·Π°ΡΡΠΈΡΠ°Π½». Π’ΠΈΠΏ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ — String.
ShipL — ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ Π΄Π»ΠΈΠ½Ρ ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅Π³ΠΎ «ΡΠ±ΠΈΡΠΎΠ³ΠΎ» ΠΊΠΎΡΠ°Π±Π»Ρ (ΠΎΡ 1 Π΄ΠΎ 4).
Moves — ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΏΡΠΎΠ΄Π΅Π»Π°Π½Π½ΡΡ Ρ ΠΎΠ΄ΠΎΠ² ΠΠΎΠΌΠΏΠ°.
Moixody — ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΏΡΠΎΠ΄Π΅Π»Π°Π½Π½ΡΡ Ρ ΠΎΠ΄ΠΎΠ² ΠΠ³ΡΠΎΠΊΠ°.
Err — ΠΈΠ½Π΄ΠΈΠΊΠ°ΡΠΎΡ ΠΎΡΠΈΠ±ΠΊΠΈ. ΠΠΎΠΆΠ΅Ρ Π±ΡΡΡ True, Π΅ΡΠ»ΠΈ ΠΎΡΠΈΠ±ΠΊΠ° Π±ΡΠ»Π°, Π»ΠΈΠ±ΠΎ False, Π΅ΡΠ»ΠΈ Π΅Ρ Π½Π΅ Π±ΡΠ»ΠΎ.
ErrName — ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΎΡΠΈΠ±ΠΊΠΈ, Π΅ΡΠ»ΠΈ ΠΎΠ½Π° Π±ΡΠ»Π°. Π’ΠΈΠΏ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ — String.
ΠΠΎΠΆΠ½ΠΎ ΡΠΏΡΠΎΡΡΠΈΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅, ΡΠ°Π·Π±ΠΈΠ²Π°Ρ Π·Π°Π΄Π°ΡΡ Π½Π° Π½Π΅Π±ΠΎΠ»ΡΡΠΈΠ΅ Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ. Π Visual Basic ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ Π²ΠΈΠ΄ΠΎΠ² ΠΏΡΠΎΡΠ΅Π΄ΡΡ:
ΠΡΠΎΡΠ΅Π΄ΡΡΡ Sub (Π½Π΅ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ) ΠΡΠΎΡΠ΅Π΄ΡΡΡ Function (Π²ΠΎΠ·Π²ΡΠ°ΡΠ°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ) ΠΡΠΎΡΠ΅Π΄ΡΡΡ Property (ΠΌΠΎΠ³ΡΡ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°ΡΡ ΠΈ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ), Π° ΡΠ°ΠΊΠΆΠ΅ ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°ΡΡ ΡΡΡΠ»ΠΊΠΈ.
Π ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ:
DrawSea (Num) — ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅Ρ Π²ΡΡ ΠΏΠΎΠ»Π΅ Π½ΠΎΠΌΠ΅Ρ Num
ViewSea (Num) — ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅Ρ ΠΎΡΠΊΡΡΡΡΠ΅ ΠΌΠ΅ΡΡΠ° ΠΏΠΎΠ»Ρ Π½ΠΎΠΌΠ΅Ρ Num
HideSea (Num) — ΡΠΊΡΡΠ²Π°Π΅Ρ ΠΏΠΎΠ»Π΅ Π½ΠΎΠΌΠ΅Ρ Num
NoErr — ΠΎΡΠΊΠ»ΡΡΠ°Π΅Ρ Π·Π°ΠΏΠΈΡΡ ΠΎΠ± ΠΎΡΠΈΠ±ΠΊΠ΅: Π΄Π΅Π»Π°Π΅Ρ Err = False, Π° ErrName = «»
SetShips (Num) — ΡΠ°ΡΡΡΠ°Π²Π»ΡΠ΅Ρ ΠΊΠΎΡΠ°Π±Π»ΠΈ Π½Π° ΠΏΠΎΠ»Π΅ Num ΡΠ»ΡΡΠ°ΠΉΠ½ΡΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ
Strike (Num) — Π²ΡΠ±ΠΈΡΠ°Π΅Ρ ΡΡΠ΅ΠΉΠΊΡ Π½Π° ΠΏΠΎΠ»Π΅ Num Π΄Π»Ρ «ΠΎΠ³Π½Ρ» ΠΏΠΎ Π½Π΅ΠΉ. ΠΠ»Π³ΠΎΡΠΈΡΠΌ ΡΡΡΠ΅ΠΊΡΠΈΠ²Π΅Π½ Π² Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ ΡΡΠΎΠ²Π½Ρ ΠΈΠ³ΡΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ° (Slozhnost).
ΠΠ° Π²ΡΡ ΠΎΠ΄Π΅ Π²ΡΠ΄Π°ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ StrX ΠΈ StrY, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ X ΠΈ Y Π΄Π»Ρ «Π²ΡΡΡΡΠ΅Π»Π°» (Fire (Num, StrX, StrY)), Π° ΡΠ°ΠΊΠΆΠ΅ ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°Π΅Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Moves Π½Π° 1 Π·Π° ΠΊΠ°ΠΆΠ΄ΡΠΉ ΡΠ°Π·.
Fire (Num, X, Y) — ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡ «ΠΎΠ³ΠΎΠ½Ρ» ΠΏΠΎ ΡΡΠ΅ΠΉΠΊΠ΅ Ρ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ°ΠΌΠΈ X, Y Π½Π° ΠΏΠΎΠ»Π΅ Num.
ΠΠ° Π²ΡΡ ΠΎΠ΄Π΅ Π²ΡΠ΄Π°ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ShotResult ΠΈ ShipL
OpenVSea (Num) — ΠΏΠΎΠ»Π½ΠΎΡΡΡΡ ΠΎΡΠΊΡΡΠ²Π°Π΅Ρ Π½Π΅ΠΈΠ·Π²Π΅ΡΡΠ½ΡΡ ΠΈΠ³ΡΠΎΠΊΡ ΡΠ΅ΡΡΠΈΡΠΎΡΠΈΡ ΠΏΠΎΠ»Ρ Num
ClearSea (Num) — ΠΏΠΎΠ»Π½ΠΎΡΡΡΡ ΡΡΠΈΡΠ°Π΅Ρ Π΄Π°Π½Π½ΡΠ΅ ΠΎΠ± «ΠΎΡΠΊΡΡΡΡΡ » ΠΌΠ΅ΡΡΠ°Ρ Π½Π° ΠΏΠΎΠ»Π΅ Num.
CalcShipsLeft — ΠΏΠΎΠ΄ΡΡΠΈΡΡΠ²Π°Π΅Ρ, ΡΠΊΠΎΠ»ΡΠΊΠΎ «Π½Π΅ΡΠ±ΠΈΡΡΡ » ΡΠ΅Π³ΠΌΠ΅Π½ΡΠΎΠ² ΠΊΠΎΡΠ°Π±Π»Π΅ΠΉ Π΅ΡΡΡ Π½Π° ΠΏΠΎΠ»Π΅ 1 ΠΈ ΠΏΠΎΠ»Π΅ 2, ΠΈ Π²ΡΠ΄Π°ΡΡ Π½Π° Π²ΡΡ ΠΎΠ΄Π΅ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅: P1Left ΠΈ P2Left.
ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ², ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΡ Π² ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΈ
Π ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Ρ ΠΎΠ±ΡΠ΅ΠΊΡΡ Microsoft Visual Basic, ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½Ρ Π½Π° ΡΠΎΡΠΌΠ°Ρ ΠΏΡΠΎΠ΅ΠΊΡΠ° Π΄Π»Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΡ ΡΠΎΠ±ΡΡΠΈΠΉ, ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎ ΠΎΡΠ΅Π½ΠΈΡΡ ΠΏΡΠΎΡΠ΅ΡΡ ΡΠ°Π±ΠΎΡΡ Ρ Π΄Π°Π½Π½ΡΠΌΠΈ.
Π Π΄Π°Π½Π½ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΡ:
Β· Label (ΠΠ΅ΡΠΊΠ°)
Β· Picture box (ΠΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΎΠΊΠ½ΠΎ)
Β· Image (ΠΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅)
Β· Command button (ΠΠ½ΠΎΠΏΠΊΠ° ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ)
Β· Frame (Π Π°ΠΌΠΊΠ°)
Β· Timer (Π’Π°ΠΉΠΌΠ΅Ρ)
ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ²:
Label (ΠΠ΅ΡΠΊΠ°) — ΡΠ»ΡΠΆΠΈΡ Π΄Π»Ρ ΡΠ°Π·ΠΌΠ΅ΡΠ΅Π½ΠΈΡ Π² ΡΠΎΡΠΌΠ΅ ΡΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΡΠ΅ΠΊΡΡΠ°, ΠΊΠΎΡΠΎΡΡΠΉ Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°ΡΡΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ.
Command button (ΠΠ½ΠΎΠΏΠΊΠ° ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ) — Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ ΠΊΠΎΠΌΠ°Π½Π΄Ρ ΠΈΠ»ΠΈ Π΄Π΅ΠΉΡΡΠ²ΠΈΠ΅, Π²ΡΠ±ΡΠ°Π½Π½ΡΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ
Image (ΠΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅) — ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅Ρ ΠΏΠΎΠ±ΠΈΡΠΎΠ²ΡΠ΅ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ, Π·Π½Π°ΡΠΊΠΈ ΠΈΠ»ΠΈ ΠΌΠ΅ΡΠ°ΡΠ°ΠΉΠ»Ρ Windows, ΡΠ°ΠΉΠ»Ρ JPEG ΠΈΠ»ΠΈ GIF; ΠΏΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ Π²Π΅Π΄ΡΡ ΡΠ΅Π±Ρ ΠΊΠ°ΠΊ ΠΊΠ½ΠΎΠΏΠΊΠ° ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ
Picture box (ΠΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΎΠΊΠ½ΠΎ) — ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅Ρ ΠΏΠΎΠ±ΠΈΡΠΎΠ²ΡΠ΅ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ, Π·Π½Π°ΡΠΊΠΈ ΠΈΠ»ΠΈ ΠΌΠ΅ΡΠ°ΡΠ°ΠΉΠ»Ρ Windows, ΡΠ°ΠΉΠ»Ρ JPEG ΠΈΠ»ΠΈ GIF. ΠΠ½ ΡΠ°ΠΊΠΆΠ΅ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅Ρ ΡΠ΅ΠΊΡΡ ΠΈ ΡΠ²Π»ΡΠ΅ΡΡΡ Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΡΠΌ ΠΊΠΎΠ½ΡΠ΅ΠΉΠ½Π΅ΡΠΎΠΌ Π΄Π»Ρ Π΄ΡΡΠ³ΠΈΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ
Timer (Π’Π°ΠΉΠΌΠ΅Ρ) — Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ ΡΠΎΠ±ΡΡΠΈΡ ΡΠ΅ΡΠ΅Π· ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΡΠ΅ ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»Ρ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ
Frame (ΠΠ°Π΄Ρ) — ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΡΠΈΡΡΠ΅ΠΌΡΡ Π³ΡΡΠΏΠΏ Π΄ΡΡΠ³ΠΈΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ, Ρ. Π΅. ΠΊΠ°ΠΊ ΠΊΠΎΠ½ΡΠ΅ΠΉΠ½Π΅Ρ.
ΠΠΈΡΡΠΈΠ½Π³ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΊΠΎΠ΄Π°
Morskoi_boi. Form
Dim Moixody As Byte
Private Sub CmdNewgame_Click ()
lblKompxody.Caption = «0»
lblMoixody.Caption = «0»
Label6.Caption = «20»
Label7.Caption = «20»
Moves = 0
Moixody = 0
SetShips (1)
SetShips (2)
DrawSea (1)
HideSea (2)
ClearSea (1)
ClearSea (2)
OpenVSea (1)
CalcShipsLeft
Picture2.Visible = False
End Sub
Private Sub cmdFor_autor_Click ()
Spravka.Show
End Sub
Private Sub cmdExit_Click ()
End
End Sub
Private Sub cmdPravila_Click ()
Pravila_igry.Show
End Sub
Private Sub CmdComp_Proff_Click ()
Main
End Sub
Private Sub Form_Load ()
Main
End Sub
Private Sub P2_Click (Index As Integer)
Moixody = Moixody + 1
lblMoixody.Caption = Str (Moixody)
X = Int (Index / 10)
Y = Index — (X * 10)
Fire 2, X, Y
res = ShotResult
Label1.Caption = ShotResult
Label2.Caption = ShipL
ViewSea (2)
lblKompxody.Caption = Str (Moves)
If res = «Π Π°Π½Π΅Π½» Or res = «Π£Π±ΠΈΡ» Then GoTo 2
1: Pl2. Enabled = False
Strike (1)
Wait 0.5
Fire 1, StrX, StrY
res = ShotResult
ViewSea (1)
lblKompxody.Caption = Str (Moves)
If res = «Π Π°Π½Π΅Π½» Or res = «Π£Π±ΠΈΡ» Then GoTo 1
Pl2.Enabled = True
2: CalcShipsLeft
Label6.Caption = Str (P1Left) + ««
Label7.Caption = Str (P2Left) + ««
If P1Left = 0 Then If P1Left = P2Left Then MsgBox «ΠΠΈΡΡΡ!» + vbCrLf + «Π ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΡΠ°Π· ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎ ΠΏΠΎΠ²Π΅Π·Π΅Ρ!!!», «ΠΡΡ ΠΎΠ΄ ΠΈΠ³ΡΡ: ΠΠΈΡΡΡ»: Exit Sub
If P2Left = 0 Then MsgBox «ΠΠ³ΡΠΎΠΊ ΠΏΠΎΠ±Π΅Π΄ΠΈΠ» Π½Π° «+ Str (Moixody) + «-ΠΌ Ρ ΠΎΠ΄Ρ!!!», «ΠΡΡ ΠΎΠ΄ ΠΈΠ³ΡΡ: ΠΠΎΠ·Π΄ΡΠ°Π²Π»Π΅Π½ΠΈΡ»: Exit Sub
If P1Left = 0 Then MsgBox «ΠΠΎΠΌΠΏ ΠΏΠΎΠ±Π΅Π΄ΠΈΠ» Π½Π° «+ Str (Moves) + «-ΠΌ Ρ ΠΎΠ΄Ρ!!!», «ΠΡΡ ΠΎΠ΄ ΠΈΠ³ΡΡ: ΠΠΎΡΠ°ΠΆΠ΅Π½ΠΈΠ΅»: Exit Sub
End Sub
Sub Main ()
Morskoi_boi.Show
SetShips (1)
SetShips (2)
DrawSea (1)
HideSea (2)
For i = 0 To 99
Morskoi_boi.P1(i).BorderStyle = 1
Morskoi_boi.P2(i).BorderStyle = 1
Next i
Dim lv As String
Do
lv = InputBox («ΠΠ°Π΄Π°ΠΉΡΠ΅ ΡΠ»ΠΎΠΆΠ½ΠΎΡΡΡ ΠΈΠ³ΡΡ (1−9):», «ΠΠΎΠ±ΡΠΎ ΠΏΠΎΠΆΠ°Π»ΠΎΠ²Π°ΡΡ!!!»)
Slozhnost = Val (lv)
Loop While Slozhnost < 1 Or Slozhnost > 9
CmdComp_Proff.Caption = «Π£ΡΠΎΠ²Π΅Π½Ρ ΠΠΎΠΌΠΏΠ°: «+ Str (Slozhnost)
End Sub
Public Sub Wait (seconds) 'ΠΠ°ΠΌΠ΅Π΄Π»ΡΡΡΠ°Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° — ΠΏΠ°ΡΠ·Π° Π½Π° (n) ΡΠ΅ΠΊΡΠ½Π΄
Timer1.Enabled = True
Morskoi_boi.Timer1.Interval = 1000 * seconds
While Me. Timer1.Interval > 0
DoEvents
Wend
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer ()
Timer1.Interval = 0
End Sub
Procedurs_Modul. bas
Public S1(9, 9) As Byte, S2(9, 9) As Byte, V1(9, 9) As Byte, V2(9, 9) As Byte
Public P1Left As Integer, P2Left As Integer
Public Err As Boolean, Moves As Integer, ErrName As String, ShotResult As String
Public ShipL As Byte, Slozhnost As Byte, StrX As Byte, StrY As Byte
Sub DrawSea (Num As Byte) ' - ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅Ρ Π²ΡΡ ΠΏΠΎΠ»Π΅ Π½ΠΎΠΌΠ΅Ρ Num
'ΠΡΠ»ΠΈ ΠΏΠΎΠ»Π΅ № 1, ΡΠΎ:
If Num = 1 Then
For i = 0 To 9
For j = 0 To 9
Morskoi_boi.P1(j * 10 + i).Picture = Morskoi_boi.Sprite (S1(j, i))
Next j
Next i
Exit Sub
End If
'ΠΡΠ»ΠΈ ΠΏΠΎΠ»Π΅ № 2, ΡΠΎ:
If Num = 2 Then
For i = 0 To 9
For j = 0 To 9
Morskoi_boi.P2(j * 10 + i).Picture = Morskoi_boi.Sprite (S2(j, i))
Next j
Next i
Exit Sub
End If
End Sub
Sub ViewSea (Num As Byte) '- ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅Ρ ΠΎΡΠΊΡΡΡΡΠ΅ ΠΌΠ΅ΡΡΠ° ΠΏΠΎΠ»Ρ Π½ΠΎΠΌΠ΅Ρ Num
'ΠΡΠ»ΠΈ ΠΏΠΎΠ»Π΅ № 1, ΡΠΎ:
If Num = 1 Then
For i = 0 To 9
For j = 0 To 9
Morskoi_boi.P1(j * 10 + i).Picture = Morskoi_boi.Sprite (V1(j, i))
Next j
Next i
Exit Sub
End If
'ΠΡΠ»ΠΈ ΠΏΠΎΠ»Π΅ № 2, ΡΠΎ:
If Num = 2 Then
For i = 0 To 9
For j = 0 To 9
Morskoi_boi.P2(j * 10 + i).Picture = Morskoi_boi.Sprite (V2(j, i))
Next j
Next i
Exit Sub
End If
End Sub
Sub HideSea (Num As Byte) ' - ΡΠΊΡΡΠ²Π°Π΅Ρ ΠΏΠΎΠ»Π΅ Π½ΠΎΠΌΠ΅Ρ Num
'ΠΡΠ»ΠΈ ΠΏΠΎΠ»Π΅ № 1, ΡΠΎ:
If Num = 1 Then
For i = 0 To 9
For j = 0 To 9
Morskoi_boi.P1(j * 10 + i).Picture = Morskoi_boi.Sprite (0)
Next j
Next i
Exit Sub
End If
'ΠΡΠ»ΠΈ ΠΏΠΎΠ»Π΅ № 2, ΡΠΎ:
If Num = 2 Then
For i = 0 To 9
For j = 0 To 9
Morskoi_boi.P2(j * 10 + i).Picture = Morskoi_boi.Sprite (0)
Next j
Next i
Exit Sub
End If
End Sub
Sub SetShips (Num As Byte) ' - ΡΠ°ΡΡΡΠ°Π²Π»ΡΠ΅Ρ ΠΊΠΎΡΠ°Π±Π»ΠΈ Π½Π° ΠΏΠΎΠ»Π΅ Num ΡΠ»ΡΡΠ°ΠΉΠ½ΡΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ
Dim S0(9, 9) As Byte
Dim SX (3) As Byte, SY (3) As Byte
10 'ΠΠ°ΡΠ°Π»ΠΎ ΡΠ°ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ
For i = 0 To 9
For j = 0 To 9
S0(j, 1) = 0
Next j
Next i
'Π§Π΅ΡΠ²Π΅ΡΠ½ΡΠ΅
L = 4 'Π΄Π»ΠΈΠ½Π°
GoSub 100
'Π’ΡΠΎΠΉΠ½ΡΠ΅
For m = 1 To 2
L = 3 'Π΄Π»ΠΈΠ½Π°
GoSub 100
Next m
'ΠΠ²ΠΎΠΉΠ½ΡΠ΅
For m = 1 To 3
L = 2 'Π΄Π»ΠΈΠ½Π°
GoSub 100
Next m
'ΠΠ΄ΠΈΠ½Π°ΡΠ½ΡΠ΅
For m = 1 To 4
L = 1 'Π΄Π»ΠΈΠ½Π°
GoSub 100
Next m
GoTo 99
Exit Sub
100 'Π Π°ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠ° ΠΊΠΎΡΠ°Π±Π»Π΅ΠΉ
Err = False
tries = 100
tries = tries — 1
If tries < 0 Then Err = True: GoTo 10
Randomize
X = Int (Rnd * 10)
Y = Int (Rnd * 10)
If X = 10 Or Y = 10 Then GoTo 100
v = Int (Rnd * 2000)
v = Int (v / 1000)
For i = 1 To L
SX (i — 1) = X
SY (i — 1) = Y
If v = 0 Then X = X + 1 Else Y = Y + 1
Next i
For i = 1 To L
X = SX (i — 1)
Y = SY (i — 1)
If X > 9 Or Y > 9 Then GoTo 101
For j = -1 To 1
For k = -1 To 1
X1 = X + j
If X1 > 9 Or X1 < 0 Then GoTo 102
Y1 = Y + k
If Y1 > 9 Or Y1 < 0 Then GoTo 102
If S0(X1, Y1) <> 0 Then GoTo 101
102 Next k
Next j
Next i
For i = 1 To L
X = SX (i — 1)
Y = SY (i — 1)
S0(X, Y) = 1
Next i
Return
99 For i = 0 To 9
For j = 0 To 9
If Num = 1 Then S1(j, i) = S0(j, i) Else S2(j, i) = S0(j, i)
Next j
Next i
End Sub
Sub Fire (Num, XPos, YPos) '- ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡ «ΠΎΠ³ΠΎΠ½Ρ» ΠΏΠΎ ΡΡΠ΅ΠΉΠΊΠ΅ Ρ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ°ΠΌΠΈ X, Y Π½Π° ΠΏΠΎΠ»Π΅ Num. ΠΠ° Π²ΡΡ ΠΎΠ΄Π΅ Π²ΡΠ΄Π°ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ShotResult ΠΈ ShipL
X = XPos
Y = YPos
'Π’Π΅ΡΡ ΠΏΠΎΠ»Ρ 1
If Num = 1 Then
If S1(X, Y) = 0 Then S1(X, Y) = 2: V1(X, Y) = 2: ShotResult = «ΠΠΈΠΌΠΎ»: Exit Sub
If S1(X, Y) = 1 Then S1(X, Y) = 3: V1(X, Y) = 3: GoSub 100: Exit Sub
If S1(X, Y) = 2 Then ShotResult = «ΠΠΎΠ²ΡΠΎΡΠ½Π°Ρ ΡΡΡΠ΅Π»ΡΠ±Π° (ΠΌΠΈΠΌΠΎ) — Ρ ΠΎΠ΄ Π·Π°ΡΡΠΈΡΠ°Π½»: Exit Sub
If S1(X, Y) = 3 Then ShotResult = «ΠΠΎΠ²ΡΠΎΡΠ½Π°Ρ ΡΡΡΠ΅Π»ΡΠ±Π° (Π±ΡΠ»ΠΎ ΠΏΠΎΠΏΠ°Π΄Π°Π½ΠΈΠ΅) — Ρ ΠΎΠ΄ Π·Π°ΡΡΠΈΡΠ°Π½»: Exit Sub
End If
If S2(X, Y) = 0 Then S2(X, Y) = 2: V2(X, Y) = 2: ShotResult = «ΠΠΈΠΌΠΎ»: Exit Sub
If S2(X, Y) = 1 Then S2(X, Y) = 3: V2(X, Y) = 3: GoSub 100: Exit Sub
If S2(X, Y) = 2 Then ShotResult = «ΠΠΎΠ²ΡΠΎΡΠ½Π°Ρ ΡΡΡΠ΅Π»ΡΠ±Π° (ΠΌΠΈΠΌΠΎ) — Ρ ΠΎΠ΄ Π·Π°ΡΡΠΈΡΠ°Π½»: Exit Sub
If S2(X, Y) = 3 Then ShotResult = «ΠΠΎΠ²ΡΠΎΡΠ½Π°Ρ ΡΡΡΠ΅Π»ΡΠ±Π° (Π±ΡΠ»ΠΎ ΠΏΠΎΠΏΠ°Π΄Π°Π½ΠΈΠ΅) — Ρ ΠΎΠ΄ Π·Π°ΡΡΠΈΡΠ°Π½»: Exit Sub
Exit Sub
100 'Π’Π΅ΡΡ: ΡΠ°Π½Π΅Π½ ΠΈΠ»ΠΈ ΡΠ±ΠΈΡ
c = 0
Dim CX (16) As Byte, CY (16) As Byte
'ΠΠ½ΠΈΠ·
For i = X To X + 3
If i > 9 Then GoTo 101
If Num = 1 Then
If S1(i, Y) = 1 Then GoTo 110
If S1(i, Y) = 0 Or S1(i, Y) = 2 Then GoTo 101
If S1(i, Y) = 3 Then CX© = i: CY© = Y: c = c + 1
End If
If Num = 2 Then
If S2(i, Y) = 1 Then GoTo 110
If S2(i, Y) = 0 Or S2(i, Y) = 2 Then GoTo 101
If S2(i, Y) = 3 Then CX© = i: CY© = Y: c = c + 1
End If
Next i
101 'ΠΠ²Π΅ΡΡ
For i = X To X — 3 Step -1
If i < 0 Then GoTo 102
If Num = 1 Then
If S1(i, Y) = 1 Then GoTo 110
If S1(i, Y) = 0 Or S1(i, Y) = 2 Then GoTo 102
If S1(i, Y) = 3 Then CX© = i: CY© = Y: c = c + 1
End If
If Num = 2 Then
If S2(i, Y) = 1 Then GoTo 110
If S2(i, Y) = 0 Or S2(i, Y) = 2 Then GoTo 102
If S2(i, Y) = 3 Then CX© = i: CY© = Y: c = c + 1
End If
Next i
102 'ΠΠ»Π΅Π²ΠΎ
For i = Y To Y — 3 Step -1
If i < 0 Then GoTo 103
If Num = 1 Then
If S1(X, i) = 1 Then GoTo 110
If S1(X, i) = 0 Or S1(X, i) = 2 Then GoTo 103
If S1(X, i) = 3 Then CX© = X: CY© = i: c = c + 1
End If
If Num = 2 Then
If S2(X, i) = 1 Then GoTo 110
If S2(X, i) = 0 Or S2(X, i) = 2 Then GoTo 103
If S2(X, i) = 3 Then CX© = X: CY© = i: c = c + 1
End If
Next i
103 'ΠΠΏΡΠ°Π²ΠΎ
For i = Y To Y + 3
If i > 9 Then GoTo 104
If Num = 1 Then
If S1(X, i) = 1 Then GoTo 110
If S1(X, i) = 0 Or S1(X, i) = 2 Then GoTo 104
If S1(X, i) = 3 Then CX© = X: CY© = i: c = c + 1
End If
If Num = 2 Then
If S2(X, i) = 1 Then GoTo 110
If S2(X, i) = 0 Or S2(X, i) = 2 Then GoTo 104
If S2(X, i) = 3 Then CX© = X: CY© = i: c = c + 1
End If
Next i
104 ' Π£Π±ΠΈΡ
m = 0
Dim x0(10), y0(10)
ShotResult = «Π£Π±ΠΈΡ»
For i = 0 To c — 1
'ΠΏΠΎΠ΄ΡΡΠΈΡΡΠ²Π°Π΅ΠΌ, ΠΊΠ°ΠΊΠΎΠΉ Π±ΡΠ» ΡΠ±ΠΈΡ
X1 = CX (i)
Y1 = CY (i)
For L = 0 To m
If x0(L) = X1 Then If y0(L) = Y1 Then GoTo 106
Next L
x0(m) = X1
y0(m) = Y1
m = m + 1
106 For j = -1 To 1
For k = -1 To 1
X1 = CX (i) + k
If X1 < 0 Or X1 > 9 Then GoTo 105
Y1 = CY (i) + j
If Y1 < 0 Or Y1 > 9 Then GoTo 105
If Num = 1 Then If S1(X1, Y1) = 0 Then S1(X1, Y1) = 2: V1(X1, Y1) = 2
If Num = 2 Then If S2(X1, Y1) = 0 Then S2(X1, Y1) = 2: V2(X1, Y1) = 2
105 Next k
Next j
Next i
For i = 0 To m
If x0(i) = XPos Then If y0(i) = YPos Then GoTo 107
Next i
m = m + 1
107 ShipL = Str (m)
Return
110 'Π Π°Π½Π΅Π½
ShotResult = «Π Π°Π½Π΅Π½»
Return
End Sub
Sub OpenVSea (Num As Byte)
If Num = 1 Then
For i = 0 To 9
For j = 0 To 9
V1(j, i) = S1(j, i)
Next j
Next i
Exit Sub
End If
For i = 0 To 9
For j = 0 To 9
V2(j, i) = S2(j, i)
Next j
Next i
Exit Sub
End Sub
Sub Strike (Num As Byte) '- ΠΡΠ±ΠΈΡΠ°Π΅Ρ ΡΡΠ΅ΠΉΠΊΡ Π½Π° ΠΏΠΎΠ»Π΅ Num Π΄Π»Ρ «ΠΎΠ³Π½Ρ» ΠΏΠΎ Π½Π΅ΠΉ.
'ΠΠ° Π²ΡΡ ΠΎΠ΄Π΅ Π²ΡΠ΄Π°ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ StrX ΠΈ StrY, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ
'Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ X ΠΈ Y Π΄Π»Ρ «Π²ΡΡΡΡΠ΅Π»Π°» (Fire (Num, StrX, StrY)), Π°
'ΡΠ°ΠΊΠΆΠ΅ ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°Π΅Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ Moves Π½Π° 1 Π·Π° ΠΊΠ°ΠΆΠ΄ΡΠΉ ΡΠ°Π·.
500 If Num < 1 Or Num > 2 Then GoTo 99
'ΠΠ΅Π»Π°Π΅ΠΌ Π²ΠΈΡΡΡΠ°Π»ΡΠ½ΡΠΉ ΠΎΡΡΠΈΡΠΊ ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ ΠΎΡΠΊΡΡΡΠΎΠ³ΠΎ ΠΏΠΎΠ»Ρ, Π΄Π°Π»ΡΡΠ΅ ΡΠ°Π±ΠΎΡΠ°Π΅ΠΌ Ρ Π½ΠΈΠΌ
Dim S0(9, 9) As Byte
If Num = 1 Then
For i = 0 To 9:
For j = 0 To 9:
S0(i, j) = V1(i, j):
Next j:
Next i
End If
If Num = 2 Then
For i = 0 To 9:
For j = 0 To 9:
S0(i, j) = V2(i, j):
Next j:
Next i
End If
'ΠΡΠΎΠ²Π΅ΡΡΠ΅ΠΌ, Π΅ΡΡΡ Π»ΠΈ ΠΏΠΎΠ²ΡΠ΅ΠΆΠ΄ΡΠ½Π½ΡΠ΅
cnt = 0
For i = 0 To 9
For j = 0 To 9
If S0(j, i) < 2 Then cnt = cnt + 1
Next j
Next i
If cnt = 0 Then Err = True: ErrName = «ΠΠΈ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΡΡΡΠ΅Π»Π΅Π½Π½ΠΎΠ³ΠΎ ΠΏΠΎΠ»Ρ»: Exit Sub
For i = 0 To 9
For j = 0 To 9
If S0(j, i) = 3 Then X = j: Y = i: GoSub 120
Next j
Next i
'ΠΡΠ»ΠΈ Π½Π΅Ρ:
GoSub 110
'Π‘Π»ΠΎΠΆΠ½ΠΎΡΡΡ (Π΅ΡΠ»ΠΈ ΡΡΠΎΠ²Π΅Π½Ρ > 3) :)
If Slozhnost > 3 Then
If Slozhnost = 4 Then skv = 150: If Moves < 30 Then GoTo 100
If Slozhnost = 5 Then skv = 300: If Moves < 15 Then GoTo 100
If Slozhnost = 6 Then skv = 500: If Moves < 10 Then GoTo 100
If Slozhnost = 7 Then skv = 600: If Moves < 5 Then GoTo 100
If Slozhnost = 8 Then skv = 700
If Slozhnost = 9 Then skv = 850
Let v = Int (Rnd * 1000)
Let v = Int (v / skv)
If v <> 1 Then GoTo 100
For i = 1 To 50
GoSub 110
If Num = 1 Then If S1(X, Y) = 1 Then GoTo 100
If Num = 2 Then If S2(X, Y) = 1 Then GoTo 100
Next i
End If
'ΠΡΠΎΠ±ΡΠ΅ΠΌ ΡΡΡΠ΅Π»ΡΡΡ ΡΡΠ΄ΠΎΠΌ Ρ ΡΠΆΠ΅ ΠΏΡΠΎΡΡΡΠ΅Π»Π΅Π½Π½ΡΠΌΠΈ ΠΌΠ΅ΡΡΠ°ΠΌΠΈ (Π΅ΡΠ»ΠΈ ΡΡΠΎΠ²Π΅Π½Ρ > 0)
If Slozhnost > 0 Then
For i = 0 To (Slozhnost * 2)
GoSub 110
If X > 0 Then If Y > 0 Then If S0(X — 1, Y — 1) = 1 Then GoTo 100
If X > 0 Then If Y > 0 Then If S0(X — 1, Y — 1) = 3 Then GoTo 100
If X < 9 Then If Y < 9 Then If S0(X + 1, Y + 1) = 1 Then GoTo 100
If X < 9 Then If Y < 9 Then If S0(X + 1, Y + 1) = 3 Then GoTo 100
If X > 0 Then If Y < 9 Then If S0(X — 1, Y + 1) = 1 Then GoTo 100
If X > 0 Then If Y < 9 Then If S0(X — 1, Y + 1) = 3 Then GoTo 100
If X < 9 Then If Y > 0 Then If S0(X + 1, Y — 1) = 1 Then GoTo 100
If X < 9 Then If Y > 0 Then If S0(X + 1, Y — 1) = 3 Then GoTo 100
Next i
End If
100 'Π‘ΡΡΠ΅Π»ΡΠ΅ΠΌ ΠΏΠΎ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ΅
If S0(X, Y) > 1 Then GoTo 500
Moves = Moves + 1
StrX = X
StrY = Y
Exit Sub
110 'Π‘Π»ΡΡΠ°ΠΉΠ½ΡΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ Π²ΡΠ±ΠΈΡΠ°Π΅ΠΌ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ Π΄Π»Ρ Π²ΡΡΡΡΠ΅Π»Π°
Randomize
X = Int (Rnd * 10)
Y = Int (Rnd * 10)
'ΠΡΠΎΠ²Π΅ΡΡΠ΅ΠΌ, ΡΡΡΠ΅Π»ΡΠ»ΠΈ Π»ΠΈ ΠΌΡ ΡΠΆΠ΅ ΡΡΠ΄Π°
If S0(X, Y) = 2 Or S0(X, Y) = 4 Then GoTo 110
Return
120 'ΠΡΠΎΠ²Π΅ΡΡΠ΅ΠΌ ΡΠΌΠ΅ΠΆΠ½ΡΠ΅ Ρ ΠΏΠΎΠ²ΡΠ΅ΠΆΠ΄ΡΠ½Π½ΡΠΌ ΡΠ΅ΠΊΡΠΎΡΠΎΠΌ ΠΌΠ΅ΡΡΠ°
m = 0
Dim mx (4) As Byte, my (4) As Byte
conf = 0
'ΠΠ²Π΅ΡΡ
If X > 0 Then
X1 = X — 1
Y1 = Y
If S0(X1, Y1) = 3 Then conf = 1
If conf <> 2 Then If S0(X1, Y1) = 0 Or S0(X1, Y1) = 1 Then m = m + 1: mx (m) = X1: my (m) = Y1
End If
121 'ΠΠ½ΠΈΠ·
If X < 9 Then
X1 = X + 1
Y1 = Y
If S0(X1, Y1) = 3 Then conf = 1
If conf <> 2 Then If S0(X1, Y1) = 0 Or S0(X1, Y1) = 1 Then m = m + 1: mx (m) = X1: my (m) = Y1
End If
122 'ΠΠ»Π΅Π²ΠΎ
If Y > 0 Then
X1 = X
Y1 = Y — 1
If S0(X1, Y1) = 3 Then conf = 2
If conf <> 1 Then If S0(X1, Y1) = 0 Or S0(X1, Y1) = 1 Then m = m + 1: mx (m) = X1: my (m) = Y1
End If
123 'ΠΠΏΡΠ°Π²ΠΎ
If Y < 9 Then
X1 = X
Y1 = Y + 1
If S0(X1, Y1) = 3 Then conf = 2
If conf <> 1 Then If S0(X1, Y1) = 0 Or S0(X1, Y1) = 1 Then m = m + 1: mx (m) = X1: my (m) = Y1
End If
124 'ΠΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΠ΅ ΡΠΎΡΠΊΠΈ
If m < 1 Then GoTo 130
If conf <> 0 Then If m < 1 Then GoTo 130
v = Int (Rnd * 100)
n = 0
For k = 1 To m
n = n + 1
If n > m Then n = 1
Next k
If conf = 2 Then If mx (n) <> X Then GoTo 130
If conf = 1 Then If my (n) <> Y Then GoTo 130
X = mx (n)
Y = my (n)
GoTo 100
130 Return
99 'ΠΡΠΈΠ±ΠΊΠ°
Err = True
ErrName = «ΠΠ΅ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΡΠΉ ΠΠΠΠΠ (Π΄ΠΎΠ»ΠΆΠ½ΠΎ Π±ΡΡΡ 1 ΠΈΠ»ΠΈ 2)»
End Sub
Sub CalcShipsLeft () — ΠΠΎΠ΄ΡΡΠΈΡΡΠ²Π°Π΅Ρ, ΡΠΊΠΎΠ»ΡΠΊΠΎ «Π½Π΅ΡΠ±ΠΈΡΡΡ » ΡΠ΅Π³ΠΌΠ΅Π½ΡΠΎΠ² ΠΊΠΎΡΠ°Π±Π»Π΅ΠΉ Π΅ΡΡΡ Π½Π° ΠΏΠΎΠ»Π΅ 1 ΠΈ ΠΏΠΎΠ»Π΅ 2, ΠΈ Π²ΡΠ΄Π°ΡΡ Π½Π° Π²ΡΡ ΠΎΠ΄Π΅ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅: P1Left ΠΈ P2Left.
P1Left = 0
P2Left = 0
For i = 0 To 9
For j = 0 To 9
If S1(j, i) = 1 Then P1Left = P1Left + 1
If S2(j, i) = 1 Then P2Left = P2Left + 1
Next j
Next i
End Sub
Sub ClearSea (Num As Byte) '- ΠΠΎΠ»Π½ΠΎΡΡΡΡ ΡΡΠΈΡΠ°Π΅Ρ Π΄Π°Π½Π½ΡΠ΅ ΠΎΠ± «ΠΎΡΠΊΡΡΡΡΡ » ΠΌΠ΅ΡΡΠ°Ρ Π½Π° ΠΏΠΎΠ»Π΅ Num.
For i = 0 To 9
For j = 0 To 9
If Num = 1 Then V1(j, i) = 0
If Num = 2 Then V2(j, i) = 0
Next j
Next i
Exit Sub
End Sub
ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
Π Π΄Π°Π½Π½ΠΎΠΌ ΠΊΡΡΡΠΎΠ²ΠΎΠΌ ΠΏΡΠΎΠ΅ΠΊΡΠ΅ Π±ΡΠ»Π° ΡΠ°ΡΡΠΌΠΎΡΡΠ΅Π½Π° ΡΠ΅ΠΎΡΠΈΡ ΠΈ ΠΏΡΠ°ΠΊΡΠΈΠΊΠ° ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΡΡ ΠΈΠ³Ρ Π² ΡΠ΅Π»ΠΎΠΌ Π½Π° ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΈΠ³ΡΡ «ΠΠΎΡΡΠΊΠΎΠΉ Π±ΠΎΠΉ».
ΠΡΠΎΠ²Π΅Π΄Ρ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΡΡ ΡΠ°Π±ΠΎΡΡ ΠΏΠΎ ΠΎΡΡΡΠ΅ΡΡΠ²Π»Π΅Π½ΠΈΡ ΠΏΡΠΎΠ΅ΠΊΡΠ°, Π±ΡΠ»Π° ΠΈΡΡΠ»Π΅Π΄ΠΎΠ²Π°Π½Π° ΡΠ΅ΠΎΡΠΈΡ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΡΡ ΠΈΠ³Ρ ΠΡΠΏΠΎΠ»ΡΠ·ΡΡ ΡΡΠ΅Π΄Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Visual Basic 6.0. ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½ΠΎ Windows-ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΠΎΠΉ ΠΈΠ³ΡΡ «ΠΠΎΡΡΠΊΠΎΠΉ Π±ΠΎΠΉ», ΠΊΠΎΡΠΎΡΠΎΠ΅ ΡΠ²Π»ΡΠ΅ΡΡΡ Π·Π°ΠΊΠΎΠ½ΡΠ΅Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΎΠΉ ΠΈ ΠΌΠΎΠΆΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ Π΄Π»Ρ ΠΈΠ³ΡΡ.
Π ΡΠ°Π±ΠΎΡΠ΅ Π±ΡΠ» Π΄Π°Π½ ΡΠ΅ΠΎΡΠ΅ΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΎΠ±Π·ΠΎΡ ΠΈΡΡΠ»Π΅Π΄ΡΠ΅ΠΌΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ; ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π° Π±Π»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° Π°Π»Π³ΠΎΡΠΈΡΠΌΠ°; ΠΎΠΏΠΈΡΠ°Π½Π° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°; ΠΏΡΠΎΠ΄Π΅ΠΌΠΎΠ½ΡΡΡΠΈΡΠΎΠ²Π°Π½ Π²Π½Π΅ΡΠ½ΠΈΠΉ Π²ΠΈΠ΄ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.