ΠΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΠΎΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Β«Π‘Π΅ΡΠ΅Π½ΠΈΠ΅ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠΎΠ²Β»
Π Π½Π°ΡΡΠΎΡΡΠ΅Π΅ Π²ΡΠ΅ΠΌΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΠΎΠ±ΡΡΠ΅Π½ΠΈΡ Π² ΠΊΡΡΡΠ΅ Π³Π΅ΠΎΠΌΠ΅ΡΡΠΈΠΈ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ Π±ΠΎΠ»ΡΡΠΈΠ½ΡΡΠ²ΠΎ ΡΠΏΠΎΡΠΎΠ±ΠΎΠ² ΡΠ΅ΡΠ΅Π½ΠΈΡ Π·Π°Π΄Π°Ρ ΡΡΠ΅Π±ΡΠ΅Ρ Π½Π°Π³Π»ΡΠ΄Π½ΠΎΠ³ΠΎ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΡ, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΎΠ±ΡΡΠ°ΡΡΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ. ΠΠ»Ρ ΡΠ°Π·Π²ΠΈΡΠΈΡ Ρ ΡΠΊΠΎΠ»ΡΠ½ΠΈΠΊΠΎΠ² ΡΡΠ΅ΡΠ΅ΠΎΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ (ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΠΎΠ³ΠΎ) ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΡ, ΠΏΠ»ΠΎΡΠΊΠΈΡ ΡΠ΅ΡΡΠ΅ΠΆΠ΅ΠΉ, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡΠΈΡ ΡΠΎΠ±ΠΎΠΉ ΠΏΡΠΎΠ΅ΠΊΡΠΈΠ²Π½ΠΎΠ΅ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΡΡ ΡΠΈΠ³ΡΡ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
ΠΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΠΎΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Β«Π‘Π΅ΡΠ΅Π½ΠΈΠ΅ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠΎΠ²Β» (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΡΡΡΠΎΠ²Π°Ρ ΡΠ°Π±ΠΎΡΠ°
Π’Π΅ΠΌΠ°: «Π‘Π΅ΡΠ΅Π½ΠΈΠ΅ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠΎΠ²»
ΠΠ°ΠΆΠ½Π΅ΠΉΡΠ΅ΠΉ Π·Π°Π΄Π°ΡΠ΅ΠΉ ΠΏΠ΅Π΄Π°Π³ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΎΠΉ Π½Π°ΡΠΊΠΈ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠΎΠ²Π΅ΡΡΠ΅Π½ΡΡΠ²ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΠ»Π°Π½ΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠΎΡΠ΅ΡΡΠ° ΠΎΠ±ΡΡΠ΅Π½ΠΈΡ Π² ΡΠ΅Π»ΠΎΠΌ ΠΈ ΠΏΠΎΠ²ΡΡΠ΅Π½ΠΈΠ΅ ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΠΎΡΡΠΈ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΏΠΎΠ·Π½Π°Π²Π°ΡΠ΅Π»ΡΠ½ΠΎΠΉ Π΄Π΅ΡΡΠ΅Π»ΡΠ½ΠΎΡΡΡΡ ΡΡΠ°ΡΠΈΡ ΡΡ.
ΠΠΎΠΈΡΠΊΠΈ ΠΎΠΏΡΠΈΠΌΠ°Π»ΡΠ½ΡΡ ΠΏΡΡΠ΅ΠΉ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΎΠ±ΡΡΠ΅Π½ΠΈΠ΅ΠΌ Π²ΡΠ»ΠΈΠ»ΠΈΡΡ Π² ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ Π½ΠΎΠ²ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ ΡΡΠ΅Π±Π½ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ, Π½Π°Π·Π²Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½Π½ΡΠΌ ΠΎΠ±ΡΡΠ΅Π½ΠΈΠ΅ΠΌ, ΠΎΠ΄Π½ΠΈΠΌΠΈ ΠΈΠ· ΡΠΎΡΡΠ°Π²Π»ΡΡΡΠΈΡ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ ΡΠ²Π»ΡΡΡΡΡ Π½Π°Π³Π»ΡΠ΄Π½ΠΎΡΡΡ ΠΈ ΠΈΠ½ΡΠ΅ΡΠ°ΠΊΡΠΈΠ²Π½ΠΎΡΡΡ ΠΎΠ±ΡΡΠ°ΡΡΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ. Π Π½Π°ΡΡΠΎΡΡΠ΅ΠΉ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ ΠΌΡ ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΠΎΠ±ΡΡΠ΅Π½ΠΈΡ ΠΏΡΠΈ ΠΈΠ·ΡΡΠ΅Π½ΠΈΠΈ ΡΡΠ΅ΡΠ΅ΠΎΠΌΠ΅ΡΡΠΈΠΈ, Π° ΠΈΠΌΠ΅Π½Π½ΠΎ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΡΡ ΡΠ΅Π».
ΠΠΎ ΠΏΡΠ΅ΠΆΠ΄Π΅ Π²ΡΠ΅Π³ΠΎ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΎΡΠΌΠ΅ΡΠΈΡΡ Π°ΠΊΡΡΠ°Π»ΡΠ½ΠΎΡΡΡ ΠΏΡΠΎΠ±Π»Π΅ΠΌΡ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ (ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΠΎΠ³ΠΎ) ΠΎΠ±ΡΡΠ΅Π½ΠΈΡ.
Π Π½Π°ΡΡΠΎΡΡΠ΅Π΅ Π²ΡΠ΅ΠΌΡ Π½Π°ΡΠΊΠ° ΠΈ ΡΠ΅Ρ Π½ΠΈΠΊΠ° ΡΠ°Π·Π²ΠΈΠ²Π°ΡΡΡΡ Π½Π°ΡΡΠΎΠ»ΡΠΊΠΎ Π±ΡΡΡΡΠΎ, ΡΡΠΎ ΡΠ²ΠΎΠ΅Π²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠ΅ ΠΎΠ±ΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ ΠΏΠΎΡΠΎΠΊΠ° Π½Π°ΡΡΠ½ΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ Π±Π΅Π· ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΊΠΈΠ±Π΅ΡΠ½Π΅ΡΠΈΡΠ΅ΡΠΊΠΈΡ ΡΡΠ΅Π΄ΡΡΠ², ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ Π·Π½Π°ΡΠΈΡΠ΅Π»ΡΠ½ΡΡ ΡΡΡΠ΄Π½ΠΎΡΡΡ.
ΠΠ΅ ΠΌΠ΅Π½Π΅Π΅ ΡΠ»ΠΎΠΆΠ½ΡΠΌ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ ΡΡΠ°ΡΠΈΠΌΡΡ Π·Π½Π°Π½ΠΈΠΉ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΠΈΡ ΠΎΠ±ΡΠ΅ΠΌ ΠΈΠ· Π³ΠΎΠ΄Π° Π² Π³ΠΎΠ΄ ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°Π΅ΡΡΡ, ΡΠΎΠ³Π΄Π° ΠΊΠ°ΠΊ ΡΡΠΎΠΊΠΈ ΠΈ ΠΌΠ΅ΡΠΎΠ΄Ρ ΠΎΠ±ΡΡΠ΅Π½ΠΈΡ ΠΎΡΡΠ°ΡΡΡΡ Π½Π΅ΠΈΠ·ΠΌΠ΅Π½Π½ΡΠΌΠΈ. Π ΡΠ²ΡΠ·ΠΈ Ρ ΡΡΠΈΠΌ Π²ΡΠ΅ Π±ΠΎΠ»ΡΡΠ΅Π΅ ΡΠΈΡΠ»ΠΎ ΠΏΡΠ΅ΠΏΠΎΠ΄Π°Π²Π°ΡΠ΅Π»Π΅ΠΉ ΠΏΡΠΈΡ ΠΎΠ΄ΠΈΡ ΠΊ Π²ΡΠ²ΠΎΠ΄Ρ ΠΎ Π½Π΅Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎΡΡΠΈ ΡΡΠ°Π΄ΠΈΡΠΈΠΎΠ½Π½ΡΡ ΡΠΏΠΎΡΠΎΠ±ΠΎΠ² ΠΎΠ±ΡΡΠ΅Π½ΠΈΡ ΠΈ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΠΈ ΠΈΡ ΡΠΎΠ²Π΅ΡΡΠ΅Π½ΡΡΠ²ΠΎΠ²Π°Π½ΠΈΡ Π½Π° ΠΎΡΠ½ΠΎΠ²Π΅ Π½ΠΎΠ²Π΅ΠΉΡΠΈΡ Π΄ΠΎΡΡΠΈΠΆΠ΅Π½ΠΈΠΉ Π½Π°ΡΠΊΠΈ ΠΈ ΡΠ΅Ρ Π½ΠΈΠΊΠΈ.
Π ΡΠΊΠΎΠ»Π°Ρ ΡΠΆΠ΅ ΠΏΠΎΡΠ²ΠΈΠ»ΠΈΡΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΡ, Π½ΠΎ ΡΡΠΎΠ³ΠΎ Π½Π΅Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ. Π‘Π°ΠΌΡΠΉ Π»ΡΡΡΠΈΠΉ Π²Π°ΡΠΈΠ°Π½Ρ — ΠΎΡΠ½Π°ΡΡΠΈΡΡ ΠΏΠΎΠ΄ΠΎΠ±Π½ΡΠΌ ΠΎΠ±ΠΎΡΡΠ΄ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΠΊΠ°Π±ΠΈΠ½Π΅Ρ ΠΈ Π²ΠΊΠ»ΡΡΠΈΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠ°Π±ΠΎΡΡ Π½Π° ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ΅ Π² ΡΡΠ΅Π±Π½ΡΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠΎ Π²ΡΠ΅ΠΌ ΠΏΡΠ΅Π΄ΠΌΠ΅ΡΠ°ΠΌ. ΠΠΎ Π΄Π»Ρ ΡΡΠΎΠ³ΠΎ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠ° ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠ°Ρ Π±Π°Π·Π°. ΠΡΠΎΠ±ΠΎ Π½Π°Π΄ΠΎ ΠΎΡΠΌΠ΅ΡΠΈΡΡ ΡΠΎΠ΄Π΅ΡΠΆΠ°Π½ΠΈΠ΅ ΡΠ°ΠΌΠΈΡ ΠΎΠ±ΡΡΠ°ΡΡΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ, ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΠΊΠΎΡΠΎΡΡΡ Π΄ΠΎΠ»ΠΆΠ½ΠΎ Π±ΡΡΡ ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΡΠΌ, Π° Π΄Π»Ρ ΡΡΠΎΠ³ΠΎ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°ΡΡ Π΄ΠΈΠ΄Π°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΌΠ°ΡΠ΅ΡΠΈΠ°Π» Ρ ΡΡΠ΅ΡΠΎΠΌ ΠΏΡΠΈΡ ΠΎΠ»ΠΎΠ³ΠΎ-ΠΏΠ΅Π΄Π°Π³ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΈΡ ΠΎΡΠΎΠ±Π΅Π½Π½ΠΎΡΡΠ΅ΠΉ ΠΎΠ±ΡΡΠ΅Π½ΠΈΡ Π³Π΅ΠΎΠΌΠ΅ΡΡΠΈΠΈ.
Π Π½Π°ΡΡΠΎΡΡΠ΅Π΅ Π²ΡΠ΅ΠΌΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΠΎΠ±ΡΡΠ΅Π½ΠΈΡ Π² ΠΊΡΡΡΠ΅ Π³Π΅ΠΎΠΌΠ΅ΡΡΠΈΠΈ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ Π±ΠΎΠ»ΡΡΠΈΠ½ΡΡΠ²ΠΎ ΡΠΏΠΎΡΠΎΠ±ΠΎΠ² ΡΠ΅ΡΠ΅Π½ΠΈΡ Π·Π°Π΄Π°Ρ ΡΡΠ΅Π±ΡΠ΅Ρ Π½Π°Π³Π»ΡΠ΄Π½ΠΎΠ³ΠΎ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΡ, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΎΠ±ΡΡΠ°ΡΡΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ. ΠΠ»Ρ ΡΠ°Π·Π²ΠΈΡΠΈΡ Ρ ΡΠΊΠΎΠ»ΡΠ½ΠΈΠΊΠΎΠ² ΡΡΠ΅ΡΠ΅ΠΎΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ (ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΠΎΠ³ΠΎ) ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΡ, ΠΏΠ»ΠΎΡΠΊΠΈΡ ΡΠ΅ΡΡΠ΅ΠΆΠ΅ΠΉ, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡΠΈΡ ΡΠΎΠ±ΠΎΠΉ ΠΏΡΠΎΠ΅ΠΊΡΠΈΠ²Π½ΠΎΠ΅ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΡΡ ΡΠΈΠ³ΡΡ, Π½Π΅Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠΎΠ·Π΄Π°ΡΡ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½Ρ, ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡΠΈΠΉ ΠΈΠ½ΡΠ΅ΡΠ°ΠΊΡΠΈΠ²Π½ΠΎ ΠΈΠ·ΡΡΠ°ΡΡ ΡΡΠ΅ΡΠ΅ΠΎΠΌΠ΅ΡΡΠΈΡ. Π Π΄Π°Π½Π½ΠΎΠΌ ΠΏΡΠΎΠ΅ΠΊΡΠ΅ ΠΌΡ ΠΎΡΡΠ°Π½ΠΎΠ²ΠΈΠΌΡΡ Π½Π° ΡΠ΅ΠΌΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΡΡ ΡΠ΅Π».
ΠΠ°Π΄Π°ΡΠΈ ΠΏΡΠΎΠ΅ΠΊΡΠ°:
1. ΠΠ·ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ΅ΠΎΡΠ΅ΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΌΠ°ΡΠ΅ΡΠΈΠ°Π»Π° ΠΏΠΎ ΡΠ΅ΠΌΠ΅ ΠΏΡΠΎΠ΅ΠΊΡΠ°;
2. Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡΠ΅Π³ΠΎ ΠΈΠ·ΡΡΠ°ΡΡ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΡΡ ΡΠ΅Π»;
3. ΠΡΠ΅Π½ΠΊΠ° ΠΏΡΠΎΠ΄Π΅Π»Π°Π½Π½ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ ΠΈ Π²ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ Π΄Π°Π»ΡΠ½Π΅ΠΉΡΠΈΡ ΠΏΡΡΠ΅ΠΉ ΡΠ°Π·Π²ΠΈΡΠΈΡ Π΄Π°Π½Π½ΠΎΠΉ ΡΠ΅ΠΌΡ.
ΠΡΠ½ΠΎΠ²Π½Π°Ρ ΡΠ΅Π»Ρ ΠΏΡΠΎΠ΅ΠΊΡΠ°: ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠ°, ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡΠ΅Π³ΠΎ Π½Π°Π³Π»ΡΠ΄Π½ΠΎ ΠΈ ΠΈΠ½ΡΠ΅ΡΠ°ΠΊΡΠΈΠ²Π½ΠΎ ΠΈΠ·ΡΡΠ°ΡΡ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΡΠ΅ ΡΠ΅Π»Π° ΠΈ ΠΈΡ ΡΠ΅ΡΠ΅Π½ΠΈΡ.
ΠΡΠΎΠΌΠ΅ΠΆΡΡΠΎΡΠ½ΡΠ΅ ΡΠ΅Π»ΠΈ:
1. Π Π°Π·ΡΠ°Π±ΠΎΡΠ°ΡΡ ΡΠΏΠΎΡΠΎΠ± ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΡΡ ΡΠ΅Π» Π² ΠΏΠ°ΠΌΡΡΠΈ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ°.
2. Π Π°Π·ΡΠ°Π±ΠΎΡΠ°ΡΡ ΡΠΏΠΎΡΠΎΠ± Π²ΠΈΠ·ΡΠ°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΡΡ ΡΠ΅Π».
3. Π‘ΠΎΠ·Π΄Π°ΡΡ Π°Π»Π³ΠΎΡΠΈΡΠΌ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΡΡ ΡΠ΅Π».
4. Π Π°ΡΡΠΌΠΎΡΡΠ΅ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΡ ΠΈΠ½ΡΠ΅ΡΠ°ΠΊΡΠΈΠ²Π½ΠΎΡΡΠΈ ΡΠΎΠ·Π΄Π°Π²Π°Π΅ΠΌΠΎΠ³ΠΎ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ.
5. Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠ΄ΠΎΠ±Π½ΠΎΠ³ΠΎ, ΠΏΡΠΎΡΡΠΎΠ³ΠΎ Π² ΠΎΠ±ΡΠ°ΡΠ΅Π½ΠΈΠΈ ΠΈ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎΠ³ΠΎ ΠΏΠΎΠ»Π½ΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ°, ΡΠΎΠ·Π΄Π°Π²Π°Π΅ΠΌΠΎΠ³ΠΎ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ.
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅: ΡΡΠ΅Π΄Π° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Delphi 7, ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠ΅ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΡ ΠΠ»ΠΎΠΊΠ½ΠΎΡ ΠΈ MS Word, Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ Paint.
1. ΠΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΡΠ΅ ΡΠ΅Π»Π°. Π’ΠΎΡΠΊΠ°, ΠΏΡΡΠΌΠ°Ρ ΠΈ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΡ Π² ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅. ΠΠ΅ΠΊΡΠΎΡΡ
ΠΠΎΠ½ΡΡΠΈΠ΅ ΡΠΎΡΠΊΠ° ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡΠΈΠΌ ΠΏΠΎΠ½ΡΡΠΈΠ΅ΠΌ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π°, Π»ΡΠ±Π°Ρ ΡΠΈΠ³ΡΡΠ° ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π° ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° ΡΠΎΡΠ΅ΠΊ. Π₯ΡΠ°Π½Π΅Π½ΠΈΠ΅ Π² ΠΏΠ°ΠΌΡΡΠΈ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°Ρ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π° Π±ΡΠ΄Π΅ΠΌ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Ρ ΡΠ°Π½Π΅Π½ΠΈΡ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ ΡΠΎΡΠ΅ΠΊ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡΠΈΡ Π΄Π°Π½Π½ΡΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π°. Π’Π°ΠΊ Π΄Π»Ρ Ρ ΡΠ°Π½Π΅Π½ΠΈΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΎ ΠΏΡΡΠΌΠΎΠΉ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ Π²ΡΠ΅Π³ΠΎ Π΄Π²ΡΡ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ ΡΠΎΡΠ΅ΠΊ ΠΏΡΠΈΠ½Π°Π΄Π»Π΅ΠΆΠ°ΡΠΈΡ ΡΡΠΎΠΉ ΠΏΡΡΠΌΠΎΠΉ. ΠΠΎ Π΄Π²ΡΠΌ ΡΠΎΡΠΊΠ°ΠΌ Π·Π°Π΄Π°ΡΡΠΈΠΌ ΠΏΡΡΠΌΡΡ ΠΌΠΎΠΆΠ½ΠΎ ΡΠΎΡΡΠ°Π²ΠΈΡΡ ΠΊΠ°Π½ΠΎΠ½ΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ ΠΏΡΡΠΌΠΎΠΉ ΠΈ Π΄Π°Π»Π΅Π΅ ΠΎΠΏΠ΅ΡΠΈΡΠΎΠ²Π°ΡΡ ΡΡΠΈΠΌ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ΠΌ:
(1?)
Π³Π΄Π΅ ΡΠΎΡΠΊΠΈ ΠΈ ΠΏΡΠΈΠ½Π°Π΄Π»Π΅ΠΆΠ°Ρ Π΄Π°Π½Π½ΠΎΠΉ ΠΏΡΡΠΌΠΎΠΉ. ΠΠ»ΠΈ Π΅ΡΠ»ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π²Π΅ΠΊΡΠΎΡ Ρ. Π΅., ΠΏΠΎΠ»ΡΡΠΈΠΌ ΡΠ»Π΅Π΄ΡΡΡΠ΅Π΅ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ ΠΏΡΡΠΌΠΎΠΉ:
. (1??)
ΠΠ½Π°Π»ΠΎΠ³ΠΈΡΠ½ΠΎ ΠΏΡΡΠΌΠΎΠΉ, ΠΏΠ»ΠΎΡΠΊΠΎΡΡΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅ΡΡΡ ΡΡΠ΅ΠΌΡ ΡΠΎΡΠΊΠ°ΠΌΠΈ:
(2?)
Π³Π΄Π΅ ΡΠΎΡΠΊΠΈ, , ΠΏΡΠΈΠ½Π°Π΄Π»Π΅ΠΆΠ°Ρ Π΄Π°Π½Π½ΠΎΠΉ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ ΠΈΠ· ΡΡΠΎΠΉ ΠΌΠ°ΡΡΠΈΡΡ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ:
(2??)
Π³Π΄Π΅ ΠΊΠΎΡΡΡΠΈΡΠΈΠ΅Π½ΡΡ, ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΡΠΏΠΎΡΠΎΠ±ΠΎΠΌ:
;
;
;
.
ΠΡΠΈΡΠ΅ΠΌ ΠΈΠ· ΡΡΠΈΡ ΡΠΎΡΠΌΡΠ» ΠΏΠΎΠ»Π΅Π·Π½ΠΎ Π·Π½Π°ΡΡ, ΡΡΠΎ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ°ΠΌΠΈ Π²Π΅ΠΊΡΠΎΡΠ° Π½ΠΎΡΠΌΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΊ Π΄Π°Π½Π½ΠΎΠΉ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ ΡΠ²Π»ΡΡΡΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΠΎ ΠΊΠΎΡΡΡΠΈΡΠΈΠ΅Π½ΡΡ ,. ΠΡΠΎΡ Π²Π΅ΠΊΡΠΎΡ Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ Π² ΠΏΠΎΠ»ΡΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²ΠΎ ΠΏΡΠ°Π²ΠΎΠ³ΠΎ ΠΎΠ±Ρ ΠΎΠ΄Π° ΡΠΎΡΠ΅ΠΊ.
Π Π΅ΡΠ°Ρ ΡΠΎΠ²ΠΌΠ΅ΡΡΠ½ΠΎ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ (1??) ΠΈ (2??) Π½Π°ΠΉΠ΄Π΅ΠΌ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΡΠΎΡΠΊΠΈ ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΡΡΠΌΠΎΠΉ ΠΈ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ, ΠΏΡΠΈ ΡΡΠ»ΠΎΠ²ΠΈΠΈ, ΡΡΠΎ ΠΏΡΡΠΌΠ°Ρ ΠΏΠ΅ΡΠ΅ΡΠ΅ΠΊΠ°Π΅Ρ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΡ. ΠΡΡΡΡ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΡ Π·Π°Π΄Π°Π½Π° ΡΡΠ΅ΠΌΡ ΡΠΎΡΠΊΠ°ΠΌΠΈ:, ,, Π° ΠΏΡΡΠΌΠ°Ρ Π·Π°Π΄Π°Π½Π° Π΄Π²ΡΠΌΡ ΡΠΎΡΠΊΠ°ΠΌΠΈ: ΠΈ, ΡΠΎΠ³Π΄Π° ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΡΠΎΡΠΊΠΈ ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΡ Π½Π°Ρ ΠΎΠ΄ΡΡΡΡ ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π°ΠΌ:
Π³Π΄Π΅, ΠΏΡΠΈΡΠ΅ΠΌ Π΅ΡΠ»ΠΈ, ΡΠΎ; (1x)
Π³Π΄Π΅, ΠΏΡΠΈΡΠ΅ΠΌ Π΅ΡΠ»ΠΈ, ΡΠΎ; (1y)
Π³Π΄Π΅, ΠΏΡΠΈΡΠ΅ΠΌ Π΅ΡΠ»ΠΈ, ΡΠΎ. (1z)
Π ΡΡΠΈΡ ΡΠΎΡΠΌΡΠ»Π°Ρ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ Π²Π΅ΠΊΡΠΎΡΠ° Π΄Π»Ρ ΠΏΡΡΠΌΠΎΠΉ Π²ΡΡΠΈΡΠ»ΡΠ΅ΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ: .
ΠΡΠ΅ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π°
ΠΠ»Ρ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΈΠ½ΡΠ΅ΡΠ°ΠΊΡΠΈΠ²Π½ΠΎΡΡΠΈ ΠΈΠ·ΡΡΠ΅Π½ΠΈΡ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΡΡ ΡΠ΅Π» Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΡ, ΠΏΠΎΠ²ΠΎΡΠΎΡΠ° ΠΈ ΠΌΠ°ΡΡΡΠ°Π±ΠΈΡΠΎΠ²Π°Π½ΠΈΡ, Π° Π΄Π»Ρ ΡΡΠΎΠ³ΠΎ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΈΠ·ΠΌΠ΅Π½ΡΡΡ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΡΠΎΡΠ΅ΠΊ ΡΠΈΠ³ΡΡ ΠΏΠΎ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅ΠΌΡ Π·Π°ΠΊΠΎΠ½Ρ. Π Π°ΡΡΠΌΠΎΡΡΠΈΠΌ ΡΡΠΈ ΠΏΡΠ΅ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΡ ΠΊΠΎΡΠΎΡΡΠ΅ ΠΏΠ΅ΡΠ΅Π²ΠΎΠ΄ΡΡ ΠΊΠ°ΠΆΠ΄ΡΡ ΡΠΎΡΠΊΡ Π² ΡΠΎΡΠΊΡ :
1. ΠΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅ (ΠΏΠ°ΡΠ°Π»Π»Π΅Π»ΡΠ½ΡΠΉ ΠΏΠ΅ΡΠ΅Π½ΠΎΡ Π½Π° Π²Π΅ΠΊΡΠΎΡ).
(1p)
2. ΠΠΎΠ²ΠΎΡΠΎΡ Π²ΠΎΠΊΡΡΠ³ ΠΏΡΡΠΌΠΎΠΉ Π½Π° ΡΠ³ΠΎΠ». ΠΠΎΠ²ΠΎΡΠΎΡ Π±ΡΠ΄Π΅ΠΌ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΡΡ Π²ΠΎΠΊΡΡΠ³ ΠΎΠ΄Π½ΠΎΠΉ ΠΈΠ· ΠΎΡΠ΅ΠΉ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ.
Π°) Π²ΠΎΠΊΡΡΠ³ ΠΎΡΠΈ OX:
(2px)
Π±) Π²ΠΎΠΊΡΡΠ³ ΠΎΡΠΈ OY:
(2py)
Π²) Π²ΠΎΠΊΡΡΠ³ ΠΎΡΠΈ OZ:
(2pz)
3. ΠΠ°ΡΡΡΠ°Π±ΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Ρ ΠΊΠΎΡΡΡΠΈΡΠΈΠ΅Π½ΡΠΎΠΌ .
4.
(3p)
ΠΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΡΠ΅ ΡΠ΅Π»Π°
ΠΠ°ΠΊ ΡΠΆΠ΅ Π³ΠΎΠ²ΠΎΡΠΈΠ»ΠΎΡΡ, Π² ΠΏΠ°ΠΌΡΡΠΈ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ° ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΡΠ΅ ΡΠ΅Π»Π° Π±ΡΠ΄Π΅ΠΌ Ρ ΡΠ°Π½ΠΈΡΡ Π² Π²ΠΈΠ΄Π΅ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ ΡΠΎΡΠ΅ΠΊ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡΠΈΡ ΡΡΠΈ ΡΠ΅Π»Π°. Π Π°ΡΡΠΌΠΎΡΡΠΈΠΌ Π΄Π°Π»Π΅Π΅, ΠΊΠ°ΠΊ Ρ ΡΠ°Π½ΠΈΡΡ ΡΠ΅ ΠΈΠ»ΠΈ ΠΈΠ½ΡΠ΅ Π²ΠΈΠ΄Ρ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΡΡ ΡΠ΅Π» ΠΈ ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ ΠΎΡΠ½ΠΎΠ²Π½ΡΠ΅ ΡΠΏΠΎΡΠΎΠ±Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΡΠΈΠ³ΡΡ. ΠΡΠΈ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠΈ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠΎΠ² Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π·Π°Π΄Π°Π½ΠΈΠ΅ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ Π²ΡΠ΅Ρ Π²Π΅ΡΡΠΈΠ½ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠΎΠ², Π° ΡΠ°ΠΊΠΆΠ΅ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΠΎΡΡΠ΄ΠΊΠ° ΠΎΠ±Ρ ΠΎΠ΄Π° ΠΊΠ°ΠΆΠ΄ΠΎΠΉ Π³ΡΠ°Π½ΠΈ. Π£Π΄ΠΎΠ±Π½ΠΎ ΠΎΠΏΠΈΡΡΠ²Π°ΡΡ ΠΎΠ±Ρ ΠΎΠ΄ Π³ΡΠ°Π½Π΅ΠΉ ΠΏΠΎΡΠ°ΡΠΎΠ²ΠΎΠΉ ΡΡΡΠ΅Π»ΠΊΠ΅ Π½Π°Π±Π»ΡΠ΄Π°Ρ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊ ΠΈΠ· Π²Π½Π΅, ΡΠΎΠ³Π΄Π° Π½ΠΎΡΠΌΠ°Π»ΡΠ½ΡΠΉ Π²Π΅ΠΊΡΠΎΡ ΠΊ Π³ΡΠ°Π½ΠΈ, Π·Π°Π΄Π°Π½Π½ΡΠΉ ΡΡΠΎΠΉΠΊΠΎΠΉ ΡΠ»Π΅Π΄ΡΡΡΠΈΡ ΠΏΠΎΠ΄ΡΡΠ΄ Π²Π΅ΡΡΠΈΠ½, Π±ΡΠ΄Π΅Ρ Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ ΠΈΠ· ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ°. ΠΡΠΎ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ ΡΠ΄ΠΎΠ±Π½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΏΡΠΈ Π²ΠΈΠ·ΡΠ°Π»ΠΈΠ·Π°ΡΠΈΠΈ Π²ΡΠΏΡΠΊΠ»ΡΡ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠΎΠ², ΠΎΠ± ΡΡΠΎΠΌ Π±ΡΠ΄Π΅Ρ ΡΠ°ΡΡΠΊΠ°Π·Π°Π½ΠΎ ΠΏΠΎΠ·Π΄Π½Π΅Π΅. Π‘ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ°ΠΌΠΈ Π²ΡΠ΅ ΠΏΠΎΠ½ΡΡΠ½ΠΎ, Π° ΠΊΠ°ΠΊ ΠΎΠΏΠΈΡΡΠ²Π°ΡΡ ΠΏΠΎΠ²Π΅ΡΡ Π½ΠΎΡΡΠΈ Π²ΡΠΎΡΠΎΠ³ΠΎ ΠΏΠΎΡΡΠ΄ΠΊΠ° (ΠΏΠΎΠ²Π΅ΡΡ Π½ΠΎΡΡΠΈ Π²ΡΠ°ΡΠ΅Π½ΠΈΡ, ΠΊΠΎΠ½ΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΏΠΎΠ²Π΅ΡΡ Π½ΠΎΡΡΠΈ, ΡΠΈΠ»ΠΈΠ½Π΄ΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΏΠΎΠ²Π΅ΡΡ Π½ΠΎΡΡΠΈ, ΡΠ»Π»ΠΈΠΏΡΠΎΠΈΠ΄, Π³ΠΈΠΏΠ΅ΡΠ±ΠΎΠ»ΠΎΠΈΠ΄, ΠΏΠ°ΡΠ°Π±ΠΎΠ»ΠΎΠΈΠ΄). ΠΡ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠ΅Π΄ΡΡΠ°Π²ΠΈΡΡ Π² Π²ΠΈΠ΄Π΅ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ° Ρ Π±ΠΎΠ»ΡΡΠΈΠΌ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎΠΌ Π³ΡΠ°Π½Π΅ΠΉ, ΠΈ ΡΠ΅ΠΌ Π±ΠΎΠ»ΡΡΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π³ΡΠ°Π½Π΅ΠΉ, ΡΠ΅ΠΌ ΡΠΎΡΠ½Π΅Π΅ ΠΏΡΠΈΠ±Π»ΠΈΠΆΠ΅Π½ΠΈΠ΅. ΠΡΠΎΡ ΠΌΠ΅ΡΠΎΠ΄ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ½ΠΈΠ²Π΅ΡΡΠ°Π»ΡΠ½ΡΠΌ, ΠΎΠ½ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΎΠΏΠΈΡΡΠ²Π°ΡΡ ΠΊΠΎΠΌΠ±ΠΈΠ½ΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΡΠ΅ ΡΠ΅Π»Π°, Π½ΠΎ Π½Π΅ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΈΠ·ΡΡΠ°ΡΡ Π°Π»Π³Π΅Π±ΡΠ°ΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΊΡΠΈΠ²ΡΠ΅, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΏΠΎΠ»ΡΡΠ°ΡΡΡΡ ΠΏΡΠΈ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΠΈ ΡΠ΅ΡΠ΅Π½ΠΈΠΉ. ΠΡΠΈΠ²Π΅Π΄Π΅ΠΌ ΠΎΠ±ΡΡΡ ΡΡΡΡΠΊΡΡΡΡ ΡΠ°ΠΉΠ»Π°, ΠΎΠΏΠΈΡΡΠ²Π°ΡΡΠ΅Π³ΠΎ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊ. Π€Π°ΠΉΠ» ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΠΎΠ±ΡΡΠ½ΡΠΉ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ Π΄ΠΎΠΊΡΠΌΠ΅Π½Ρ.
ΠΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π²Π΅ΡΡΠΈΠ½ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ°.
ΠΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ 1ΠΉ Π²Π΅ΡΡΠΈΠ½Ρ ΡΠ΅ΡΠ΅Π· ΠΏΡΠΎΠ±Π΅Π».
ΠΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ 2ΠΉ Π²Π΅ΡΡΠΈΠ½Ρ ΡΠ΅ΡΠ΅Π· ΠΏΡΠΎΠ±Π΅Π».
…
ΠΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π³ΡΠ°Π½Π΅ΠΉ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ°.
ΠΠΎΡΡΠ΄ΠΎΠΊ ΠΎΠ±Ρ ΠΎΠ΄Π° 1ΠΉ Π³ΡΠ°Π½ΠΈ ΡΠ΅ΡΠ΅Π· ΠΏΡΠΎΠ±Π΅Π».
ΠΠΎΡΡΠ΄ΠΎΠΊ ΠΎΠ±Ρ ΠΎΠ΄Π° 2ΠΉ Π³ΡΠ°Π½ΠΈ ΡΠ΅ΡΠ΅Π· ΠΏΡΠΎΠ±Π΅Π».
…
ΠΡΠΈΠΌΠ΅Ρ ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ ΠΊΡΠ±Π° Ρ ΡΠ΅Π±ΡΠΎΠΌ ΡΠ°Π²Π½ΡΠΌ 2.
0 0 2 2 0 2 2 2 2 0 2 2 0 0 0 2 0 0 2 2 0 0 2 0 1 5 8 4 2 3 7 6 5 6 7 8 4 3 2 1 3 4 8 7 2 6 5 1 | ||
ΠΠΎΠ²Π΅ΡΡ Π½ΠΎΡΡΠΈ Π²ΡΠΎΡΠΎΠ³ΠΎ ΠΏΠΎΡΡΠ΄ΠΊΠ°
β | ΠΠ°Π·Π²Π°Π½ΠΈΠ΅. | Π‘ΠΏΠΎΡΠΎΠ± ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ. | |
1. | ΠΠΎΠ½ΡΡ | ΠΠ°ΠΊ ΠΏΠΈΡΠ°ΠΌΠΈΠ΄Π° Ρ Π±ΠΎΠ»ΡΡΠΈΠΌ ΡΠΈΡΠ»ΠΎΠΌ Π²Π΅ΡΡΠΈΠ½, Π² ΠΎΡΠ½ΠΎΠ²Π°Π½ΠΈΠΈ ΠΊΠΎΡΠΎΡΠΎΠΉ Π»Π΅ΠΆΠΈΡ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΡΠΉ ΠΌΠ½ΠΎΠ³ΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊ. | |
2. | Π¦ΠΈΠ»ΠΈΠ½Π΄Ρ | ΠΠ°ΠΊ ΠΏΡΠΈΠ·ΠΌΠ° Ρ Π±ΠΎΠ»ΡΡΠΈΠΌ ΡΠΈΡΠ»ΠΎΠΌ Π²Π΅ΡΡΠΈΠ½, ΠΎΡΠ½ΠΎΠ²Π°Π½ΠΈΡΠΌΠΈ ΠΊΠΎΡΠΎΡΠΎΠΉ ΡΠ²Π»ΡΡΡΡΡ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΡΠ΅ ΠΌΠ½ΠΎΠ³ΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠΈ. | |
3. | Π‘ΡΠ΅ΡΠ° | ΠΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊ, ΠΎΠΏΠΈΡΠ°Π½Π½ΡΠΉ ΠΏΠΎ ΠΏΡΠΈΠ½ΡΠΈΠΏΡ ΠΏΠ°ΡΠ°Π»Π»Π΅Π»Π΅ΠΉ ΠΈ ΠΌΠ΅ΡΠΈΠ΄ΠΈΠ°Π½ΠΎΠ². | |
4. | Π’ΠΎΡ | Π‘ΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΡ ΠΊΠΎΡΠΎΡΠ³ΠΎΠ»ΡΠ½ΡΡ ΡΠΈΠ»ΠΈΠ½Π΄ΡΠΎΠ². | |
ΠΡΠΈΠΌΠ΅Ρ 1: ΠΠ΅ΡΠΎΠ΄ΠΎΠ² ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΡ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ ΡΠΎΡΠ΅ΠΊ ΡΡΠ΅ΡΡ.
for iy:=0 to ny1 do for ix:=0 to nx do begin x:=r*sin (iy*pi/ny)*cos (2*ix*pi/nx); y:=r*sin (iy*pi/ny)*sin (2*ix*pi/nx); z:=r*cos (iy*pi/ny); x:=r*sin ((iy+1)*pi/ny)*cos (2*ix*pi/nx); y:=r*sin ((iy+1)*pi/ny)*sin (2*ix*pi/nx); z:=r*cos ((iy+1)*pi/ny); end; | ||
2. ΠΠ·ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΠΉ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΡΡ ΡΠ΅Π». ΠΠ΅ΡΠΎΠ΄Ρ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ ΡΠ΅ΡΠ΅Π½ΠΈΠΉ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠΎΠ²
ΠΠ΅ΠΎΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ Π·Π°Π΄Π°ΡΠΈ ΡΡΠ°Π΄ΠΈΡΠΈΠΎΠ½Π½ΠΎ Π΄Π΅Π»ΡΡΡΡ Π½Π° ΡΡΠΈ ΡΠΈΠΏΠ°:
1) Π½Π° Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅;
2) Π½Π° Π΄ΠΎΠΊΠ°Π·Π°ΡΠ΅Π»ΡΡΡΠ²ΠΎ;
3) Π½Π° ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΠ΅.
Π Π΅ΡΠ΅Π½ΠΈΠ΅ Π»ΡΠ±ΡΡ ΡΡΠ΅ΡΠ΅ΠΎΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΈΡ Π·Π°Π΄Π°Ρ ΡΡΠ΅Π±ΡΠ΅Ρ Π½Π΅ ΡΠΎΠ»ΡΠΊΠΎ Π²ΡΡΠΈΡΠ»ΠΈΡΠ΅Π»ΡΠ½ΡΡ ΠΈ Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΈΡ ΡΠΌΠ΅Π½ΠΈΠΉ ΠΈ Π½Π°Π²ΡΠΊΠΎΠ², Π½ΠΎ ΠΈ ΡΠΌΠ΅Π½ΠΈΠΉ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ°ΡΡ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΡΠ΅ ΡΠΈΠ³ΡΡΡ Π½Π° ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ (Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Π½Π° Π»ΠΈΡΡΠ΅ Π±ΡΠΌΠ°Π³ΠΈ, ΠΊΠ»Π°ΡΡΠ½ΠΎΠΉ Π΄ΠΎΡΠΊΠ΅), ΡΡΠΎ ΠΏΠΎ ΡΡΡΠΈ ΡΠ²ΠΎΠ΅ΠΉ ΡΠ΅ΡΠ½ΠΎ ΡΠ²ΡΠ·Π°Π½ΠΎ Ρ ΡΠ΅ΠΌΠΎΠΉ «ΠΠ΅ΠΎΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ Π½Π° ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ». Π‘ΡΠ΅ΡΠ΅ΠΎΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ Π·Π°Π΄Π°ΡΠΈ Π½Π° Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΈ Π΄ΠΎΠΊΠ°Π·Π°ΡΠ΅Π»ΡΡΡΠ²ΠΎ Π»Π΅Π³ΠΊΠΎ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ΅ΡΠ°ΡΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΡΠΉ ΡΠΈΡΡΠ½ΠΎΠΊ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΠΎΠΉ ΡΠΈΠ³ΡΡΡ. ΠΡΠΈ ΠΈΠ·ΡΡΠ΅Π½ΠΈΠΈ ΡΠ΅ΠΌ «ΠΠ°ΡΠ°Π»Π»Π΅Π»ΡΠ½ΠΎΡΡΡ ΠΏΡΡΠΌΡΡ ΠΈ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠ΅ΠΉ Π² ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅», «ΠΠ΅ΡΠΏΠ΅Π½Π΄ΠΈΠΊΡΠ»ΡΡΠ½ΠΎΡΡΡ ΠΏΡΡΠΌΡΡ ΠΈ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠ΅ΠΉ», «Π£Π³Π»Ρ ΠΌΠ΅ΠΆΠ΄Ρ ΠΏΡΡΠΌΠΎΠΉ ΠΈ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΡΡ, ΠΌΠ΅ΠΆΠ΄Ρ Π΄Π²ΡΠΌΡ ΠΏΡΡΠΌΡΠΌΠΈ, ΠΌΠ΅ΠΆΠ΄Ρ Π΄Π²ΡΠΌΡ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΡΠΌΠΈ» ΠΈ Π΄ΡΡΠ³ΠΈΡ ΡΠ΅ΠΌ ΠΏΡΠ΅ΠΊΡΠ°ΡΠ½ΡΠΌ ΠΈΠ»Π»ΡΡΡΡΠ°ΡΠΈΠΎΠ½Π½ΡΠΌ ΠΌΠ°ΡΠ΅ΡΠΈΠ°Π»ΠΎΠΌ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΏΠΎΠ·ΠΈΡΠΈΠΎΠ½Π½ΡΡ ΠΈ ΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΈΡ Π·Π°Π΄Π°Ρ Π½Π° ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΠ΅ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΡΡ ΡΠΈΠ³ΡΡ ΠΈ ΡΠ΅ΡΠ΅Π½ΠΈΠΉ ΡΡΠΈΡ ΡΠΈΠ³ΡΡ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΡΠΌΠΈ. ΠΡΠ½ΠΎΠ²Π½ΡΠΌΠΈ ΠΌΠ΅ΡΠΎΠ΄Π°ΠΌΠΈ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ ΡΠ΅ΡΠ΅Π½ΠΈΠΉ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠΎΠ² ΡΠ²Π»ΡΡΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΌΠ΅ΡΠΎΠ΄Ρ:
1. ΠΠ΅ΡΠΎΠ΄ ΡΠ»Π΅Π΄ΠΎΠ². Π‘ΡΡΡ ΠΌΠ΅ΡΠΎΠ΄Π° Π·Π°ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π² ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΠΈ Π²ΡΠΏΠΎΠΌΠΎΠ³Π°ΡΠ΅Π»ΡΠ½ΠΎΠΉ ΠΏΡΡΠΌΠΎΠΉ, ΡΠ²Π»ΡΡΡΠ΅ΠΉΡΡ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ΠΌ Π»ΠΈΠ½ΠΈΠΈ ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ Ρ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΡΡ ΠΊΠ°ΠΊΠΎΠΉ-Π»ΠΈΠ±ΠΎ Π³ΡΠ°Π½ΠΈ ΡΠΈΠ³ΡΡΡ. Π£Π΄ΠΎΠ±Π½Π΅Π΅ Π²ΡΠ΅Π³ΠΎ ΡΡΡΠΎΠΈΡΡ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ Π»ΠΈΠ½ΠΈΠΈ ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ Ρ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΡΡ Π½ΠΈΠΆΠ½Π΅Π³ΠΎ ΠΎΡΠ½ΠΎΠ²Π°Π½ΠΈΡ. ΠΡΡ Π»ΠΈΠ½ΠΈΡ Π½Π°Π·ΡΠ²Π°ΡΡ ΡΠ»Π΅Π΄ΠΎΠΌ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ. ΠΡΠΏΠΎΠ»ΡΠ·ΡΡ ΡΠ»Π΅Π΄, Π»Π΅Π³ΠΊΠΎ ΠΏΠΎΡΡΡΠΎΠΈΡΡ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΡΠΎΡΠ΅ΠΊ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ, Π½Π°Ρ ΠΎΠ΄ΡΡΠΈΡ ΡΡ Π½Π° Π±ΠΎΠΊΠΎΠ²ΡΡ ΡΠ΅Π±ΡΠ°Ρ ΠΈΠ»ΠΈ Π³ΡΠ°Π½ΡΡ ΡΠΈΠ³ΡΡΡ. ΠΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎ ΡΠΎΠ΅Π΄ΠΈΠ½ΡΡ ΠΎΠ±ΡΠ°Π·Ρ ΡΡΠΈΡ ΡΠΎΡΠ΅ΠΊ, ΠΏΠΎΠ»ΡΡΠΈΠΌ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ ΠΈΡΠΊΠΎΠΌΠΎΠ³ΠΎ ΡΠ΅ΡΠ΅Π½ΠΈΡ.
2. ΠΠ΅ΡΠΎΠ΄ Π²ΡΠΏΠΎΠΌΠΎΠ³Π°ΡΠ΅Π»ΡΠ½ΡΡ ΡΠ΅ΡΠ΅Π½ΠΈΠΉ. ΠΡΠΎΡ ΠΌΠ΅ΡΠΎΠ΄ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ ΡΠ΅ΡΠ΅Π½ΠΈΠΉ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠΎΠ² ΡΠ²Π»ΡΠ΅ΡΡΡ Π² Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎΠΉ ΠΌΠ΅ΡΠ΅ ΡΠ½ΠΈΠ²Π΅ΡΡΠ°Π»ΡΠ½ΡΠΌ. Π ΡΠ΅Ρ ΡΠ»ΡΡΠ°ΡΡ , ΠΊΠΎΠ³Π΄Π° Π½ΡΠΆΠ½ΡΠΉ ΡΠ»Π΅Π΄ (ΠΈΠ»ΠΈ ΡΠ»Π΅Π΄Ρ) ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ ΠΎΠΊΠ°Π·ΡΠ²Π°Π΅ΡΡΡ Π·Π° ΠΏΡΠ΅Π΄Π΅Π»Π°ΠΌΠΈ ΡΠ΅ΡΡΠ΅ΠΆΠ°, ΡΡΠΎΡ ΠΌΠ΅ΡΠΎΠ΄ ΠΈΠΌΠ΅Π΅Ρ Π΄Π°ΠΆΠ΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠ΅ ΠΏΡΠ΅ΠΈΠΌΡΡΠ΅ΡΡΠ²Π°. ΠΠΌΠ΅ΡΡΠ΅ Ρ ΡΠ΅ΠΌ ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΈΠΌΠ΅ΡΡ Π² Π²ΠΈΠ΄Ρ, ΡΡΠΎ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ, Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΠΌΡΠ΅ ΠΏΡΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠΈ ΡΡΠΎΠ³ΠΎ ΠΌΠ΅ΡΠΎΠ΄Π°, Π·Π°ΡΠ°ΡΡΡΡ ΠΏΠΎΠ»ΡΡΠ°ΡΡΡΡ «ΡΠΊΡΡΠ΅Π½Π½ΡΠΌΠΈ». Π’Π΅ΠΌ Π½Π΅ ΠΌΠ΅Π½Π΅Π΅, Π² Π½Π΅ΠΊΠΎΡΠΎΡΡΡ ΡΠ»ΡΡΠ°ΡΡ ΠΌΠ΅ΡΠΎΠ΄ Π²ΡΠΏΠΎΠΌΠΎΠ³Π°ΡΠ΅Π»ΡΠ½ΡΡ ΡΠ΅ΡΠ΅Π½ΠΈΠΉ ΠΎΠΊΠ°Π·ΡΠ²Π°Π΅ΡΡΡ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΡΠ°ΡΠΈΠΎΠ½Π°Π»ΡΠ½ΡΠΌ.
3. ΠΠΎΠΌΠ±ΠΈΠ½ΠΈΡΠΎΠ²Π°Π½Π½ΡΠΉ ΠΌΠ΅ΡΠΎΠ΄ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ ΡΠ΅ΡΠ΅Π½ΠΈΠΉ. Π‘ΡΡΡ ΠΊΠΎΠΌΠ±ΠΈΠ½ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΠΌΠ΅ΡΠΎΠ΄Π° ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ ΡΠ΅ΡΠ΅Π½ΠΈΠΉ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠΎΠ² ΡΠΎΡΡΠΎΠΈΡ Π² ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠΈ ΡΠ΅ΠΎΡΠ΅ΠΌ ΠΎ ΠΏΠ°ΡΠ°Π»Π»Π΅Π»ΡΠ½ΠΎΡΡΠΈ ΠΏΡΡΠΌΡΡ ΠΈ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠ΅ΠΉ Π² ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅ Π² ΡΠΎΡΠ΅ΡΠ°Π½ΠΈΠΈ Ρ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ ΡΠ»Π΅Π΄ΠΎΠ² ΠΈ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ Π²ΡΠΏΠΎΠΌΠΎΠ³Π°ΡΠ΅Π»ΡΠ½ΡΡ ΡΠ΅ΡΠ΅Π½ΠΈΠΉ.
4. ΠΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ½ΡΠΉ ΠΌΠ΅ΡΠΎΠ΄ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ ΡΠ΅ΡΠ΅Π½ΠΈΠΉ. Π‘ΡΡΡ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ½ΠΎΠ³ΠΎ ΠΌΠ΅ΡΠΎΠ΄Π° Π·Π°ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π² Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠΈ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ ΡΠΎΡΠ΅ΠΊ ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΡ ΡΠ΅Π±Π΅Ρ ΠΈΠ»ΠΈ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ° Ρ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΡΡ, ΠΊΠΎΡΠΎΡΠ°Ρ Π·Π°Π΄Π°Π΅ΡΡΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ΠΌ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ. Π£ΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π²ΡΡΠΈΡΠ»ΡΠ΅ΡΡΡ Π½Π° ΠΎΡΠ½ΠΎΠ²Π΅ ΡΡΠ»ΠΎΠ²ΠΈΠΉ Π·Π°Π΄Π°ΡΠΈ.
ΠΠ· Π²ΡΠ΅Ρ ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»Π΅Π½Π½ΡΡ ΡΠΏΠΎΡΠΎΠ±ΠΎΠ² ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΠΏΡΠΈΠ΅ΠΌΠ»Π΅ΠΌΡΠΌ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ½ΡΠΉ ΠΌΠ΅ΡΠΎΠ΄, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΠΎΠ½ ΡΠ²ΡΠ·Π°Π½ Ρ Π±ΠΎΠ»ΡΡΠΈΠΌ ΠΎΠ±ΡΠ΅ΠΌΠΎΠΌ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠΉ ΠΈ ΠΈΠΌΠ΅Π΅Ρ ΠΏΡΠΎΡΡΠΎΠΉ Π°Π»Π³ΠΎΡΠΈΡΠΌ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ, ΡΡΠΎ ΡΠ΅Π»Π΅ΡΠΎΠΎΠ±ΡΠ°Π·Π½ΠΎ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΠΠ. ΠΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ Π·Π½Π°ΡΡ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ Π²Π΅ΡΡΠΈΠ½ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ Π³ΡΠ°Π½ΠΈ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ° ΠΈ ΡΡΠΈ ΡΠΎΡΠΊΠΈ Π·Π°Π΄Π°ΡΡΠΈΠ΅ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΡ ΡΠ΅ΡΠ΅Π½ΠΈΡ.
ΠΠ°Π΄Π°Π½ΠΈΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΠΉ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΡΡ ΡΠ΅Π»
ΠΠ°ΠΊ ΡΠΆΠ΅ Π³ΠΎΠ²ΠΎΡΠΈΠ»ΠΎΡΡ, ΡΠ΄ΠΎΠ±Π½Π΅Π΅ Π²ΡΠ΅Π³ΠΎ Π·Π°Π΄Π°Π²Π°ΡΡ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΡ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΡΡΠ΅ΠΌΡ ΡΠΎΡΠΊΠ°ΠΌΠΈ, ΠΏΡΠΈΡΠ΅ΠΌ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΡΡΠΈΡ ΡΠΎΡΠ΅ΠΊ Π΄ΠΎΠ»ΠΆΠ½Ρ Π±ΡΡΡ ΠΈΠ·Π²Π΅ΡΡΠ½Ρ ΠΈΠ»ΠΈ Π΄ΠΎΠ»ΠΆΠ½Ρ Π²ΡΡΠΈΡΠ»ΡΡΡΡΡ. Π Π°ΡΡΠΌΠΎΡΡΠΈΠΌ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΡΠ΅ Π²Π°ΡΠΈΠ°Π½ΡΡ Π·Π°Π΄Π°Π½ΠΈΡ ΡΠΎΡΠ΅ΠΊ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ ΡΠ΅ΡΠ΅Π½ΠΈΡ:
1) ΡΠΎΡΠΊΠ° ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½Π° Π²Π½Π΅ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ°;
2) ΡΠΎΡΠΊΠ° Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ Π²Π½ΡΡΡΠΈ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ°;
3) ΡΠΎΡΠΊΠ° ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½Π° Π² Π³ΡΠ°Π½ΠΈ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ°;
4) ΡΠΎΡΠΊΠ° ΠΏΡΠΈΠ½Π°Π΄Π»Π΅ΠΆΠΈΡ ΡΠ΅Π±ΡΡ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ°;
5) ΡΠΎΡΠΊΠ° ΠΏΡΠΈΠ½Π°Π΄Π»Π΅ΠΆΠΈΡ Π΄ΠΈΠ°Π³ΠΎΠ½Π°Π»ΠΈ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ°;
6) ΡΠΎΡΠΊΠ° ΡΠΎΠ²ΠΏΠ°Π΄Π°Π΅Ρ Ρ Π²Π΅ΡΡΠΈΠ½ΠΎΠΉ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ°.
Π£ΡΠ»ΠΎΠ²ΠΈΠ΅ Π·Π°Π΄Π°Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ ΡΡΠ΅ΠΌΡ ΡΠΎΡΠΊΠ°ΠΌΠΈ Π±ΡΠ΄Π΅Ρ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ Π½Π΅ Π²ΡΠ΅Π³Π΄Π° ΠΈ Π² ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΠΏΡΠΈΠ΄Π΅ΡΡΡ Π²ΡΡΠΈΡΠ»ΡΡΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ ΡΠ΅ΡΠ΅Π½ΠΈΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ Π΄ΡΡΠ³ΠΈΠ΅ ΠΌΠ΅ΡΠΎΠ΄Ρ. Π Π΄Π°Π½Π½ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°Π΅ΡΡΡ Π»ΠΈΡΡ ΡΠΏΠΎΡΠΎΠ± Π·Π°Π΄Π°Π½ΠΈΡ ΡΡΠ΅ΠΌΡ ΡΠΎΡΠΊΠ°ΠΌΠΈ.
ΠΠΎΡΡΡΠΎΠ΅Π½ΠΈΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΠΉ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΡΡ ΡΠ΅Π». ΠΠ»Π³ΠΎΡΠΈΡΠΌ
ΠΠ΅ΡΠΎΠ΄ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π·Π°ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π² Π½Π°Ρ ΠΎΠΆΠ΄Π΅Π½ΠΈΠΈ ΡΠΎΡΠ΅ΠΊ ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ Ρ Π³ΡΠ°Π½ΡΠΌΠΈ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ°, Π° Π²Π΅ΡΠ½Π΅Π΅ Ρ ΡΠ΅Π±ΡΠ°ΠΌΠΈ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ°. ΠΡΠΎΠ²Π΅ΡΠΊΠ° Π½Π° ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ ΠΈ ΡΠ΅Π±ΡΠ° ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ° ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ:
1. Π‘ΠΎΡΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ ΠΏΠΎ ΡΡΠ΅ΠΌ ΡΠΎΡΠΊΠ°ΠΌ;
2. ΠΠΎΠ΄ΡΡΠ°Π½ΠΎΠ²ΠΊΠ° Π² ΡΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ ΠΊΠΎΠ½ΡΠΎΠ² ΡΠ΅Π±ΡΠ° Ρ ΡΠ΅Π»ΡΡ ΠΏΡΠΎΠ²Π΅ΡΠΊΠΈ: ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½Ρ Π»ΠΈ ΡΠΎΡΠΊΠΈ Π² ΡΠ°Π·Π½ΡΡ ΠΏΠΎΠ»ΡΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π°Ρ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ ΡΠ΅ΡΠ΅Π½ΠΈΡ.
3. ΠΠ°Ρ ΠΎΠΆΠ΄Π΅Π½ΠΈΠ΅ ΡΠΎΡΠΊΠΈ ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΡ ΡΠ΅Π±ΡΠ° ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ° ΠΈ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ ΡΠ΅ΡΠ΅Π½ΠΈΡ.
ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ Π³ΡΠ°Π½ΠΈ Π·Π°ΠΏΠΈΡΡΠ²Π°ΡΡΡΡ Π΄Π²Π΅ ΡΠΎΡΠΊΠΈ, ΠΏΡΠΈΡΠ΅ΠΌ Π·Π°ΠΏΠΈΡΡ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ Π΄Π»Ρ ΡΠ΅Ρ Π³ΡΠ°Π½Π΅ΠΉ, Π³Π΄Π΅ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΡ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΠ΅ΡΠ΅ΡΠ΅ΠΊΠ»Π° Π΄Π²Π° ΡΠ΅Π±ΡΠ°. ΠΠ°Π»Π΅Π΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΏΠΎΠ»ΡΡΠ΅Π½Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅, ΡΡΡΠΎΠΈΡΡΡ ΠΌΠ½ΠΎΠ³ΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ:
1. ΠΠ΅ΡΠ΅ΠΌ ΠΏΠ΅ΡΠ²ΡΡ ΠΏΠ°ΡΡ ΡΠΎΡΠ΅ΠΊ ΠΈ ΠΈΡΠ΅ΠΌ ΡΠ»Π΅Π΄ΡΡΡΡΡ ΠΏΠ°ΡΡ ΡΠΎΡΠ΅ΠΊ Π² ΠΊΠΎΡΠΎΡΠΎΠΉ ΠΏΠΎΠ²ΡΠΎΡΡΠ΅ΡΡΡ ΠΎΠ΄Π½Π° ΠΈΠ· ΡΠΎΡΠ΅ΠΊ ΠΏΠ΅ΡΠ²ΠΎΠΉ ΠΏΠ°ΡΡ.
2. ΠΠ°ΠΉΠ΄Ρ ΡΠ»Π΅Π΄ΡΡΡΡΡ ΠΏΠ°ΡΡ ΠΏΡΠΎΠ΄Π΅Π»ΡΠ²Π°Π΅ΠΌ Π΄Π»Ρ Π½Π΅Π΅ ΡΠΎΠΆΠ΅ ΡΠ°ΠΌΠΎΠ΅, ΡΡΠΎ ΠΈ Π΄Π»Ρ ΠΏΠ΅ΡΠ²ΠΎΠΉ ΠΏΠ°ΡΡ, Π½ΠΎ ΠΈΡΠΊΠ»ΡΡΠ°Π΅ΠΌ ΠΈΠ· ΠΏΠΎΠΈΡΠΊΠ° ΠΏΠ΅ΡΠ²ΡΡ ΠΏΠ°ΡΡ.
3. ΠΡΠΎΠ΄Π΅Π»ΡΠ²Π°Π΅ΠΌ Π²Π΅ΡΡ Π°Π»Π³ΠΎΡΠΈΡΠΌ Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΏΠ°ΡΡ, ΠΏΠΎΠΊΠ° Π½Π΅ ΠΎΡΡΠ°Π½Π΅ΡΡΡ ΠΎΠ΄Π½Π° Π½Π΅Π½Π°ΠΉΠ΄Π΅Π½Π½Π°Ρ ΡΠΎΡΠΊΠ°.
4. ΠΠΎΠ»ΡΡΠ΅Π½Π½Π°Ρ ΡΠ΅ΠΏΠΎΡΠΊΠ° ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΡΠΌ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ΠΌ ΡΠ΅Π±Π΅Ρ ΠΌΠ½ΠΎΠ³ΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠ° ΡΠ΅ΡΠ΅Π½ΠΈΡ.
ΠΠ°Π»Π΅Π΅ Π·Π°ΠΏΠΎΠΌΠΈΠ½Π°Π΅ΠΌ ΠΏΠΎΠ»ΡΡΠ΅Π½Π½ΡΠΉ ΠΌΠ½ΠΎΠ³ΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊ, ΠΊΠ°ΠΊ Π½ΠΎΠ²ΡΡ Π³ΡΠ°Π½Ρ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ°.
ΠΡΡΠ»Π΅Π΄ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ²ΠΎΠΉΡΡΠ² ΡΠ΅ΡΠ΅Π½ΠΈΡ
ΠΠ΅ΡΠ΅ΡΠΈΡΠ»ΠΈΠΌ Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠ²ΠΎΠΉΡΡΠ²Π° ΡΠ΅ΡΠ΅Π½ΠΈΡ (ΠΈΡΡ ΠΎΠ΄Ρ ΠΈΠ· ΡΠ°ΠΊΡΠ°, ΡΡΠΎ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ΠΌ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΌΠ½ΠΎΠ³ΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊ).
1. Π£ΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ ΡΠ΅ΡΠ΅Π½ΠΈΡ.
2. ΠΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π²Π΅ΡΡΠΈΠ½ ΠΌΠ½ΠΎΠ³ΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠ° ΡΠ΅ΡΠ΅Π½ΠΈΡ.
3. ΠΠ»ΠΎΡΠ°Π΄Ρ ΠΌΠ½ΠΎΠ³ΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠ° ΡΠ΅ΡΠ΅Π½ΠΈΡ.
4. ΠΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ Π²Π΅ΡΡΠΈΠ½ ΠΌΠ½ΠΎΠ³ΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠ° ΡΠ΅ΡΠ΅Π½ΠΈΡ.
5. ΠΠ²ΡΠ³ΡΠ°Π½Π½ΡΠΉ ΡΠ³ΠΎΠ» ΠΌΠ΅ΠΆΠ΄Ρ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΡΡ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΈ Π³ΡΠ°Π½ΡΠΌΠΈ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ°.
6. Π£Π³Π»Ρ ΠΏΡΠΈ Π²Π΅ΡΡΠΈΠ½Π°Ρ ΠΌΠ½ΠΎΠ³ΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠ° ΡΠ΅ΡΠ΅Π½ΠΈΡ.
ΠΠ΅ΠΊΠΎΡΠΎΡΡΠ΅ ΠΈΠ· ΡΡΠΈΡ ΡΠ²ΠΎΠΉΡΡΠ² ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½Ρ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ (1,2,3,4).
ΠΡΠΈΠΌΠ΅Ρ: ΠΠ°Ρ ΠΎΠΆΠ΄Π΅Π½ΠΈΠ΅ ΠΏΠ»ΠΎΡΠ°Π΄ΠΈ ΡΠ΅ΡΠ΅Π½ΠΈΡ. Π’Π°ΠΊ ΠΊΠ°ΠΊ ΡΡΡΠΎΡΡΡΡ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π²ΡΠΏΡΠΊΠ»ΡΡ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠΎΠ², ΡΠΎ ΠΌΠ½ΠΎΠ³ΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π±ΡΠ΄Π΅Ρ ΡΠΎΠΆΠ΅ Π²ΡΠΏΡΠΊΠ»ΡΠΌ, Ρ. Π΅. Π΅Π³ΠΎ ΠΏΠ»ΠΎΡΠ°Π΄Ρ ΠΌΠΎΠΆΠ½ΠΎ Π½Π°ΠΉΡΠΈ ΡΠ°Π·Π±ΠΈΠ΅Π½ΠΈΠ΅ΠΌ Π½Π° ΡΡΠ΅ΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠΈ (ΠΏΠ»ΠΎΡΠ°Π΄Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΡΠ°Π²Π½Π° ΡΡΠΌΠΌΠ΅ ΠΏΠ»ΠΎΡΠ°Π΄Π΅ΠΉ ΡΡΠ΅ΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠΎΠ² ΠΈΠ· ΠΊΠΎΡΠΎΡΡΡ ΠΎΠ½ΠΎ ΡΠΎΡΡΠ°Π²Π»Π΅Π½ΠΎ).
3. ΠΠΈΠ·ΡΠ°Π»ΠΈΠ·Π°ΡΠΈΡ. Π‘ΠΏΠΎΡΠΎΠ±Ρ Π²ΠΈΠ·ΡΠ°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΡΡΠ΅Ρ ΠΌΠ΅ΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π°
ΠΠ»Ρ Π²ΠΈΠ·ΡΠ°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ Π΄Π²Π° Π²ΠΈΠ΄Π° ΠΏΡΠΎΠ΅ΠΊΡΠΈΠΉ: ΠΏΠ°ΡΠ°Π»Π»Π΅Π»ΡΠ½ΡΠ΅ (Π°ΠΊΡΠΎΠ½ΠΎΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΈΠ΅) (Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅ ΡΠ»Π΅Π²Π°) ΠΈ ΡΠ΅Π½ΡΡΠ°Π»ΡΠ½ΡΠ΅ (ΠΏΠ΅ΡΡΠΏΠ΅ΠΊΡΠΈΠ²Π½ΡΠ΅) (Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅ ΡΠΏΡΠ°Π²Π°). ΠΡΠΈ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΠΈ Π°ΠΊΡΠΎΠ½ΠΎΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΎΠΉ ΠΏΡΠΎΠ΅ΠΊΡΠΈΠΈ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΠΎΠ³ΠΎ ΡΠ΅Π»Π° Π΅Π³ΠΎ ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠ΅ ΡΠΎΡΠΊΠΈ ΡΠ½ΠΎΡΡΡΡΡ Π½Π° ΠΏΠ»ΠΎΡΠΊΠΎΡΡΡ ΠΏΡΠΎΠ΅ΠΊΡΠΈΠΈ ΠΏΠ°ΡΠ°Π»Π»Π΅Π»ΡΠ½ΡΠΌ ΠΏΡΡΠΊΠΎΠΌ Π»ΡΡΠ΅ΠΉ, Π° ΠΏΡΠΈ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΠΈ ΡΠ΅Π½ΡΡΠ°Π»ΡΠ½ΠΎΠΉ ΠΏΡΠΎΠ΅ΠΊΡΠΈΠΈ — ΠΏΡΡΠΊΠΎΠΌ Π»ΡΡΠ΅ΠΉ ΠΈΡΡ ΠΎΠ΄ΡΡΠΈΡ ΠΈΠ· ΠΎΠ΄Π½ΠΎΠΉ ΡΠΎΡΠΊΠΈ, ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅ΠΉ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Π³Π»Π°Π· Π½Π°Π±Π»ΡΠ΄Π°ΡΠ΅Π»Ρ. Π§Π°ΡΡΠ½ΡΠΌ ΡΠ»ΡΡΠ°Π΅ΠΌ Π°ΠΊΡΠΎΠ½ΠΎΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΎΠΉ ΠΏΡΠΎΠ΅ΠΊΡΠΈΠΈ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡ ΠΎΡΡΠΎΠ³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠ°Ρ, ΠΏΡΠΈ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΠΈ ΠΊΠΎΡΠΎΡΠΎΠΉ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΡ ΠΏΡΠΎΠ΅ΠΊΡΠΈΠΈ Π²ΡΡΠ°Π²Π½ΠΈΠ²Π°Π΅ΡΡΡ ΠΏΠ°ΡΠ°Π»Π»Π΅Π»ΡΠ½ΠΎ ΠΎΠ΄Π½ΠΎΠΉ ΠΈΠ· ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ½ΡΡ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠ΅ΠΉ.
ΠΠ΅ΡΠ΅ΠΊΡΡΡΠΈΠ΅
ΠΠΎΠ΄ ΠΏΠ΅ΡΠ΅ΠΊΡΡΡΠΈΠ΅ΠΌ ΠΏΠΎΠ½ΠΈΠΌΠ°Π΅ΡΡΡ ΡΠΎΡ ΡΠ°ΠΊΡ, ΡΡΠΎ Π½Π΅Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ ΠΎΠ΄Π½ΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎ Π²ΠΈΠ΄Π΅ΡΡ Π²ΡΠ΅ Π³ΡΠ°Π½ΠΈ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ° ΠΈ ΠΊΠ°ΠΊΠΈΠ΅-ΡΠΎ Π³ΡΠ°Π½ΠΈ ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎ ΠΎΠΊΠ°ΠΆΡΡΡΡ Π½Π΅Π²ΠΈΠ΄ΠΈΠΌΡΠΌΠΈ. ΠΡΠΎΠ±Π»Π΅ΠΌΠ° ΡΠΎΡΡΠΎΠΈΡ Π² ΡΠΎΠΌ, ΠΊΠ°ΠΊ ΡΠ·Π½Π°ΡΡ ΠΊΠ°ΠΊΠΈΠ΅ Π³ΡΠ°Π½ΠΈ Π²ΠΈΠ΄Π½Ρ, Π° ΠΊΠ°ΠΊΠΈΠ΅ Π½Π΅Ρ. Π ΠΏΡΠΎΠ΅ΠΊΡΠ΅ ΠΌΡ ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°Π΅ΠΌ ΡΠΎΠ»ΡΠΊΠΎ Π²ΡΠΏΡΠΊΠ»ΡΠ΅ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠΈ, ΠΏΠΎΡΡΠΎΠΌΡ Π΄Π»Ρ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΏΠ΅ΡΠ΅ΠΊΡΡΡΠΈΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠΎΡ ΡΠ°ΠΊΡ, ΡΡΠΎ Π½ΠΎΡΠΌΠ°Π»ΡΠ½ΡΠΉ Π²Π΅ΠΊΡΠΎΡ ΠΊ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ Π³ΡΠ°Π½ΠΈ Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ ΠΈΠ·Π²Π½Π΅. Π’. Π΅. Π΅ΡΠ»ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΎΡΡΠΎΠ³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΡΡ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡ, ΡΠΎ ΡΠΎΡ ΡΠ°ΠΊΡ, ΡΡΠΎ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ½Π°Ρ ΡΠΎΡΡΠ°Π²Π»ΡΡΡΠ°Ρ (ΠΎΡΠΈ ΠΏΡΠΎΠ΅ΠΊΡΠΈΠΈ) Π½ΠΎΡΠΌΠ°Π»ΡΠ½ΠΎΠ³ΠΎ Π²Π΅ΠΊΡΠΎΡΠ° ΠΏΠΎΠ»ΠΎΠΆΠΈΡΠ΅Π»ΡΠ½Π°, ΡΠΎ Π³ΡΠ°Π½Ρ Π²ΠΈΠ΄ΠΈΠΌΠ°, Π΅ΡΠ»ΠΈ ΠΎΡΡΠΈΡΠ°ΡΠ΅Π»ΡΠ½Π°, ΡΠΎ Π³ΡΠ°Π½Ρ ΠΏΠ΅ΡΠ΅ΠΊΡΡΡΠ°.
ΠΡΠ²Π΅ΡΠ΅Π½Π½ΠΎΡΡΡ
ΠΡΠ²Π΅ΡΠ΅Π½Π½ΠΎΡΡΡ Π³ΡΠ°Π½Π΅ΠΉ Π²ΡΡΠΈΡΠ»ΡΠ΅ΡΡΡ ΠΏΡΡΠ΅ΠΌ, Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΡΠ³Π»Π° (ΡΠΈΠ½ΡΡΠ° ΡΠ³Π»Π°) ΠΌΠ΅ΠΆΠ΄Ρ Π½ΠΎΡΠΌΠ°Π»ΡΠ½ΡΠΌ Π²Π΅ΠΊΡΠΎΡΠΎΠΌ ΠΊ Π³ΡΠ°Π½ΠΈ ΠΈ ΠΎΡΡΡ ΠΎΡΡΠΎΠ³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠΉ ΠΏΡΠΎΠ΅ΠΊΡΠΈΠΈ.
4. Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ
ΠΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ° ΡΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΠΉ ΠΊ ΡΠ΅Π°Π»ΠΈΠ·ΡΠ΅ΠΌΠΎΠΌΡ ΠΏΡΠΎΠ΅ΠΊΡΡ.
1. ΠΡΠΎΡΡΠΎΡΠ° ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ.
2. ΠΠΎΠ»Π½ΠΎΡΠ° Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΡ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ² ΠΈ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠ΅ΠΉ.
3. ΠΠ½ΡΠ΅ΡΠ°ΠΊΡΠΈΠ²Π½ΠΎΡΡΡ.
4. ΠΡΡΡΡΠΎΡΠ° ΡΠ°Π±ΠΎΡΡ.
5. ΠΡΠΎΡΡΠΎΡΠ° ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π²Ρ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π°.
Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
ΠΡΠΈ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ΅ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΠΊΠ»ΠΎΠ½ Π΄Π΅Π»Π°Π»ΡΡ Π½Π° ΡΡΠ°Π½Π΄Π°ΡΡΠΈΠ·Π°ΡΠΈΡ ΠΌΠ΅Π½Ρ ΠΈ ΡΠ΄ΠΎΠ±ΡΡΠ²ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ. Π’Π°ΠΊΠΆΠ΅ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠ° ΡΡΠ½ΠΊΡΠΈΡ Π²ΡΡΡΠΎΠ΅Π½Π½ΡΡ ΠΏΠΎΠ΄ΡΠΊΠ°Π·ΠΎΠΊ (Π²ΡΠΏΠ»ΡΠ²Π°ΡΡΠΈΡ ΠΈ Π² ΡΡΡΠΎΠΊΠ΅ ΡΠΎΡΡΠΎΡΠ½ΠΈΡ).
ΠΠΊΠ½Π° ΠΏΡΠΎΠ΅ΠΊΡΠΈΠΉ
Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ ΡΡΠΈ ΠΎΠΊΠ½Π° ΠΏΡΠΎΠ΅ΠΊΡΠΈΠΈ: Π²ΠΈΠ΄ ΡΠ²Π΅ΡΡ Ρ, Π²ΠΈΠ΄ ΡΠ»Π΅Π²Π°, Π²ΠΈΠ΄ ΡΠΏΠ΅ΡΠ΅Π΄ΠΈ, ΠΏΠ΅ΡΡΠΏΠ΅ΠΊΡΠΈΠ²Π°. Π Π°Π·ΠΌΠ΅Ρ ΠΎΠΊΠΎΠ½ ΠΏΡΠΎΠ΅ΠΊΡΠΈΠΈ ΠΈΠ·ΠΌΠ΅Π½ΡΠ΅ΡΡΡ ΠΏΡΡΠ΅ΠΌ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΡ ΡΠ΅Π½ΡΠ° ΡΠ°Π·Π΄Π΅Π»ΠΈΡΠ΅Π»Ρ. Π’Π°ΠΊΠΆΠ΅ Π·Π΄Π΅ΡΡ ΠΏΠΎΠΊΠ°Π·Π°Π½Ρ ΠΎΡΠΈ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ. Π‘ΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Π²ΠΊΠ»ΡΡΠ΅Π½ΠΈΡ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ½ΠΎΠΉ ΡΠ΅ΡΠΊΠΈ.
ΠΠ΅Π½Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ
Π€Π°ΠΉΠ»
ΠΡΠΊΡΡΡΡ (Π·Π°Π³ΡΡΠ·ΠΊΠ° ΡΠ°ΠΉΠ»Π° ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ°).
Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ (ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»Π°).
ΠΡΡ ΠΎΠ΄ (Π²ΡΡ ΠΎΠ΄ ΠΈΠ· ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ).
ΠΡΠ°Π²ΠΊΠ°
Π‘Π±ΡΠΎΡ (ΡΠ±ΡΠΎΡ Π²ΡΠ΅Ρ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½Π½ΡΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ²).
ΠΠΈΠ΄
ΠΠ°ΡΠΊΠ°Ρ (ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡΡΡ ΡΠ΅Π±ΡΠ° ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ°).
ΠΠ°Π»ΠΈΠ²ΠΊΠ° (Π²ΡΠ²ΠΎΠ΄ Π³ΡΠ°Π½Π΅ΠΉ, Ρ ΡΠ°ΡΡΠ΅ΡΠΎΠΌ ΠΈΡ ΠΎΡΠ²Π΅ΡΠ΅Π½Π½ΠΎΡΡΠΈ).
ΠΠ±ΠΎΠ·Π½Π°ΡΠΈΡΡ (ΠΎΠ±ΠΎΠ·Π½Π°ΡΠΈΡΡ Π²Π΅ΡΡΠΈΠ½Ρ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ°).
Π‘Π΅ΡΠΊΠ° (Π²ΡΠ²ΠΎΠ΄ ΡΠ΅ΡΠΊΠΈ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ).
ΠΠ½ΡΡΡΡΠΌΠ΅Π½ΡΡ
ΠΡΠ±ΡΠ°ΡΡ (ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π²ΡΠ±ΠΈΡΠ°ΡΡ ΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°ΡΡ ΡΠΎΡΠΊΠΈ Π·Π°Π΄Π°ΡΡΠΈΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅).
ΠΠ΅ΡΠ΅ΠΌΠ΅ΡΡΠΈΡΡ (ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ°).
ΠΠΎΠ²Π΅ΡΠ½ΡΡΡ (ΠΏΠΎΠ²ΠΎΡΠΎΡ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ°).
ΠΠ°ΡΡΡΠ°Π± (ΠΌΠ°ΡΡΡΠ°Π± ΠΎΠΊΠΎΠ½ ΠΏΡΠΎΠ΅ΠΊΡΠΈΠΉ).
Π‘ΡΠΈΡΠΊΠ° (ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΎΡΠΊΠ»ΡΡΠ°ΡΡ Π·Π°Π»ΠΈΠ²ΠΊΡ Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠΉ Π³ΡΠ°Π½ΠΈ).
ΠΠ°Π»ΠΈΠ²ΠΊΠ° (ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π²ΠΊΠ»ΡΡΠΈΡΡ Π·Π°Π»ΠΈΠ²ΠΊΡ Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠΉ Π³ΡΠ°Π½ΠΈ).
ΠΠ³ΡΠ°Π½ΠΈΡΠΈΡΡ (ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½ΠΈΠ΅ ΠΌΠ°Π½ΠΈΠΏΡΠ»ΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΡΠ΅Π½ΠΎΠΉ ΠΏΠΎ ΠΎΡΡΠΌ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ).
Π¦Π΅Π½Ρ ΠΏΠΎΠ²ΠΎΡΠΎΡΠ° (ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΡΠ΅Π½ΡΡΠ° ΠΏΠΎΠ²ΠΎΡΠΎΡΠ°).
Π Π°ΡΠΏΡΠΎΡΡΡΠ°Π½ΠΈΡΡ (ΠΈΠ·ΠΌΠ΅Π½ΡΡΡ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΡΠΎΡΠ΅ΠΊ Π·Π°Π΄Π°ΡΡΠΈΡ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ Π²ΠΌΠ΅ΡΡΠ΅ Ρ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ°ΠΌΠΈ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ°).
Π‘Π΅ΡΠ΅Π½ΠΈΠ΅
ΠΠΎΡΡΡΠΎΠΈΡΡ (ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΡΡΠ΅ΠΌ Π·Π°Π΄Π°Π½ΠΈΡ ΡΡΠ΅Ρ ΡΠΎΡΠ΅ΠΊ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ ΡΠ΅ΡΠ΅Π½ΠΈΡ).
Π£Π΄Π°Π»ΠΈΡΡ (ΡΠ΄Π°Π»Π΅Π½ΠΈΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΡ).
ΠΠΈΠ΄ (Π½Π°ΡΡΡΠΎΠΉΠΊΠ° Π²ΠΈΠ΄Π° ΡΠ΅ΡΠ΅Π½ΠΈΡ).
ΠΡΠΈΠ²ΡΠ·Π°ΡΡ (ΠΏΡΠΈΠ²ΡΠ·ΠΊΠ° Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠΉ ΡΠΎΡΠΊΠΈ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΊ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°ΠΌ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ°).
ΠΡΠΎΡΠΌΠΎΡΡ (ΠΎΠΊΠ½ΠΎ ΠΏΡΠΎΡΠΌΠΎΡΡΠ° ΡΠ΅ΡΠ΅Π½ΠΈΡ).
ΠΠ°ΡΡΡΠΎΠΉΠΊΠ°
Π¦Π²Π΅Ρ (Π²ΡΠ·ΠΎΠ² Π΄ΠΈΠ°Π»ΠΎΠ³Π° ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΡΠ²Π΅ΡΠΎΠ²ΠΎΠΉ ΡΡ Π΅ΠΌΡ)
ΠΡΠ½ΠΎΠ²Π½ΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄Ρ ΡΠ°Π±ΠΎΡΡ
ΠΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΠΌΠ΅ΡΠΎΠ΄ ΡΠ°Π±ΠΎΡΡ Π·Π°ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π² Π²ΡΠ±ΠΎΡΠ΅ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠ°, Π·Π°ΡΠ΅ΠΌ Π½Π°Π²Π΅Π΄Π΅Π½ΠΈΠΈ ΠΊΡΡΡΠΎΡΠ° Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ ΠΈ ΠΌΠ°Π½ΠΈΠΏΡΠ»ΡΡΠΈΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π½Π°ΠΆΠ°ΡΠΈΡ ΠΊΠ»Π°Π²ΠΈΡΠΈ ΠΌΡΡΠΈ.
ΠΠΈΠ°Π»ΠΎΠ³ ΠΏΡΠΎΡΠΌΠΎΡΡΠ° ΡΠ΅ΡΠ΅Π½ΠΈΡ
ΠΡΠ²ΠΎΠ΄ ΠΌΠ½ΠΎΠ³ΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠ° ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΏΠΎΠ²ΠΎΡΠΎΡΠ° ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π² ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΠΏΠ°ΡΠ°Π»Π»Π΅Π»ΡΠ½ΠΎΡΡΠΈ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ XOY.
ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
Π Π·Π°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠΈ Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠ° ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΡΠ΅ ΠΏΡΡΠΈ Π΄Π°Π»ΡΠ½Π΅ΠΉΡΠ΅Π³ΠΎ ΡΠ°Π·Π²ΠΈΡΠΈΡ ΠΏΡΠΎΠ΅ΠΊΡΠ° ΠΈ Π΅Π³ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ, Π° ΡΠ°ΠΊΠΆΠ΅ ΠΎΡΠ΅Π½ΠΊΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ ΠΈ ΠΎΡΠΌΠ΅ΡΠΈΠΌ ΠΏΠΎΠ»ΡΡΠ΅Π½Π½ΡΠ΅ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΡ. ΠΠΎΡΡΠ°Π²Π»Π΅Π½Π½Π°Ρ ΠΏΠ΅ΡΠ΅Π΄ Π½Π°ΡΠ°Π»ΠΎΠΌ ΡΠ°Π±ΠΎΡΡ ΡΠ΅Π»Ρ: ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠ°, ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡΠ΅Π³ΠΎ Π½Π°Π³Π»ΡΠ΄Π½ΠΎ ΠΈ ΠΈΠ½ΡΠ΅ΡΠ°ΠΊΡΠΈΠ²Π½ΠΎ ΠΈΠ·ΡΡΠ°ΡΡ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΡΠ΅ ΡΠ΅Π»Π° ΠΈ ΠΈΡ ΡΠ΅ΡΠ΅Π½ΠΈΡ — ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½Π°.
Π‘ΠΎΠ·Π΄Π°Π½ΠΎ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π·Π°Π³ΡΡΠΆΠ°ΡΡ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΡΠ΅ ΡΠ΅Π»Π° ΠΈ ΠΌΠ°Π½ΠΈΠΏΡΠ»ΠΈΡΠΎΠ²Π°ΡΡ ΠΈΠΌΠΈ — ΡΡΠΎ ΡΠΆΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΏΡΠΈ Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠΌ ΠΈΠ·ΡΡΠ΅Π½ΠΈΠΈ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΡΡ ΡΠ΅Π». ΠΠ°Π»Π΅Π΅ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½Π° ΡΡΠ½ΠΊΡΠΈΡ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΡΡ ΡΠΈΠ³ΡΡ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΡΡ, ΠΊΠΎΡΠΎΡΠ°Ρ Π·Π°Π΄Π°Π΅ΡΡΡ ΡΡΠ΅ΠΌΡ ΡΠΎΡΠΊΠ°ΠΌΠΈ, ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΠΊΠΎΡΠΎΡΡΡ ΠΌΠΎΠΆΠ½ΠΎ ΠΈΠ·ΠΌΠ΅Π½ΡΡΡ. ΠΠΈΠ½ΡΡΠΎΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΠ²Π»ΡΠ΅ΡΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΠΈΠ·ΡΡΠ΅Π½ΠΈΡ ΡΠΎΠ»ΡΠΊΠΎ Π²ΡΠΏΡΠΊΠ»ΡΡ ΡΠΈΠ³ΡΡ ΠΈ Π½Π΅Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ Π±ΠΎΠ»Π΅Π΅ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΡΠ΅ΡΠ΅Π½ΠΈΡ.
ΠΡΡΠΈ Π΄Π°Π»ΡΠ½Π΅ΠΉΡΠ΅Π³ΠΎ ΡΠ°Π·Π²ΠΈΡΠΈΡ ΠΏΡΠΎΠ΅ΠΊΡΠ°:
1. ΠΠΎΡΡΡΠΎΠ΅Π½ΠΈΠ΅ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ ΡΠ΅ΡΠ΅Π½ΠΈΠΉ;
2. ΠΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Π·Π°Π³ΡΡΠ·ΠΊΠΈ Π½Π΅Π²ΡΠΏΡΠΊΠ»ΡΡ ΡΠΈΠ³ΡΡ;
3. ΠΠΎΠ΄Π±ΠΎΡ Π·Π°Π΄Π°Ρ ΡΠ΅ΡΠ°Π΅ΠΌΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠΎΠ·Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ;
4. Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΌΠ΅ΡΠΎΠ΄ΠΈΠΊ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π² ΠΎΠ±ΡΡΠ΅Π½ΠΈΠΈ;
5. Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΎΡΠ° ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΡΡ ΡΠ΅Π»;
6. Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΈΠ½ΡΠ΅ΡΠ°ΠΊΡΠΈΠ²Π½ΠΎΠ³ΠΎ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠ° Π΄Π»Ρ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ ΡΠ΅ΡΠ΅Π½ΠΈΠΉ ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²Π΅Π½Π½ΡΡ ΡΠΈΠ³ΡΡ Π°ΠΊΡΠΈΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΌ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ («ΠΠΈΠ²Π°Ρ ΡΡΠ΅ΡΠ΅ΠΎΠΌΠ΅ΡΡΠΈΡ»);
7. Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΎΠ±ΡΡΠ°ΡΡΠ΅Π³ΠΎ ΠΌΠΎΠ΄ΡΠ»Ρ ΠΈ ΠΌΠ΅ΡΠΎΠ΄ΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΡΠΎΠΏΡΠΎΠ²ΠΎΠΆΠ΄Π΅Π½ΠΈΡ ΠΊ Π½Π΅ΠΌΡ;
8. ΠΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ Π½Π° ΠΏΡΠ°ΠΊΡΠΈΠΊΠ΅.
ΠΠ·ΡΡΠ°Π΅ΠΌΠ°Ρ Π² Π΄Π°Π½Π½ΠΎΠΉ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ ΡΠ΅ΠΌΠ°, Π΄ΠΎΠ»ΠΆΠ½Π° Π±ΡΡΡ ΠΈΠ·ΡΡΠ΅Π½Π° Π΄ΠΎ ΠΊΠΎΠ½ΡΠ°, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΡΡΠΎ ΠΌΠΎΠΆΠ΅Ρ Π½Π°ΠΉΡΠΈ ΡΠ΅Π»Π΅ΡΠΎΠΎΠ±ΡΠ°Π·Π½ΠΎΠ΅ ΠΈ ΡΠ΄Π°ΡΠ½ΠΎΠ΅ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ Π½Π° ΠΏΡΠ°ΠΊΡΠΈΠΊΠ΅.
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅
Π’Π΅ΠΊΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, Menus, ExtCtrls, jpeg, ToolWin, StdCtrls, ImgList;
type
Point=record x, y, z: real end; {ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΡΠΎΡΠΊΠΈ}
Vector=record x, y, z: real end; {ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ Π²Π΅ΡΠΎΡΠ°}
type
TForm1 = class (TForm)
StatusBar1: TStatusBar; StatusBar2: TStatusBar; MainMenu1: TMainMenu;
N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem;
N20: TMenuItem; N21: TMenuItem; N22: TMenuItem; N18: TMenuItem; N25: TMenuItem; N30: TMenuItem;
N31: TMenuItem; N32: TMenuItem; N33: TMenuItem; OD1: TOpenDialog; SD1: TSaveDialog;
PTop: TPanel; ITop: TImage; PFront: TPanel; PLeft: TPanel; PPerspective: TPanel; IFront: TImage;
ILeft: TImage; IPerspective: TImage; GroupBox1: TGroupBox; Vertikal: TPanel; Horizontal: TPanel; Panel3: TPanel;
Centr: TPanel; ImList1: TImageList; N23: TMenuItem; ToolBar1: TToolBar;
ToolButton1: TToolButton; ToolButton2: TToolButton; ToolButton3: TToolButton; ToolButton4: TToolButton;
ToolButton5: TToolButton; ToolButton6: TToolButton; ToolButton7: TToolButton; ToolButton8: TToolButton;
ToolButton9: TToolButton; ToolButton10: TToolButton; ToolButton14: TToolButton; ToolButton19: TToolButton;
ToolButton11: TToolButton; ToolButton12: TToolButton; Label1: TLabel; ToolButton13: TToolButton;
N26: TMenuItem; N27: TMenuItem; N28: TMenuItem; N29: TMenuItem; N34: TMenuItem; N35: TMenuItem;
N36: TMenuItem; N37: TMenuItem; N38: TMenuItem; N39: TMenuItem; N40: TMenuItem; N41: TMenuItem;
N42: TMenuItem; N43: TMenuItem; N45: TMenuItem; N46: TMenuItem; N47: TMenuItem; N51: TMenuItem;
IntWiew: TMenuItem; N7: TMenuItem; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; N11: TMenuItem;
N12: TMenuItem; N13: TMenuItem; N14: TMenuItem; N15: TMenuItem; N16: TMenuItem; N17: TMenuItem;
N24: TMenuItem; N19: TMenuItem; Mag1: TMenuItem; Mag2: TMenuItem; Mag3: TMenuItem;
procedure N5Click (Sender: TObject);
procedure CentrMouseMove (Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure CentrMouseUp (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormCreate (Sender: TObject); procedure FormResize (Sender: TObject); procedure N2Click (Sender: TObject);
procedure ITopClick (Sender: TObject); procedure IFrontClick (Sender: TObject); procedure ILeftClick (Sender: TObject);
procedure ITopMouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure IFrontMouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure ILeftMouseMove (Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure N3Click (Sender: TObject); procedure N33Click (Sender: TObject); procedure ToolButton1Click (Sender: TObject); procedure ToolButton2Click (Sender: TObject); procedure FormPaint (Sender: TObject);
procedure ITopMouseDown (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure IFrontMouseDown (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ILeftMouseDown (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure N25Click (Sender: TObject); procedure N21Click (Sender: TObject);
procedure N22Click (Sender: TObject); procedure N8Click (Sender: TObject);
procedure N16Click (Sender: TObject); procedure IntWiewClick (Sender: TObject);
procedure N27Click (Sender: TObject); procedure N28Click (Sender: TObject);
procedure N29Click (Sender: TObject); procedure N34Click (Sender: TObject);
procedure N36Click (Sender: TObject); procedure N37Click (Sender: TObject);
procedure N9Click (Sender: TObject); procedure N10Click (Sender: TObject);
procedure IPerspectiveClick (Sender: TObject);
procedure N41Click (Sender: TObject); procedure N14Click (Sender: TObject);
procedure N18Click (Sender: TObject); procedure ToolButton4Click (Sender: TObject);
procedure ToolButton5Click (Sender: TObject); procedure ToolButton6Click (Sender: TObject);
procedure ToolButton7Click (Sender: TObject); procedure ToolButton8Click (Sender: TObject);
procedure ToolButton9Click (Sender: TObject); procedure ToolButton12Click (Sender: TObject);
procedure ToolButton11Click (Sender: TObject); procedure ToolButton19Click (Sender: TObject);
procedure ToolButton13Click (Sender: TObject); procedure N24Click (Sender: TObject);
procedure N19Click (Sender: TObject); Function Normal (A, B, C: Point):Vector;
procedure Mag1Click (Sender: TObject); procedure Mag2Click (Sender: TObject);
procedure Mag3Click (Sender: TObject);
private
{Private declarations}
Procedure DrawGrane;
public
{Public declarations}
end;
const Gran=10 000; {ΠΠ°ΠΊΡΠΈΠΌΡΠΌ Π³Π°Π½Π΅ΠΉ}
Pointer=10 000; {ΠΠ°ΠΊΡΠΈΠΌΡΠΌ Π²Π΅ΡΡΠΈΠ½}
Lok=0.1; {ΠΠΎΠ³ΡΠ΅ΡΠ½ΠΎΡΡΡ ΡΠ΅ΡΠ΅Π½ΠΈΡ}
SizeT=5; {Π Π°Π·ΠΌΠ΅Ρ ΡΠΎΡΠ΅ΠΊ ΡΠ΅ΡΠ΅Π½ΠΈΡ}
Sumbol='A'; {ΠΠ±ΠΎΠ·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠΎΡΠ΅ΠΊ}
type
TView=array [1.gran] of record Visible: boolean; {Π€Π»Π°Π³ Π°ΠΊΡΠΈΠ²Π½ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π°}
Paint:boolean;
BrushGr:boolean; {Π€Π»Π°Π³ Π·Π°Π»ΠΈΠ²ΠΊΠΈ Π³ΡΠ°Π½ΠΈ}
PenRb:boolean; {Π€Π»Π°Π³ ΠΎΡΡΠΈΡΠΎΠ²ΠΊΠΈ ΡΠ΅Π±Π΅Ρ}
Intersection:boolean; {Π€Π»Π°Π³ Π½Π°Π»ΠΈΡΠΈΡ ΡΠ΅ΡΠ΅Π½ΠΈΡ}
ColorGr, ColorRb: TColor {Π¦Π²Π΅Ρ: Π³ΡΠ°Π½ΠΈ, ΡΠ΅Π±ΡΠ°} end;
TMainVar=record Cx, Cy: integer; Mash: real; Net: boolean; end;
var
Form1: TForm1;
V:array [1.pointer] of Point; {ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ Π²Π΅ΡΡΠΈΠ½}
E:array [1.gran, 0. pointer] of integer; {Π³ΡΠ°Π½ΠΈ [Π½ΠΎΠΌΠ΅Ρ Π³ΡΠ°Π½ΠΈ, Π½ΠΎΠΌΠ΅Ρ Π²Π΅ΡΡΠΈΠ½Ρ]}
Scene:array [1.4] of record G: TView; M: TMainVar; Active: boolean; end;
M, N: word; {ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π³ΡΠ°Π½Π΅ΠΉ, ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π²Π΅ΡΡΠΈΠ½}
X0, Y0, Num: integer; {ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΡΠ΅Π»ΡΠΊΠ° ΠΌΡΡΠΈ}
ActivColor, ColorEder, ColorUnEder, ColorRebro, ColorIntersection, ColorPointIntersection, ColorNet: TColor; {Π¦Π²Π΅Ρ: Π°ΠΊΡΠΈΠ²Π½ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π°}
InterPoint:array [1.3] of Point;
Count:byte;
kl:integer;
A, B, C, D, P1, P2, P3: real;
PanelWindow:array [1.4] of TPanel;
WindowProection:array [1.4] of TImage;
NameWindows:array [1.4] of string=('ΠΠΈΠ΄ ΡΠ²Π΅ΡΡ Ρ', 'ΠΠΈΠ΄ ΡΠΏΠ΅ΡΠ΅Π΄ΠΈ', 'ΠΠΈΠ΄ ΡΠ»Π΅Π²Π°', 'ΠΠ΅ΡΡΠΏΠ΅ΠΊΡΠΈΠ²Π°'); {ΠΠ°Π·Π²Π°Π½ΠΈΠ΅ ΠΎΠΊΠΎΠ½}
OsiX:array [1.4] of string=('x', 'x', 'y', 'x');
OsiY:array [1.4] of string=('z', 'y', 'x', 'z');
OsiZ:array [1.4] of string=('y', 'z', 'z', 'y');
Magnit:array [1.3] of TMenuItem;
MagPoint:array [1. 3,1.2] of Point;
First:array [1.3] of boolean;
MPI:boolean;
implementation
uses Unit2, Unit3;
// ΠΠ΅ΡΠ΅Π²ΠΎΠ΄ Π²Π΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΡΡ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ Π² ΡΠΊΡΠ°Π½Π½ΡΠ΅
Function Ser (win:byte; T: Point; Main: TMainVar):TPoint;
var CopySer: Tpoint;
begin
case win of
1: begin CopySer. X:=round (Main. Cx+(T.x*Main. Mash));
CopySer.Y:=round (Main. Cy — (T.y*Main. Mash)) end;
2: begin CopySer. X:=round (Main. Cx+(T.x*Main. Mash));
CopySer.Y:=round (Main. Cy — (T.z*Main. Mash)) end;
3: begin CopySer. X:=round (Main. Cx+(T.y*Main. Mash));
CopySer.Y:=round (Main. Cy — (T.z*Main. Mash)) end;
4: begin CopySer. X:=round (Main. Cx+(T.x*Main. Mash));
CopySer.Y:=round (Main. Cy — (T.y*Main. Mash)) end;
end;
Ser:=CopySer
end;
Function UnSer (win:byte; X, Y: integer; Tx, Ty, Tz: real; Main: TMainVar):Point;
var CopyUnSer: Point;
begin
case win of
1: begin CopyUnSer. x:=(X-Main. Cx)/Main. Mash;
CopyUnSer.y:=(Main. Cy-Y)/Main. Mash; CopyUnSer. z:=Tz end;
2: begin CopyUnSer. x:=(X-Main. Cx)/Main. Mash;
CopyUnSer.y:=Ty; CopyUnSer. z:=(Main. Cy-Y)/Main. Mash end;
3: begin CopyUnSer. x:=Tx; CopyUnSer. y:=(X-Main. Cx)/Main. Mash;
CopyUnSer.z:=(Main. Cy-Y)/Main. Mash end;
end;
UnSer:=CopyUnSer
end;
Procedure TForm1. DrawGrane;
Procedure GranBrush (Main:TMainVar; win: byte; i: integer; P: TPenStyle; var Can: TImage);
var j: integer;
w:array of TPoint;
begin
SetLength (w, E [i, 0]);
for j:=1 to E [i, 0] do
w [j1]: =Ser (win, V [E[i, j]], Main);
if Scene[win]. G[i].BrushGr and Scene[win]. G[i].Paint then
begin
Can. Canvas. Pen. Style:=psSolid;
Can. Canvas. Pen. Color:=Scene[win]. G[i].ColorGr;
Can. Canvas. Brush. Color:=Scene[win]. G[i].ColorGr;
Can. Canvas. Polygon (w);
end;
if Scene[win]. G[i].PenRb then
begin
Can. Canvas. Pen. Style:=P;
Can. Canvas. Pen. Color:=Scene[win]. G[i].ColorRb;
Can. Canvas. Brush. Style:=bsClear;
Can. Canvas. MoveTo (w[0]. X, w[0]. Y);
for j:=1 to E [i, 0] - 1 do
Can. Canvas. LineTo (w[j]. X, w[j]. Y);
Can. Canvas. LineTo (w[0]. X, w[0]. Y);
end;
end;
// * ΠΡΠΈ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ
Procedure LineOs (i:byte; var Can: TImage);
var j, k, a, b: integer;
begin
Can. Canvas. Pen. Color:=ColorNet;
a:=round (Can. Width/Scene[i]. M. Mash) div 2;
b:=round (Can. Height/Scene[i]. M. Mash) div 2;
for j:=-a to a do
begin
Can. Canvas. MoveTo (Scene[i]. M. Cx+round (j*Scene[i]. M. Mash), 0);
Can. Canvas. LineTo (Scene[i]. M. Cx+round (j*Scene[i]. M. Mash), Can. Height);
end;
for j:=-b to b do
begin
Can. Canvas. MoveTo (0, Scene[i]. M. Cy+round (j*Scene[i]. M. Mash));
Can. Canvas. LineTo (Can. Width, Scene[i]. M. Cy+round (j*Scene[i]. M. Mash));
end;
Can. Canvas. Pen. Color:=clBlack;
Can. Canvas. MoveTo (Scene[i]. M. Cx, 0);
Can. Canvas. LineTo (Scene[i]. M. Cx, Can. Height);
Can. Canvas. MoveTo (0, Scene[i]. M. Cy);
Can. Canvas. LineTo (Can. Width, Scene[i]. M. Cy);
end;
// Π‘ΠΈΡΡΠ΅ΠΌΠ° ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ
Procedure InpOboz (i, k: integer);
var j: integer;
A:TPoint;
s:string;
begin
WindowProection[k]. Canvas. Pen. Color:=clBlack;
WindowProection[k]. Canvas. Brush. Style:=bsClear;
WindowProection[k]. Canvas. Font. Height:=8;
for j:=1 to E [i, 0] do
begin
s:='';
A:=Ser (k, V [E[i, j]], Scene[k]. M);
if Form1. N24. Checked then
s:=s+Sumbol+inttostr (E[i, j]);
if Form1. N19. Checked then
s:=s+' ('+floattostrf (V[E [i, j]]. x, ffGeneral, 3,5)+';'+floattostrf (V[E [i, j]]. y, ffGeneral, 3,5)+';'+floattostrf (V[E [i, j]]. z, ffGeneral, 3,5)+')';
WindowProection[k]. Canvas. TextOut (A.X, A. Y, s);
end;
end;
Procedure InpOsi (k:byte);
var i: integer;
begin
WindowProection[k]. Canvas. Pen. Color:=clBlack;
WindowProection[k]. Canvas. Brush. Style:=bsClear;
WindowProection[k]. Canvas. MoveTo (10, WindowProection[k]. Height10);
WindowProection[k].Canvas. LineTo (10, WindowProection[k]. Height40);
WindowProection[k].Canvas. MoveTo (10, WindowProection[k]. Height10);
WindowProection[k].Canvas. LineTo (40, WindowProection[k]. Height10);
WindowProection[k].Canvas. Font. Height:=8;
WindowProection[k]. Canvas. Font. Color:=clBlue;
WindowProection[k]. Canvas. TextOut (12, WindowProection[k]. Height50, OsiX[K]);
WindowProection[k]. Canvas. TextOut (12, WindowProection[k]. Height23, OsiY[K]);
WindowProection[k]. Canvas. TextOut (40, WindowProection[k]. Height20, OsiZ[K]);
end;
var i, j: integer;
begin
for j:=1 to 4 do
begin
if Scene[j]. M. Net then
LineOs (j, WindowProection[j]);
if Form1. IntWiew. Enabled and Form1. N46. Checked then
GranBrush (Scene[j]. M, j, M+1, psSolid, WindowProection[j]);
for i:=1 to M do
if (not Scene[j]. G[i].Visible) then
GranBrush (Scene[j]. M, j, i, psDot, WindowProection[j]);
if Form1. IntWiew. Enabled and Form1. N45. Checked then
GranBrush (Scene[j]. M, j, M+1, psSolid, WindowProection[j]);
for i:=1 to M do
if Scene[j]. G[i].Visible then
GranBrush (Scene[j]. M, j, i, psSolid, WindowProection[j]);
if Form1. N24. Checked or Form1. N19. Checked then
for i:=1 to M do
if Scene[j]. G[i].Visible then
InpOboz (i, j);
WindowProection[j]. Canvas. Brush. Style:=bsClear;
WindowProection[j]. Canvas. Font. Height:=8;
WindowProection[j]. Canvas. Font. Color:=clBlack;
WindowProection[j]. Canvas. TextOut (1,1, NameWindows[j]);
InpOsi (j);
end;
end;
{$R *.dfm}
// * ΠΠΊΡΠΈΠ²Π°ΡΠΈΡ ΠΎΠΊΠ½Π°
Procedure ActivWindowProection (i:byte);
var j: byte;
begin
for j:=1 to 3 do
begin
PanelWindow[j]. Color:=clBtnFace;
Scene[j].Active:=false
end;
PanelWindow[i].Color:=ActivColor;
Scene[i].Active:=true
end;
// * ΠΠΎΠ»ΡΠΏΠ»ΠΎΡΠΊΠΎΡΡΡ
Function SelectGran (i, x, y: integer):integer;
Function Poluploscost (x1, y1, x2, y2, x, y: real):boolean;
begin
Poluploscost:=((x-x1)*(y2_y1) — ((y-y1)*(x2_x1)))>0
end;
var j, k, l, rez: integer;
Inter:boolean;
begin
rez:=0; Inter:=true;
for k:=1 to M do
if Scene[i]. G[k].Visible then
begin
for j:=1 to E [k, 0] - 1 do
case i of
1: if Poluploscost (V[E [k, j]]. x, V [E[k, j]]. y, V [E[k, j+1]]. x, V [E[k, j+1]]. y, (X-Scene[i]. M. Cx)/Scene[i]. M. Mash, (Scene[i]. M. Cy-Y)/Scene[i]. M. Mash) then Inter:=false;
2: if not Poluploscost (V[E [k, j]]. x, V [E[k, j]]. z, V [E[k, j+1]]. x, V [E[k, j+1]]. z, (X-Scene[i]. M. Cx)/Scene[i]. M. Mash, (Scene[i]. M. Cy-Y)/Scene[i]. M. Mash) then Inter:=false;
3: if Poluploscost (V[E [k, j]]. y, V [E[k, j]]. z, V [E[k, j+1]]. y, V [E[k, j+1]]. z, (X-Scene[i]. M. Cx)/Scene[i]. M. Mash, (Scene[i]. M. Cy-Y)/Scene[i]. M. Mash) then Inter:=false;
end;
if Inter then
case i of
1: if Poluploscost (V[E [k, E [k, 0]]]. x, V [E[k, E [k, 0]]]. y, V [E[k, 1]]. x, V [E[k, 1]]. y, (X-Scene[i]. M. Cx)/Scene[i]. M. Mash, (Scene[i]. M. Cy-Y)/Scene[i]. M. Mash) then Inter:=false;
2: if not Poluploscost (V[E [k, E [k, 0]]]. x, V [E[k, E [k, 0]]]. z, V [E[k, 1]]. x, V [E[k, 1]]. z, (X-Scene[i]. M. Cx)/Scene[i]. M. Mash, (Scene[i]. M. Cy-Y)/Scene[i]. M. Mash) then Inter:=false;
3: if Poluploscost (V[E [k, E [k, 0]]]. y, V [E[k, E [k, 0]]]. z, V [E[k, 1]]. y, V [E[k, 1]]. z, (X-Scene[i]. M. Cx)/Scene[i]. M. Mash, (Scene[i]. M. Cy-Y)/Scene[i]. M. Mash) then Inter:=false;
end;
if Inter then
begin
rez:=k;
Break;
end
else
begin
rez:=0;
Inter:=true;
end;
end;
SelectGran:=rez;
end;
// * ΠΡΠ±ΠΎΡ ΡΠΎΡΠ΅ΠΊ ΡΠ΅ΡΠ΅Π½ΠΈΡ
Procedure MoveP (win, j, X, Y: integer);
Procedure PNormal (P1, P2: Point; var M: Point);
var i: integer;
Li, No: Vector;
O: Point;
Q, P1O, P2O: real;
begin
Li.x:=P1.x-P2.x;
Li.y:=P1.y-P2.y;
Li.z:=P1.z-P2.z;
No.x:=M.x-P1.x;
No.y:=M.y-P1.y;
No.z:=M.z-P1.z;
Q:=sqr (Li.x)+sqr (Li.y)+sqr (Li.z);
O.x:=(Li.x*((Li.y*No.y)+(Li.z*No.z)+(Li.x*M.x))+(P1.x*(sqr (Li.y)+sqr (Li.z))))/Q;
O.y:=(Li.y*((Li.x*No.x)+(Li.z*No.z)+(Li.y*M.x))+(P1.y*(sqr (Li.x)+sqr (Li.z))))/Q;
O.z:=(Li.z*((Li.x*No.x)+(Li.y*No.y)+(Li.z*M.x))+(P1.z*(sqr (Li.x)+sqr (Li.y))))/Q;
P1O:=sqrt (sqr (O.x-P1.x)+sqr (O.y-P1.y)+sqr (O.z-P1.z));
P2O:=sqrt (sqr (O.x-P2.x)+sqr (O.y-P2.y)+sqr (O.z-P2.z));
if (P1O<>0) and (P2O<>0) then
if (sqrt (Q)/P1O<1) or (sqrt (Q)/P2O<1) then
if P1O/P2O<1 then O:=P1 else O:=P2;
M:=O;
end;
begin
InterPoint[j]: =UnSer (win, X, Y, InterPoint[j]. x, InterPoint[j]. y, InterPoint[j]. z, Scene[win]. M);
if Magnit[j]. Checked and (not first[j]) then
PNormal (MagPoint[j, 1], MagPoint [j, 2], InterPoint[j]);
Form1. StatusBar2. Panels[0]. Text:='X= '+floattostrf (InterPoint[j]. x, ffGeneral, 3,5);
Form1. StatusBar2. Panels[1]. Text:='Y= '+floattostrf (InterPoint[j]. y, ffGeneral, 3,5);
Form1. StatusBar2. Panels[2]. Text:='Z= '+floattostrf (InterPoint[j]. z, ffGeneral, 3,5);
end;
Procedure SelectPointIntersection (i, x, y: integer; var Num: integer);
Function SelP (X, Y, Xt, Yt, ST: real):boolean;
var Obl: boolean;
begin
Obl:=false;
if (X<(Xt+ST)) and (X>(Xt-ST)) then
if (Y<(Yt+ST)) and (Y>(Yt-ST)) then
Obl:=true;
SelP:=Obl;
end;
var j: integer;
begin
Num:=0;
for j:=1 to 3 do
case i of
1: if SelP ((X-Scene[i]. M. Cx)/Scene[i]. M. Mash, (Scene[i]. M. Cy-Y)/Scene[i]. M. Mash, InterPoint[j]. x, InterPoint[j]. y, SizeT/Scene[i]. M. Mash) then Num:=j;
2: if SelP ((X-Scene[i]. M. Cx)/Scene[i]. M. Mash, (Scene[i]. M. Cy-Y)/Scene[i]. M. Mash, InterPoint[j]. x, InterPoint[j]. z, SizeT/Scene[i]. M. Mash) then Num:=j;
3: if SelP ((X-Scene[i]. M. Cx)/Scene[i]. M. Mash, (Scene[i]. M. Cy-Y)/Scene[i]. M. Mash, InterPoint[j]. y, InterPoint[j]. z, SizeT/Scene[i]. M. Mash) then Num:=j;
end;
end;
Function SelReber (win, x, y: integer; var ds: TPoint):boolean;
var rez: boolean;
Function LinEx (i:integer; x1, y1, x2, y2, x, y: real):boolean;
begin
LinEx:=abs (round (((x-x1)*(y2_y1) — ((y-y1)*(x2_x1)))*Scene[i]. M. Mash))<5
end;
Procedure FindRb (ind1, ind2: integer);
begin
ds.x:=ind1;
ds.y:=ind2;
rez:=true;
end;
var j, k: integer;
begin
rez:=false;
for j:=1 to M do
if Scene[win]. G[j].Visible then
begin
for k:=1 to E [j, 0] - 1 do
begin
case win of
1: if LinEx (win, V [E[j, k]]. x, V [E[j, k]]. y, V [E[j, k+1]]. x, V [E[j, k+1]]. y, (X-Scene[win]. M. Cx)/Scene[win]. M. Mash, (Scene[win]. M. Cy-Y)/Scene[win]. M. Mash) then FindRb (E[j, k], E [j, k+1]);
2: if LinEx (win, V [E[j, k]]. x, V [E[j, k]]. z, V [E[j, k+1]]. x, V [E[j, k+1]]. z, (X-Scene[win]. M. Cx)/Scene[win]. M. Mash, (Scene[win]. M. Cy-Y)/Scene[win]. M. Mash) then FindRb (E[j, k], E [j, k+1]);
3: if LinEx (win, V [E[j, k]]. y, V [E[j, k]]. z, V [E[j, k+1]]. y, V [E[j, k+1]]. z, (X-Scene[win]. M. Cx)/Scene[win]. M. Mash, (Scene[win]. M. Cy-Y)/Scene[win]. M. Mash) then FindRb (E[j, k], E [j, k+1]);
end;
end;
case win of
1: if LinEx (win, V [E[j, E [j, 0]]]. x, V [E[j, E [j, 0]]]. y, V [E[j, 1]]. x, V [E[j, 1]]. y, (X-Scene[win]. M. Cx)/Scene[win]. M. Mash, (Scene[win]. M. Cy-Y)/Scene[win]. M. Mash) then FindRb (E[j, E [j, 0]], E [j, 1]);
2: if LinEx (win, V [E[j, E [j, 0]]]. x, V [E[j, E [j, 0]]]. z, V [E[j, 1]]. x, V [E[j, 1]]. z, (X-Scene[win]. M. Cx)/Scene[win]. M. Mash, (Scene[win]. M. Cy-Y)/Scene[win]. M. Mash) then FindRb (E[j, E [j, 0]], E [j, 1]);
3: if LinEx (win, V [E[j, E [j, 0]]]. y, V [E[j, E [j, 0]]]. z, V [E[j, 1]]. y, V [E[j, 1]]. z, (X-Scene[win]. M. Cx)/Scene[win]. M. Mash, (Scene[win]. M. Cy-Y)/Scene[win]. M. Mash) then FindRb (E[j, E [j, 0]], E [j, 1]);
end;
end;
SelReber:=rez;
end;
Procedure PenRebPr (d, ind1, ind2: integer);
var t: integer;
begin
WindowProection[d]. Canvas. Pen. Color:=clRed;
WindowProection[d]. Canvas. MoveTo (Ser (d, V[ind1], Scene[d]. M).X, Ser (d, V[ind1], Scene[d]. M).Y);
WindowProection[d].Canvas. LineTo (Ser (d, V[ind2], Scene[d]. M).X, Ser (d, V[ind2], Scene[d]. M).Y);
end;
// * ΠΠΎΡΠΌΠ°Π»ΡΠ½ΡΠΉ Π²Π΅ΠΊΡΠΎΡ ΠΊ Π³ΡΠ°Π½ΠΈ
Function TForm1. Normal (A, B, C: Point):Vector;
begin
Normal.x:=((B.y-A.y)*(C.z-B.z)) — ((B.z-A.z)*(C.y-B.y));
Normal.y:=((B.z-A.z)*(C.x-B.x)) — ((B.x-A.x)*(C.z-B.z));
Normal.z:=((B.x-A.x)*(C.y-B.y)) — ((B.y-A.Y)*(C.x-B.x));
end;
// * Π Π΅Π°Π»ΠΈΠ·Π°ΡΠΈΡ ΠΏΠΎΠ²ΠΎΡΠΎΡΠ°
Procedure Rotate (Ax, Ay, Az: real; Ox, Oy, Oz: real); {ΠΏΠΎΠ²ΠΎΡΠΎΡ Π²ΠΎΠΊΡΡΠ³ ΠΎΡΠΈ Π²ΡΠ΅ ΡΠΎΡΠΊΠΈ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ°}
procedure Transfer (var T: Point; Ox, Oy, Oz: real);
var W: Point;
begin
T.x:=T.x-Ox;
T.y:=T.y-Oy;
T.z:=T.z-Oz;
end;
Procedure UnTransfer (var T: Point; Ox, Oy, Oz: real);
var W: Point;
begin
T.x:=T.x+Ox;
T.y:=T.y+Oy;
T.z:=T.z+Oz;
end;
Procedure RX (a:real; var P: Point); {ΠΏΠΎΠ²ΠΎΡΠΎΡ Π²ΠΎΠΊΡΡΠ³ ΠΎΡΠΈ OX ΠΎΠ΄Π½ΠΎΠΉ ΡΠΎΡΠΊΠΈ}
var Q: Point;
begin Q. x:=P.x; Q. y:=P.y*Cos (a)+P.z*Sin (a); Q. z:=-P.y*sin (a)+P.z*Cos (a); P:=Q end;
Procedure RY (a:real; var P: Point); {ΠΏΠΎΠ²ΠΎΡΠΎΡ Π²ΠΎΠΊΡΡΠ³ ΠΎΡΠΈ OY ΠΎΠ΄Π½ΠΎΠΉ ΡΠΎΡΠΊΠΈ}
var Q: Point;
begin Q. x:=P.x*Cos (a) — P. z*Sin (a); Q. y:=P.y; Q. z:=P.x*sin (a)+P.z*Cos (a); P:=Q end;
Procedure RZ (a:real; var P: Point); {ΠΏΠΎΠ²ΠΎΡΠΎΡ Π²ΠΎΠΊΡΡΠ³ ΠΎΡΠΈ OZ ΠΎΠ΄Π½ΠΎΠΉ ΡΠΎΡΠΊΠΈ}
var Q: Point;
begin Q. x:=P.x*Cos (a) — P. y*Sin (a); Q. y:=P.x*Sin (a)+P.y*Cos (a); Q. z:=P.z; P:=Q end;
var i: integer;
begin
if Form1. N17. Checked then
for i:=1 to Count do begin Transfer (InterPoint[i], Ox, Oy, Oz); RX (Ax, InterPoint[i]); RY (Ay, InterPoint[i]); RZ (Az, InterPoint[i]); UnTransfer (InterPoint[i], Ox, Oy, Oz) end;
for i:=1 to N do begin Transfer (V[i], Ox, Oy, Oz); RX (Ax, V[i]); RY (Ay, V[i]); RZ (Az, V[i]); UnTransfer (V[i], Ox, Oy, Oz); end;
end;
// * Π Π΅Π°Π»ΠΈΠ·Π°ΡΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅
Procedure Move (Lx, Ly, Lz: real);
var i: integer;
begin
if Form1. N17. Checked then
for i:=1 to Count do begin InterPoint[i]. x:=InterPoint[i].x+Lx; InterPoint[i]. y:=InterPoint[i].y+Ly; InterPoint[i]. z:=InterPoint[i].z+Lz; end;
for i:=1 to N do begin V[i]. x:=V[i].x+Lx; V[i]. y:=V[i].y+Ly; V[i]. z:=V[i].z+Lz end;
end;
// * Π Π°Π·ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΎΡΠ΅ΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΡ
Procedure MoveOs;
begin
if Form1. Centr. Left+Form1. Centr. Width>Form1. ClientWidth then
Form1. Centr. Left:=Form1. ClientWidth-Form1. Centr. Width;
if Form1. Centr. Top+Form1. Centr. Height>Form1. GroupBox1. Top then
Form1. Centr. Top:=Form1. GroupBox1. Top-Form1. Centr. Height;
if Form1. Centr. Top
Form1. Centr. Top:=Form1. ToolBar1. Top+Form1. ToolBar1. Height;
Form1. Vertikal. Top:=Form1. ToolBar1. Height;
Form1. Vertikal. Left:=Form1. Centr. Left;
Form1. Vertikal. Height:=Form1. GroupBox1. Top-Form1. ToolBar1. Height;
Form1. Vertikal. Width:=Form1. Centr. Width;
Form1. Horizontal. Top:=Form1. Centr. Top;
Form1. Horizontal. Left:=0;
Form1. Horizontal. Height:=Form1. Centr. Height;
Form1. Horizontal. Width:=Form1. ClientWidth
end;
// * Π Π°Π·ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΎΠΊΠΎΠ½ ΠΏΡΠΎΠ΅ΠΊΡΠΈΠΉ.
Procedure MoveWindow;
var i: byte;
begin
{ΠΠΈΠ΄ ΡΠ²Π΅ΡΡ Ρ}
Form1.PTop. Top:=Form1. ToolBar1. Height;
Form1.PTop. Left:=0;
Form1.PTop. Height:=Form1. Centr. Top-Form1.PTop. Top;
Form1.PTop. Width:=Form1. Centr. Left;
{ΠΠΈΠ΄ ΡΠΏΠ΅ΡΠ΅Π΄ΠΈ}
Form1.PFront. Top:=Form1. ToolBar1. Height;
Form1.PFront. Left:=Form1. Centr. Left+Form1. Centr. Width;
Form1.PFront. Height:=Form1. Centr. Top-Form1.PFront. Top;
Form1.PFront. Width:=Form1. ClientWidth-Form1. Centr. Left-Form1. Centr. Width;
{ΠΠΈΠ΄ ΡΠ»Π΅Π²Π°}
Form1.PLeft. Top:=Form1. Centr. Top+Form1. Centr. Height;
Form1.PLeft. Left:=0;
Form1.PLeft. Height:=Form1. GroupBox1. Top-Form1.PLeft. Top;
Form1.PLeft. Width:=Form1. Centr. Left;
{ΠΠΊΠ½ΠΎ ΠΏΠ΅ΡΡΠΏΠ΅ΠΊΡΠΈΠ²Ρ}
Form1.PPerspective. Top:=Form1. Centr. Top+Form1. Centr. Height;
Form1.PPerspective. Left:=Form1. Centr. Left+Form1. Centr. Width;
Form1.PPerspective. Height:=Form1. GroupBox1. Top-Form1.PPerspective. Top;
Form1.PPerspective. Width:=Form1. ClientWidth-Form1. Centr. Left-Form1. Centr. Width;
{ΠΠ°Π΄Π°Π΅ΠΌ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΠΌΠΈΡΠΎΠ²ΠΎΠ³ΠΎ ΡΠ΅Π½ΡΡΠ°}
for i:=1 to 4 do
begin
Scene[i]. M. Cx:=WindowProection[i]. Width div 2;
Scene[i]. M. Cy:=WindowProection[i]. Height div 2;
end;
end;
// * ΠΡΠ²ΠΎΠ΄ ΡΠΎΡΠ΅ΠΊ ΡΠ΅ΡΠ΅Π½ΠΈΡ
Procedure Puk;
var i, j: byte;
begin
for j:=1 to Count do
for i:=1 to 3 do
begin
WindowProection[i]. Canvas. Pen. Color:=ColorPointIntersection;
WindowProection[i]. Canvas. Ellipse (Ser (i, InterPoint[j], Scene[i]. M).X-SizeT, Ser (i, InterPoint[j], Scene[i]. M).Y-SizeT, Ser (i, InterPoint[j], Scene[i]. M).X+SizeT, Ser (i, InterPoint[j], Scene[i]. M).Y+SizeT);
end;
end;
// * ΠΠΎΡΡΡΠΎΠ΅Π½ΠΈΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΡ
Procedure BildInter;
var i, j: integer;
Dipol:array [1.gran, 1.2] of Point;
Para, Count: integer;
Gp:array [0.gran] of Point;
Procedure UravPl (A1, A2, A3: Point; var A, B, C, D: real); {Π£ΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ ΡΠ΅ΡΠ΅Π½ΠΈΡ}
var P: Vector;
begin
p:=Form1. Normal (A1, A2, A3);
A:=p.x;
B:=p.y;
C:=P.z;
D:= - ((A*A1.x)+(B*A1.y)+(C*A1.z))
end;
Function Sec (n, p: Point; A, B, C, D: real; var IP: Point):boolean; {Π’ΠΎΡΠΊΠΈ ΡΠ΅ΡΠ΅Π½ΠΈΡ}
var Kx, Ky, Kz, P1, P2, P3: real;
Yes:boolean;
begin
Yes:=false;
P1:=(A*n.x)+(B*n.y)+(C*n.z)+D;
P2:=(A*p.x)+(B*p.y)+(C*p.z)+D;
if P1=0 then begin IP:=n; Yes:=true end
else if P2=0 then begin IP:=p; Yes:=true end else
if P1*P2<0 then
begin
Yes:=true;
P1:=n.x-p.x; P2:=n.y-p.y; P3:=n.z-p.z;
if P1=0 then IP. x:=n.x
else
begin
Kx:=((B*P2)+(C*P3))/P1;
IP.x:=((Kx*n.x) — (B*n.y) — (C*n.z) — D)/(A+Kx);
end;
if P2=0 then IP. y:=n.y
else
begin
Ky:=((A*P1)+(C*P3))/P2;
IP.y:=((Ky*n.y) — (A*n.x) — (C*n.z) — D)/(B+Ky);
end;
if P3=0 then IP. z:=n.z
else
begin
Kz:=((A*P1)+(B*P2))/P3;
IP.z:=((Kz*n.z) — (A*n.x) — (B*n.y) — D)/(C+Kz);
end;
end;
Sec:=Yes;
end;
Procedure Cep; {ΠΠΎΡΡΡΠΎΠ΅Π½ΠΈΠ΅ ΠΌΠ½ΠΎΠ³ΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠ° ΡΠ΅ΡΠ΅Π½ΠΈΡ}
Function RavPoi (a, b: point; Er: real):boolean;
var rez: boolean;
begin
rez:=false;
if abs (a.x-b.x)
if abs (a.y-b.y)
if abs (a.z-b.z)
RavPoi:=rez;
end;
var i, j: integer;
h, f: Point;
begin
for i:=1 to Count1 do
begin
for j:=i+1 to Count do
begin
if RavPoi (Dipol[j, 1], Dipol [i, 2], Lok) then
begin
h:=Dipol [i+1,1];
f:=Dipol [i+1,2];
Dipol [i+1,1]: =Dipol [j, 1];
Dipol [i+1,2]: =Dipol [j, 2];
Dipol [j, 1]: =h;
Dipol [j, 2]: =f;
Break;
end;
if RavPoi (Dipol[j, 2], Dipol [i, 2], Lok) then
begin
h:=Dipol [i+1,1];
f:=Dipol [i+1,2];
Dipol [i+1,1]: =Dipol [j, 2];
Dipol [i+1,2]: =Dipol [j, 1];
Dipol [j, 2]: =h;
Dipol [j, 1]: =f;
Break;
end;
end;
end;
Form1. Label1. Caption:='Π‘Π΅ΡΠ΅Π½ΠΈΠ΅ — '+inttostr (Count)+' ΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊ.';
E [M+1,0]: =Count;
for i:=1 to Count do
begin
V [N+i]: =Dipol [i, 1];
E [M+1, i]: =N+i;
end;
for i:=1 to 3 do
begin
Scene[i]. G [M+1]. Visible:=true;
Scene[i].G [M+1]. Paint:=true;
Scene[i].G [M+1]. BrushGr:=true;
end;
end;
begin
UravPl (InterPoint[1], InterPoint[2], InterPoint[3], A, B, C, D);
Count:=0;
for i:=1 to M do
begin
Para:=0;
for j:=1 to E [i, 0] - 1 do
begin
if Sec (V[E [i, j]], V [E[i, j+1]], A, B, C, D, Gp[Para]) then inc (para);
if Para>2 then Break;
end;
if Sec (V[E [i, E [i, 0]]], V [E[i, 1]], A, B, C, D, Gp[Para]) then inc (para);
if Para=2 then
begin
inc (Count);
Dipol [Count, 1]: =Gp[0];
Dipol [Count, 2]: =Gp[1];
end;
end;
if Count>2 then
begin
Form1. IntWiew. Enabled:=true;
Cep;
end;
end;
Procedure WindowsMove (X, Y, i: integer; shift: TShiftState);
var a, b, c: string;
h, k: integer;
Par:TPoint;
t, firsttrue: boolean;
begin
firsttrue:=false;
if MPI then begin MoveP (i, kl, X, Y); MPI:=false end;
Form1. StatusBar2. Panels[0]. Text:='X= '+floattostrf (UnSer (i, X, Y, 0,0,0, Scene[i]. M).x, ffGeneral, 3,5);
Form1. StatusBar2. Panels[1]. Text:='Y= '+floattostrf (UnSer (i, X, Y, 0,0,0, Scene[i]. M).y, ffGeneral, 3,5);
Form1. StatusBar2. Panels[2]. Text:='Z= '+floattostrf (UnSer (i, X, Y, 0,0,0, Scene[i]. M).z, ffGeneral, 3,5);
if (ssleft in shift) and Form1. N34. Checked then
if Scene[i]. M. Mash — (Y-Y0)>0 then Scene[i]. M. Mash:=Scene[i]. M. Mash — (Y-Y0) else ShowMessage ('ΠΠ°ΡΡΡΠ°Π±: ΠΌΠ΅Π½ΡΡΠ΅ Π½Π΅Π»ΡΠ·Ρ!');
if Form1. N8. Checked and ((i=1) or (i=2)) then X0:=X;
if Form1. N9. Checked and (i=1) then Y0:=Y;
if Form1. N10. Checked and ((i=2) or (i=3)) then Y0:=Y;
if Form1. N9. Checked and (i=3) then X0:=X;
if Form1. N36. Checked then
begin
k:=SelectGran (i, X, Y);
if k<>0 then
begin
t:=Scene[i]. G[k].Paint;
Scene[i].G[k].Paint:=false;
Form1. Repaint;
Scene[i]. G[k].Paint:=t;
end
else Form1. Repaint;
end;
if Form1. N37. Checked then
begin
k:=SelectGran (i, X, Y);
if k<>0 then
begin
t:=Scene[i]. G[k].Paint;
Scene[i].G[k].Paint:=true;
Form1. Repaint;
Scene[i]. G[k].Paint:=t;
end
else Form1. Repaint;
end;
if Form1. N27. Checked and Form1. IntWiew. Enabled then
for h:=1 to 3 do if First[h] then
begin
Firsttrue:=true;
Form1. Repaint;
if SelReber (i, x, y, Par) then
PenRebPr (i, Par. x, Par. y);
end;
if ssleft in shift then
begin
if Form1. N27. Checked and Form1. IntWiew. Enabled and (not FirstTrue) then
begin
SelectPointIntersection (i, X, Y, kl);
if kl<>0 then
begin
MoveP (i, kl, X, Y);
MPI:=true
end
else MPI:=false
end;
if Form1. N29. Checked then
if Form1. N12. Checked then
Rotate ((UnSer (i, Y, X, 0,0,0, Scene[i]. M).x-UnSer (i, Y0, X0,0,0,0, Scene[i]. M).x)*Pi/180*Scene[i].M. Mash, (UnSer (i, Y, X, 0,0,0, Scene[i]. M).y-UnSer (i, Y0, X0,0,0,0, Scene[i]. M).y)*Pi/180*Scene[i].M. Mash, (UnSer (i, Y, X, 0,0,0, Scene[i]. M).z-UnSer (i, Y0, X0,0,0,0, Scene[i]. M).z)*Pi/180*Scene[i].M. Mash, V[1]. x, V[1]. y, V[1]. z)
else if Form1. N13. Checked then
Rotate ((UnSer (i, Y, X, 0,0,0, Scene[i]. M).x-UnSer (i, Y0, X0,0,0,0, Scene[i]. M).x)*Pi/180*Scene[i].M. Mash, (UnSer (i, Y, X, 0,0,0, Scene[i]. M).y-UnSer (i, Y0, X0,0,0,0, Scene[i]. M).y)*Pi/180*Scene[i].M. Mash, (UnSer (i, Y, X, 0,0,0, Scene[i]. M).z-UnSer (i, Y0, X0,0,0,0, Scene[i]. M).z)*Pi/180*Scene[i].M. Mash, 0,0,0);
if Form1. N28. Checked then
Move (UnSer (i, X, Y, 0,0,0, Scene[i]. M).x-UnSer (i, X0, Y0,0,0,0, Scene[i]. M).x, UnSer (i, X, Y, 0,0,0, Scene[i]. M).y-UnSer (i, X0, Y0,0,0,0, Scene[i]. M).y, UnSer (i, X, Y, 0,0,0, Scene[i]. M).z-UnSer (i, X0, Y0,0,0,0, Scene[i]. M).z);
X0:=X; Y0:=Y; Form1. Repaint;
end;
end;
procedure TForm1. N5Click (Sender: TObject);
begin
Form1. Close;
end;
// * ΠΠ·ΠΌΠΈΠ½Π΅Π½ΠΈΠ΅ ΡΠ°Π·ΠΌΠ΅Ρ ΠΎΠΊΠΎΠ½ ΠΏΡΠΎΠ΅ΠΊΡΠΈΠΉ
procedure TForm1. CentrMouseMove (Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssLeft in Shift then
begin
if (Form1. Centr. Left+X>=0) and (Form1. Centr. Left+X
Form1. Centr. Left:=Form1. Centr. Left+X;
if (Form1. Centr. Top+Y>=Form1. ToolBar1. Height) and ((Form1. Centr. Top+Y)<=(Form1. ToolBar1. Height+Form1. Vertikal. Height-Form1. Centr. Height)) then
Form1. Centr. Top:=Form1. Centr. Top+Y;
MoveOs;
end
end;
procedure TForm1. CentrMouseUp (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
MoveWindow;
end;
procedure TForm1. FormCreate (Sender: TObject);
var i: byte;
begin
// * ΠΡΠΈΡΠ²Π°ΠΈΠ²Π°Π΅ΠΌ ΡΡΠ»ΡΠΊΠΈ
WindowProection[1]: =Form1.ITop;
WindowProection[2]:=Form1.IFront;
WindowProection[3]:=Form1.ILeft;
WindowProection[4]:=Form1.IPerspective;
PanelWindow[1]:=Form1.PTop;
PanelWindow[2]:=Form1.PFront;
PanelWindow[3]:=Form1.PLeft;
PanelWindow[4]:=Form1.PPerspective;
Magnit[1]:=Mag1;
Magnit[2]:=Mag2;
Magnit[3]:=Mag3;
// * ΠΠ΅ΡΠ²ΠΎΠ½Π°ΡΠ°Π»ΡΠ½Π°Ρ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠ° ΡΠ²Π΅ΡΠ°
ActivColor:=clYellow;
ColorEder:=clAqua;
ColorUnEder:=clSilver;
ColorRebro:=clBlack;
ColorIntersection:=clRed;
ColorPointIntersection:=clBlue;
ColorNet:=clBtnFace;
// * Π Π°ΠΏΠΎΠ»ΠΎΠ³Π°Π΅ΠΌ ΠΎΠΊΠ½Π° ΠΏΡΠΎΠ΅ΠΊΡΠΈΠΉ ΠΈ ΠΎΡΠΈ
MoveWindow;
MoveOs;
// * ΠΠ°Π΄Π°Π΅ΠΌ ΠΌΠ°ΡΡΡΠ°Π± ΠΎΠΊΠΎΠ½ ΠΏΡΠΎΠ΅ΠΊΡΠΈΠΉ
for i:=1 to 3 do
Scene[i]. M. Mash:=100;
Scene[4]. M. Mash:=50;
for i:=1 to 3 do
First[i]: =false;
// Π£ΡΡΠ°Π½ΠΎΠ²ΠΊΠ° ΡΠ΅ΠΆΠΈΠΌΠ°
Form1. IntWiew. Enabled:=false;
Count:=0;
MPI:=false;
// ΠΠΊΡΠΈΠ²Π°ΡΠΈΡ Π²ΠΈΠ΄Π° ΡΠ²Π΅ΡΡ Ρ
ActivWindowProection (1);
end;
procedure TForm1. FormResize (Sender: TObject);
begin
MoveOs;
MoveWindow;
end;
// ΠΠ°Π³ΡΡΠ·ΠΊΠ° ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ° ΠΈΠ· ΡΠ°ΠΉΠ»Π°
procedure TForm1. N2Click (Sender: TObject);
var
f:textfile;
i, j, k, l: integer;
Max, Q: real;
begin
if Form1. OD1. Execute then
begin
assignfile (f, Form1. OD1. FileName);
reset (f);
readln (f, N);
for i:=1 to N do {Π·Π°Π³ΡΡΠ·ΠΊΠ° ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ Π²Π΅ΡΡΠΈΠ½}
readln (f, V[i]. x, V[i]. y, V[i]. z);
readln (f, M);
for i:=1 to M do
begin
j:=0;
while not eoln (f) do {Π·Π°Π³ΡΡΠ·ΠΊΠ° Π³ΡΠ°Π½Π΅ΠΉ}
begin
inc (j);
read (f, E [i, j]);
end;
readln (f);
E [i, 0]: =j;
end;
Form1. StatusBar2. Panels[3]. Text:='Π€Π°ΠΉΠ»: '+Form1.OD1. FileName;
Form1.N3. Enabled:=true;
Form1. ToolButton2. Enabled:=true;
closefile (f);
for i:=1 to 4 do
begin
for j:=1 to M do {Π£ΡΡΠ°Π½ΠΎΠ²ΠΊΠ° Π²ΠΈΠ΄Π° ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ}
begin
Scene[i]. G[j].Paint:=true;
Scene[i].G[j].BrushGr:=true;
Scene[i].G[j].PenRb:=false;
Scene[i].G[j].ColorRb:=ColorRebro;
Form1.N21. Checked:=false;
Form1.N22. Checked:=true;
Form1.N41. Click;
Num:=1;
end;
Max:=sqrt (sqr (V[1]. x-V[N].x)+sqr (V[1]. y-V[N].y)+sqr (V[1]. z-V[N].z));
for l:=1 to N1 do
for k:=1 to N1 do
begin
Q:=sqrt (sqr (V[i]. x-V[l].x)+sqr (V[i]. y-V[l].y)+sqr (V[i]. z-V[l].z));
if Q>Max then Max:=Q
end;
for k:=1 to 4 do
Scene[k]. M. Mash:=WindowProection[k]. Height/Max;
end;
Form1. Repaint;
end;
end;
procedure TForm1. ITopClick (Sender: TObject);
begin
if not Scene[1]. Active then {ΠΠΊΡΠΈΠ²Π°ΡΠΈΡ ΠΎΠΊΠ½Π° ΠΏΡΠΎΠ΅ΠΊΡΠΈΠΈ Π²ΠΈΠ΄ ΡΠ²Π΅ΡΡ Ρ}
ActivWindowProection (1);
end;
procedure TForm1. IFrontClick (Sender: TObject);
begin
if not Scene[2]. Active then {ΠΠΊΡΠΈΠ²Π°ΡΠΈΡ ΠΎΠΊΠ½Π° ΠΏΡΠΎΠ΅ΠΊΡΠΈΠΈ Π²ΠΈΠ΄ ΡΠΏΠ΅ΡΠ΅Π΄ΠΈ}
ActivWindowProection (2);
end;
procedure TForm1. ILeftClick (Sender: TObject);
begin
if not Scene[3]. Active then {ΠΠΊΡΠΈΠ²Π°ΡΠΈΡ ΠΎΠΊΠ½Π° ΠΏΡΠΎΠ΅ΠΊΡΠΈΠΈ Π²ΠΈΠ΄ ΡΠ»Π΅Π²Π°}
ActivWindowProection (3);
end;
procedure TForm1. ITopMouseMove (Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Scene[1]. Active then
begin
WindowsMove (X, Y, 1, shift);
end;
end;
procedure TForm1. IFrontMouseMove (Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Scene[2]. Active then
WindowsMove (X, Y, 2, shift);
end;
procedure TForm1. ILeftMouseMove (Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Scene[3]. Active then
WindowsMove (X, Y, 3, shift);
end;
// * Π‘ΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΠΌΠ½ΠΎΠ³ΠΎΠ³ΡΠ°Π½Π½ΠΈΠΊΠ°
procedure TForm1. N3Click (Sender: TObject);
var
f:textfile;
i, j: integer;
begin
if Form1. SD1. Execute then
begin
assignfile (f, Form1. SD1. FileName+'.txt');
rewrite (f);
writeln (f, N);
for i:=1 to N do {Π·Π°ΠΏΠΈΡΡ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ Π²Π΅ΡΡΠΈΠ½}
begin
writeln (f, V[i]. x:5:3,' ', V[i]. y:5:3,' ', V[i]. z:5:3);
end;
writeln (f, M);
for i:=1 to M do
begin
for j:=1 to E [i, 0] do {Π·Π°ΠΏΠΈΡΡ ΠΎΠ±Ρ ΠΎΠ΄Π° Π³Π½Π°Π½Π΅ΠΉ}
write (f, ' ', E [i, j]);
writeln (f);
end;
Form1. StatusBar2. Panels[3]. Text:='Π€Π°ΠΉΠ»: '+Form1.SD1. FileName;
closefile (f);
Repaint;
end;
end;
procedure TForm1. N33Click (Sender: TObject);
begin
ShowMessage ('ΠΡΡΡΠΎΠ²Π°Ρ ΡΠ°Π±ΠΎΡΠ°. ΠΠΎΡΠΈΠ½ Π. Π. Π€Π43');
end;
procedure TForm1. ToolButton1Click (Sender: TObject);
begin
Form1.N2. Click;
end;
procedure TForm1. ToolButton2Click (Sender: TObject);
begin
Form1.N3. Click;
end;
// * ΠΠ΅ΡΠ΅ΡΠΈΡΠΎΠ²ΠΊΠ° ΡΠΎΡΠΌΡ
procedure TForm1. FormPaint (Sender: TObject);
Procedure ColorLight (i:integer; ColorEder, ColorUnEder: TColor);
var
j:integer;
n:vector;
c:real;
NorVec:array [1.4] of real;
begin
{ΠΠΎΡΠΌΠ°Π»ΡΠ½ΡΠΉ Π²Π΅ΠΊΡΠΎΡ}
n:=Normal (V[E [i, 1]], V [E[i, 2]], V [E[i, 3]]);
NorVec[1]: =n.z; NorVec[2]: =n.y; NorVec[3]: =n.x; NorVec[4]: =n.z;
for j:=1 to 4 do
Scene[j]. G[i].Visible:=NorVec[j]>0;
{ΠΡΠ²Π΅ΡΠ΅Π½Π½ΠΎΡΡΡ}
c:=sqrt (sqr (n.x)+sqr (n.y)+sqr (n.z));