Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ-ΠΈΠ³ΡΡ Β«ΠΡΠ΅ΡΡΠΈΠΊΠΈ-Π½ΠΎΠ»ΠΈΠΊΠΈΒ»
ΠΠ»Π°Π²ΠΈΡΠΈ-ΡΡΡΠ΅Π»ΠΊΠΈ — Π½ΠΎΠΌΠ΅Ρ ΡΡΠ΅ΠΉΠΊΠΈ ΠΈΠ³ΡΠΎΠ²ΠΎΠ³ΠΎ ΠΏΠΎΠ»Ρ ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°Π΅ΡΡΡ ΠΈΠ»ΠΈ ΡΠΌΠ΅Π½ΡΡΠ°Π΅ΡΡΡ Π½Π° Π΅Π΄ΠΈΠ½ΠΈΡΡ, ΠΈΡΡ ΠΎΠ΄Ρ ΠΈΠ· ΡΠΎΠ³ΠΎ, ΠΊΠ°ΠΊΠ°Ρ ΠΊΠ»Π°Π²ΠΈΡΠ° Π±ΡΠ»Π° Π½Π°ΠΆΠ°ΡΠ°, Π΅ΡΠ»ΠΈ Π΄ΠΎΡΡΠΈΠ³Π½ΡΡ ΠΊΡΠ°ΠΉ ΠΏΠΎΠ»Ρ, ΡΠΎ Π½ΠΎΠΌΠ΅ΡΡ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π΅ΡΡΡ Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠ΅ ΠΈΠ»ΠΈ ΠΊΠΎΠ½Π΅ΡΠ½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π² Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ ΠΊΡΠ°Ρ ΠΏΠΎΠ»Ρ. ΠΡΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΎΡΠ΅Π½Ρ Π²Π°ΠΆΠ½Ρ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ Π΄Π»Ρ Π·Π°Π½Π΅ΡΠ΅Π½ΠΈΡ Π² Π΄Π²ΡΠΌΠ΅ΡΠ½ΡΠΉ ΠΌΠ°ΡΡΠΈΠ² Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ 1 ΠΈΠ»ΠΈ 2 ΠΏΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ «Enter» Π½Π° ΡΠ²ΠΎΠ±ΠΎΠ΄Π½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠ΅ ΠΏΠΎΠ»Ρ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ-ΠΈΠ³ΡΡ Β«ΠΡΠ΅ΡΡΠΈΠΊΠΈ-Π½ΠΎΠ»ΠΈΠΊΠΈΒ» (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠ³Π»Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΠ²Π΅Π΄Π΅Π½ΠΈΠ΅
1. ΠΠ½Π°Π»ΠΈΠ· ΠΏΡΠΎΠ±Π»Π΅ΠΌΡ
2. ΠΠ»Π³ΠΎΡΠΈΡΠΌΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΊΠΎΠ½ΡΡΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅
3. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ΅ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅
4. Π’Π΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ Π‘ΠΏΠΈΡΠΎΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Π½ΠΎΠΉ Π»ΠΈΡΠ΅ΡΠ°ΡΡΡΡ ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅
ΠΠ²Π΅Π΄Π΅Π½ΠΈΠ΅
ΠΠ° Π΄Π°Π½Π½ΡΠΉ ΠΌΠΎΠΌΠ΅Π½Ρ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ Π²Π΅Π»ΠΈΠΊΠΎΠ΅ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΡΡ ΠΈΠ³Ρ, ΡΠ°ΠΊ ΠΆΠ΅ ΡΠ°Π·Π½ΠΎΠΎΠ±ΡΠ°Π·Π½Ρ ΠΏΠΎΠ΄Ρ ΠΎΠ΄Ρ Π² ΠΈΡ ΡΠΎΠ·Π΄Π°Π½ΠΈΠΈ.
ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΏΠΎΠΏΡΠ»ΡΡΠ½ΡΠ΅ Π² ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅Π΅ Π²ΡΠ΅ΠΌΡ Π½Π΅Π±ΠΎΠ»ΡΡΠΈΠ΅ ΠΈΠ³ΡΡ (ΡΠ°ΡΠ΅ Π²ΡΠ΅Π³ΠΎ ΠΌΠ½ΠΎΠ³ΠΎΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΈΠ΅, ΡΠ΅ΡΠ΅Π· ΡΠ΅ΡΡ ΠΠ½ΡΠ΅ΡΠ½Π΅Ρ) ΡΠΎΠ·Π΄Π°ΡΡΡΡ ΠΏΠΎ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΈ Flash Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΡΠ·ΡΠΊΠ° ActionScript. Π’Π°ΠΊΠΈΠ΅ ΠΈΠ³ΡΡ ΠΊΡΠ°ΠΉΠ½Π΅ ΠΏΠΎΠΏΡΠ»ΡΡΠ½Ρ Π½Π° ΡΠ°Π·Π½ΠΎΠΎΠ±ΡΠ°Π·Π½ΡΡ ΡΠ°Π·Π²Π»Π΅ΠΊΠ°ΡΠ΅Π»ΡΠ½ΡΡ ΠΈΠ½ΡΠ΅ΡΠ½Π΅Ρ-ΡΠ΅ΡΡΡΡΠ°Ρ ΠΈ, Π° ΡΠΎΡΠΈΠ°Π»ΡΠ½ΡΡ ΡΠ΅ΡΡΡ .
ΠΠΎΠ»ΡΡΠΈΠ΅, ΡΠ»ΠΎΠΆΠ½ΡΠ΅ ΠΈΠ³ΡΡ Ρ ΡΠ΅Π°Π»ΠΈΡΡΠΈΡΠ½ΠΎΠΉ 3D Π³ΡΠ°ΡΠΈΠΊΠΎΠΉ ΠΏΠΈΡΡΡΡΡ Π½Π° C++, ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠ΅ ΠΌΠΎΠ΄ΡΠ»ΠΈ ΠΊ Π½ΠΈΠΌ ΠΌΠΎΠ³ΡΡ Π±ΡΡΡ Π½Π°ΠΏΠΈΡΠ°Π½Ρ Π½Π° Π΄ΡΡΠ³ΠΈΡ ΡΠ·ΡΠΊΠ°Ρ (Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ AI — «ΠΈΡΠΊΡΡΡΡΠ²Π΅Π½Π½ΡΠΉ ΠΈΠ½ΡΠ΅Π»Π»Π΅ΠΊΡ» — Π½Π° Lisp). ΠΠΎΠΎΠ±ΡΠ΅, ΡΠ·ΡΠΊ Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΈΠ³ΡΡ Π²ΡΠ±ΠΈΡΠ°Π΅ΡΡΡ ΠΊΠ°ΠΊ ΠΊΠΎΠΌΠΏΡΠΎΠΌΠΈΡΡ ΠΌΠ΅ΠΆΠ΄Ρ ΡΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡΠΌΠΈ ΠΊ ΠΈΠ³ΡΠ΅, ΠΊ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΠΎΠΌΡ ΠΆΠ΅Π»Π΅Π·Ρ ΠΈ ΠΊ ΡΡΠΎΠΈΠΌΠΎΡΡΠΈ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ.
ΠΠ° ΠΏΠΎΠ΄Π°Π²Π»ΡΡΡΠ΅ΠΌ Π±ΠΎΠ»ΡΡΠΈΠ½ΡΡΠ²Π΅ ΠΌΠΎΠ±ΠΈΠ»ΡΠ½ΡΡ ΡΠ΅Π»Π΅ΡΠΎΠ½ΠΎΠ² ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Ρ ARM ΠΏΡΠΎΡΠ΅ΡΡΠΎΡΡ. ΠΠΎΡΡΠΎΠΌΡ ΠΈΠ³ΡΡ Π΄Π»Ρ ΠΌΠΎΠ±ΠΈΠ»ΡΠ½ΡΡ ΡΠ΅Π»Π΅ΡΠΎΠ½ΠΎΠ² Π½Π° ΠΏΠ»Π°ΡΡΠΎΡΠΌΠ΅ Java ΠΏΠΈΡΡΡΡΡ Π½Π° ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΠΌ ΡΠ·ΡΠΊΠ΅ Π΄Π»Ρ ΠΌΠΎΠ±ΠΈΠ»ΡΠ½ΡΡ ΡΠ΅Π»Π΅ΡΠΎΠ½ΠΎΠ² MobileBasic, Π° ΡΠ°ΠΊΠΆΠ΅ Π½Π° Π΄ΠΈΠ°Π»Π΅ΠΊΡΠ΅ ΡΠ·ΡΠΊΠ° Pascal — MIDletPascal.
Π’Π°ΠΊΠΆΠ΅ ΡΡΡΠ΅ΡΡΠ²ΡΡΡ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΡΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π΄Π»Ρ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΡ ΠΈΠ³Ρ. Π―ΡΠΊΠΈΠΉ ΠΏΡΠΈΠΌΠ΅Ρ — ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° GameMaker, Π°Π²ΡΠΎΡΠΎΠΌ ΠΊΠΎΡΠΎΡΠΎΠΉ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΠ°ΡΠΊ ΠΠ²Π΅ΡΠΌΠ°Ρ. ΠΡΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π½Π°ΠΏΠΈΡΠ°ΡΡ Π·Π°Ρ Π²Π°ΡΡΠ²Π°ΡΡΡΡ ΠΈΠ³ΡΡ Π΄Π°ΠΆΠ΅ Π±Π΅Π· Π·Π½Π°Π½ΠΈΡ ΡΠ·ΡΠΊΠΎΠ² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ!
Π ΡΠ°ΠΌΠΊΠ°Ρ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°ΡΡ Π½Π΅Π±ΠΎΠ»ΡΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΈΠ³ΡΡ Π² «ΠΊΡΠ΅ΡΡΠΈΠΊΠΈ-Π½ΠΎΠ»ΠΈΠΊΠΈ» ΠΏΡΡΡ Π² ΡΡΠ΄ Π½Π° ΠΏΠΎΠ»Π΅ ΡΠ°Π·ΠΌΠ΅ΡΠ° 15×15 ΠΊΠ»Π΅ΡΠΎΠΊ Ρ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ΠΌ Π³ΡΠ°ΡΠΈΠΊΠΈ Π½Π° ΡΠ·ΡΠΊΠ΅ Π²ΡΡΠΎΠΊΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ.
«ΠΡΠ΅ΡΡΠΈΠΊΠΈ-Π½ΠΎΠ»ΠΈΠΊΠΈ» — ΠΏΠΎΠΏΡΠ»ΡΡΠ½Π°Ρ ΠΈΠ³ΡΠ° Π»ΡΠ΄Π΅ΠΉ Π²ΡΠ΅Ρ Π²ΠΎΠ·ΡΠ°ΡΡΠΎΠ². ΠΠ½Π° ΠΎΡΠ»ΠΈΡΠ°Π΅ΡΡΡ ΠΏΡΠΎΡΡΠΎΡΠΎΠΉ, ΡΠΏΠΎΡΠΎΠ±ΡΡΠ²ΡΠ΅Ρ ΡΠ°Π·Π²ΠΈΡΠΈΡ Π²Π½ΠΈΠΌΠ°Π½ΠΈΡ ΠΈ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°ΡΠ½ΠΎΠΉ Π»ΠΎΠ³ΠΈΠΊΠΈ. Π Π΄Π°Π½Π½ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ ΡΡΠ° ΠΈΠ³ΡΠ° ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½Π° Π½Π° ΡΠ·ΡΠΊΠ΅ Pascal.
1. ΠΠ½Π°Π»ΠΈΠ· ΠΏΡΠΎΠ±Π»Π΅ΠΌΡ ΠΠ»Ρ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΡΡΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π»ΡΡ ΡΠ·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Pascal ΠΈ ΡΡΠ΅Π΄Π° ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ PascalABC.Net — ΠΎΠ±ΠΎΠ»ΠΎΡΠΊΠ°, ΠΎΡΠ½ΠΎΠ²Π°Π½Π½Π°Ρ Π½Π° Delphi (Object Pascal) ΠΈ ΡΠΎΡΠ΅ΡΠ°ΡΡΠ°Ρ ΠΏΡΠΎΡΡΠΎΡΡ ΡΠ·ΡΠΊΠ° ΠΠ°ΡΠΊΠ°Π»Ρ ΠΈ ΠΎΠ³ΡΠΎΠΌΠ½ΡΠ΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ ΠΏΠ»Π°ΡΡΠΎΡΠΌΡ .NET (ΠΏΠ»Π°ΡΡΠΎΡΠΌΠ° ΠΎΡ ΠΊΠΎΡΠΏΠΎΡΠ°ΡΠΈΠΈ MicroSoft).
ΠΡΠ΅ΡΡΠΈΠΊΠΈ-Π½ΠΎΠ»ΠΈΠΊΠΈ — Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠ°Ρ ΠΈΠ³ΡΠ° ΠΌΠ΅ΠΆΠ΄Ρ Π΄Π²ΡΠΌΡ ΠΏΡΠΎΡΠΈΠ²Π½ΠΈΠΊΠ°ΠΌΠΈ Π½Π° ΠΊΠ²Π°Π΄ΡΠ°ΡΠ½ΠΎΠΌ ΠΏΠΎΠ»Π΅ 3 Π½Π° 3 ΠΊΠ»Π΅ΡΠΊΠΈ ΠΈΠ»ΠΈ Π±ΠΎΠΎΠ»ΡΡΠ΅Π³ΠΎ ΡΠ°Π·ΠΌΠ΅ΡΠ° (Π²ΠΏΠ»ΠΎΡΡ Π΄ΠΎ «Π±Π΅ΡΠΊΠΎΠ½Π΅ΡΠ½ΠΎΠ³ΠΎ ΠΏΠΎΠ»Ρ»). ΠΠ΄ΠΈΠ½ ΠΈΠ· ΠΈΠ³ΡΠΎΠΊΠΎΠ² ΠΈΠ³ΡΠ°Π΅Ρ «ΠΊΡΠ΅ΡΡΠΈΠΊΠ°ΠΌΠΈ», Π²ΡΠΎΡΠΎΠΉ — «Π½ΠΎΠ»ΠΈΠΊΠ°ΠΌΠΈ».
ΠΠ»Π°ΡΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ «ΠΊΡΠ΅ΡΡΠΈΠΊΠΈ-Π½ΠΎΠ»ΠΈΠΊΠΈ» Π½Π° ΠΏΠΎΠ»Π΅ 3×3 Π½Π΅ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡ Π½ΠΈΠΊΠ°ΠΊΠΎΠ³ΠΎ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅ΡΠ΅ΡΠ° — ΠΎΠ±ΡΠ΅ΠΈΠ·Π²Π΅ΡΡΠ΅Π½ Π°Π»Π³ΠΎΡΠΈΡΠΌ, ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΡΠΈ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎΠΉ ΠΈΠ³ΡΠ΅ Π³Π°ΡΠ°Π½ΡΠΈΡΡΠ΅Ρ Π½ΠΈΡΡΡ Π»ΡΠ±ΠΎΠΉ ΡΡΠΎΡΠΎΠ½Π΅, Π° ΠΏΡΠΈ ΠΎΡΠΈΠ±ΠΊΠ΅ ΠΏΡΠΎΡΠΈΠ²Π½ΠΈΠΊΠ° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π²ΡΠΈΠ³ΡΠ°ΡΡ. Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΠΈΠ³ΡΠ° Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ Π² ΡΠΎΡΡΠΎΡΠ½ΠΈΠΈ «Π½ΠΈΡΠ΅ΠΉΠ½ΠΎΠΉ ΡΠΌΠ΅ΡΡΠΈ».
ΠΠ΅ΡΠ΅Π΄ΠΎ ΠΌΠ½ΠΎΠΉ ΡΡΠΎΡΠ»Π° Π·Π°Π΄Π°ΡΠ° ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°ΡΡ Π½Π΅Π±ΠΎΠ»ΡΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΈΠ³ΡΡ Π² ΠΊΡΠ΅ΡΡΠΈΠΊΠΈ-Π½ΠΎΠ»ΠΈΠΊΠΈ ΠΏΡΡΡ Π² ΡΡΠ΄ Π½Π° ΠΏΠΎΠ»Π΅ ΡΠ°Π·ΠΌΠ΅ΡΠ° 15×15 ΠΊΠ»Π΅ΡΠΎΠΊ Ρ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ΠΌ Π³ΡΠ°ΡΠΈΠΊΠΈ, c ΠΎΠΆΠΈΠ΄Π°Π½ΠΈΠ΅ΠΌ Ρ ΠΎΠ΄Π° ΠΎΡ ΠΎΡΠ΅ΡΠ΅Π΄Π½ΠΎΠ³ΠΎ ΠΈΠ³ΡΠΎΠΊΠ° Π½Π΅ Π±ΠΎΠ»Π΅Π΅ 1-ΠΎΠΉ ΠΌΠΈΠ½ΡΡΡ.
ΠΠ³ΡΠ° Π²Π΅Π΄Π΅ΡΡΡ Π½Π° ΠΏΠΎΠ»Π΅ 15×15, ΡΠ°Π·Π»ΠΈΠ½ΠΎΠ²Π°Π½Π½ΠΎΠΌ Π² ΠΊΠ»Π΅ΡΠΊΡ, ΡΠ°ΡΡΡΠΈΡΠ°Π½Π° Π½Π° 2-Ρ ΠΈΠ³ΡΠΎΠΊΠΎΠ². ΠΠ΅ΡΠ²ΡΠΉ Ρ ΠΎΠ΄ ΡΠΎΠ²Π΅ΡΡΠ°Π΅Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ, ΠΈΠ³ΡΠ°ΡΡΠΈΠΉ ΠΊΡΠ΅ΡΡΠΈΠΊΠ°ΠΌΠΈ. ΠΠ΅ΡΠ΅Π΄ ΠΈΠ³ΡΠΎΠΉ ΠΏΡΠΎΡΠΈΠ²Π½ΠΈΠΊΠΈ ΡΠ΅ΡΠ°ΡΡ, ΠΊΡΠΎ Π±ΡΠ΄Π΅Ρ ΠΈΠ³ΡΠ°ΡΡ ΠΊΡΠ΅ΡΡΠΈΠΊΠ°ΠΌΠΈ, Π° ΠΊΡΠΎ Π½ΠΎΠ»ΠΈΠΊΠ°ΠΌΠΈ. Π Ρ ΠΎΠ΄Π΅ ΠΈΠ³ΡΡ ΠΏΡΠΎΡΠΈΠ²Π½ΠΈΠΊΠΈ ΡΡΠ°Π²ΡΡ ΠΏΠΎ ΠΎΡΠ΅ΡΠ΅Π΄ΠΈ ΠΊΡΠ΅ΡΡΠΈΠΊ ΠΈΠ»ΠΈ Π½ΠΎΠ»ΠΈΠΊ (Π² Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ Π΄ΠΎΠ³ΠΎΠ²ΠΎΡΠ΅Π½Π½ΠΎΡΡΠΈ ΠΏΠ΅ΡΠ΅Π΄ Π½Π°ΡΠ°Π»ΠΎΠΌ ΠΈΠ³ΡΡ) Π² ΡΠ²ΠΎΠ±ΠΎΠ΄Π½ΡΡ ΠΊΠ»Π΅ΡΠΊΡ Π½Π° ΠΏΠΎΠ»Π΅.
Π¦Π΅Π»Ρ ΠΈΠ³ΡΡ — ΠΏΠΎΡΡΡΠΎΠΈΡΡ Π»ΠΈΠ½ΠΈΡ ΠΈΠ· 5 ΡΡΠΎΡΡΠΈΡ ΡΡΠ΄ΠΎΠΌ ΠΏΠΎ Π²Π΅ΡΡΠΈΠΊΠ°Π»ΠΈ, Π³ΠΎΡΠΈΠ·ΠΎΠ½ΡΠ°Π»ΠΈ ΠΈΠ»ΠΈ Π΄ΠΈΠ°Π³ΠΎΠ½Π°Π»ΠΈ ΠΊΡΠ΅ΡΡΠΈΠΊΠΎΠ² ΠΈΠ»ΠΈ Π½ΠΎΠ»ΠΈΠΊΠΎΠ². ΠΠ΅ΡΠ²ΡΠΉ ΠΈΠ³ΡΠΎΠΊ, ΠΏΠΎΡΡΡΠΎΠΈΠ²ΡΠΈΠΉ ΡΠ°ΠΊΡΡ ΠΊΠΎΠΌΠ±ΠΈΠ½Π°ΡΠΈΡ ΠΈΠ· Π·Π½Π°ΠΊΠΎΠ² ΡΠ²ΠΎΠ΅Π³ΠΎ ΡΠΈΠΏΠ° (ΠΊΡΠ΅ΡΡΠΈΠΊΠΎΠ² ΠΈΠ»ΠΈ Π½ΠΎΠ»ΠΈΠΊΠΎΠ²) Π²ΡΠΈΠ³ΡΡΠ²Π°Π΅Ρ.
ΠΡΠ»ΠΈ ΡΠ²ΠΎΠ±ΠΎΠ΄Π½ΡΠ΅ ΠΊΠ»Π΅ΡΠΊΠΈ ΠΏΠΎΠ»Ρ Π·Π°ΠΊΠΎΠ½ΡΠΈΠ»ΠΈΡΡ, Π½ΠΎ Π½ΠΈΠΊΡΠΎ ΠΈΠ· ΠΈΠ³ΡΠΎΠΊΠΎΠ² Π½Π΅ ΠΎΠ΄Π΅ΡΠΆΠ°Π» ΠΏΠΎΠ±Π΅Π΄Ρ, ΡΠΎ ΡΡΠΈΡΠ°ΡΡ, ΡΡΠΎ ΠΈΠ³ΡΠ° Π·Π°ΠΊΠΎΠ½ΡΠΈΠ»Π°ΡΡ «Π½ΠΈΡΡΠ΅ΠΉ».
ΠΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ, ΠΊΠΎΡΠΎΡΡΠ΅ Π΄ΠΎΠ»ΠΆΠ½Ρ Π²Ρ ΠΎΠ΄ΠΈΡΡ Π² ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΠΎ ΡΠ°Π·Π΄Π΅Π»ΠΈΡΡ Π½Π° Π΄Π²Π΅ ΡΠΎΡΡΠ°Π²Π»ΡΡΡΠΈΠ΅: ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½Π°Ρ ΡΠ°ΡΡΡ.
Π ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ΅ Π΄ΠΎΠ»ΠΆΠ½ΠΎ ΠΏΡΠΈΡΡΡΡΡΠ²ΠΎΠ²Π°ΡΡ ΠΈΠ³ΡΠΎΠ²ΠΎΠ΅ ΠΏΠΎΠ»Π΅, Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Π²ΡΠ±ΠΈΡΠ°ΡΡ Π½ΡΠΆΠ½ΡΡ ΡΡΠ΅ΠΉΠΊΡ ΠΊΠ»Π°Π²ΠΈΡΠ°ΠΌΠΈ Π½Π°Π²ΠΈΠ³Π°ΡΠΈΠΈ, ΠΏΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ Π½Π° ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΡΡ ΠΊΠ»Π°Π²ΠΈΡΡ Π·Π°Π½ΠΎΡΠΈΡΡ Π·Π½Π°ΠΊ «Π₯» ΠΈΠ»ΠΈ «Π», Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ Ρ ΠΎΠ΄Π΅ ΠΈΠ³ΡΡ ΠΈ ΠΏΡ.
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎ ΠΈΠ³ΡΠ° Π΄ΠΎΠ»ΠΆΠ½Π° Π±ΡΡΡ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½Π° Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ Π΄Π²ΡΠΌΠ΅ΡΠ½ΠΎΠ³ΠΎ ΠΌΠ°ΡΡΠΈΠ²Π°, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡΠΈΠΉ ΠΈΠ³ΡΠΎΠ²ΠΎΠ΅ ΠΏΠΎΠ»Π΅. ΠΠ°ΠΆΠ΄ΡΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΠΌΠ°ΡΡΠΈΠ²Π° ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΠΊΠ»Π΅ΡΠΊΡ ΠΏΠΎΠ»Ρ. ΠΠ½Π΄Π΅ΠΊΡΡ ΠΌΠ°ΡΡΠΈΠ²Π° ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΠΊΠ»Π΅ΡΠΎΠΊ Π½Π° ΠΏΠΎΠ»Π΅.
ΠΠ»Π΅ΠΌΠ΅Π½Ρ ΠΌΠ°ΡΡΠΈΠ²Π° ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ:
0 — ΠΊΠ»Π΅ΡΠΊΠ° ΠΏΡΡΡΠ°;
1 — Π² ΠΊΠ»Π΅ΡΠΊΠ΅ ΠΊΡΠ΅ΡΡΠΈΠΊ;
2 — Π² ΠΊΠ»Π΅ΡΠΊΠ΅ Π½ΠΎΠ»ΠΈΠΊ;
ΠΠ»Π³ΠΎΡΠΈΡΠΌ ΡΠ°Π±ΠΎΡΡ: ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ ΠΏΠ΅ΡΠ΅ΡΠΈΡΠΎΠ²ΠΊΠ° ΠΊΠ»Π΅ΡΠΎΠΊ ΠΈΠ³ΡΠΎΠ²ΠΎΠ³ΠΎ ΠΏΠΎΠ»Ρ. Π Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΠΌΠ°ΡΡΠΈΠ²Π° Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ Π² ΠΊΠ»Π΅ΡΠΊΡ:
0 — Π½ΠΈΡΠ΅Π³ΠΎ Π½Π΅ Π²ΡΠ²ΠΎΠ΄ΠΈΡ;
1 — ΠΊΡΠ΅ΡΡΠΈΠΊ Π·Π΅Π»Π΅Π½ΡΠΌ ΡΠ²Π΅ΡΠΎΠΌ;
2 — Π½ΠΎΠ»ΠΈΠΊ ΠΊΡΠ°ΡΠ½ΡΠΌ ΡΠ²Π΅ΡΠΎΠΌ;
ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΊΠ»Π΅ΡΠΊΠΈ Π½Π° ΠΈΠ³ΡΠΎΠ²ΠΎΠΌ ΠΏΠΎΠ»Π΅ ΠΏΡΠΎΡΠΌΠ°ΡΡΠΈΠ²Π°ΡΡΡΡ ΡΠΎΡΠ΅Π΄Π½ΠΈΠ΅ ΠΊΠ»Π΅ΡΠΊΠΈ ΠΏΠΎ Π³ΠΎΡΠΈΠ·ΠΎΠ½ΡΠ°Π»ΠΈ, Π²Π΅ΡΡΠΈΠΊΠ°Π»ΠΈ, Π²Π½ΠΈΠ· ΠΈ Π²ΠΏΡΠ°Π²ΠΎ, ΠΏΠΎ Π΄ΠΈΠ°Π³ΠΎΠ½Π°Π»ΠΈ. ΠΡΠ»ΠΈ Π² ΠΎΠ΄Π½ΠΎΠΌ ΠΈΠ· Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠΉ ΡΠΈΠΌΠ²ΠΎΠ»Ρ Π²ΠΎ Π²ΡΠ΅Ρ ΠΊΠ»Π΅ΡΠΊΠ°Ρ Π½Π° ΡΠ°ΡΡΡΠΎΡΠ½ΠΈΠΈ Π΄ΠΎ 4 ΡΠΎΠ²ΠΏΠ°Π΄Π°ΡΡ Ρ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠΌ Π² ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΊΠ»Π΅ΡΠΊΠ΅, ΡΠΎ ΠΈΠ³ΡΠ° ΡΡΠΈΡΠ°Π΅ΡΡΡ Π²ΡΠΈΠ³ΡΠ°Π½Π½ΠΎΠΉ.
ΠΡ ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅:
1) ΠΠΎΠ΄ Π½Π°ΠΆΠ°ΡΡΡ ΠΊΠ»Π°Π²ΠΈΡ ΠΊΠ»Π°Π²ΠΈΠ°ΡΡΡΡ.
ΠΡΡ ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅:
1) ΠΠ³ΡΠΎΠ²ΠΎΠ΅ ΠΏΠΎΠ»Π΅, Π·Π°ΠΏΠΎΠ»Π½Π΅Π½Π½ΠΎΠ΅ ΠΊΡΠ΅ΡΡΠΈΠΊΠ°ΠΌΠΈ ΠΈ Π½ΠΎΠ»ΠΈΠΊΠ°ΠΌΠΈ, ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΠΌΠΎΠ΅ Π½Π° ΡΠΊΡΠ°Π½Π΅.
2) Π ΡΠ»ΡΡΠ°Π΅ Π²ΡΠΈΠ³ΡΡΡΠ° ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΈΠ· ΠΈΠ³ΡΠΎΠΊΠΎΠ², Π²ΡΠ²ΠΎΠ΄ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅Π³ΠΎ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΡ ΠΈ Π΄ΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ.
ΠΠ»Ρ Π²ΡΠ΅Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ Π±ΡΠ»ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Ρ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠ΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ ΠΠ°ΡΠΊΠ°Π»Ρ, ΡΠ°ΠΊ ΡΡΠΎ Π½Π΅ ΠΏΠΎΠ½Π°Π΄ΠΎΠ±ΠΈΠ»ΠΎΡΡ Π΄Π°ΠΆΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΡΡΠΎΡΠΎΠ½Π½ΠΈΡ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊ. ΠΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ, ΠΊ ΡΠΏΠΈΡΠΊΡ ΡΡΠΎΡΠΎΠ½Π½ΠΈΡ ΠΌΠΎΠ΄ΡΠ»Π΅ΠΉ ΠΌΠΎΠΆΠ½ΠΎ ΠΎΡΠ½Π΅ΡΡΠΈ ΠΌΠΎΠ΄ΡΠ»Ρ Timers (Π²ΡΡΡΠΎΠ΅Π½Π½ΡΠΉ ΠΌΠΎΠ΄ΡΠ»Ρ Π² PascalABC.NET) Π΄Π»Ρ Π²ΡΠ²ΠΎΠ΄Π° ΠΎΡΡΠ°Π²ΡΠ΅Π³ΠΎΡΡ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ Π½Π° ΡΠΎΠ²Π΅ΡΡΠ΅Π½ΠΈΠ΅ Ρ ΠΎΠ΄Π° ΠΈΠ³ΡΠΎΠΊΠ°.
ΠΠ»Ρ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΡ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° Π² ΡΠ°Π±ΠΎΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π»ΡΡ ΠΌΠΎΠ΄ΡΠ»Ρ GraphABC.
2. ΠΠ»Π³ΠΎΡΠΈΡΠΌΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΊΠΎΠ½ΡΡΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π Π΄Π°Π½Π½ΠΎΠΌ ΠΏΡΠ½ΠΊΡΠ΅ ΠΏΡΠΈΠ²ΠΎΠ΄ΠΈΡΡΡ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΠΎΠ± ΠΎΡΠ½ΠΎΠ²Π½ΡΡ ΠΈ Π²ΡΠΏΠΎΠΌΠΎΠ³Π°ΡΠ΅Π»ΡΠ½ΡΡ ΡΡΠ½ΠΊΡΠΈΡΡ , ΠΎ Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΈΠΈ ΠΌΠ°ΡΡΠΈΠ²ΠΎΠ² ΠΈ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ², ΡΡΡΡΠΊΡΡΡΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
Π‘ΡΡΡΠΊΡΡΡΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· Π΄Π²ΡΡ ΠΊΠ»Π°ΡΡΠΎΠ²: ΠΏΠ΅ΡΠ²ΡΠΉ ΠΎΡΠ²Π΅ΡΠ°Π΅Ρ Π·Π° ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, Π²ΡΠΎΡΠΎΠΉ — ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ Π°Π»Π³ΠΎΡΠΈΡΠΌ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ. ΠΠ±Π° ΠΊΠ»Π°ΡΡΠ° ΠΈΠΌΠ΅ΡΡ Π²Π°ΠΆΠ½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅.
ΠΠ»Π΅ΡΠΊΠΈ, ΠΎΠ±ΡΠ°Π·ΡΡΡΠΈΠ΅ ΠΈΠ³ΡΠΎΠ²ΠΎΠ΅ ΠΏΠΎΠ»Π΅, Π·Π°Π΄Π°ΡΡΡΡ ΠΌΠ°ΡΡΠΈΡΠ΅ΠΉ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΡΡ 15×15.
ΠΠ»Π³ΠΎΡΠΈΡΠΌ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΎΡΠ΅ΡΠ΅Π΄Π½ΠΎΠ³ΠΎ Ρ ΠΎΠ΄Π°. ΠΠ³ΡΠΎΠΊ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ ΠΎΡΠ΅ΡΠ΅Π΄Π½ΠΎΠΉ Ρ ΠΎΠ΄ ΠΏΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ ΠΊΠ»Π°Π²ΠΈΡΠΈ «Enter» Π½Π° ΠΈΠ³ΡΠΎΠ²ΠΎΠΌ ΠΏΠΎΠ»Π΅. ΠΡΠΈ ΡΡΠΎΠΌ Π² ΠΌΠ°ΡΡΠΈΠ², Π΅ΡΠ»ΠΈ Π΄Π°Π½Π½Π°Ρ ΡΡΠ΅ΠΉΠΊΠ° Π½Π΅ Π·Π°Π½ΡΡΠ°, Π·Π°Π½ΠΎΡΠΈΡΡΡ 1 ΠΈΠ»ΠΈ 2 Π² Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ ΡΠΎΠ³ΠΎ, ΠΊΡΠΎ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ Ρ ΠΎΠ΄ Π½Π° Π΄Π°Π½Π½ΡΠΉ ΠΌΠΎΠΌΠ΅Π½Ρ. ΠΠ»Ρ ΠΏΡΠΎΡΠΈΡΠΎΠ²ΠΊΠΈ ΠΊΡΠ΅ΡΡΠΈΠΊΠΎΠ² ΠΈ Π½ΠΎΠ»ΠΈΠΊΠΎΠ² ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Symbol. ΠΠ°ΡΠ΅ΠΌ Π²ΡΠ·ΡΠ²Π°Π΅ΡΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Pobeditel, ΠΊΠΎΡΠΎΡΠ°Ρ ΠΏΡΠΎΠ²Π΅ΡΡΠ΅Ρ ΠΊΠ°ΠΆΠ΄ΡΡ ΡΡΠ΅ΠΉΠΊΡ ΠΌΠ°ΡΡΠΈΠ²Π° Π½Π° Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Π²ΡΠΈΠ³ΡΡΡΠ½ΠΎΠΉ ΡΠΈΡΡΠ°ΡΠΈΠΈ. ΠΠ° ΡΠΈΡ. 1 ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π° Π±Π»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π°Π»Π³ΠΎΡΠΈΡΠΌ ΠΈΠ³ΡΠ° pascal
Π ΠΈΡΡΠ½ΠΎΠΊ 1 — ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΠ³ΡΠΎΠΊΠ°ΠΌ ΡΠ°Π·ΡΠ΅ΡΠ°Π΅ΡΡΡ Π΄Π΅Π»Π°ΡΡ Ρ ΠΎΠ΄ ΡΠΎΠ»ΡΠΊΠΎ ΡΠ΅ΡΠ΅Π· ΡΠ°Π·, ΡΠ΅ΠΌ ΡΠ°ΠΌΡΠΌ ΡΠΎΠ±Π»ΡΠ΄Π°Ρ ΠΎΡΠ΅ΡΠ΅Π΄Π½ΠΎΡΡΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Ρ ΠΎΠ΄Π°. ΠΠ°ΠΆΠ΄ΡΠΉ ΡΠ°Π· ΠΏΠΎΡΠ»Π΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΎΡΠ΅ΡΠ΅Π΄Π½ΠΎΠ³ΠΎ ΡΠ΄Π°ΡΠ½ΠΎΠ³ΠΎ Ρ ΠΎΠ΄Π° ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ «i» ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°Π΅ΡΡΡ Π½Π° Π΅Π΄ΠΈΠ½ΠΈΡΡ. ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ «i» ΠΏΠ΅ΡΠ΅Π΄ ΠΊΠ°ΠΆΠ΄ΡΠΌ Ρ ΠΎΠ΄ΠΎΠΌ ΠΏΡΠΎΠ²Π΅ΡΡΠ΅ΡΡΡ Π½Π° ΡΠ΅ΡΠ½ΠΎΡΡΡ: Π½Π΅ΡΠ΅ΡΠ½Π° — Ρ ΠΎΠ΄ΡΡ «ΠΊΡΠ΅ΡΡΠΈΠΊΠΈ», ΡΠ΅ΡΠ½Π° — Ρ ΠΎΠ΄ΡΡ «Π½ΡΠ»ΠΈ». ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ Π΄Π°Π½Π½ΠΎΠ³ΠΎ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Π° Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅ 2.
-+
Π ΠΈΡΡΠ½ΠΎΠΊ 2 — ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° Π°Π»Π³ΠΎΡΠΈΡΠΌΠ°, ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡΠ΅Π³ΠΎ ΠΈΠ³ΡΠΎΠΊΠ° ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ Ρ ΠΎΠ΄Π° ΠΠ³ΡΠ° ΡΠΏΡΠ°Π²Π»ΡΠ΅ΡΡΡ Ρ ΠΊΠ»Π°Π²ΠΈΠ°ΡΡΡΡ, Π΅ΡΠ»ΠΈ Π½Π°ΠΆΠ°ΡΠ° Π½Π΅Π½ΡΠΆΠ½Π°Ρ ΠΊΠ»Π°Π²ΠΈΡΠ°, ΡΠΎ ΠΎΠ½Π° ΠΈΠ³Π½ΠΎΡΠΈΡΡΠ΅ΡΡΡ, Π² ΠΈΠ³ΡΠ΅ Π½Π΅ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ Π½ΠΈΠΊΠ°ΠΊΠΈΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΉ, ΠΈΠ³ΡΠ° ΠΏΡΠΎΠ΄ΠΎΠ»ΠΆΠ°Π΅ΡΡΡ; Π΅ΡΠ»ΠΈ Π½Π°ΠΆΠ°ΡΡ ΡΠΊΠ°Π·Π°Π½Π½ΡΠ΅ Π½ΠΈΠΆΠ΅ ΠΊΠ»Π°Π²ΠΈΡΠΈ, ΡΠΎ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΡΡ ΡΠΎΠ±ΡΡΠΈΡ:
ΠΠ»Π°Π²ΠΈΡΠΈ-ΡΡΡΠ΅Π»ΠΊΠΈ — Π½ΠΎΠΌΠ΅Ρ ΡΡΠ΅ΠΉΠΊΠΈ ΠΈΠ³ΡΠΎΠ²ΠΎΠ³ΠΎ ΠΏΠΎΠ»Ρ ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°Π΅ΡΡΡ ΠΈΠ»ΠΈ ΡΠΌΠ΅Π½ΡΡΠ°Π΅ΡΡΡ Π½Π° Π΅Π΄ΠΈΠ½ΠΈΡΡ, ΠΈΡΡ ΠΎΠ΄Ρ ΠΈΠ· ΡΠΎΠ³ΠΎ, ΠΊΠ°ΠΊΠ°Ρ ΠΊΠ»Π°Π²ΠΈΡΠ° Π±ΡΠ»Π° Π½Π°ΠΆΠ°ΡΠ°, Π΅ΡΠ»ΠΈ Π΄ΠΎΡΡΠΈΠ³Π½ΡΡ ΠΊΡΠ°ΠΉ ΠΏΠΎΠ»Ρ, ΡΠΎ Π½ΠΎΠΌΠ΅ΡΡ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π΅ΡΡΡ Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠ΅ ΠΈΠ»ΠΈ ΠΊΠΎΠ½Π΅ΡΠ½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π² Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ ΠΊΡΠ°Ρ ΠΏΠΎΠ»Ρ. ΠΡΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΎΡΠ΅Π½Ρ Π²Π°ΠΆΠ½Ρ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ Π΄Π»Ρ Π·Π°Π½Π΅ΡΠ΅Π½ΠΈΡ Π² Π΄Π²ΡΠΌΠ΅ΡΠ½ΡΠΉ ΠΌΠ°ΡΡΠΈΠ² Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ 1 ΠΈΠ»ΠΈ 2 ΠΏΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ «Enter» Π½Π° ΡΠ²ΠΎΠ±ΠΎΠ΄Π½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠ΅ ΠΏΠΎΠ»Ρ, Π° ΡΠ°ΠΊΠΆΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΏΠ΅ΡΠ΅Π΄Π°ΡΡΡΡ Π² ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Kursor, ΠΊΠΎΡΠΎΡΠ°Ρ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅Ρ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΠ΅ ΠΊΡΡΡΠΎΡΠ° ΠΏΠΎ ΡΡΠ΅ΠΉΠΊΠ°ΠΌ.
ΠΠ»Π°Π²ΠΈΡΠ° «Enter» — ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΠΌΠ°ΡΡΠΈΡΡ ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡΡ ΡΠ°Π²Π½ΡΠΌ 1 ΠΈΠ»ΠΈ 2, Π² Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ ΡΠΎΠ³ΠΎ, ΠΊΠΎΠΌΡ ΠΏΡΠΈΠ½Π°Π΄Π»Π΅ΠΆΠΈΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΡΠΎΠ²Π΅ΡΡΠΈΡΡ Ρ ΠΎΠ΄. ΠΠ°ΡΠ΅ΠΌ Π²ΡΠ·ΡΠ²Π°Π΅ΡΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ°, ΠΊΠΎΡΠΎΡΠ°Ρ Π²ΡΠ²ΠΎΠ΄ΠΈΡ ΡΠΈΠΌΠ²ΠΎΠ» «Π₯» ΠΈΠ»ΠΈ «Π» Π² Π½ΡΠΆΠ½ΡΡ ΡΡΠ΅ΠΉΠΊΡ.
ΠΠ»Π°Π²ΠΈΡΠ° «Space» — ΠΈΠ³ΡΠ° ΠΏΠ΅ΡΠ΅Π·Π°Π³ΡΡΠΆΠ°Π΅ΡΡΡ Π·Π°Π½ΠΎΠ²ΠΎ.
ΠΠ»Π°Π²ΠΈΡΠ° «Escape» — Π½Π°ΠΆΠ°ΡΠΈΠ΅ ΠΏΡΠ΅ΠΊΡΠ°ΡΠ°Π΅Ρ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
Π ΠΈΡΡΠ½ΠΎΠΊ 3 — ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° Π°Π»Π³ΠΎΡΠΈΡΠΌΠ°, ΠΎΠ±ΡΠ°Π±Π°ΡΡΠ²Π°ΡΡΠ΅Π³ΠΎ ΠΊΠΎΠ΄ Π½Π°ΠΆΠ°ΡΠΎΠΉ ΠΊΠ»Π°Π²ΠΈΡΠΈ
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Π° Π½Π° ΡΠΈΡ. 3.
ΠΠΎΡΠ»Π΅ ΠΎΡΠ΅ΡΠ΅Π΄Π½ΠΎΠ³ΠΎ Ρ ΠΎΠ΄Π° ΠΊΠ°ΠΆΠ΄Π°Ρ ΡΡΠ΅ΠΉΠΊΠ° ΠΏΠΎΠ»Ρ ΠΏΡΠΎΠ²Π΅ΡΡΠ΅ΡΡΡ Π½Π° ΠΏΡΠΈΡΡΡΡΡΠ²ΠΈΠ΅ Π²ΡΠΈΠ³ΡΡΡΠ½ΠΎΠΉ ΠΊΠΎΠΌΠ±ΠΈΠ½Π°ΡΠΈΠΈ — Π²ΡΡΡΡΠΎΠ΅Π½Ρ Π»ΠΈ Π² ΡΡΠ΄ 4 ΠΊΡΠ΅ΡΡΠΈΠΊΠ° ΠΈΠ»ΠΈ Π½ΠΎΠ»ΠΈΠΊΠ°. ΠΠ»Π³ΠΎΡΠΈΡΠΌ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ 2 ΡΠΈΠΊΠ»Π°. ΠΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΈΠ· ΡΡΠ»ΠΎΠ²ΠΈΠΉ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅Π΅ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅: «ΠΡΠ΅ΡΡΠΈΠΊΠΈ Π²ΡΡΡΡΠΎΠΈΠ»ΠΈ ΡΡΠ΄!» ΠΈΠ»ΠΈ «ΠΠΎΠ»ΠΈΠΊΠΈ Π²ΡΡΡΡΠΎΠΈΠ»ΠΈ ΡΡΠ΄!» ΠΈΠ»ΠΈ «ΠΠΈΡΡΡ!». ΠΠ° ΡΠΈΡΡΠ½ΠΊΠ΅ 4 ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Π° Π±Π»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° Π°Π»Π³ΠΎΡΠΈΡΠΌΠ°.
Π ΠΈΡΡΠ½ΠΎΠΊ 4 — ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΏΡΠΎΠ²Π΅ΡΠΊΠΈ ΠΏΠΎΠ±Π΅Π΄Π½ΠΎΠΉ ΡΠΈΡΡΠ°ΡΠΈΠΈ ΠΈΠ»ΠΈ Π½ΠΈΡΡΠΈ
3. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ΅ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π Ρ ΠΎΠ΄Π΅ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ΄ΡΠΊΡΠ° Π±ΡΠ»ΠΎ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½ΠΎ Π΄Π²Π° ΠΌΠΎΠ΄ΡΠ»Ρ: ΠΌΠΎΠ΄ΡΠ»Ρ Grafika ΠΈ ΠΌΠΎΠ΄ΡΠ»Ρ Base.
ΠΠΎΠ΄ΡΠ»Ρ Grafika ΠΎΡΠ²Π΅ΡΠ°Π΅Ρ Π·Π° Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. Π Π½Π΅ΠΌ ΡΠ΅Π°Π»ΠΈΠ·ΡΡΡΡΡ ΡΠ°ΠΊΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ, ΠΊΠ°ΠΊ:
o ΠΠ°ΡΠ°Π»ΡΠ½ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ-Π·Π°ΡΡΠ°Π²ΠΊΠ° ΠΈΠ³ΡΡ
o Π ΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈΠ³ΡΠΎΠ²ΠΎΠ³ΠΎ ΠΏΠΎΠ»Ρ 15 Π½Π° 15 ΠΊΠ»Π΅ΡΠΎΠΊ
o ΠΠ²ΠΈΠΆΠ΅Π½ΠΈΠ΅ ΠΊΡΡΡΠΎΡΠ° ΠΏΠΎ ΠΊΠ»Π΅ΡΠΊΠ°ΠΌ ΠΏΠΎΠ»Ρ
o ΠΠ²ΠΎΠ΄ ΡΠΈΠΌΠ²ΠΎΠ»Π°
o ΠΡΠ²ΠΎΠ΄ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠΉ ΠΈ ΠΏΡΠΎΡΠ΅ΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ:
o StartMenu
o Pole
o Kursor
o Symbol
o ExitMenu
ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ:
o Procedure StartMenu. ΠΠ°Π½Π½Π°Ρ ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π²ΡΠ²ΠΎΠ΄ΠΈΡ Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΠΈΠ³ΡΡ. Π Π½Π΅ΠΌ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ ΠΈΠ³ΡΡ, Π° ΡΠ°ΠΊΠΆΠ΅ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠ°Ρ ΠΈΠ½ΡΡΡΡΠΊΡΠΈΡ ΠΊ ΠΈΠ³ΡΠ΅. Π ΡΡΠΎΠΉ ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ:
Β· SetFontStyle; - ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅Ρ ΡΡΠΈΠ»Ρ Π²ΡΠ²ΠΎΠ΄ΠΈΠΌΠΎΠ³ΠΎ ΡΠ΅ΠΊΡΡΠ° (Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ° GraphABC);
Β· TextOut (x, y, S); - ΠΏΠ΅ΡΠ°ΡΠ°Π΅Ρ ΡΡΡΠΎΠΊΡ S, Π½Π°ΡΠΈΠ½Π°Ρ Ρ ΠΏΠΎΠ·ΠΈΡΠΈΠΈ (x, y); (Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ° GraphABC);
Β· SetFontColor (ΡΠ²Π΅Ρ); - Π²ΡΠ±ΠΈΡΠ°Π΅Ρ ΡΠ²Π΅Ρ; (Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ° GraphABC);
Β· Sleep (k) — Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ Π·Π°Π΄Π΅ΡΠΆΠΊΠ° Π½Π° ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΌΠΈΠ»Π»ΠΈΡΠ΅ΠΊΡΠ½Π΄.
o Procedure Pole. ΠΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠΈΡΡΠ΅Ρ ΠΈΠ³ΡΠΎΠ²ΠΎΠ΅ ΠΏΠΎΠ»Π΅: ΠΈΠ³ΡΠΎΠ²Π°Ρ ΡΠ΅ΡΠ΅ΡΠΊΠ° + Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ, ΡΠ°Π·Π½ΠΎΠ³ΠΎ ΡΠ²Π΅ΡΠ°. ΠΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ:
Β· Line (x1, y1, x2, y2); - ΠΏΡΠΎΠ²ΠΎΠ΄ΠΈΡ Π»ΠΈΠ½ΠΈΡ ΠΈΠ· ΡΠΎΡΠΊΠΈ (x1, y1) Π² ΡΠΎΡΠΊΡ (x2, y2); (Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ° GraphABC);
Β· TextOut (x, y, S); - ΠΏΠ΅ΡΠ°ΡΠ°Π΅Ρ ΡΡΡΠΎΠΊΡ S, Π½Π°ΡΠΈΠ½Π°Ρ Ρ ΠΏΠΎΠ·ΠΈΡΠΈΠΈ (x, y);
Β· SetFontColor (c:color); - Π²ΡΠ±ΠΈΡΠ°Π΅Ρ ΡΠ²Π΅Ρ; (Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ° GraphABC);
Β· SetPenStyle (s:style) — ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅Ρ ΡΡΠΈΠ»Ρ ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ ΠΏΠ΅ΡΠ°;
Β· SetPenColor (c:color) — ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅Ρ ΡΠ²Π΅Ρ ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ ΠΏΠ΅ΡΠ°;
o Procedure HowPlay. ΠΠ°Π½Π½Π°Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π²ΡΠ²ΠΎΠ΄ΠΈΡ Π½Π° ΡΠΊΡΠ°Π½ ΠΈΠ½ΡΡΡΡΠΊΡΠΈΡ ΠΏΠΎ ΠΈΠ³ΡΠ΅. ΠΠ°Π±ΠΎΡ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡ ΠΈΠ΄Π΅Π½ΡΠΈΡΠ΅Π½ ΡΠ°ΠΊΠΎΠΌΡ Π½Π°Π±ΠΎΡΡ ΠΊΠ°ΠΊ Π² ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅ StartMenu.
o Procedure Kursor (var x, y: integer; var ud, lr: shortint; c: color). ΠΠ°Π½Π½Π°Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠ»ΡΠΆΠΈΡ Π΄Π»Ρ Π²ΡΠ²ΠΎΠ΄Π° Π½Π° ΡΠΊΡΠ°Π½ ΠΊΠ²Π°Π΄ΡΠ°ΡΠ½ΠΎΠ³ΠΎ ΠΊΡΡΡΠΎΡΠ°, Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°ΡΡΡΡ ΠΌΠ΅ΠΆΠ΄Ρ ΡΡΠ΅ΠΉΠΊΠ°ΠΌΠΈ ΠΈΠ³ΡΠΎΠ²ΠΎΠ³ΠΎ ΠΏΠΎΠ»Ρ ΠΈ ΡΠΈΠΊΡΠΈΡΠΎΠ²Π°ΡΡ ΡΠΈΠΌΠ²ΠΎΠ» Π² Π½ΡΠΆΠ½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠ΅.
ΠΡ ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅:
Β· x, y: integer; - Π½Π°ΡΠ°Π»ΡΠ½ΡΠ΅ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ Π²Π΅ΡΡ Π½Π΅Π³ΠΎ Π»Π΅Π²ΠΎΠ³ΠΎ ΡΠ³Π»Π° ΠΈΠ³ΡΠΎΠ²ΠΎΠ³ΠΎ ΠΏΠΎΠ»Ρ;
Β· Ρ: color; - ΡΠ²Π΅Ρ ΠΊΡΡΡΠΎΡΠ°;
Β· ud, lr: shortint; - Π½ΠΎΠΌΠ΅Ρ ΡΡΡΠΎΠΊΠΈ ΠΈ ΡΡΠΎΠ»Π±Π°, Ρ. Π΅. ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΡΡΠ΅ΠΉΠΊΠΈ ΠΈΠ³ΡΠΎΠ²ΠΎΠ³ΠΎ ΠΏΠΎΠ»Ρ;
ΠΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Kursor Π²ΡΠ·ΡΠ²Π°Π΅ΡΡΡ ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΎΠΉ KeyDown.
o procedure Symbol (x, y: integer; zn: char). ΠΠ°Π½Π½Π°Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π²ΡΠ·ΡΠ²Π°Π΅ΡΡΡ ΠΈΠ· KeyDown ΠΏΠΎΡΠ»Π΅ Π½Π°ΠΆΠ°ΡΠΈΡ ΠΊΠ»Π°Π²ΠΈΡΠΈ ENTER. ΠΡΠ»ΠΈ Π²ΠΎ Π²ΡΠ΅ΠΌΡ Π²ΡΠ·ΠΎΠ²Π° ΠΊΡΡΡΠΎΡ Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ Π² Π½ΡΠΆΠ½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠ΅, ΡΠΎ ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅Ρ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΠΉ ΡΠΈΠΌΠ²ΠΎΠ» Ρ Π·Π°Π΄Π°Π½Π½ΡΠΌ ΡΠ²Π΅ΡΠΎΠΌ Π² Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠΉ ΡΡΠ΅ΠΉΠΊΠ΅.
ΠΡ ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅:
Β· x, y: integer; - ΡΠ΅ΠΊΡΡΠΈΠ΅ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΠΊΡΡΡΠΎΡΠ°.
Β· zn: char; - ΡΠΈΠΌΠ²ΠΎΠ» Π΄Π»Ρ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ Π² ΡΡΠ΅ΠΉΠΊΡ, «Π₯» ΠΈΠ»ΠΈ «Π».
ΠΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠ΅ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ:
Β· SetFontColor (color); - Π²ΡΠ±ΠΈΡΠ°Π΅Ρ ΡΠ²Π΅Ρ; (Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ° GraphAbc);
Β· SetFontStyleΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅Ρ ΡΡΠΈΠ»Ρ Π²ΡΠ²ΠΎΠ΄ΠΈΠΌΠΎΠ³ΠΎ ΡΠ΅ΠΊΡΡΠ°; (Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ° GraphAbc);
Β· TextOut (x, y, S); - ΠΏΠ΅ΡΠ°ΡΠ°Π΅Ρ ΡΡΡΠΎΠΊΡ S, Π½Π°ΡΠΈΠ½Π°Ρ Ρ ΠΏΠΎΠ·ΠΈΡΠΈΠΈ (x, y); (Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ° GraphAbc);
ΠΠΎΡΠ»Π΅ ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΡ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ ΠΊΡΡΡΠΎΡΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π²ΡΠ²ΠΎΠ΄ΠΈΡ ΡΠΈΠΌΠ²ΠΎΠ» Π² ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΡΡ ΡΡΠ΅ΠΉΠΊΡ Π½Π° ΠΈΠ³ΡΠΎΠ²ΠΎΠΌ ΠΏΠΎΠ»Π΅.
o ExitMenu. ΠΡΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π²ΡΠ·ΡΠ²Π°Π΅ΡΡΡ ΠΈΠ· ΡΠ΅Π»Π° Π³Π»Π°Π²Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠΎΡΠ»Π΅ ΠΎΠΊΠΎΠ½ΡΠ°Π½ΠΈΡ ΠΈΠ³ΡΠΎΠ²ΠΎΠ³ΠΎ ΠΊΠΎΠ½Π°. ΠΠ½Π° Π²ΡΠ²ΠΎΠ΄ΠΈΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ Ρ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅ΠΌ Π²ΡΠΉΡΠΈ ΠΈΠ· ΠΈΠ³ΡΡ, Π»ΠΈΠ±ΠΎ Π½Π°ΡΠ°ΡΡ Π·Π°Π½ΠΎΠ²ΠΎ.
ΠΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠ΅ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ:
Β· Line (x1, y1, x2, y2);
Β· SetFontStyle;
Β· TextOut (x, y, S);
Β· SetFontColor (ΡΠ²Π΅Ρ);
ΠΠΎΠ΄ΡΠ»Ρ Base ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΠΊΠΎΠ΄ ΠΈΠ³ΡΡ. Π Π½Π΅ΠΌ ΡΠ΅Π°Π»ΠΈΠ·ΡΡΡΡΡ:
o ΠΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊ ΡΠ°ΠΉΠΌΠ΅ΡΠ°
o ΠΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊ Π½Π°ΠΆΠ°ΡΠΈΡ Π½Π° ΠΊΠ»Π°Π²ΠΈΡΡ
o Π Π°Π·ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ Ρ ΠΎΠ΄Π° ΠΈΠ³ΡΠΎΠΊΡ
o ΠΡΠΎΠ²Π΅ΡΠΊΠ° ΡΠ»ΡΡΠ°Ρ ΠΏΠΎΠ±Π΅Π΄Ρ ΠΈΠ»ΠΈ Π½ΠΈΡΡΠΈ ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ:
o procedure TBase.TimerProc. ΠΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡ ΠΎΡΡΡΠ΅Ρ ΡΠ°ΠΉΠΌΠ΅ΡΠ° Π² ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΏΠΎΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΉ ΠΌΠΈΠ½ΡΡΡ. Π ΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅, ΠΊΠΎΠ³Π΄Π° Π²ΡΠ΅ΠΌΡ ΠΎΡΠ²Π΅Π΄Π΅Π½Π½ΠΎΠ΅ ΠΈΠ³ΡΠΎΠΊΡ Π½Π° ΡΠΎΠ²Π΅ΡΡΠ΅Π½ΠΈΠ΅ Ρ ΠΎΠ΄Π° ΠΈΡΡΡΠΊΠ½Π΅Ρ, Ρ ΠΎΠ΄ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄ΠΈΡ ΠΊ ΡΠΎΠΏΠ΅ΡΠ½ΠΈΠΊΡ .
o procedure KtoHodit. ΠΠΎ ΡΠ΅ΡΠ½ΠΎΡΡΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ «i» ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅ΡΡΡ ΠΈΠ³ΡΠΎΠΊ, ΠΊΠΎΡΠΎΡΡΠΉ Π²ΠΏΡΠ°Π²Π΅ ΡΡΠ°Π²ΠΈΡΡ ΡΠΈΠΌΠ²ΠΎΠ» «Π₯» ΠΈΠ»ΠΈ «Π» Π² ΠΊΠ»Π΅ΡΠΊΡ ΠΈΠ³ΡΠΎΠ²ΠΎΠ³ΠΎ ΠΏΠΎΠ»Ρ.
o procedure KeyDown (Key: integer); ΠΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΠ±ΡΠ°Π±ΠΎΡΡΠΈΠΊΠΎΠΌ ΡΠΎΠ±ΡΡΠΈΡ OnKeyDown.
ΠΡ ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅:
Β· Key: integer; - ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ Π²ΠΈΡΡΡΠ°Π»ΡΠ½ΡΠΉ ΠΊΠΎΠ΄ Π½Π°ΠΆΠ°ΡΠΎΠΉ ΠΊΠ»Π°Π²ΠΈΡΠΈ.
ΠΡΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π²ΡΠ·ΡΠ²Π°Π΅ΡΡΡ ΠΏΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ Π½Π° ΠΊΠ»Π°Π²ΠΈΡΠΈ ΠΈ, Π² Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ Π½Π°ΠΆΠ°ΡΡΡ ΠΊΠ»Π°Π²ΠΈΡ, Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ ΡΠΎΠΎΡΠ²Π΅ΡΡΠ²ΡΡΡΠΈΠ΅ ΠΈΠΌ ΠΏΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ. ΠΡΠ»ΠΈ Π½Π°ΠΆΠ°ΡΡ ΠΊΠ»Π°Π²ΠΈΡΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΠΎ ΠΈΠ³ΡΠΎΠ²ΠΎΠΌΡ ΠΏΠΎΠ»Ρ, ΡΠΎ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ Π·Π°ΠΏΠΎΠΌΠΈΠ½Π°Π½ΠΈΠ΅ Π½ΠΎΠ²ΠΎΠ³ΠΎ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Π½Π° ΠΏΠΎΠ»Π΅, Π΅ΡΠ»ΠΈ, ΠΊ ΠΏΡΠΈΠΌΠ΅ΡΡ, ΠΊΡΡΡΠΎΡ Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ Π² ΡΠ°ΠΌΠΎΠΉ Π²Π΅ΡΡ Π½Π΅ΠΉ ΡΡΠ΅ΠΉΠΊΠ΅ ΠΈ Π½Π°ΠΆΠ°ΡΠ° ΠΊΠ»Π°Π²ΠΈΡΠ° «Π²Π²Π΅ΡΡ », ΡΠΎ ΠΊΡΡΡΠΎΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°Π΅ΡΡΡ Π² ΡΠ°ΠΌΡΡ Π½ΠΈΠΆΠ½ΡΡ ΡΡΠ΅ΠΉΠΊΡ ΡΡΠΎΠ³ΠΎ ΠΆΠ΅ ΡΡΠΎΠ»Π±ΡΠ°. ΠΠ°ΡΠ΅ΠΌ Π²ΡΠ·ΡΠ²Π°Π΅ΡΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Kursor, ΠΊΠΎΡΠΎΡΠ°Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΊΡΡΡΠΎΡΠ° Π² ΠΈΠ³ΡΠΎΠ²ΠΎΠΌ ΠΏΠΎΠ»Π΅ ΠΏΠΎ Π²Π΅ΡΡΠΈΠΊΠ°Π»ΠΈ ΠΈ Π³ΠΎΡΠΈΠ·ΠΎΠ½ΡΠ°Π»ΠΈ (Π²Π²Π΅ΡΡ , Π²Π½ΠΈΠ·, Π²Π»Π΅Π²ΠΎ, Π²ΠΏΡΠ°Π²ΠΎ).
ΠΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ Π½Π° Space ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ ΠΏΠ΅ΡΠ΅Π·Π°ΠΏΡΡΠΊ ΠΈΠ³ΡΡ, ΠΏΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ Π½Π° Escape — Π²ΡΡ ΠΎΠ΄ ΠΈΠ· ΠΈΠ³ΡΡ.
o Procedure Pobeditel. ΠΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅Ρ ΠΏΡΠΎΠ²Π΅ΡΠΊΡ, Π²ΡΡΡΡΠΎΠ΅Π½Ρ Π»ΠΈ Π² ΡΡΠ΄ 4 ΠΊΡΠ΅ΡΡΠΈΠΊΠ° ΠΈΠ»ΠΈ Π½ΠΎΠ»ΠΈΠΊΠ° ΠΈ Π²ΡΠ²ΠΎΠ΄ΠΈΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠ΅ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΡ ΠΏΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ ΡΡΠΈΡ ΡΡΠ»ΠΎΠ²ΠΈΠΉ. ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ 2 ΡΠΈΠΊΠ»Π° Π² ΠΊΠΎΡΠΎΡΡΡ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½Π° case-ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΈΡ. ΠΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΈΠ· ΡΡΠ»ΠΎΠ²ΠΈΠΉ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅Π΅ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅: «ΠΠΎΠ±Π΅Π΄ΠΈΠ» ΠΈΠ³ΡΠΎΠΊ Π₯!» ΠΈΠ»ΠΈ «ΠΠΎΠ±Π΅Π΄ΠΈΠ» ΠΈΠ³ΡΠΎΠΊ Π!» .
Π ΡΠ΅Π»Π΅ ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ ΡΠΈΠΊΠ» Ρ ΠΏΠΎΡΡΡΡΠ»ΠΎΠ²ΠΈΠ΅ΠΌ, ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΠΎ ΡΡΡΠΈ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΡΠ½ΠΎΠ²Π½ΡΠΌ ΡΠΈΠΊΠ»ΠΎΠΌ ΠΈΠ³ΡΡ. Π Π½Π΅ΠΌ Π·Π°Π΄Π°ΡΡΡΡ Π½Π°ΡΠ°Π»ΡΠ½ΡΠ΅ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΠΊΡΡΡΠΎΡΠ°, ΠΎΠ±Π½ΡΠ»ΡΡΡΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΌΠ°ΡΡΠΈΠ²Π° ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ Π²ΡΠ·ΠΎΠ² ΡΡΠ°ΡΡΠΎΠ²ΠΎΠ³ΠΎ ΠΎΠΊΠ½Π° ΠΈΠ³ΡΡ — StartMenu ΠΈ Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ Π²ΡΠΎΡΠΎΠΉ ΡΠΈΠΊΠ» Ρ ΠΏΠΎΡΡΡΡΠ»ΠΎΠ²ΠΈΠ΅ΠΌ, ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΠΈΠ· ΡΠ΅Π±Ρ ΠΈΠ³ΡΠΎΠ²ΠΎΠΉ ΠΊΠΎΠ½.
ΠΠ°ΡΠ΅ΠΌ Π² ΡΠΈΠΊΠ»Π΅ Ρ ΠΏΠΎΡΡΡΡΠ»ΠΎΠ²ΠΈΠ΅ΠΌ Π²ΡΠ·ΡΠ²Π°ΡΡΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Pole ΠΈ KtoHodit, ΡΠΈΠΊΠ» Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ ΠΏΠΎΠΊΠ° Π½Π΅ Π½Π°ΠΆΠ°ΡΠ° ΠΊΠ»Π°Π²ΠΈΡΠ° «Escape» ΠΈΠ»ΠΈ «Space», ΠΈΠ»ΠΈ ΠΏΠΎΠΊΠ° Π½Π΅ Π±ΡΠ΄Π΅Ρ ΠΈΠ·Π²Π΅ΡΡΠ΅Π½ ΠΏΠΎΠ±Π΅Π΄ΠΈΡΠ΅Π»Ρ Π² ΠΈΠ³ΡΠ΅. Π ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅ KtoHodit ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅ΡΡΡ ΡΠ΅ΠΊΡΡΠΈΠΉ ΡΠΈΠΌΠ²ΠΎΠ» («Π₯» ΠΈΠ»ΠΈ «Π») ΠΏΠΎ ΡΠ΅ΡΠ½ΠΎΡΡΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ i. ΠΠΎΡΠ»Π΅ ΡΡΠΎΠ³ΠΎ ΡΡΠΈΡΡΠ²Π°Π΅ΡΡΡ Π½Π°ΠΆΠ°ΡΠ°Ρ ΠΊΠ»Π°Π²ΠΈΡΠ° ΠΈ Π²ΡΠ·ΡΠ²Π°Π΅ΡΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° KeyDown, Π΅ΡΠ»ΠΈ ΡΡΠΎ ΠΎΠ΄Π½Π° ΠΈΠ· ΠΊΠ»Π°Π²ΠΈΡ-ΡΡΡΠ΅Π»ΠΎΠΊ, ΡΠΎ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠ΅ ΠΈΠΌ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ, Ρ. Π΅. Π²ΡΠ·ΠΎΠ² ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Kursor, ΠΡΠ»ΠΈ Π½Π°ΠΆΠ°ΡΠ° ΠΊΠ»Π°Π²ΠΈΡΠ° «Enter» — Π²ΡΠ·ΡΠ²Π°Π΅ΡΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Symbol, ΠΈ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅ΠΌΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΌΠ°ΡΡΠΈΠ²Π° ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π΅ΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ 1 ΠΈΠ»ΠΈ 2, Π² Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ ΡΠΈΠΌΠ²ΠΎΠ»Π° («Π₯» ΠΈΠ»ΠΈ «Π»). ΠΠΎΡΠ»Π΅ ΡΡΠΎΠ³ΠΎ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ ΠΏΡΠΎΠ²Π΅ΡΠΊΠ° ΠΏΠΎΠ±Π΅Π΄Ρ ΠΈΠ»ΠΈ «Π½ΠΈΡΡΠΈ». Π¦ΠΈΠΊΠ» ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ ΠΈΠ³ΡΠΎΠ²ΠΎΠ³ΠΎ ΠΊΠΎΠ½Π° Π·Π°ΠΊΠ°Π½ΡΠΈΠ²Π°Π΅ΡΡΡΠ² ΡΠ»ΡΡΠ°Π΅ ΠΏΠΎΠ±Π΅Π΄Ρ, Π½ΠΈΡΡΠΈ, Π»ΠΈΠ±ΠΎ ΠΏΠΎ Π½Π°ΠΆΠ°ΡΠΈΠΈ ΠΊΠ»Π°Π²ΠΈΡΠΈ «Escape» ΠΈΠ»ΠΈ «Space».
Π «ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΌ ΡΠΈΠΊΠ»Π΅ ΠΈΠ³ΡΡ» ΠΏΠΎΡΠ»Π΅ Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΡ ΠΈΠ³ΡΠΎΠ²ΠΎΠ³ΠΎ ΠΊΠΎΠ½Π° Π²ΡΠ·ΡΠ²Π°Π΅ΡΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ExitMenu; Π΅ΡΠ»ΠΈ Π½Π°ΠΆΠ°Ρ «Escape», ΡΠΎ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ Π²ΡΡ ΠΎΠ΄ ΠΈΠ· «ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠ³ΠΎ» ΡΠΈΠΊΠ»Π° Ρ ΠΏΠΎΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΠ΅ΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, Π΅ΡΠ»ΠΈ Π½Π°ΠΆΠ°ΡΠ° Π»ΡΠ±Π°Ρ Π΄ΡΡΠ³Π°Ρ ΠΊΠ»Π°Π²ΠΈΡΠ°, «ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ «ΡΠΈΠΊΠ» Π½Π°ΡΠ½Π΅ΡΡΡ Π·Π°Π½ΠΎΠ²ΠΎ.
4. Π’Π΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΡΠΈ Π·Π°ΠΏΡΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ ΠΎΠΊΠ½ΠΎ Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ ΠΈΠ³ΡΡ ΠΈ Π½Π΅Π±ΠΎΠ»ΡΡΠΎΠΉ ΠΈΠ½ΡΡΡΡΠΊΡΠΈΠ΅ΠΉ (ΡΠΌ. ΡΠΈΡΡΠ½ΠΎΠΊ 5).
Π ΠΈΡΡΠ½ΠΎΠΊ 5 — Π‘ΡΠ°ΡΡΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΠΈΠ³ΡΡ ΠΠ³ΡΠ° Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ ΠΏΠΎΡΠ»Π΅ Π½Π΅Π±ΠΎΠ»ΡΡΠΎΠΉ ΠΏΠ°ΡΠ·Ρ. Π ΠΎΠΊΠ½Π΅ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ ΠΈΠ³ΡΠΎΠ²ΠΎΠ΅ ΠΏΠΎΠ»Π΅ Ρ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅ΠΌ Π½Π°ΡΠ°ΡΡ ΠΈΠ³ΡΡ (ΡΠΌ. ΡΠΈΡΡΠ½ΠΎΠΊ 6).
Π ΠΈΡΡΠ½ΠΎΠΊ 6 — ΠΠ°ΡΠ°Π»ΠΎ ΠΈΠ³ΡΡ
ΠΠ³ΡΠΎΠΊΡ ΡΠ°Π·ΡΠ΅ΡΠ°Π΅ΡΡΡ Π΄Π΅Π»Π°ΡΡ Ρ ΠΎΠ΄ ΡΠΎΠ»ΡΠΊΠΎ ΡΠ΅ΡΠ΅Π· ΡΠ°Π·. ΠΠΎΡΠ»Π΅ ΡΠΎΠ³ΠΎ, ΠΊΠ°ΠΊ ΠΈΠ³ΡΠΎΠΊ ΡΠ΄Π΅Π»Π°Π» Ρ ΠΎΠ΄, ΠΏΡΠ°Π²ΠΎ ΡΠ»Π΅Π΄ΡΡΡΠ΅Π³ΠΎ Ρ ΠΎΠ΄Π° ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄ΠΈΡ ΠΊ Π΅Π³ΠΎ ΡΠΎΠΏΠ΅ΡΠ½ΠΈΠΊΡ. ΠΠ° ΡΠΈΡ. 7 ΠΈ 8 ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Π° ΡΠΈΠΏΠΈΡΠ½Π°Ρ ΡΠΈΡΡΠ°ΡΠΈΡ ΠΈΠ³ΡΡ.
Π ΠΈΡΡΠ½ΠΎΠΊ 7 — ΠΠ³ΡΠΎΠΊ «Π₯» ΡΠΎΠ²Π΅ΡΡΠΈΠ» Ρ ΠΎΠ΄ Π ΠΈΡΡΠ½ΠΎΠΊ 8 — ΠΠ³ΡΠΎΠΊ «Π» ΡΠΎΠ²Π΅ΡΡΠΈΠ» Ρ ΠΎΠ΄ Π₯ΠΎΠ΄ ΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ Π΄Π΅Π»Π°ΡΡ Π·Π° ΠΎΡΠ²Π΅Π΄Π΅Π½Π½ΡΠΉ ΠΏΡΠΎΠΌΠ΅ΠΆΡΡΠΎΠΊ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ. ΠΠ° ΡΠΈΡΡΠ½ΠΊΠ΅ 9 ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ ΡΠ»ΡΡΠ°ΠΉ, ΠΊΠΎΠ³Π΄Π° ΠΈΠ³ΡΠΎΠΊ Π½Π΅ ΡΡΠΏΠ΅Π» ΡΠ΄Π΅Π»Π°ΡΡ Ρ ΠΎΠ΄ Π·Π° ΠΎΡΠ²Π΅Π΄Π΅Π½Π½ΠΎΠ΅ Π΅ΠΌΡ Π²ΡΠ΅ΠΌΡ, Ρ ΠΎΠ΄ ΠΏΠ΅ΡΠ΅ΡΠ΅Π» ΠΊ ΡΠΎΠΏΠ΅ΡΠ½ΠΈΠΊΡ.
Π ΠΈΡΡΠ½ΠΎΠΊ 9 -ΠΠ΅ΡΠ΅Ρ ΠΎΠ΄ Ρ ΠΎΠ΄Π° ΠΊ ΡΠΎΠΏΠ΅ΡΠ½ΠΈΠΊΡ.
ΠΠ»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΊΠ»Π΅ΡΠΊΠΈ Π½Π° ΠΈΠ³ΡΠΎΠ²ΠΎΠΌ ΠΏΠΎΠ»Π΅ ΠΏΡΠΎΡΠΌΠ°ΡΡΠΈΠ²Π°ΡΡΡΡ ΡΠΎΡΠ΅Π΄Π½ΠΈΠ΅ ΠΊΠ»Π΅ΡΠΊΠΈ ΠΏΠΎ Π³ΠΎΡΠΈΠ·ΠΎΠ½ΡΠ°Π»ΠΈ, Π²Π΅ΡΡΠΈΠΊΠ°Π»ΠΈ ΠΈ ΠΏΠΎ Π΄ΠΈΠ°Π³ΠΎΠ½Π°Π»ΠΈ. ΠΡΠ»ΠΈ Π² ΠΎΠ΄Π½ΠΎΠΌ ΠΈΠ· Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠΉ ΡΠΈΠΌΠ²ΠΎΠ»Ρ Π²ΠΎ Π²ΡΠ΅Ρ ΠΊΠ»Π΅ΡΠΊΠ°Ρ Π½Π° ΡΠ°ΡΡΡΠΎΡΠ½ΠΈΠΈ Π΄ΠΎ 4 ΡΠΎΠ²ΠΏΠ°Π΄Π°ΡΡ Ρ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠΌ Π² ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΊΠ»Π΅ΡΠΊΠ΅, ΡΠΎ ΠΈΠ³ΡΠ° ΡΡΠΈΡΠ°Π΅ΡΡΡ Π²ΡΠΈΠ³ΡΠ°Π½Π½ΠΎΠΉ. ΠΠ° ΡΠΈΡ. 10 ΠΈ 11 ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½Ρ Π²Π°ΡΠΈΠ°Π½ΡΡ ΠΏΠΎΠ±Π΅Π΄Ρ.
Π ΠΈΡΡΠ½ΠΎΠΊ 10 — ΠΠΎΠ±Π΅Π΄Π° «ΠΊΡΠ΅ΡΡΠΈΠΊΠΎΠ²»
Π ΠΈΡΡΠ½ΠΎΠΊ 11 — ΠΠΎΠ±Π΅Π΄Π° «Π½ΠΎΠ»ΠΈΠΊΠΎΠ²»
ΠΡΠ»ΠΈ ΠΏΡΠΎΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½Ρ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠ΅ ΡΠΈΡΡΠ°ΡΠΈΠΈ Π² ΠΈΠ³ΡΠ΅. ΠΡΠΈ Π²ΠΎΠ·Π½ΠΈΠΊΠ½ΠΎΠ²Π΅Π½ΠΈΠΈ ΠΎΡΠΈΠ±ΠΎΠΊ, ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΠΎΠ΄Π²Π΅ΡΠ³Π°Π»Π°ΡΡ Π΄ΠΎΡΠ°Π±ΠΎΡΠΊΠ΅. Π’Π΅ΠΌ ΡΠ°ΠΌΡΠΌ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΠ»Π°Π³Π°ΡΡΡΡ Π½Π° ΡΠΎ, ΡΡΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠ°Π±ΠΎΡΠ°Π΅Ρ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎ, Ρ ΠΎΡΡ Π³ΠΎΠ²ΠΎΡΠΈΡΡ ΠΎ ΠΏΠΎΠ»Π½ΠΎΠΉ Π»ΠΈΠΊΠ²ΠΈΠ΄Π°ΡΠΈΠΈ Π²ΡΠ΅Ρ ΠΎΡΠΈΠ±ΠΎΠΊ Π΅ΡΠ΅ Π½Π΅Π»ΡΠ·Ρ. ΠΠΏΠΎΠ»Π½Π΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ, ΡΡΠΎ ΡΠ΅ΠΉΡΠ°Ρ ΠΌΡ ΠΈΠΌΠ΅Π΅ΠΌ ΠΈΡΠΏΡΠ°Π²Π½ΡΡ ΠΈ Π²Π΅ΡΡΠΌΠ° ΠΈΠ½ΡΠ΅ΡΠ΅ΡΠ½ΡΡ ΠΈΠ³ΡΡ.
ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
Π Π΄Π°Π½Π½ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ Π½Π°ΠΏΠΈΡΠ°Π½Π° Ρ ΠΎΡΠΎΡΠΎ Π²ΡΠ΅ΠΌ ΠΈΠ·Π²Π΅ΡΡΠ½Π°Ρ ΠΈΠ³ΡΠ° «ΠΡΠ΅ΡΡΠΈΠΊΠΈ-ΠΠΎΠ»ΠΈΠΊΠΈ».
Π‘ΡΡΠ΅ΠΌΠΈΡΠ΅Π»ΡΠ½ΠΎΠ΅ ΡΠ°Π·Π²ΠΈΡΠΈΠ΅ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΠΎΠΉ ΡΠ΅Ρ Π½ΠΈΠΊΠΈ Π² ΠΏΠΎΡΠ»Π΅Π΄Π½ΠΈΠ΅ Π³ΠΎΠ΄Ρ, ΠΏΠΎΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΌΠΎΡΠ½Π΅ΠΉΡΠΈΡ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΡ ΡΡΠΊΠΎΡΠΈΡΠ΅Π»Π΅ΠΉ ΠΈ ΡΠ΅Π½ΡΡΠ°Π»ΡΠ½ΡΡ ΠΏΡΠΎΡΠ΅ΡΡΠΎΡΠΎΠ² ΡΠΏΠΎΡΠΎΠ±ΡΡΠ²ΠΎΠ²Π°Π»ΠΎ Π½Π΅ ΠΌΠ΅Π½Π΅Π΅ Π±ΡΡΠ½ΠΎΠΌΡ ΡΠ°Π·Π²ΠΈΡΠΈΡ ΠΈΠ½Π΄ΡΡΡΡΠΈΠΈ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΡΡ ΠΈΠ³Ρ. ΠΡΠ΄Π°ΡΡΠΈΠ΅ΡΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΡΠΎΠΉ ΠΎΡΡΠ°ΡΠ»ΠΈ — ΡΡΠΎ ΡΠ»ΠΎΠΆΠ½Π΅ΠΉΡΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΠΊΠ°ΠΊ ΠΏΡΠ°Π²ΠΈΠ»ΠΎ, Ρ ΠΎΡΠ΅Π½Ρ Π²ΡΡΠΎΠΊΠΈΠΌΠΈ ΡΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡΠΌΠΈ ΠΊ Π°ΠΏΠΏΠ°ΡΠ°ΡΠ½ΠΎΠΉ ΡΠ°ΡΡΠΈ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ°. ΠΠ΄Π½Π°ΠΊΠΎ Π΄Π»Ρ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ ΠΎΡΠ΄ΠΎΡ Π½ΡΡΡ Π² ΠΏΠ΅ΡΠ΅ΡΡΠ²Π΅ ΠΎΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΊΠ°ΠΊΠΎΠΉ-Π»ΠΈΠ±ΠΎ ΡΠ°Π±ΠΎΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ° Π½Π΅ Π²ΡΠ΅Π³Π΄Π° ΡΡΠ΅Π±ΡΠ΅ΡΡΡ Π½ΠΎΠ²Π΅ΠΉΡΠ°Ρ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½Π°Ρ ΠΈΠ³ΡΠ°, Π° Π·Π°ΡΠ°ΡΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΅Ρ Π½Π΅ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΌΠ°Π»ΠΎΠΌΠΎΡΠ½ΠΎΠ΅ ΠΎΠ±ΠΎΡΡΠ΄ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΎΡΠΈΡΠ½ΠΎΠ³ΠΎ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ°. ΠΠΌΠ΅Π½Π½ΠΎ ΡΡΠΎΠΉ ΡΠ΅Π»ΠΈ — ΠΎΡΠ΄ΡΡ Ρ ΠΎΡ ΠΌΠΎΠ½ΠΎΡΠΎΠ½Π½ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ ΡΠ»ΡΠΆΠΈΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½Π°Ρ Π² ΡΠ°ΠΌΠΊΠ°Ρ Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΠΊΡΡΡΠΎΠ²ΠΎΠ³ΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°.
ΠΠ΅ΡΠΌΠΎΡΡΡ Π½Π° Π²Π½Π΅ΡΠ½ΡΡ ΠΏΡΠΎΡΡΠΎΡΡ, ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΡΠ»ΠΎΠΆΠ½ΡΡ ΡΠΈΡΡΠ΅ΠΌΡ Π²Π·Π°ΠΈΠΌΠΎΠ΄Π΅ΠΉΡΡΠ²ΡΡΡΠΈΡ Π΄ΡΡΠ³ Ρ Π΄ΡΡΠ³ΠΎΠΌ ΡΡΠ½ΠΊΡΠΈΠΉ. ΠΠ³ΡΠ° ΡΡΠ΅Π±ΠΎΠ²Π°Π»Π° Π½Π΅ΠΌΠ°Π»ΠΎ ΡΠΈΠ» ΠΈ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ Π½Π° Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠ΅. Π Π²ΡΠ΅ ΠΆΠ΅ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΡΡΠΎΠ²Π΅ΡΡΠ΅Π½ΡΡΠ²ΠΎΠ²Π°Π½ ΠΊΠΎΠ΄ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, Π° ΡΠ°ΠΊΠΆΠ΅ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½Ρ Π½ΠΎΠ²ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ.
URL: www.pascalabc.net — Π‘ΡΠ°ΡΡΠΈ ΠΈ ΠΌΠ°ΡΠ΅ΡΠΈΠ°Π»Ρ ΠΏΠΎ ΡΠ°Π±ΠΎΡΠ΅ ΡΠΎ ΡΡΠ΅Π΄ΠΎΠΉ PascalABC.NET
URL: www.pascalabc.net — Π‘ΡΠ°ΡΡΠΈ ΠΈ ΠΌΠ°ΡΠ΅ΡΠΈΠ°Π»Ρ ΠΏΠΎ ΡΠ°Π±ΠΎΡΠ΅ ΡΠΎ ΡΡΠ΅Π΄ΠΎΠΉ PascalABC.NET
URL: www.ru.wikipedia.org — ΠΠΈΠΊΠΈΠΏΠ΅Π΄ΠΈΡ, ΠΏΠΎΠ»Π΅Π·Π½ΡΠ΅ ΡΡΠ°ΡΡΠΈ ΠΈ ΠΌΠ°ΡΠ΅ΡΠΈΠ°Π»Ρ
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΠΠΎΠ΄ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
«ΠΡΠ½ΠΎΠ²Π½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°»
program qqq;
uses
Grafika, Base, graphABC, Timers;
var
t: Timer;
q1: TBase; q2: TGrafika;
i, j: integer;ch: char;
procedure keydown (key: integer);
begin
case key of
VK_Escape: Window. Close;
end;
end;
begin
SetWindowCaption ('ΠΠ³ΡΠ° «ΠΡΠ΅ΡΡΠΈΠΊΠΈ — ΠΠΎΠ»ΠΈΠΊΠΈ» ');
repeat
q1 := TBase. Create;
q2 := TGrafika. Create;
Q2.StartMenu;
redraw;
Q1.ud := 1; Q1. lr := 1;
Q1.x0 := 50; Q1. y0 := 50;
q1.t := new Timer (999, q1. TimerProc);
Q1.ii := 60;
Q1.k := 1;
for i := 1 to 15 do
for j := 1 to 15 do q1. a[i, j] := 0;
LockDrawing;
repeat
q2.Pole;
q1.KtoHodit;
Redraw;
Sleep (1);
until (ord (q1.ch) = 27) or (ord (q1.ch) = 32);
q1.t.Stop;
q2.ExitMenu;
redraw;
UnlockDrawing;
sleep (3000);
OnKeyDown := keydown;
clearwindow;
until q1. ch = #27;
Window.close;
end.
«ΠΠΎΠ΄ΡΠ»Ρ Grafika»
unit Grafika;
interface
uses
GraphABC;
type
TGrafika = class
public
constructor Create ();
procedure Kursor (var x, y: integer; var ud, lr: shortint; c: color);
procedure StartMenu;
procedure ExitMenu;
procedure Pole;
procedure HowPlay;
procedure Symbol (x, y: integer; zn: char);
end;
implementation
constructor TGrafika. Create;
begin
end;
procedure TGrafika. StartMenu;
begin
SetFontSize (25);
SetFontColor (color.Gold);
SetFontStyle (FontStyleType.fsBold);
TextOut (30, 30, ' ΠΠ³ΡΠ° «ΠΡΠ΅ΡΡΠΈΠΊΠΈ-ΠΠΎΠ»ΠΈΠΊΠΈ» ');
SetFontSize (16);
SetFontColor (color.Blue);
SetFontStyle (FontStyleType.fsBoldUnderline);
TextOut (20, 90, 'ΠΠ½ΡΡΡΡΠΊΡΠΈΡ ΠΊ ΠΈΠ³ΡΠ΅:');
SetFontStyle (FontStyleType.fsBold);
SetFontSize (13);
TextOut (40, 120, 'ΠΠ»Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΡ ΠΊΡΡΡΠΎΡΠ° ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅');
TextOut (60, 140, 'ΠΠΠΠΠ >');
TextOut (60, 160, 'ΠΠΠ ΠΠΠ <');
TextOut (60, 180, 'ΠΠΠΠ Π₯ ^');
TextOut (60, 200, 'ΠΠΠΠ ');
TextOut (40, 240, 'ΠΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ENTER Π΄Π»Ρ Π²Π²ΠΎΠ΄Π° ');
TextOut (40, 260, 'ΠΠ»Ρ Π½Π°ΡΠ°Π»Π° ΠΈΠ³ΡΡ Π½Π°ΠΆΠΌΠΈΡΠ΅ ENTER!!!');
sleep (3000);
ClearWindow;
end;
procedure TGrafika. ExitMenu;{ΠΠ΅Π½Ρ ΠΏΠΎΡΠ»Π΅ ΠΈΠ³ΡΡ ———-}
begin
SetFontColor (color.Gold);
SetFontStyle (FontStyleType.fsBold);
TextOut (20, 380, 'ΠΠ»Ρ Π²ΡΡ ΠΎΠ΄Π° ΠΈΠ· ΠΈΠ³ΡΡ Π½Π°ΠΆΠΌΠΈΡΠ΅ ''ESCAPE''');
TextOut (20, 360, 'ΠΡΠ΄Π΅Ρ Π½Π°ΡΠ°ΡΠ° Π½ΠΎΠ²Π°Ρ ΠΈΠ³ΡΠ°');
end;
procedure TGrafika. kursor (var x, y: integer; var ud, lr: shortint; c: color);
begin
SetPenColor (c);
SetPenWidth (3);
x := 30 + (lr * 20);
y := 30 + (ud * 20);
line (x + 2, y + 2, x + 18, y + 2);line (x + 2, y + 18, x + 18, y + 18);line (x + 2, y + 2, x + 2, y + 18);line (x + 18, y + 2, x + 18, y + 18);
end;
procedure TGrafika. Pole;{ΠΠΈΠ΄ ΠΈΠ³ΡΠΎΠ²ΠΎΠ³ΠΎ ΠΏΠΎΠ»Ρ}
begin
setfontcolor (color.Red);
SetFontSize (13);
SetPenColor (color.SkyBlue);
SetPenWidth (3);
{reshetka}
line (50, 50, 350, 50);line (70, 50, 70, 350);
line (50, 70, 350, 70); line (90, 50, 90, 350);
line (50, 90, 350, 90);line (110, 50, 110, 350);
line (50, 110, 350, 110);line (130, 50, 130, 350);
line (50, 130, 350, 130);line (150, 50, 150, 350);
line (50, 150, 350, 150);line (170, 50, 170, 350);
line (50, 170, 350, 170);line (190, 50, 190, 350);
line (50, 190, 350, 190);line (210, 50, 210, 350);
line (50, 210, 350, 210);line (230, 50, 230, 350);
line (50, 230, 350, 230);line (250, 50, 250, 350);
line (50, 250, 350, 250);line (270, 50, 270, 350);
line (50, 270, 350, 270);line (290, 50, 290, 350);
line (50, 290, 350, 290);line (310, 50, 310, 350);
line (50, 310, 350, 310);line (330, 50, 330, 350);
line (50, 330, 350, 330);line (350, 50, 350, 350);
line (50, 350, 350, 350);line (50, 50, 50, 350);
SetFontStyle (fontstyletype.fsBoldItalic);
textout (20, 10, 'ΠΠ³ΡΠ°ΠΉΡΠ΅!');
end;
procedure TGrafika. HowPlay;{ΠΠ°ΠΊ ΠΈΠ³ΡΠ°ΡΡ}
begin
setfontcolor (color.Green);
line (225, 0, 225, 300);
line (225, 300, 500, 300);
line (500, 0, 500, 300);
line (225, 0, 500, 0);
SetFontColor (color.Blue);
SetFontStyle (FontStyleType.fsBoldUnderline);
TextOut (240, 30, 'ΠΠ½ΡΡΡΡΠΊΡΠΈΡ');
SetFontStyle (FontStyleType.fsBold);
SetFontSize (10);
TextOut (250, 80, 'ΠΠ»Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅');
TextOut (295, 105, 'LEFT'); TextOut (350, 105, chr (97));
TextOut (295, 125, 'RIGHT'); TextOut (350, 125, chr (100));
TextOut (295, 145, 'UP'); TextOut (350, 145, chr (115));
TextOut (295, 165, 'DOWN'); TextOut (350, 165, chr (119));
TextOut (230, 230, 'ΠΠ°ΠΆΠΌΠΈΡΠ΅ Enter ΡΡΠΎΠ±Ρ ΠΏΠΎΡΡΠ°Π²ΠΈΡΡ X ΠΈΠ»ΠΈ Y');
end;
procedure TGrafika. Symbol (x, y: integer; zn: char);{Π‘ΠΈΠΌΠ²ΠΎΠ» X ΠΈΠ»ΠΈ O Π² ΠΈΠ³ΡΠΎΠ²ΠΎΠΌ ΠΏΠΎΠ»Π΅}
begin
var c: color;
if zn = 'X' then c := Color. Green else c := Color. Red;
setFontcolor (c);SetFontStyle (fontstyletype.fsBold);
TextOut (x + 5, y + 1, zn);
end;
end.
«ΠΠΎΠ΄ΡΠ»Ρ Base»
unit Base;
interface
uses
grafika, Timers, GraphABC;
type
TBase = class (Tgrafika)
public
t: timer;
x0, y0, i, ii, k, j: integer;
ch, zn: char; c: color;
a: array[1.15, 1.15] of shortint;
n, ud, lr, Zero: shortint;
public
constructor Create;
procedure TBase. TimerProc;
procedure KtoHodit;
procedure KeyDown (Key: integer);
procedure Pobeditel;
end;
implementation
constructor TBase. Create;
begin
end;
procedure TBase. TimerProc ();
begin
TextOut (400, 10, 'ΠΡΡΠ°Π»ΠΎΡΡ ' + inttostr (ii) + ' ΡΠ΅ΠΊ.!');
dec (ii);
if ii < 0 then begin
t.Stop; inc (k); ii := 60;
setfontcolor (color.Black);
setfontsize (12);
TextOut (400, 40, 'Π₯ΠΎΠ΄ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄ΠΈΡ ΠΊ ΡΠΎΠΏΠ΅ΡΠ½ΠΈΠΊΡ');
KtoHodit; end;
end;
procedure TBase. KeyDown (Key: integer);
begin
case Key of
VK_Left:
begin
var c := color. White; kursor (x0, y0, ud, lr, c); {left}
if lr = 1 then lr := 15 else dec (lr);
c := color. HotPink;
kursor (x0, y0, ud, lr, c);
end;
VK_Right:
begin
c := color. White; kursor (x0, y0, ud, lr, c);
if lr = 15 then lr := 1 else inc (lr);{right}
c := color. HotPink;
kursor (x0, y0, ud, lr, c);
end;
VK_Up:
begin
c := color. White; kursor (x0, y0, ud, lr, c);{ΠΊΠ»Π°Π²ΠΈΡΠ° ΠΠ²Π΅ΡΡ }
if ud = 1 then ud := 15 else dec (ud);
c := color. HotPink;
kursor (x0, y0, ud, lr, c);
end;
VK_Down:
begin
c := color. White; kursor (x0, y0, ud, lr, c);{ΠΊΠ»Π°Π²ΠΈΡΠ° ΠΠ½ΠΈΠ·}
if ud = 15 then ud := 1 else inc (ud);
c := color. HotPink;
kursor (x0, y0, ud, lr, c);
end;
VK_Enter:
begin
if (a[ud, lr] = 0) and (ord (ch) <> 32) then
begin
a[ud, lr] := n; inc (k); symbol (x0, y0, zn); ii := 60; pobeditel; end;
end;
VK_Escape:
begin
Window.Close;
end;
vk_space: ch := chr (32) ;
end;
end;
procedure TBase. KtoHodit;
begin
Zero := 0;
if (k mod 2 <> 0) then begin zn := 'X'; n := 1; t. Start; end
else begin zn := 'O'; n := 2; t. Start end;
OnKeyDown := KeyDown;
end;
procedure TBase. Pobeditel;
var
i, j: integer;
begin
for i := 1 to 15 do
for j := 1 to 15 do
begin
case i of
1.4:
begin
case j of
1.4:
begin
if ((a[i, j] = n) and (a[i + 1, j] = n) and (a[i + 2, j] = n) and (a[i + 3, j] = n) and (a[i + 4, j] = n)) or ((a[i, j] = n) and (a[i, j + 1] = n) and (a[i, j + 2] = n) and (a[i, j + 3] = n) and (a[i, j + 4] = n)) or ((a[i, j] = n) and (a[i + 1, j + 1] = n) and (a[i + 2, j + 2] = n) and (a[i + 3, j + 3] = n) and (a[i + 4, j + 4] = n)) then
begin
textout (400, 220, 'ΠΠΎΠ±Π΅Π΄ΠΈΠ» ΠΈΠ³ΡΠΎΠΊ ' + zn);
ch := chr (32);
end;
end;
5.11:
begin
if ((a[i, j] = n) and (a[i + 1, j] = n) and (a[i + 2, j] = n) and (a[i + 3, j] = n) and (a[i + 4, j] = n)) or ((a[i, j] = n) and (a[i, j + 1] = n) and (a[i, j + 2] = n) and (a[i, j + 3] = n) and (a[i, j + 4] = n)) or ((a[i, j] = n) and (a[i + 1, j + 1] = n) and (a[i + 2, j + 2] = n) and (a[i + 3, j + 3] = n) and (a[i + 4, j + 4] = n)) or ((a[i, j] = n) and (a[i, j — 1] = n) and (a[i, j — 2] = n) and (a[i, j — 3] = n) and (a[i, j — 4] = n)) or ((a[i, j] = n) and (a[i + 1, j — 1] = n) and (a[i + 2, j — 2] = n) and (a[i + 3, j — 3] = n) and (a[i + 4, j — 4] = n)) then
begin
textout (400, 220, 'ΠΠΎΠ±Π΅Π΄ΠΈΠ» ΠΈΠ³ΡΠΎΠΊ ' + zn);
ch := chr (32);
end;
end;
12.15:
begin
if ((a[i, j] = n) and (a[i, j — 1] = n) and (a[i, j — 2] = n) and (a[i, j — 3] = n) and (a[i, j — 4] = n)) or ((a[i, j] = n) and (a[i + 1, j — 1] = n) and (a[i + 2, j — 2] = n) and (a[i + 3, j — 3] = n) and (a[i + 4, j — 4] = n)) or ((a[i, j] = n) and (a[i + 1, j] = n) and (a[i + 2, j] = n) and (a[i + 3, j] = n) and (a[i + 4, j] = n)) then
begin
textout (400, 220, 'ΠΠΎΠ±Π΅Π΄ΠΈΠ» ΠΈΠ³ΡΠΎΠΊ ' + zn);
ch := chr (32);
end;
end;
end;
end;
5.11:
begin
case j of
1.4:
begin
if ((a[i, j] = n) and (a[i — 1, j] = n) and (a[i — 2, j] = n) and (a[i — 3, j] = n) and (a[i — 4, j] = n)) or ((a[i, j] = n) and (a[i + 1, j] = n) and (a[i + 2, j] = n) and (a[i + 3, j] = n) and (a[i + 4, j] = n)) or ((a[i, j] = n) and (a[i, j + 1] = n) and (a[i, j + 2] = n) and (a[i, j + 3] = n) and (a[i, j + 4] = n)) or ((a[i, j] = n) and (a[i — 1, j + 1] = n) and (a[i — 2, j + 2] = n) and (a[i — 3, j + 3] = n) and (a[i — 4, j + 4] = n)) or ((a[i, j] = n) and (a[i + 1, j + 1] = n) and (a[i + 2, j + 2] = n) and (a[i + 3, j + 3] = n) and (a[i + 4, j + 4] = n)) then
begin
textout (400, 220, 'ΠΠΎΠ±Π΅Π΄ΠΈΠ» ΠΈΠ³ΡΠΎΠΊ ' + zn);
ch := chr (32);
end;
end;
5.11:
begin
if ((a[i, j] = n) and (a[i — 1, j] = n) and (a[i — 2, j] = n) and (a[i — 3, j] = n) and (a[i — 4, j] = n)) or ((a[i, j] = n) and (a[i + 1, j] = n) and (a[i + 2, j] = n) and (a[i + 3, j] = n) and (a[i + 4, j] = n)) or ((a[i, j] = n) and (a[i, j — 1] = n) and (a[i, j — 2] = n) and (a[i, j — 3] = n) and (a[i, j — 4] = n)) or ((a[i, j] = n) and (a[i, j + 1] = n) and (a[i, j + 2] = n) and (a[i, j + 3] = n) and (a[i, j + 4] = n)) or ((a[i, j] = n) and (a[i — 1, j + 1] = n) and (a[i — 2, j + 2] = n) and (a[i — 3, j + 3] = n) and (a[i — 4, j + 4] = n)) or ((a[i, j] = n) and (a[i + 1, j — 1] = n) and (a[i + 2, j — 2] = n) and (a[i + 3, j — 3] = n) and (a[i + 4, j — 4] = n)) or ((a[i, j] = n) and (a[i + 1, j + 1] = n) and (a[i + 2, j + 2] = n) and (a[i + 3, j + 3] = n) and (a[i + 4, j + 4] = n)) or ((a[i, j] = n) and (a[i — 1, j — 1] = n) and (a[i — 2, j — 2] = n) and (a[i — 3, j — 3] = n) and (a[i — 4, j — 4] = n)) then
begin
textout (400, 220, 'ΠΠΎΠ±Π΅Π΄ΠΈΠ» ΠΈΠ³ΡΠΎΠΊ ' + zn);
ch := chr (32);
end;
end;
12.15:
begin
if ((a[i, j] = n) and (a[i — 1, j] = n) and (a[i — 2, j] = n) and (a[i — 3, j] = n) and (a[i — 4, j] = n)) or ((a[i, j] = n) and (a[i + 1, j] = n) and (a[i + 2, j] = n) and (a[i + 3, j] = n) and (a[i + 4, j] = n)) or ((a[i, j] = n) and (a[i, j — 1] = n) and (a[i, j — 2] = n) and (a[i, j — 3] = n) and (a[i, j — 4] = n)) or ((a[i, j] = n) and (a[i + 1, j — 1] = n) and (a[i + 2, j — 2] = n) and (a[i + 3, j — 3] = n) and (a[i + 4, j — 4] = n)) or ((a[i, j] = n) and (a[i — 1, j — 1] = n) and (a[i — 2, j — 2] = n) and (a[i — 3, j — 3] = n) and (a[i — 4, j — 4] = n)) then
begin
textout (400, 220, 'ΠΠΎΠ±Π΅Π΄ΠΈΠ» ΠΈΠ³ΡΠΎΠΊ ' + zn);
ch := chr (32);
end;
end;
end;
end;
12.15:
begin
case j of
1.4:
begin
if ((a[i, j] = n) and (a[i — 1, j] = n) and (a[i — 2, j] = n) and (a[i — 3, j] = n) and (a[i — 4, j] = n)) or ((a[i, j] = n) and (a[i, j + 1] = n) and (a[i, j + 2] = n) and (a[i, j + 3] = n) and (a[i, j + 4] = n)) or ((a[i, j] = n) and (a[i — 1, j + 1] = n) and (a[i — 2, j + 2] = n) and (a[i — 3, j + 3] = n) and (a[i — 4, j + 4] = n)) then
begin
textout (400, 220, 'ΠΠΎΠ±Π΅Π΄ΠΈΠ» ΠΈΠ³ΡΠΎΠΊ ' + zn);
ch := chr (32);
end;
end;
5.11:
begin
if ((a[i, j] = n) and (a[i — 1, j] = n) and (a[i — 2, j] = n) and (a[i — 3, j] = n) and (a[i — 4, j] = n)) or ((a[i, j] = n) and (a[i, j — 1] = n) and (a[i, j — 2] = n) and (a[i, j — 3] = n) and (a[i, j — 4] = n)) or ((a[i, j] = n) and (a[i, j + 1] = n) and (a[i, j + 2] = n) and (a[i, j + 3] = n) and (a[i, j + 4] = n)) or ((a[i, j] = n) and (a[i — 1, j + 1] = n) and (a[i — 2, j + 2] = n) and (a[i — 3, j + 3] = n) and (a[i — 4, j + 4] = n)) or ((a[i, j] = n) and (a[i — 1, j — 1] = n) and (a[i — 2, j — 2] = n) and (a[i — 3, j — 3] = n) and (a[i — 4, j — 4] = n)) then
begin
textout (400, 220, 'ΠΠΎΠ±Π΅Π΄ΠΈΠ» ΠΈΠ³ΡΠΎΠΊ ' + zn);
ch := chr (32);
end;
end;
12.15:
begin
if ((a[i, j] = n) and (a[i — 1, j] = n) and (a[i — 2, j] = n) and (a[i — 3, j] = n) and (a[i — 4, j] = n)) or ((a[i, j] = n) and (a[i, j — 1] = n) and (a[i, j — 2] = n) and (a[i, j — 3] = n) and (a[i, j — 4] = n)) or ((a[i, j] = n) and (a[i — 1, j — 1] = n) and (a[i — 2, j — 2] = n) and (a[i — 3, j — 3] = n) and (a[i — 4, j — 4] = n)) then
begin
textout (400, 220, 'ΠΠΎΠ±Π΅Π΄ΠΈΠ» ΠΈΠ³ΡΠΎΠΊ ' + zn);
ch := chr (32);
end;
end;
end;
end;
end;
end;
for i := 1 to 15 do
for j := 1 to 15 do
if a[i, j] = 0 then inc (Zero);
if Zero = 0 then
begin
TextOut (400, 150, 'ΠΠΈΡΡΡ!');
ch := chr (32);
end;
end;
end.