Π’ΡΠ°ΡΡΠΈΡΠΎΠ²ΠΊΠ° ΠΏΠ΅ΡΠ°ΡΠ½ΠΎΠΉ ΠΏΠ»Π°ΡΡ
Π―Π·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Pascal Π±ΡΠ» ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½ Π² 1968—1971 Π³Π³. ΠΠΈΠΊΠ»Π°ΡΡΠΎΠΌ ΠΠΈΡΡΠΎΠΌ Π² Π¦ΡΡΠΈΡ ΡΠΊΠΎΠΌ ΠΠ½ΡΡΠΈΡΡΡΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠΈ (Π¨Π²Π΅ΠΉΡΠ°ΡΠΈΡ). ΠΠ΅ΡΠ²ΠΎΠ½Π°ΡΠ°Π»ΡΠ½Π°Ρ ΡΠ΅Π»Ρ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠ·ΡΠΊΠ° Π΄ΠΈΠΊΡΠΎΠ²Π°Π»Π°ΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΡΡ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠ° «Π΄Π»Ρ ΠΎΠ±ΡΡΠ΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΊΠ°ΠΊ ΡΠΈΡΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠΉ Π΄ΠΈΡΡΠΈΠΏΠ»ΠΈΠ½Π΅». ΠΠ΄Π½Π°ΠΊΠΎ ΠΎΡΠ΅Π½Ρ ΡΠΊΠΎΡΠΎ ΠΎΠ±Π½Π°ΡΡΠΆΠΈΠ»Π°ΡΡ ΡΡΠ΅Π·Π²ΡΡΠ°ΠΉΠ½Π°Ρ ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΠΎΡΡΡ ΡΠ·ΡΠΊΠ° Pascal Π² ΡΠ°ΠΌΡΡ ΡΠ°Π·Π½ΠΎΠΎΠ±ΡΠ°Π·Π½ΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡΡ , ΠΎΡ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π½Π΅Π±ΠΎΠ»ΡΡΠΈΡ Π·Π°Π΄Π°Ρ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
Π’ΡΠ°ΡΡΠΈΡΠΎΠ²ΠΊΠ° ΠΏΠ΅ΡΠ°ΡΠ½ΠΎΠΉ ΠΏΠ»Π°ΡΡ (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠΈΠ½ΠΈΡΡΠ΅ΡΡΡΠ²ΠΎ Π½Π°ΡΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΡ Π ΠΎΡΡΠΈΠΉΡΠΊΠΎΠΉ Π€Π΅Π΄Π΅ΡΠ°ΡΠΈΠΈ ΠΠΈΠΠΠ’ ΠΠ°ΡΠ΅Π΄ΡΠ° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠΈ Π²ΡΡΠΈΡΠ»ΠΈΡΠ΅Π»ΡΠ½ΠΎΠΉ ΡΠ΅Ρ Π½ΠΈΠΊΠΈ
ΠΡΡΡΠΎΠ²Π°Ρ ΡΠ°Π±ΠΎΡΠ°
ΠΠΎ ΠΊΡΡΡΡ «ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΠ’ ΠΈ ΠΠ‘»
ΠΠ° ΡΠ΅ΠΌΡ: «Π’ΡΠ°ΡΡΠΈΡΠΎΠ²ΠΊΠ° ΠΏΠ΅ΡΠ°ΡΠ½ΠΎΠΉ ΠΏΠ»Π°ΡΡ»
Π Π°Π·ΡΠ°Π±ΠΎΡΠ°Π»: ΡΡΡΠ΄Π΅Π½Ρ Π³ΡΡΠΏΠΏΡ ΠΠΠ-42 ΠΡΠ΄ΡΡΠ²ΡΠ΅Π² Π.Π.
ΠΡΠΈΠ½ΡΠ»: ΠΊ.Ρ.Π½., Π΄ΠΎΡΠ΅Π½Ρ ΠΊΠ°ΡΠ΅Π΄ΡΡ ΠΠ’ ΠΠ°ΡΠ°ΡΠΎΠ² Π .Π.
ΠΠΆΠ΅Π²ΡΠΊ 2005
ΠΠ²Π΅Π΄Π΅Π½ΠΈΠ΅
Π―Π·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Pascal Π±ΡΠ» ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½ Π² 1968—1971 Π³Π³. ΠΠΈΠΊΠ»Π°ΡΡΠΎΠΌ ΠΠΈΡΡΠΎΠΌ Π² Π¦ΡΡΠΈΡ ΡΠΊΠΎΠΌ ΠΠ½ΡΡΠΈΡΡΡΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠΈ (Π¨Π²Π΅ΠΉΡΠ°ΡΠΈΡ). ΠΠ΅ΡΠ²ΠΎΠ½Π°ΡΠ°Π»ΡΠ½Π°Ρ ΡΠ΅Π»Ρ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠ·ΡΠΊΠ° Π΄ΠΈΠΊΡΠΎΠ²Π°Π»Π°ΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΡΡ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠ° «Π΄Π»Ρ ΠΎΠ±ΡΡΠ΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΊΠ°ΠΊ ΡΠΈΡΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠΉ Π΄ΠΈΡΡΠΈΠΏΠ»ΠΈΠ½Π΅». ΠΠ΄Π½Π°ΠΊΠΎ ΠΎΡΠ΅Π½Ρ ΡΠΊΠΎΡΠΎ ΠΎΠ±Π½Π°ΡΡΠΆΠΈΠ»Π°ΡΡ ΡΡΠ΅Π·Π²ΡΡΠ°ΠΉΠ½Π°Ρ ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΠΎΡΡΡ ΡΠ·ΡΠΊΠ° Pascal Π² ΡΠ°ΠΌΡΡ ΡΠ°Π·Π½ΠΎΠΎΠ±ΡΠ°Π·Π½ΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡΡ , ΠΎΡ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π½Π΅Π±ΠΎΠ»ΡΡΠΈΡ Π·Π°Π΄Π°Ρ ΡΠΈΡΠ»Π΅Π½Π½ΠΎΠ³ΠΎ Ρ Π°ΡΠ°ΠΊΡΠ΅ΡΠ° Π΄ΠΎ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠ»ΠΎΠΆΠ½ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ ΡΠΈΡΡΠ΅ΠΌ — ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡΠΎΠ², Π±Π°Π· Π΄Π°Π½Π½ΡΡ , ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½ΡΡ ΡΠΈΡΡΠ΅ΠΌ ΠΈ Ρ. ΠΏ. Π Π½Π°ΡΡΠΎΡΡΠ΅ΠΌΡ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ Pascal ΠΏΡΠΈΠ½Π°Π΄Π»Π΅ΠΆΠΈΡ ΠΊ Π³ΡΡΠΏΠΏΠ΅ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΡΠ°ΡΠΏΡΠΎΡΡΡΠ°Π½Π΅Π½Π½ΡΡ ΠΈ ΠΏΠΎΠΏΡΠ»ΡΡΠ½ΡΡ Π² ΠΌΠΈΡΠ΅ ΡΠ·ΡΠΊΠΎΠ² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ. Π‘ΡΡΠ΅ΡΡΠ²ΡΡΡ ΠΌΠ½ΠΎΠ³ΠΎΡΠΈΡΠ»Π΅Π½Π½ΡΠ΅ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΡΠ·ΡΠΊΠ° ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ Π΄Π»Ρ Π²ΡΠ΅Ρ ΠΌΠ°ΡΠΈΠ½Π½ΡΡ Π°ΡΡ ΠΈΡΠ΅ΠΊΡΡΡ; ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Ρ Π΄Π΅ΡΡΡΠΊΠΈ Π΄ΠΈΠ°Π»Π΅ΠΊΡΠΎΠ² ΠΈ ΠΏΡΠΎΠ±Π»Π΅ΠΌΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΠΉ ΡΠ·ΡΠΊΠ° Pascal; ΠΎΠ±ΡΡΠ΅Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΈ Π½Π°ΡΡΠ½ΠΎ-ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΏΡΠ±Π»ΠΈΠΊΠ°ΡΠΈΠΈ Π² Π·Π½Π°ΡΠΈΡΠ΅Π»ΡΠ½ΠΎΠΉ ΡΡΠ΅ΠΏΠ΅Π½ΠΈ Π±Π°Π·ΠΈΡΡΡΡΡΡ Π½Π° ΡΡΠΎΠΌ ΡΠ·ΡΠΊΠ΅.
Π₯Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΡΡΠΈΠΊΠ° ΠΈ ΠΎΡΠΎΠ±Π΅Π½Π½ΠΎΡΡΠΈ ΡΠ·ΡΠΊΠ°. Π‘ΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ ΡΡΠ΄ ΠΎΠ±ΡΠ΅ΠΊΡΠΈΠ²Π½ΡΡ ΠΏΡΠΈΡΠΈΠ½, ΠΎΠ±ΡΡΠ»ΠΎΠ²ΠΈΠ²ΡΠΈΡ Π²ΡΠ΄Π°ΡΡΠΈΠΉΡΡ ΡΡΠΏΠ΅Ρ ΡΠ·ΡΠΊΠ° Pascal. Π‘ΡΠ΅Π΄ΠΈ Π½ΠΈΡ Π² ΠΏΠ΅ΡΠ²ΡΡ ΠΎΡΠ΅ΡΠ΅Π΄Ρ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠΊΠ°Π·Π°ΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅:
1. Π―Π·ΡΠΊ Π² Π΅ΡΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΎΠΉ ΠΈ ΡΠ»Π΅Π³Π°Π½ΡΠ½ΠΎΠΉ ΡΠΎΡΠΌΠ΅ ΠΎΡΡΠ°Π·ΠΈΠ» Π²Π°ΠΆΠ½Π΅ΠΉΡΠΈΠ΅ ΡΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ ΠΊΠΎΠ½ΡΠ΅ΠΏΡΠΈΠΈ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΈ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ: ΡΠ°Π·Π²ΠΈΡΠ°Ρ ΡΠΈΡΡΠ΅ΠΌΠ° ΡΠΈΠΏΠΎΠ², ΠΎΡΠΈΠ΅Π½ΡΠ°ΡΠΈΡ Π½Π° ΠΏΡΠΈΠ½ΡΠΈΠΏΡ ΡΡΡΡΠΊΡΡΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ, ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ° ΠΏΡΠΎΡΠ΅ΡΡΠ° ΠΏΠΎΡΠ°Π³ΠΎΠ²ΠΎΠΉ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ.
2. ΠΠ»Π°Π³ΠΎΠ΄Π°ΡΡ ΡΠ²ΠΎΠ΅ΠΉ ΠΊΠΎΠΌΠΏΠ°ΠΊΡΠ½ΠΎΡΡΠΈ, ΠΊΠΎΠ½ΡΠ΅ΠΏΡΡΠ°Π»ΡΠ½ΠΎΠΉ ΡΠ΅Π»ΠΎΡΡΠ½ΠΎΡΡΠΈ ΠΈ ΠΎΡΡΠΎΠ³ΠΎΠ½Π°Π»ΡΠ½ΠΎΡΡΠΈ ΠΏΠΎΠ½ΡΡΠΈΠΉ, Π° ΡΠ°ΠΊΠΆΠ΅ ΡΠ΄Π°ΡΠ½ΠΎΠΌΡ ΠΏΠ΅ΡΠ²ΠΎΠ½Π°ΡΠ°Π»ΡΠ½ΠΎΠΌΡ ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ, ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½Π½ΠΎΠΌΡ Π°Π²ΡΠΎΡΠΎΠΌ ΡΠ·ΡΠΊΠ°, Pascal ΠΎΠΊΠ°Π·Π°Π»ΡΡ Π²Π΅ΡΡΠΌΠ° Π»Π΅Π³ΠΎΠΊ Π΄Π»Ρ ΠΈΠ·ΡΡΠ΅Π½ΠΈΡ ΠΈ ΠΎΡΠ²ΠΎΠ΅Π½ΠΈΡ. Π ΠΏΡΠΎΡΠΈΠ²ΠΎΠΏΠΎΠ»ΠΎΠΆΠ½ΠΎΡΡΡ Π³ΡΠΎΠΌΠΎΠ·Π΄ΠΊΠΈΠΌ ΠΌΠ½ΠΎΠ³ΠΎΡΠΎΠΌΠ½ΡΠΌ ΠΎΠΏΠΈΡΠ°Π½ΠΈΡΠΌ ΡΠ°ΠΊΠΈΡ ΡΠ·ΡΠΊΠΎΠ², ΠΊΠ°ΠΊ PL/I, Cobol, FORTRAN, Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΠΏΠΎΠ»Π½ΠΎΠ΅ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΡΠ·ΡΠΊΠ° Pascal Π·Π°Π½ΠΈΠΌΠ°Π΅Ρ ΠΎΠΊΠΎΠ»ΠΎ 30 ΡΡΡΠ°Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ°, Π° Π΅Π³ΠΎ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΏΡΠ°Π²ΠΈΠ»Π° ΠΌΠΎΠΆΠ½ΠΎ ΡΠ°Π·ΠΌΠ΅ΡΡΠΈΡΡ Π½Π° ΠΎΠ΄Π½ΠΎΠΉ ΡΡΡΠ°Π½ΠΈΡΠ΅.
3. ΠΠ΅ΡΠΌΠΎΡΡΡ Π½Π° ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΡΡ ΠΏΡΠΎΡΡΠΎΡΡ ΡΠ·ΡΠΊΠ°, ΠΎΠ½ ΠΎΠΊΠ°Π·Π°Π»ΡΡ ΠΏΡΠΈΠ³ΠΎΠ΄Π΅Π½ Π΄Π»Ρ Π²Π΅ΡΡΠΌΠ° ΡΠΈΡΠΎΠΊΠΎΠ³ΠΎ ΡΠΏΠ΅ΠΊΡΡΠ° ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ, Π² ΡΠΎΠΌ ΡΠΈΡΠ»Π΅ Π΄Π»Ρ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΎΡΠ΅Π½Ρ Π±ΠΎΠ»ΡΡΠΈΡ ΠΈ ΡΠ»ΠΎΠΆΠ½ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½ΡΡ ΡΠΈΡΡΠ΅ΠΌ.
4. Pascal Π²Π΅ΡΡΠΌΠ° ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡΠ΅Π½ Π΄Π»Ρ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ Π΄Π»Ρ Π²ΡΠ΅Ρ , Π² ΡΠΎΠΌ ΡΠΈΡΠ»Π΅ ΠΈ Π½Π΅ΡΡΠ°Π΄ΠΈΡΠΈΠΎΠ½Π½ΡΡ , ΠΌΠ°ΡΠΈΠ½Π½ΡΡ Π°ΡΡ ΠΈΡΠ΅ΠΊΡΡΡ. Π£ΡΠ²Π΅ΡΠΆΠ΄Π°Π΅ΡΡΡ, ΡΡΠΎ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ° Pascal-ΡΡΠ°Π½ΡΠ»ΡΡΠΎΡΠ° «ΠΏΠΎΡΡΠΈ Π½Π΅ ΠΏΡΠ΅Π²ΡΡΠ°Π΅Ρ ΠΏΠΎ ΡΡΡΠ΄ΠΎΠ΅ΠΌΠΊΠΎΡΡΠΈ Ρ ΠΎΡΠΎΡΡΡ Π΄ΠΈΠΏΠ»ΠΎΠΌΠ½ΡΡ ΡΠ°Π±ΠΎΡΡ Π²ΡΠΏΡΡΠΊΠ½ΠΈΠΊΠ° Π²ΡΠ·Π°». ΠΠ»Π°Π³ΠΎΠ΄Π°ΡΡ ΡΡΠΎΠΌΡ Π΄Π»Ρ ΠΌΠ½ΠΎΠ³ΠΈΡ ΠΠΠ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΡΠ·ΡΠΊΠ°, ΠΎΡΡΠ°ΠΆΠ°ΡΡΠΈΡ ΡΠ΅ ΠΈΠ»ΠΈ ΠΈΠ½ΡΠ΅ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΏΠΎΡΡΠ΅Π±Π½ΠΎΡΡΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΠΎΠ².
Π―Π·ΡΠΊ Pascal ΡΡΠ°Π½Π΄Π°ΡΡΠΈΠ·ΠΎΠ²Π°Π½ Π²ΠΎ ΠΌΠ½ΠΎΠ³ΠΈΡ ΡΡΡΠ°Π½Π°Ρ . Π 1983 Π³ΠΎΠ΄Ρ Π±ΡΠ» ΠΏΡΠΈΠ½ΡΡ ΠΌΠ΅ΠΆΠ΄ΡΠ½Π°ΡΠΎΠ΄Π½ΡΠΉ ΡΡΠ°Π½Π΄Π°ΡΡ (ISO 7185:1983). ΠΠΎΡΠΎΠ²ΠΈΡΡΡ (ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ Π½Π° 1989 Π³ΠΎΠ΄) ΡΡΠ°Π½Π΄Π°ΡΡ Π‘ΠΠ Π½Π° Pascal.
Π’Π΅ΠΊΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΡΠ°ΡΡΠΈΡΠΎΠ²ΠΊΠ° ΠΏΠ»Π°ΡΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΊΡΠ°ΡΡΠ°ΠΉΡΠΈΠΉ Π rogram plata; {ΠΠ°Ρ ΠΎΠ΄ΠΈΡ ΠΊΡΠ°ΡΡΠ°ΠΉΡΠΈΠΉ ΠΏΡΡΡ ΠΎΡ ΠΎΠ΄Π½ΠΎΠΉ ΡΠΎΡΠΊΠΈ Π΄ΠΎ Π΄ΡΡΠ³ΠΎΠΉ}
uses crt; {Π½Π΅ ΠΏΠ΅ΡΠ΅ΡΠ΅ΠΊΠ°Ρ ΡΠΆΠ΅ ΠΏΡΠΎΠ²Π΅Π΄Π΅Π½Π½ΡΠ΅ Π»ΠΈΠ½ΠΈΠΈ}
const Xm=80;Ym=24; c: word=14;
d:array[0.3]of record x, y: integer end=
((x:-1;y:0),(x:0;y:-1),(x:1;y:0),(x:0;y:1));
str='* - draw; del — clear; 1,2 — contact pointers;';
type plt=array[1.Ym, 1. Xm] of integer;
var Pl: plt; ch: char; x1, y1,x2,y2,s:integer; p1: boolean;
{————————————————————————————————————————————————-}
procedure InitPlata; {Π‘ΠΎΠ·Π΄Π°Π΅Ρ ΡΠΎΠ½ ΡΠΊΡΠ°Π½Π°}
var x, y: integer;
begin TextBackGround (0);TextColor (7);
for y:=1 to Ym do for x:=1 to Xm do begin Pl[y, x]: =0; write ('.'); end;
end;
{————————————————————————————————————————————————-}
procedure ClrPlata; {ΠΠΎΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅Ρ ΡΠΊΡΠ°Π½ Π² ΠΏΡΠ΅ΠΆΠ½ΠΈΠΉ Π²ΠΈΠ΄ ΠΏΠΎΡΠ»Π΅ ΠΏΡΠΎΡ ΠΎΠΆΠ΄Π΅Π½ΠΈΡ}
var x, y: integer; {Π²ΠΎΠ»Π½Ρ ΠΎΡΡΠ°Π²Π»ΡΡ ΠΏΡΠΎΠ²Π΅Π΄Π΅Π½Π½ΡΠ΅ Π»ΠΈΠ½ΠΈΠΈ}
begin TextBackGround (0);TextColor (7);
for y:=1 to Ym do for x:=1 to Xm do
if Pl[y, x]>0 then begin Pl[y, x]: =0; GotoXY (x, y); write ('.'); end;
end;
{————————————————————————————————————————————————-}
procedure Trassa (xn, yn, xk, yk: integer); {ΠΡΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π½Π°Ρ ΠΎΠ΄ΠΈΡ ΠΊΡΠΎΡΡΠ°ΠΉΡΠΈΠΉ }
var xt, yt, x1, y1,min, xp, yp, p: integer; {ΠΏΡΡΡ ΠΎΡ ΠΎΠ΄Π½ΠΎΠΉ ΡΠΎΡΠΊΠΈ Π΄ΠΎ Π΄ΡΡΠ³ΠΎΠΉ}
begin xt:=xk; yt:=yk; Pl[yt, xt]: =-1;
repeat min:=maxint;
for p:=0 to 3 do
begin x1:=xt+d[p]. x; y1:=yt+d[p]. y; Sound (p*abs ((xk-x1)*(yk-y1)));
if (x1>0)and (x1<=Xm)and (y1>0)and (y1<=Ym)and (Pl[y1,x1]>0)and (Pl[y1,x1]
then begin min:=Pl[y1,x1]; xp:=x1; yp:=y1; end;
end;
xt:=xp; yt:=yp; Pl[yt, xt]: =-1; TextColor (9+c mod 6);
GotoXY (xt, yt); write (#219); Delay (130);
until (xt=xn)and (yt=yn);
TextColor (12); GotoXY (xn, yn); write (#219); GotoXY (xk, yk); write (#219);
NormVideo; ClrPlata; inc (c); NoSound;
end;
{————————————————————————————————————————————————-}
procedure volna (xn, yn, xk, yk: integer; var s: integer); {ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΏΡΠΎΡ ΠΎΠΆΠ΄Π΅Π½ΠΈΡ Π²ΠΎΠ»Π½Ρ}
var A: array [1.600] of record x, y: integer; end;
i, p, k, l, xt, yt, x1, y1,ia, ib, f: integer;
begin f:=2; Pl[yn, xn]: =1; A[1]. x:=xn; A[1]. y:=yn; ib:=300; ia:=1; k:=1;
repeat l:=0; {Sound (l*170);}
for i:=ia to ia+k-1 do
begin xt:=A[i]. x; yt:=A[i]. y; Sound (i*70);
for p:=0 to 3 do
begin x1:=xt+d[p]. x; y1:=yt+d[p]. y; Sound (p*k*7);
if (x1>0)and (x1<=Xm)and (y1>0)and (y1<=Ym)and (Pl[y1,x1]=0) then
begin A[ib+l]. x:=x1; A[ib+l]. y:=y1; inc (l); TextColor (9+f mod 6);
Pl[y1,x1]: =f; GotoXY (x1,y1); write ((f mod 10):1);
if (x1=xk)and (y1=yk)then begin NoSound;s:=0; exit;end; Delay (13);
end;
end;
end;
i:=ia; ia:=ib; ib:=i; k:=l; inc (f);
until l=0; NoSound;
s:=1; GotoXY (20,25); TextColor (12); write (` Π’ΡΠ°ΡΡΠ° Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΏΡΠΎΠ²Π΅Π΄Π΅Π½Π°!!!');
Delay (3000); GotoXY (xk, yk); TextColor (7); write ('.'); GotoXY (20,25);
write (str); ClrPlata;
end;
{————————————————————————————————————————————————-}
begin
ClrScr; InitPlata; GotoXY (20,25); write (str); GotoXY (40,12); p1:=false;
repeat
ch:=ReadKey; if ch=#0 then ch:=ReadKey;
case ch of
{up} #72: if WhereY=1 then GotoXY (WhereX, 24) else GotoXY (WhereX, WhereY-1);
{left} #75: if WhereX=1 then GotoXY (80,WhereY) else GotoXY (WhereX-1,WhereY);
{right}#77: GotoXY ((WhereX+1) mod 80+(WhereX+1) div 80, WhereY);
{down} #80: GotoXY (WhereX,(WhereY+1) mod 25+(WhereY+1) div 25);
{*} #56: begin Pl[WhereY, WhereX]: =-1; TextColor (10);write (#176); GotoXY (Where X-1,Where Y);
{del} #83: begin Pl[WhereY, WhereX]: =0; write ('.'); GotoXY (WhereX-1,WhereY);end;
{1} #49: if (not p1) and (Pl[WhereY, WhereX]=0)
then begin x1:=WhereX; y1:=WhereY; p1:=true;
TextBackGround (14);TextColor (12);write (#176); NormVideo; end;
{2} #50: if p1 and (Pl[WhereY, WhereX]=0)
then begin x2:=WhereX; y2:=WhereY; p1:=false;
TextBackGround (14);TextColor (12);write (#176); NormVideo;
Volna (x1,y1,x2,y2,s);
if s=0 then trassa (x1,y1,x2,y2); end;
end;
until ch=#27;
NormVideo;
END.
Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ ΠΌΠΎΠ΄Π΅Π»ΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π° ΡΠ΅Π°Π»ΡΠ½ΠΎΠΉ ΠΠΠ
ΠΠ°Π΄Π°Π½ΠΈΠ΅ Π‘ΠΎΡΡΠ°Π²ΠΈΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΡΠ°ΡΡΠΈΡΠΎΠ²ΠΊΠΈ ΠΏΠ»Π°ΡΡ (ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°, ΠΊΠΎΡΠΎΡΠ°Ρ ΡΠΎΠ΅Π΄ΠΈΠ½ΡΠ΅Ρ Π΄Π²Π΅ ΡΠΎΡΠΊΠΈ Π»ΠΈΠ½ΠΈΠ΅ΠΉ ΠΊΡΠ°ΡΡΠ°ΠΉΡΠΈΠΌ ΠΏΡΡΠ΅ΠΌ, Π½Π΅ ΠΏΠ΅ΡΠ΅ΡΠ΅ΠΊΠ°ΡΡΡ ΠΈ ΠΎΠ±Ρ ΠΎΠ΄Ρ Π²ΡΠ΅ ΠΏΡΠ΅ΠΏΡΡΡΡΠ²ΠΈΡ).
Π¦Π΅Π»Ρ ΡΠ°Π±ΠΎΡΡ Π¦Π΅Π»ΡΡ ΠΊΡΡΡΠΎΠ²ΠΎΠ³ΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΡΠΈΠΎΠ±ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΈ Π·Π°ΠΊΡΠ΅ΠΏΠ»Π΅Π½ΠΈΠ΅ Π½Π°Π²ΡΠΊΠΎΠ² Π² ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΠΈ Π²ΡΡΠΈΡΠ»ΠΈΡΠ΅Π»ΡΠ½ΡΡ ΠΏΡΠΎΡΠ΅ΡΡΠΎΠ² ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π½Π° Π°Π»Π³ΠΎΡΠΈΡΠΌΠΈΡΠ΅ΡΠΊΠΎΠΌ ΡΠ·ΡΠΊΠ΅ ΠΠΠ‘ΠΠΠΠ¬. ΠΡΠ½ΠΎΠ²Π½ΠΎΠΉ Π°ΠΊΡΠ΅Π½Ρ Π² ΡΠ°Π±ΠΎΡΠ΅ ΡΠ΄Π΅Π»ΡΠ΅ΡΡΡ ΡΠ°ΡΡΠΌΠΎΡΡΠ΅Π½ΠΈΡ ΠΌΠΎΠ΄ΡΠ»ΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΉ. ΠΠΎΠ»ΡΡΠ΅Π½Π½ΡΠ΅ Π·Π½Π°Π½ΠΈΡ ΠΏΠΎΠΌΠΎΠ³ΡΡ Π² Π±ΡΠ΄ΡΡΠ΅ΠΌ Π±ΠΎΠ»Π΅Π΅ ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΠΎ ΠΏΠΎΠ΄Ρ ΠΎΠ΄ΠΈΡΡ ΠΊ ΠΏΡΠΎΡΠ΅ΡΡΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ.
ΠΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ° Π·Π°Π΄Π°ΡΠΈ Π Π΄Π°Π½Π½ΠΎΠΉ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ Π±ΡΠ΄Π΅Ρ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΡΡΡΡ ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠ΅ Π΄Π²ΡΡ ΡΠΎΡΠ΅ΠΊ ΠΊΡΠ°ΡΡΠ°ΠΉΡΠΈΠΌ ΠΏΡΡΠ΅ΠΌ, Π½Π΅ ΠΏΠ΅ΡΠ΅ΡΠ΅ΠΊΠ°Ρ Π΄ΡΡΠ³ Π΄ΡΡΠ³Π°. Π‘Π½Π°ΡΠ°Π»Π° ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΊΡΡΡΠΎΡΠ° Π΄ΠΎΠ»ΠΆΠ΅Π½ ΠΏΠΎΡΡΠ°Π²ΠΈΡΡ ΠΏΠ΅ΡΠ²ΡΡ ΡΠΎΡΠΊΡ, Π·Π°ΡΠ΅ΠΌ Π²ΡΠΎΡΡΡ ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠΎΠ΅Π΄ΠΈΠ½ΠΈΡ ΡΡΠΈ ΡΠΎΡΠΊΠΈ. ΠΠ»Ρ Π½Π°ΠΈΠ±ΠΎΠ»ΡΡΠ΅ΠΉ Π½Π°Π³Π»ΡΠ΄Π½ΠΎΡΡΠΈ Π²ΠΎΠ»Π½Π° ΠΏΡΠΈ ΠΏΡΠΎΡ ΠΎΠΆΠ΄Π΅Π½ΠΈΠΈ ΡΠ°ΡΠΊΡΠ°ΡΠΈΠ²Π°Π΅ΡΡΡ ΡΠ°Π·Π½ΡΠΌΠΈ ΡΠ²Π΅ΡΠ°ΠΌΠΈ, Π° ΡΠ°ΠΊΠΆΠ΅ ΡΠ°ΡΠΊΡΠ°ΡΠΈΠ²Π°Π΅ΡΡΡ ΠΏΡΠΎΠ²Π΅Π΄Π΅Π½Π½Π°Ρ Π»ΠΈΠ½ΠΈΡ.
ΠΠ½Π°Π»ΠΈΠ· ΠΈ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ° Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΡΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠ°Π±ΠΎΡΠ°Π΅Ρ Π½Π° ΠΏΡΠΈΠ½ΡΠΈΠΏΠ΅ Π²ΠΎΠ»Π½Ρ ΠΊΠΎΡΠΎΡΠ°Ρ Π½Π°ΡΠΈΠ½Π°Π΅Ρ ΡΠ°ΡΠΏΡΠΎΡΡΡΠ°Π½ΡΡΡΡΡ ΠΎΡ ΠΏΠ΅ΡΠ²ΠΎΠΉ ΡΠΎΡΠΊΠΈ Π·Π°ΠΏΠΎΠ»Π½ΡΡ ΡΠΊΡΠ°Π½ ΡΠΈΡΠ»Π°ΠΌΠΈ ΠΎΡ 0 Π΄ΠΎ 9 ΠΏΠΎΠΊΠ° Π½Π΅ Π΄ΠΎΡΡΠΈΠ³Π½Π΅Ρ Π²ΡΠΎΡΠΎΠΉ ΡΠΎΡΠΊΠΈ
ΡΠΈΡ. 1.
ΠΠΎΠ»Π½Π° ΡΠ°Π±ΠΎΡΠ°Π΅Ρ ΠΏΠΎ ΡΠ°ΠΊΠΎΠΌΡ ΠΏΡΠΈΠ½ΡΠΈΠΏΡ:
ΠΠΎΠ³Π΄Π° Π²Ρ ΡΡΠ°Π²ΠΈΡΠ΅ ΠΏΠ΅ΡΠ²ΡΡ ΡΠΎΡΠΊΡ, ΡΠΎ Ρ ΡΡΠΎΠ³ΠΎ ΠΌΠ΅ΡΡΠ° ΡΠΊΡΠ°Π½ Π½Π°ΡΠ½Π΅Ρ Π·Π°ΠΏΠΎΠ»Π½ΡΡΡΡΡ ΡΠΈΡΠ»Π°ΠΌΠΈ Π²ΠΎΠ»Π½Π° Π½Π°ΡΠΈΠ½Π°Π΅Ρ ΡΠ°ΡΡ ΠΎΠ΄ΠΈΡΡΡΡ ΡΠΈΡ.2
Ρ 1 ΠΈ Π΄ΠΎ 0 Ρ. Π΅. ΠΌΠ΅ΡΡΠΎ ΠΊΠΎΡΠΎΡΠΎΠ΅ Π²Ρ ΠΎΡΠΌΠ΅ΡΠΈΠ»ΠΈ ΠΏΠ΅ΡΠ²ΠΎΠΉ ΡΠΎΡΠΊΠΎΠΉ Π½Π° Π²ΠΎΠ»Π½Π΅ Π±ΡΠ΄Π΅Ρ ΠΎΡΠΌΠ΅ΡΠ΅Π½ΠΎ Π΅Π΄ΠΈΠ½ΠΈΡΠ΅ΠΉ «1», Π²ΠΎΠΊΡΡΠ³ Π½Π΅Π΅ ΠΏΠΎΡΠ²Π»ΡΡΡΡΡ Π΄Π²ΠΎΠΉΠΊΠΈ, Π²ΠΎΠΊΡΡΠ³ Π΄Π²ΠΎΠ΅ΠΊ ΡΡΠΎΠΉΠΊΠΈ ΠΈ Ρ. Π΄. Π΄ΠΎ Π½ΡΠ»Ρ, ΠΏΠΎΡΠ»Π΅ Π½ΡΠ»Ρ Π²ΡΠ΅ Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ Ρ 1 ΡΠΌ. ΡΠΈΡ 2. ΠΠ°ΠΊ ΡΠΎΠ»ΡΠΊΠΎ Π²ΠΎΠ»Π½Π° Π΄ΠΎΡΡΠΈΠ³Π½Π΅Ρ Π²ΡΠΎΡΠΎΠΉ ΡΠΎΡΠΊΠΈ ΡΠΌ. ΡΠΈΡ. 1 ΡΠ°ΡΠΏΡΠΎΡΡΡΠ°Π½Π΅Π½ΠΈΠ΅ ΠΏΡΠ΅ΠΊΡΠ°ΡΠ°Π΅ΡΡΡ ΠΈ Π½Π°ΡΠΈΠ½Π°Π΅Ρ ΠΏΡΠΎΠ²ΠΎΠ΄ΠΈΡΡΡΡ Π»ΠΈΠ½ΠΈΡ ΠΌΠ΅ΠΆΠ΄Ρ ΡΠΎΡΠΊΠ°ΠΌΠΈ (Π»ΠΈΠ½ΠΈΠΈ Π½Π΅ ΠΌΠΎΠ³ΡΡ ΠΏΠ΅ΡΠ΅ΡΠ΅ΠΊΠ°ΡΡΡΡ ΠΏΠΎΡΠΎΠΌΡ ΡΡΠΎ ΠΏΠΎΡΠ»Π΅ ΡΠΎΠ³ΠΎ ΠΊΠ°ΠΊ Π»ΠΈΠ½ΠΈΡ Π±ΡΠ΄Π΅Ρ ΡΠΎΠ·Π΄Π°Π½Π° ΠΌΠ΅ΡΡΠΎ Π³Π΄Π΅ ΠΎΠ½Π° Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ Π±ΡΠ΄Π΅Ρ ΠΎΡΠΌΠ΅ΡΠ΅Π½ΠΎ ΠΎΡΡΠΈΡΠ°ΡΠ΅Π»ΡΠ½ΡΠΌΠΈ ΡΠΈΡΠ»Π°ΠΌΠΈ, Π° ΠΏΡΠΈ ΡΠ°ΡΠΏΡΠΎΡΡΡΠ°Π½Π΅Π½ΠΈΠΈ Π²ΠΎΠ»Π½Ρ ΡΠΊΡΠ°Π½ Π·Π°ΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ ΠΏΠΎΠ»ΠΎΠΆΠΈΡΠ΅Π»ΡΠ½ΡΠΌΠΈ ΡΠΈΡΠ»Π°ΠΌΠΈ Ρ. Π΅. Π»ΠΈΠ½ΠΈΡ ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠΎΠΉΡΠΈ ΡΠΎΠ»ΡΠΊΠΎ ΠΏΠΎ ΠΏΠΎΠ»ΠΎΠΆΠΈΡΠ΅Π»ΡΠ½ΡΠΌ ΡΠΈΡΠ»Π°ΠΌ). ΠΡΠ΅ΠΆΠ΄Π΅ ΡΠ΅ΠΌ ΠΏΡΠΎΠΉΠ΄Π΅Ρ ΡΡΠ°ΡΡΠ° ΠΎΡ ΠΎΠ΄Π½ΠΎΠΉ ΡΠΎΡΠΊΠΈ Π΄ΠΎ Π΄ΡΡΠ³ΠΎΠΉ ΡΠ½Π°ΡΠ°Π»Π° ΠΏΡΠΎΠΉΠ΄Π΅Ρ Π²ΠΎΠ»Π½Π° ΠΈ Π΅ΡΠ»ΠΈ Π½Π΅Ρ ΠΌΠ΅ΡΡ ΠΎΡΠΌΠ΅ΡΠ΅Π½Π½ΡΡ ΠΎΡΡΠΈΡΠ°ΡΠ΅Π»ΡΠ½ΡΠΌΠΈ ΡΠΈΡΠ»Π°ΠΌΠΈ — (ΡΠΆΠ΅ ΠΏΡΠΎΠ²Π΅Π΄Π΅Π½Π½ΡΠ΅ Π»ΠΈΠ½ΠΈ ΠΈΠ»ΠΈ ΡΡΠΎ-ΡΠΎ Π½Π°ΡΠΈΡΠΎΠ²Π°Π½ΠΎ), ΡΡΠ°ΡΡΠ° ΠΏΡΠΎΠΉΠ΄Π΅Ρ Π½Π°ΠΏΡΡΠΌΡΡ ΠΊΠΎ Π²ΡΠΎΡΠΎΠΉ ΡΠΎΡΠΊΠ΅, Π° Π΅ΡΠ»ΠΈ Π΅ΡΡΡ ΠΌΠ΅ΡΡΠ° ΠΎΡΠΌΠ΅ΡΠ΅Π½Π½ΡΠ΅ ΠΎΡΡΠΈΡΠ°ΡΠ΅Π»ΡΠ½ΡΠΌΠΈ ΡΠΈΡΠ»Π°ΠΌΠΈ, ΡΠΎ ΡΡΠ°ΡΡΠ° ΠΈΠ΄Π΅Ρ Π½Π°ΠΏΡΡΠΌΡΡ ΠΊΠΎ Π²ΡΠΎΡΠΎΠΉ ΡΠΎΡΠΊΠ΅, ΠΎΠ³ΠΈΠ±Π°Π΅Ρ ΠΏΡΠ΅Π³ΡΠ°Π΄Ρ ΠΈ Π΄ΠΎΡ ΠΎΠ΄ΠΈΡ Π΄ΠΎ Π²ΡΠΎΡΠΎΠΉ ΡΠΎΡΠΊΠΈ Π½Π΅ ΠΏΠ΅ΡΠ΅ΡΡΠΊΡΠΈΡΡ Ρ Π΄ΡΡΠ³ΠΎΠΉ Π»ΠΈΠ½ΠΈΠ΅ΠΉ. ΠΡΠ±ΠΎΡ ΠΌΠ΅ΡΡΠ° ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ ΠΊΠΎΠ½ΡΠ°ΠΊΡΠΎΠ² (ΠΏΠ΅ΡΠ²ΠΎΠΉ ΠΈ Π²ΡΠΎΡΠΎΠΉ ΡΠΎΡΠ΅ΠΊ) ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΊΡΡΡΠΎΡΠ°.
ΠΡΠΈΠ½ΡΠΈΠΏ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΊΡΡΡΠΎΡΠΎΠΌ Π·Π°ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π² ΡΠΎΠΌ, ΡΡΠΎ ΡΠΊΡΠ°Π½ ΠΈΠΌΠ΅Π΅Ρ ΡΠ°Π·ΠΌΠ΅ΡΡ 80×25 Π²Π΅ΡΡ Π½ΠΈΠΉ Π»Π΅Π²ΡΠΉ ΡΠ³ΠΎΠ» ΠΈΠΌΠ΅Π΅Ρ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ — (1,1), ΠΏΡΠ°Π²ΡΠΉ Π½ΠΈΠΆΠ½ΠΈΠΉ — (80,25) ΠΈ Π΅ΡΠ»ΠΈ ΠΏΡΠΈ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΠΈ ΠΊΡΡΡΠΎΡΠ° ΠΏΠΎ ΠΎΡΠΈ Π₯ ΠΊΡΡΡΠΎΡ Π΄ΠΎΡ ΠΎΠ΄ΠΈΡ ΠΊΠΎΠ½ΡΠ° ΡΠΊΡΠ°Π½Π° (Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ — 80), Ρ.ΠΊ. ΠΊΡΡΡΠΎΡ Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄ΠΈΡΡ Π΄Π°Π»ΡΡΠ΅ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ (80), ΡΠΎ ΠΎΠ½ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡΡ Π½Π° Π½Π°ΡΠ°Π»ΡΠ½ΡΡ ΠΏΠΎΠ·ΠΈΡΠΈΡ ΡΠΌ. ΡΠΈΡ. 3. Π’ΠΎ ΠΆΠ΅ ΡΠ°ΠΌΠΎΠ΅ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ Ρ ΠΊΡΡΡΠΎΡΠΎΠΌ ΠΏΡΠΈ Π΅Π³ΠΎ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΠΈ.
ΡΠΈΡ.3
ΠΡΠ²ΠΎΠ΄ ΠΠΎΠ»ΡΡΠ΅Π½Π½ΡΠΉ ΠΌΠ½ΠΎΡ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΎΠΏΡΡ ΠΏΡΠΈΠΌΠ΅Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎ ΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π½Π° ΠΠΠ‘ΠΠΠΠ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΠΎΠ΅ ΠΌΠΎΠ΄ΡΠ»ΡΠ½ΠΎΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅. ΠΡΠΎΠΌΠ΅ ΡΠΎΠ³ΠΎ, ΠΈΠ·ΡΡΠΈΠ² ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Π½ΡΠΉ Π² ΠΊΡΡΡΠΎΠ²ΠΎΠΌ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠΈ ΠΌΠ°ΡΠ΅ΡΠΈΠ°Π», Ρ ΠΏΡΠΈΠΎΠ±ΡΠ΅Π» ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ Π½Π°Π²ΡΠΊΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡ, ΡΡΠ½ΠΊΡΠΈΠΉ. ΠΡΠ° ΠΊΡΡΡΠΎΠ²Π°Ρ Π΄Π»Ρ ΠΌΠ΅Π½Ρ Π±ΡΠ»Π° ΠΈΠ½ΡΠ΅ΡΠ΅ΡΠ½Π° ΠΈ ΡΠ²Π»Π΅ΠΊΠ°ΡΠ΅Π»ΡΠ½Π° ΠΏΠΎΡΠΎΠΌΡ, ΡΡΠΎ Ρ ΡΠ°ΠΊΠΈΠΌ Π·Π°Π΄Π°Π½ΠΈΠ΅ΠΌ Ρ ΡΡΠΎΠ»ΠΊΠ½ΡΠ»ΡΡ Π²ΠΏΠ΅ΡΠ²ΡΠ΅. Π Π°Π½ΡΡΠ΅ Ρ ΡΠ°ΠΌ Π·Π°Π½ΠΈΠΌΠ°Π»ΡΡ ΡΠ°Π΄ΠΈΠΎ — ΡΠ»Π΅ΠΊΡΡΠΎΠ½ΠΈΠΊΠΎΠΉ ΠΈ Π΄ΡΠΌΠ°Ρ ΡΠ°Π½ΡΡΠ΅, ΠΌΠ½Π΅ Π±Ρ ΡΡΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΡΠΈΠ³ΠΎΠ΄ΠΈΠ»Π°ΡΡ.
ΠΠ»Π³ΠΎΡΠΈΡΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ