ΠΠ±ΡΠ»ΡΠΆΠΈΠ²Π°Π½ΠΈΠ΅ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΡΡ ΡΠΈΡΡΠ΅ΠΌ ΠΈ ΡΠ΅ΡΠ΅ΠΉ
Π Π΄Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΡΠ°ΠΌΠΎΠ»Π΅ΡΡ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½Ρ Π·Π° Π³ΡΠ°Π½ΠΈΡΠ΅ΠΉ ΠΎΠΊΠ½Π° ΠΈ ΠΏΠΎΡΠ»Π΅ Π·Π°ΠΏΡΡΠΊΠ° ΠΈΠ³ΡΡ Π²ΡΠ»Π΅ΡΠ°ΡΡ ΠΈΠ·-Π·Π° Π½Π΅Π΅. Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΡΠΊΠ»Π°Π΄ΡΠ²Π°Π΅ΡΡΡ Π²ΠΏΠ΅ΡΠ°ΡΠ»Π΅Π½ΠΈΠ΅, ΡΡΠΎ ΡΠ°ΠΌΠΎΠ»Π΅Ρ Π²ΡΠ»Π΅ΡΠ°Π΅Ρ ΠΈΠ·-Π·Π° Π³ΡΠ°Π½ΠΈΡΡ ΠΎΠΊΠ½Π° ΠΈ Π΄Π²ΠΈΠΆΠ΅ΡΡΡ Π² Π·Π°Π΄Π°Π½Π½ΠΎΠΌ Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠΈ. ΠΠ°ΠΊ ΡΠΎΠ»ΡΠΊΠΎ ΡΠ°ΠΌΠΎΠ»Π΅Ρ Π·Π°Π»Π΅ΡΠ°Π΅Ρ Π·Π° ΠΏΡΠΎΡΠΈΠ²ΠΎΠΏΠΎΠ»ΠΎΠΆΠ½ΡΡ Π³ΡΠ°Π½ΠΈΡΡ ΠΎΠΊΠ½Π°, ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ Π·Π°Π΄Π°Π΅ΡΡΡ ΠΏΠ΅ΡΠ²ΠΎΠ½Π°ΡΠ°Π»ΡΠ½Π°Ρ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ° ΠΈ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΠ΅ Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ ΡΠ½Π°ΡΠ°Π»Π°. Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΡΠΎΠ΅ΠΊΡΠ° Π±ΡΠ»Π° ΠΏΠΎΠ»Π½ΠΎΡΡΡΡ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
ΠΠ±ΡΠ»ΡΠΆΠΈΠ²Π°Π½ΠΈΠ΅ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΡΡ ΡΠΈΡΡΠ΅ΠΌ ΠΈ ΡΠ΅ΡΠ΅ΠΉ (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
Π Π΅ΡΠ΅ΡΠ°Ρ
ΠΡΡΡΠΎΠ²ΠΎΠΉ ΠΏΡΠΎΠ΅ΠΊΡ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ 28 ΡΡΡΠ°Π½ΠΈΡ, 9 ΠΈΠ»Π»ΡΡΡΡΠ°ΡΠΈΠΉ, 8ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ.
ΠΠ±ΡΠ΅ΠΊΡ ΠΈΡΡΠ»Π΅Π΄ΠΎΠ²Π°Π½ΠΈΡ ΡΡΠ΅Π΄Π° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Delphi Borland 7, ΡΠ·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Pascal.
Π¦Π΅Π»Ρ ΡΠ°Π±ΠΎΡΡ: ΡΠΎΠ·Π΄Π°ΡΡ ΡΠ°Π·Π²Π»Π΅ΠΊΠ°ΡΠ΅Π»ΡΠ½ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΠΈΠ³ΡΡ «Π‘Π±Π΅ΠΉ ΡΠ°ΠΌΠΎΠ»Π΅Ρ». Π Π°Π·Π²Π»Π΅ΠΊΠ°ΡΠ΅Π»ΡΠ½ΠΎΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΎ Π΄Π»Ρ ΠΏΡΠΎΠ²Π΅Π΄Π΅Π½ΠΈΡ Π΄ΠΎΡΡΠ³Π° Ρ ΡΠ΅Π»ΡΡ ΠΎΡΠ΄ΡΡ Π°.
Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΡΠ°Π±ΠΎΡΡ Π±ΡΠ»Π° ΠΏΠΎΠ»ΡΡΠ΅Π½Π° ΡΠ°Π·Π²Π»Π΅ΠΊΠ°ΡΠ΅Π»ΡΠ½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡΡΡ ΡΠΎΠ±ΠΎΠΉ ΠΈΠ³ΡΡ «Π‘Π±Π΅ΠΉ ΡΠ°ΠΌΠΎΠ»Π΅Ρ». ΠΠ±Π»Π°ΡΡΡ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ: ΠΠΎΡΡΠ³ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΠ°.
Π ΠΠΠΠΠΠΠΠ’ΠΠΠ¬ΠΠΠ― ΠΠ ΠΠΠ ΠΠΠΠ, ΠΠΠ Π, ΠΠΠ‘Π£Π ΠΠ ΠΠΠ ΠΠΠΠΠ‘Π’Π.
ΠΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½Π°Ρ ΠΈΠ³ΡΠ° — ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°, ΡΠ»ΡΠΆΠ°ΡΠ°Ρ Π΄Π»Ρ ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΠΈ ΠΈΠ³ΡΠΎΠ²ΠΎΠ³ΠΎ ΠΏΡΠΎΡΠ΅ΡΡΠ°, ΡΠ²ΡΠ·ΠΈ Ρ ΠΏΠ°ΡΡΠ½ΡΡΠ°ΠΌΠΈ ΠΏΠΎ ΠΈΠ³ΡΠ΅, ΠΈΠ»ΠΈ ΡΠ°ΠΌΠ° Π²ΡΡΡΡΠΏΠ°ΡΡΠ°Ρ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΏΠ°ΡΡΠ½ΡΡΠ°.
ΠΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΡΠ΅ ΠΈΠ³ΡΡ ΡΠ°ΡΡΠΎ ΡΠΎΠ·Π΄Π°ΡΡΡΡ Π½Π° ΠΎΡΠ½ΠΎΠ²Π΅ ΡΠΈΠ»ΡΠΌΠΎΠ² ΠΈ ΠΊΠ½ΠΈΠ³; Π΅ΡΡΡ ΠΈ ΠΎΠ±ΡΠ°ΡΠ½ΡΠ΅ ΡΠ»ΡΡΠ°ΠΈ. Π‘ 2011 Π³ΠΎΠ΄Π° ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΡΠ΅ ΠΈΠ³ΡΡ ΠΎΡΠΈΡΠΈΠ°Π»ΡΠ½ΠΎ ΠΏΡΠΈΠ·Π½Π°Π½Ρ Π² Π‘Π¨Π ΠΎΡΠ΄Π΅Π»ΡΠ½ΡΠΌ Π²ΠΈΠ΄ΠΎΠΌ ΠΈΡΠΊΡΡΡΡΠ²Π°. ΠΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΡΠ΅ ΠΈΠ³ΡΡ ΠΎΠΊΠ°Π·Π°Π»ΠΈ ΡΡΠΎΠ»Ρ ΡΡΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΎΠ΅ Π²Π»ΠΈΡΠ½ΠΈΠ΅ Π½Π° ΠΎΠ±ΡΠ΅ΡΡΠ²ΠΎ, ΡΡΠΎ Π² ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΡ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡΡ ΠΎΡΠΌΠ΅ΡΠ΅Π½Π° ΡΡΡΠΎΠΉΡΠΈΠ²Π°Ρ ΡΠ΅Π½Π΄Π΅Π½ΡΠΈΡ ΠΊ Π³Π΅ΠΉΠΌΠΈΡΠΈΠΊΠ°ΡΠΈΠΈ Π΄Π»Ρ Π½Π΅ΠΈΠ³ΡΠΎΠ²ΠΎΠ³ΠΎ ΠΏΡΠΈΠΊΠ»Π°Π΄Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ.
ΠΠ΅ΡΠ²ΡΠ΅ ΠΏΡΠΈΠΌΠΈΡΠΈΠ²Π½ΡΠ΅ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΡΠ΅ ΠΈΠ³ΡΡ Π±ΡΠ»ΠΈ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Ρ Π² 1950 ΠΈ 1960 Π³ΠΎΠ΄Π°Ρ . ΠΠ½ΠΈ ΡΠ°Π±ΠΎΡΠ°Π»ΠΈ Π½Π° ΡΠ°ΠΊΠΈΡ ΠΏΠ»Π°ΡΡΠΎΡΠΌΠ°Ρ , ΠΊΠ°ΠΊ ΡΠ½ΠΈΠ²Π΅ΡΡΠΈΡΠ΅ΡΡΠΊΠΈΠ΅ ΠΌΠ΅ΠΉΠ½ΡΡΠ΅ΠΉΠΌΡ ΠΈ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΡ EDSAC.
Π 1952 Π³ΠΎΠ΄Ρ ΠΏΠΎΡΠ²ΠΈΠ»Π°ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° «OXO», ΠΈΠΌΠΈΡΠΈΡΡΡΡΠ°Ρ ΠΈΠ³ΡΡ «ΠΊΡΠ΅ΡΡΠΈΠΊΠΈ-Π½ΠΎΠ»ΠΈΠΊΠΈ», ΡΠΎΠ·Π΄Π°Π½Π½Π°Ρ Π. Π‘. ΠΡΠ³Π»Π°ΡΠΎΠΌ ΠΊΠ°ΠΊ ΡΠ°ΡΡΡ Π΅Π³ΠΎ Π΄ΠΎΠΊΡΠΎΡΡΠΊΠΎΠΉ Π΄ΠΈΡΡΠ΅ΡΡΠ°ΡΠΈΠΈ Π² ΠΠ΅ΠΌΠ±ΡΠΈΠ΄ΠΆΡΠΊΠΎΠΌ Π£Π½ΠΈΠ²Π΅ΡΡΠΈΡΠ΅ΡΠ΅. ΠΠ³ΡΠ° ΡΠ°Π±ΠΎΡΠ°Π»Π° Π½Π° Π±ΠΎΠ»ΡΡΠΎΠΌ ΡΠ½ΠΈΠ²Π΅ΡΡΠΈΡΠ΅ΡΡΠΊΠΎΠΌ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ΅, ΠΈΠ·Π²Π΅ΡΡΠ½ΠΎΠΌ ΠΊΠ°ΠΊ EDSAC (Electronic Delay Storage Automatic Calculator).
Π 1958 Π³ΠΎΠ΄Ρ Π£ΠΈΠ»ΡΡΠΌ Π₯ΠΈΠ³ΠΈΠ½Π±ΠΎΡΠ°ΠΌ, ΠΏΠΎΠΌΠΎΠ³Π°Π²ΡΠΈΠΉ ΡΡΡΠΎΠΈΡΡ ΠΏΠ΅ΡΠ²ΡΡ ΡΠ΄Π΅ΡΠ½ΡΡ Π±ΠΎΠΌΠ±Ρ Π² ΠΡΡΠΊΡ Π΅ΠΉΠ²Π΅Π½ΡΠΊΠΎΠΉ Π½Π°ΡΠΈΠΎΠ½Π°Π»ΡΠ½ΠΎΠΉ Π»Π°Π±ΠΎΡΠ°ΡΠΎΡΠΈΠΈ, Π΄Π»Ρ ΡΠ°Π·Π²Π»Π΅ΡΠ΅Π½ΠΈΡ ΠΏΠΎΡΠ΅ΡΠΈΡΠ΅Π»Π΅ΠΉ ΡΠΎΠ·Π΄Π°Π» «Tennis for Two», (Π’Π΅Π½Π½ΠΈΡ Π΄Π»Ρ Π΄Π²ΠΎΠΈΡ ).
Π 1962 Π³ΠΎΠ΄Ρ Π‘ΡΠΈΠ² Π Π°ΡΡΠ΅Π» (Π°Π½Π³Π».) ΡΡΡΡΠΊ. ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π» ΠΈΠ³ΡΡ «Spacewar!» Π΄Π»Ρ ΠΌΠΈΠ½ΠΈΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ° PDP-1 Π² ΠΠ°ΡΡΠ°ΡΡΡΠ΅ΡΡΠΊΠΎΠΌ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΎΠΌ ΠΈΠ½ΡΡΠΈΡΡΡΠ΅, ΠΊΠΎΡΠΎΡΠ°Ρ Π±ΡΡΡΡΠΎ ΡΠ°ΡΠΏΡΠΎΡΡΡΠ°Π½ΠΈΠ»Π°ΡΡ ΠΏΠΎ Π²ΡΠ΅ΠΌ ΡΠ½ΠΈΠ²Π΅ΡΡΠΈΡΠ΅ΡΠ°ΠΌ Π‘Π¨Π.
Π 1969 Π³ΠΎΠ΄Ρ Π Π°Π»ΡΡ ΠΠ°Π΅Ρ, ΠΊΠΎΡΠΎΡΡΠΉ ΠΏΠΎΠ·ΠΆΠ΅ ΡΡΠ°Π» ΠΈΠ·Π²Π΅ΡΡΠ΅Π½ ΠΊΠ°ΠΊ «ΠΠΎΡΠΎΠ»Ρ Π²ΠΈΠ΄Π΅ΠΎΠΈΠ³Ρ», Π·Π°ΠΏΡΠΎΡΠΈΠ» ΠΏΠ°ΡΠ΅Π½Ρ Π½Π° ΡΠ°Π½Π½ΡΡ Π²Π΅ΡΡΠΈΡ ΠΈΠ³ΡΠΎΠ²ΠΎΠΉ ΠΊΠΎΠ½ΡΠΎΠ»ΠΈ «Television Gaming and Training Apparatus». Π 1967 Π³ΠΎΠ΄Ρ ΠΠ°Π΅Ρ ΡΠΎΠ·Π΄Π°Π» ΠΈΠ³ΡΡ ΠΏΠΈΠ½Π³-ΠΏΠΎΠ½Π³, ΠΏΠΎΡ ΠΎΠΆΡΡ Π½Π° «Π’Π΅Π½Π½ΠΈΡ Π΄Π»Ρ Π΄Π²ΠΎΠΈΡ ». ΠΠΌΠ΅ΡΡΠ΅ Ρ Magnavox ΠΎΠ½ ΡΠ°Π±ΠΎΡΠ°Π» Π½Π°Π΄ ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ΠΌ ΠΏΠ΅ΡΠ²ΠΎΠΉ ΠΊΠΎΠ½ΡΠΎΠ»ΠΈ, Π½Π°Π·Π²Π°Π½Π½ΠΎΠΉ Magnavox Odyssey Π² 1972 Π³ΠΎΠ΄Ρ.
Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΈΠ³ΡΠΎΠ²ΡΡ Π°Π²ΡΠΎΠΌΠ°ΡΠΎΠ² Π² 1970;Ρ Π³ΠΎΠ΄Π°Ρ ΠΏΡΠΈΠ²Π΅Π»Π° ΠΊ ΡΠ°ΠΊ Π½Π°Π·ΡΠ²Π°Π΅ΠΌΠΎΠΌΡ «ΠΠΎΠ»ΠΎΡΠΎΠΌΡ Π²Π΅ΠΊΡ Π°ΡΠΊΠ°Π΄». ΠΠ΄Π½Π° ΠΈΠ· ΡΠ°ΠΌΡΡ ΠΈΠ·Π²Π΅ΡΡΠ½ΡΡ ΠΈΠ³Ρ ΡΠΎΠ³ΠΎ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ — «Pong» .
1. Π’Π°ΠΉΠΌΠ΅Ρ
Π’Π°ΠΉΠΌΠ΅Ρ (ΠΎΡ Π°Π½Π³Π». Timer) — Π² ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠ΅ ΡΡΠ΅Π΄ΡΡΠ²ΠΎ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ Π·Π°Π΄Π΅ΡΠΆΠ΅ΠΊ ΠΈ ΠΈΠ·ΠΌΠ΅ΡΠ΅Π½ΠΈΡ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ ΡΡΠ΅Π΄ΡΡΠ²Π°ΠΌΠΈ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ°.
ΠΠ»Π°Π²Π½ΠΎΠΉ Ρ Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΡΡΠΈΠΊΠΎΠΉ ΡΠ°ΠΉΠΌΠ΅ΡΠ° ΡΠ²Π»ΡΠ΅ΡΡΡ Π΅Π³ΠΎ ΡΠΎΡΠ½ΠΎΡΡΡ — ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΡΠΉ Π³Π°ΡΠ°Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎ Π²ΡΠ΄Π΅ΡΠΆΠΈΠ²Π°Π΅ΠΌΡΠΉ ΠΈΠ½ΡΠ΅ΡΠ²Π°Π» Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ. ΠΠΎ ΡΡΠΎΠΌΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ ΡΠ°ΠΉΠΌΠ΅ΡΡ Π΄Π΅Π»ΡΡ Π½Π°:
1. ΠΠ°Π»ΠΎΡΠΎΡΠ½ΡΠ΅ (ΠΎΡΠΈΠ±ΠΊΠ° ΠΈΠ·ΠΌΠ΅ΡΠ΅Π½ΠΈΡ ΠΌΠΎΠΆΠ΅Ρ Π΄ΠΎΡΡΠΈΠ³Π°ΡΡ 0,1 Ρ)
2. Π’ΠΎΡΠ½ΡΠ΅ (ΠΎΡΠΈΠ±ΠΊΠ° ΠΈΠ·ΠΌΠ΅ΡΠ΅Π½ΠΈΡ Π½Π΅ ΠΏΡΠ΅Π²ΡΡΠ°Π΅Ρ 0,001 Ρ)
3. Π‘Π²Π΅ΡΡ ΡΠΎΡΠ½ΡΠ΅ (ΠΎΡΠΈΠ±ΠΊΠ° ΠΈΠ·ΠΌΠ΅ΡΠ΅Π½ΠΈΡ Π½Π΅ ΠΏΡΠ΅Π²ΡΡΠ°Π΅Ρ 10?6 c)
Π‘ΡΡΠ΅ΡΡΠ²ΡΡΡ Π΄Π²Π° Π²ΠΈΠ΄Π° ΡΠ°ΠΉΠΌΠ΅ΡΠΎΠ²:
1. ΠΠΏΠΏΠ°ΡΠ°ΡΠ½ΡΠ΅ ΡΠ°ΠΉΠΌΠ΅ΡΡ ΡΡΠ½ΠΊΡΠΈΠΎΠ½ΠΈΡΡΡΡ Π½Π΅Π·Π°Π²ΠΈΡΠΈΠΌΠΎ ΠΎΡ ΡΠ΅Π½ΡΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΡΠ΅ΡΡΠΎΡΠ° ΠΈ Π² ΠΌΠΎΠΌΠ΅Π½Ρ ΡΡΠ°Π±Π°ΡΡΠ²Π°Π½ΠΈΡ Π³Π΅Π½Π΅ΡΠΈΡΡΡΡ ΠΏΡΠ΅ΡΡΠ²Π°Π½ΠΈΠ΅.
2. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠ΅ ΡΠ°ΠΉΠΌΠ΅ΡΡ ΡΠ΅Π°Π»ΠΈΠ·ΡΡΡΡΡ Π·Π° ΡΡΡΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Π² ΡΠΈΠΊΠ»Π΅ Π·Π°Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Π° ΠΎΠ΄ΠΈΠ½Π°ΠΊΠΎΠ²ΡΡ «ΠΏΡΡΡΡΡ » ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ. ΠΡΠΈ ΡΠΈΠΊΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠΉ ΡΠ°ΡΡΠΎΡΠ΅ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΡΠ΅ΡΡΠΎΡΠ° ΡΡΠΎ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠΎΡΠ½ΠΎ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΠ΅Π΅ Π²ΡΠ΅ΠΌΡ. ΠΠ»Π°Π²Π½ΡΠΌΠΈ ΠΌΠΈΠ½ΡΡΠ°ΠΌΠΈ ΡΠ°ΠΊΠΎΠ³ΠΎ ΠΌΠ΅ΡΠΎΠ΄Π° ΡΠ²Π»ΡΡΡΡΡ: Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΡ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Π° ΠΈΡΠ΅ΡΠ°ΡΠΈΠΉ ΡΠΈΠΊΠ»Π° ΠΎΡ ΡΠΈΠΏΠ° ΠΈ ΡΠ°ΡΡΠΎΡΡ ΠΏΡΠΎΡΠ΅ΡΡΠΎΡΠ°, Π½Π΅Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Π΄ΡΡΠ³ΠΈΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ Π²ΠΎ Π²ΡΠ΅ΠΌΡ Π·Π°Π΄Π΅ΡΠΆΠΊΠΈ.
2. Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠ°Π±ΠΎΡΠ΅Π³ΠΎ ΠΏΡΠΎΡΠΊΡΠ°
ΠΠ»Ρ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΠΈΠ³ΡΡ «Π‘Π±Π΅ΠΉ ΡΠ°ΠΌΠΎΠ»Π΅Ρ» ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΡΠ΅Π΄Π° Π²ΠΈΠ·ΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Delphi. ΠΡΠΎΠ΅ΠΊΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΎΠ΄Π½ΠΎ ΠΎΠΊΠ½ΠΎ (ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ 2).
Π§ΡΠΎ Π±Ρ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΠ΅ ΡΠ°ΠΌΠΎΠ»Π΅ΡΠ° Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΏΡΠΈΡΠ²ΠΎΠΈΡΡ Π΅Π³ΠΎ ΠΊΠ°ΠΊΠΎΠΉ-ΡΠΎ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ΅, Π·Π°ΡΠ΅ΠΌ ΡΠ΅ΡΠ΅Π· Π½Π΅ΠΊΠΎΡΠΎΡΠΎΠ΅ Π²ΡΠ΅ΠΌΡ ΠΏΠ΅ΡΠ΅Π΄Π²ΠΈΠ½ΡΡΡ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ Π½Π° Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΏΠΈΠΊΡΠ΅Π»Π΅ΠΉ.
Π Π΄Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΡΠ°ΠΌΠΎΠ»Π΅ΡΡ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½Ρ Π·Π° Π³ΡΠ°Π½ΠΈΡΠ΅ΠΉ ΠΎΠΊΠ½Π° ΠΈ ΠΏΠΎΡΠ»Π΅ Π·Π°ΠΏΡΡΠΊΠ° ΠΈΠ³ΡΡ Π²ΡΠ»Π΅ΡΠ°ΡΡ ΠΈΠ·-Π·Π° Π½Π΅Π΅. Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΡΠΊΠ»Π°Π΄ΡΠ²Π°Π΅ΡΡΡ Π²ΠΏΠ΅ΡΠ°ΡΠ»Π΅Π½ΠΈΠ΅, ΡΡΠΎ ΡΠ°ΠΌΠΎΠ»Π΅Ρ Π²ΡΠ»Π΅ΡΠ°Π΅Ρ ΠΈΠ·-Π·Π° Π³ΡΠ°Π½ΠΈΡΡ ΠΎΠΊΠ½Π° ΠΈ Π΄Π²ΠΈΠΆΠ΅ΡΡΡ Π² Π·Π°Π΄Π°Π½Π½ΠΎΠΌ Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠΈ. ΠΠ°ΠΊ ΡΠΎΠ»ΡΠΊΠΎ ΡΠ°ΠΌΠΎΠ»Π΅Ρ Π·Π°Π»Π΅ΡΠ°Π΅Ρ Π·Π° ΠΏΡΠΎΡΠΈΠ²ΠΎΠΏΠΎΠ»ΠΎΠΆΠ½ΡΡ Π³ΡΠ°Π½ΠΈΡΡ ΠΎΠΊΠ½Π°, ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ Π·Π°Π΄Π°Π΅ΡΡΡ ΠΏΠ΅ΡΠ²ΠΎΠ½Π°ΡΠ°Π»ΡΠ½Π°Ρ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ° ΠΈ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΠ΅ Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ ΡΠ½Π°ΡΠ°Π»Π°.
ΠΡΠ½ΠΎΠ²Π½ΡΡ ΡΠ°Π±ΠΎΡΡ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠΎΠ±ΡΡΠΈΠΉ Timer, ΠΊΠΎΡΠΎΡΠ°Ρ ΠΏΠ΅ΡΠ΅Π΄Π²ΠΈΠ³Π°Π΅Ρ ΠΊΠ°ΡΡΠΈΠ½ΠΊΡ Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠΉ ΡΠΊΠΎΡΠΎΡΡΡΡ (ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»ΠΎΠΌ). ΠΠ°ΠΏΡΡΠΊ ΡΠ°ΠΊΠ΅ΡΡ ΠΈ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΠ°Π½ΠΊΠΎΠΌ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠΎΠ±ΡΡΠΈΡ KeyDown (ΡΡΠΎ ΡΠΎΠ±ΡΡΠΈΠ΅ Π³Π΅Π½Π΅ΡΠΈΡΡΠ΅ΡΡΡ Π΄ΠΎ ΡΠ΅Ρ ΠΏΠΎΡ, ΠΏΠΎΠΊΠ° ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΡΠ΄Π΅ΡΠΆΠΈΠ²Π°Π΅Ρ ΠΊΠ»Π°Π²ΠΈΡΡ). ΠΡΠΎΡΠ΅Π΄ΡΡΠ°, Π² Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ ΡΠΎΠ³ΠΎ, ΠΊΠ°ΠΊΡΡ ΠΊΠ»Π°Π²ΠΈΡΡ ΡΠ΄Π΅ΡΠΆΠΈΠ²Π°Π΅Ρ ΠΈΠ³ΡΠΎΠΊ, Π·Π°Π΄Π°Π΅Ρ Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΡ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ.
3. Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΡΠ΅ΡΠ΅Π½ΠΈΡ
Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΡΠ΅ΡΠ°Π΅ΡΡΡ ΠΎΠ΄Π½Π° Π½Π΅Π·Π°Π²ΠΈΡΠΈΠΌΠ°Ρ ΠΏΠΎΠ΄Π·Π°Π΄Π°ΡΠ°: ΠΡΠ»ΡΡΠΈΠΏΠ»ΠΈΠΊΠ°ΡΠΈΡ.
ΠΠ»Π³ΠΎΡΠΈΡΠΌ ΠΌΡΠ»ΡΡΠΈΠΏΠ»ΠΈΠΊΠ°ΡΠΈΠΈ ΡΠ°ΠΌΠΎΠ»Π΅ΡΠ° ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅ 1:
Π ΠΈΡ. 1. Π‘Ρ Π΅ΠΌΠ° Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΌΡΠ»ΡΡΠΈΠΏΠ»ΠΈΠΊΠ°ΡΠΈΠΈ
ΠΠΎΡΠ»Π΅ Π·Π°ΠΏΡΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π° ΡΠΊΡΠ°Π½ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡΡ ΠΎΠΊΠ½ΠΎ (ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ 6) ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ: Π‘Π½Π°ΡΠ°Π»Π° Π½Π° ΡΠΎΡΠΌΡ Π²ΡΠ²ΠΎΠ΄ΡΡΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΡ — Π»Π΅ΡΡΡΠΈΠ΅ ΡΠ°ΠΌΠΎΠ»Π΅ΡΡ (ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ 3), ΠΈ ΠΏΡΡΠΊΠ° (ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ 4). ΠΠ³ΡΠΎΠΊ Π·Π°ΠΏΡΡΠΊΠ°Π΅Ρ ΡΠ°ΠΊΠ΅ΡΡ (ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ 5), ΠΊΠΎΡΠΎΡΠ°Ρ ΠΌΠΎΠΆΠ΅Ρ ΡΠ±ΠΈΡΡ ΠΈΠ»ΠΈ Π½Π΅ ΡΠ±ΠΈΡΡ ΡΠ°ΠΌΠΎΠ»Π΅Ρ. ΠΠ° ΠΎΠ΄ΠΈΠ½ ΡΠ°Π· ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΡΡΠΈΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΎΠ΄Π½Ρ ΡΠ°ΠΊΠ΅ΡΡ. ΠΡΠ»ΠΈ ΡΠ°ΠΊΠ΅ΡΠ° ΠΏΠΎΠΏΠ°Π΄Π°Π΅Ρ Π² ΡΠ°ΠΌΠΎΠ»Π΅Ρ, ΡΠΎ ΡΡΠΈΡΠ°Π΅ΡΡΡ ΡΠ°ΠΌΠΎΠ»Π΅Ρ ΠΈ ΡΠ°ΠΊΠ΅ΡΠ°, ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°Π΅ΡΡΡ ΡΡΠ΅ΡΡΠΈΠΊ ΡΠ±ΠΈΡΡΡ ΡΠ°ΠΌΠΎΠ»Π΅ΡΠΎΠ², ΡΡΠ΅ΡΡΠΈΠΊ ΡΠ°ΠΊΠ΅Ρ Π½Π΅ ΠΈΠ·ΠΌΠ΅Π½ΡΠ΅ΡΡΡ, ΡΠ°ΠΌΠΎΠ»Π΅Ρ Π½Π°ΡΠΈΠ½Π°Π΅Ρ «ΠΏΠΎΠ»Π΅Ρ» ΡΠ½ΠΎΠ²Π°, Π° ΠΈΠ³ΡΠΎΠΊ ΠΏΠΎΠ»ΡΡΠ°Π΅Ρ ΠΏΡΠ°Π²ΠΎ ΠΏΡΡΡΠΈΡΡ ΡΠ»Π΅Π΄ΡΡΡΡΡ ΡΠ°ΠΊΠ΅ΡΡ. ΠΡΠ»ΠΈ ΠΈΠ³ΡΠΎΠΊ Π½Π΅ ΠΏΠΎΠΏΠ°Π» Π² ΡΠ°ΠΌΠΎΠ»Π΅Ρ, ΡΠ°ΠΊΠ΅ΡΠ° Π΄ΠΎΠ»Π΅ΡΠ°Π΅Ρ Π΄ΠΎ Π²Π΅ΡΡ Π½Π΅ΠΉ Π³ΡΠ°Π½ΠΈΡΡ ΠΎΠΊΠ½Π°, ΡΡΠ΅ΡΡΠΈΠΊ ΡΠ°ΠΊΠ΅Ρ ΡΠΌΠ΅Π½ΡΡΠ°Π΅ΡΡΡ Π½Π° 1, ΠΈ ΠΈΠ³ΡΠΎΠΊ ΠΏΠΎΠ»ΡΡΠ°Π΅Ρ ΠΏΡΠ°Π²ΠΎ ΠΏΡΡΡΠΈΡΡ ΡΠ»Π΅Π΄ΡΡΡΡΡ ΡΠ°ΠΊΠ΅ΡΡ. ΠΠΊΠ½ΠΎ Π²ΠΎ Π²ΡΠ΅ΠΌΡ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ (ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ 7). ΠΡΠ»ΠΈ ΡΡΠ΅ΡΡΠΈΠΊ ΡΠ°ΠΊΠ΅Ρ Π΄ΠΎΡΡΠΈΠ³Π°Π΅Ρ (0) ΡΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π²ΡΠ²ΠΎΠ΄ΠΈΡ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ ΠΎ ΡΠΎΠΌ ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠ°ΠΌΠΎΠ»Π΅ΡΠΎΠ² ΡΠ±ΠΈΡΠΎ. ΠΠΎΡΠ»Π΅ Π½Π°ΠΆΠ°ΡΠΈΡ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ «ΠΠΊ» ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π·Π°Π²Π΅ΡΡΠ°Π΅Ρ ΡΠ²ΠΎΠ΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅. Π’Π°ΠΊΠΆΠ΅ Π²ΠΎ Π²ΡΠ΅ΠΌΡ ΠΈΠ³ΡΡ ΠΈΠ³ΡΠΎΠΊ ΠΌΠΎΠΆΠ΅Ρ ΠΏΠΎΡΡΠ°Π²ΠΈΡΡ ΠΈΠ³ΡΡ Π½Π° ΠΏΠ°ΡΠ·Ρ Π½Π°ΠΆΠ°Π² ΠΊΠ½ΠΎΠΏΠΊΡ «Ρ.». ΠΠΎΡΠ»Π΅ Π½Π°ΠΆΠ°ΡΠΈΡ Π²ΡΠ΅ ΡΠ°ΠΉΠΌΠ΅ΡΡ ΠΏΡΠ΅ΠΊΡΠ°ΡΠ°ΡΡ ΡΠ²ΠΎΠ΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅. ΠΠ»Ρ Π²ΠΎΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½ΠΈΡ ΠΈΠ³ΡΡ ΠΏΠΎΡΡΠ΅Π±ΡΠ΅ΡΡΡ Π½Π°ΠΆΠ°ΡΡ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ «ΠΎ». ΠΠΎΡΠ»Π΅ Π½Π°ΠΆΠ°ΡΠΈΡ ΡΡΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΈ ΡΠ°ΠΌΠΎΠ»Π΅ΡΡ ΠΏΡΠΎΠ΄ΠΎΠ»ΠΆΠ°ΡΡ ΡΠ²ΠΎΠ΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅. ΠΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ ΡΠ°ΠΊΠΆΠ΅ Π·Π°ΠΏΡΡΡΠΈΡΡ ΠΈΠ³ΡΡ Ρ Π½Π°ΡΠ°Π»Π°, Π΅ΡΠ»ΠΈ Π½Π°ΠΆΠ°ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ «I». ΠΡΠ΅ ΡΡΠ΅ΡΡΠΈΠΊΠΈ ΡΠ±ΡΠ°ΡΡΠ²Π°ΡΡΡΡ, Π° ΡΠ°ΠΉΠΌΠ΅ΡΡ Π½Π°ΡΠΈΠ½Π°ΡΡ ΡΠ½ΠΎΠ²Π° ΡΠ²ΠΎΠ΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅.
ΠΠΎΡΠ»Π΅ Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΡ ΠΈΠ³ΡΡ Π½Π° ΡΠΊΡΠ°Π½ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡΡ ΠΎΠΊΠ½ΠΎ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ² (ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ 8).
4. ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΎΠΉ ΡΡΡΡΠΊΡΡΡΡ
Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ Π³Π»Π°Π²Π½ΡΡ ΡΠΎΠ»Ρ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ ΠΌΡΠ»ΡΡΠΈΠΏΠ»ΠΈΠΊΠ°ΡΠΈΡ. ΠΠ½Π° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΠ΅ ΡΠ°ΠΌΠΎΠ»Π΅ΡΠΎΠ².
Π§ΡΠΎ Π±Ρ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΠ΅ ΡΠ°ΠΌΠΎΠ»Π΅ΡΠ°, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠΎΠ·Π΄Π°ΡΡ ΡΠΈΠΊΠ» ΠΈΠ»ΠΈ ΡΠ°ΠΉΠΌΠ΅Ρ Π² ΠΊΠΎΡΠΎΡΠΎΠΌ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ΅ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΠΏΡΠΈΡΠ²ΠΎΠΈΡΡ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ ΡΠΎ ΡΠ΄Π²ΠΈΠ³ΠΎΠΌ.
Π’Π°ΠΊ Ρ ΠΊΠ°ΠΆΠ΄ΡΠΌ ΡΠΈΠ³Π½Π°Π»ΠΎΠΌ ΡΠ°ΠΉΠΌΠ΅ΡΠ° ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ Π±ΡΠ΄Π΅Ρ ΠΌΠ΅Π½ΡΡΡΡΡ ΠΈ Ρ Π½Π°Π±Π»ΡΠ΄Π°ΡΠ΅Π»Ρ Π²ΠΎΠ·Π½ΠΈΠΊΠ½Π΅Ρ ΠΎΡΡΡΠ΅Π½ΠΈΠ΅ Π½Π΅ΠΏΡΠ΅ΡΡΠ²Π½ΠΎΠ³ΠΎ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΡ. ΠΡΠΈΠΌΠ΅Ρ:
sam1.left: =sam1.left+(n);
ΠΠ»Ρ ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΡ ΠΏΡΡΠΊΠΈ Π² ΠΎΠ±Π΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΡΠ΅ ΡΡΠΎΡΠΎΠ½Ρ, Π΅Π΅ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΠΏΠΎ Π³ΠΎΡΠΈΠ·ΠΎΠ½ΡΡ Π΄ΠΎΠ»ΠΆΠ½Ρ ΠΌΠ΅Π½ΡΡΡΡΡ Π² ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΈΠΈ Ρ Π½Π°ΠΆΠ°ΡΠΎΠΉ ΠΊΠ»Π°Π²ΠΈΡΠ΅ΠΉ.
Π§ΡΠΎ Π±Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΡ ΠΏΠΎΠΏΠ°Π»Π° Π»ΠΈ ΡΠ°ΠΊΠ΅ΡΠ° Π² ΡΠ°ΠΌΠΎΠ»Π΅Ρ, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΡΠ°Π²Π½ΠΈΡΡ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΡΠ°ΠΌΠΎΠ»Π΅ΡΠ° ΠΈ ΡΠ°ΠΊΠ΅ΡΡ. ΠΡΠ»ΠΈ ΠΎΠ½ΠΈ ΡΠΎΠ²ΠΏΠ°Π΄Π°ΡΡ ΡΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΡΠΈΡΡ ΡΠ°ΠΊΠ΅ΡΡ Π² ΠΈΡΡ ΠΎΠ΄Π½ΠΎΠ΅ ΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅, Π° ΡΠ°ΠΌΠΎΠ»Π΅Ρ Π·Π° ΡΠΎΡΠΌΡ. ΠΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ±ΠΈΡΡΡ ΡΠ°ΠΌΠΎΠ»Π΅ΡΠΎΠ² ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°Π΅ΡΡΡ. ΠΡΠ»ΠΈ ΠΆΠ΅ ΡΠ°ΠΊΠ΅ΡΠ° Π½Π΅ ΠΏΠΎΠΏΠ°Π΄Π°Π΅Ρ ΡΠΎ ΡΠ°ΠΌΠΎΠ»Π΅Ρ ΠΏΡΠΎΠ΄ΠΎΠ»ΠΆΠ°Π΅Ρ ΡΠ²ΠΎΠ΅ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΠ΅, Π° ΡΠ°ΠΊΠ΅ΡΠ° ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π΅ΡΡΡ Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠΉ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ΅. ΠΠΎΠ»-Π²ΠΎ ΠΎΡΡΠ°Π²ΡΠΈΡ ΡΡ ΡΠ°ΠΊΠ΅Ρ ΡΠΌΠ΅Π½ΡΡΠ°Π΅ΡΡΡ.
ΠΡΠΈΠΌΠ΅Ρ:
raketa.top: =raketa.top-20;
if raketa. top<0 then
begin
j: =j-1;
timer2.Enabled:=false;
raketa.left: =tank.left+50;
raketa.top: =tank.top+70;
Π§ΡΠΎ Π±Ρ Π·Π°Π²Π΅ΡΡΠΈΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΠΊΠΎΠ»-Π²ΠΎ ΠΎΡΡΠ°Π²ΡΠΈΡ ΡΡ ΡΠ°ΠΊΠ΅Ρ Π΄ΠΎΠ»ΠΆΠ½ΠΎ Π΄ΠΎΡΡΠΈΠ³Π½ΡΡΡ ΡΠ²ΠΎΠ΅Π³ΠΎ ΠΏΡΠ΅Π΄Π΅Π»Π° (0).
ΠΡΠΈΠΌΠ΅Ρ:
if raketa. top<0 then
begin
j: =j-1;
ΠΠ΄Π΅ j-ΡΡΠΎ ΠΊΠΎΠ»-Π²ΠΎ ΠΎΡΡΠ°Π²ΡΠΈΡ ΡΡ ΡΠ°ΠΊΠ΅Ρ.
ΠΡΠ²ΠΎΠ΄Ρ
Π Ρ ΠΎΠ΄Π΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Π΄Π°Π½Π½ΠΎΠΉ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ Π½Π° ΠΎΡΠ½ΠΎΠ²Π΅ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ ΠΈΡΡΠΎΡΠ½ΠΈΠΊΠΎΠ² Π΄Π°Π½Π½ΡΡ Π±ΡΠ»Π° ΠΏΡΠΎΠ°Π½Π°Π»ΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π° Π·Π°Π΄Π°Π½Π½Π°Ρ ΠΏΡΠ΅Π΄ΠΌΠ΅ΡΠ½Π°Ρ ΠΎΠ±Π»Π°ΡΡΡ.
Π ΠΏΡΠΎΡΠ΅ΡΡΠ΅ ΠΊΠΎΠ΄ΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π±ΡΠ»Π° ΠΈΠ·ΡΡΠ΅Π½Π° RAD Delphi Π² ΡΠ°ΡΡΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° ΠΈ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΉ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ Π³ΡΠ°ΡΠΈΠΊΠΈ.
Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΡΠΎΠ΅ΠΊΡΠ° Π±ΡΠ»Π° ΠΏΠΎΠ»Π½ΠΎΡΡΡΡ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½Π° ΠΈΠ³ΡΠ° «Π‘Π±Π΅ΠΉ ΡΠ°ΠΌΠΎΠ»Π΅Ρ», ΠΎΠ΄Π½Π°ΠΊΠΎ Π² ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΠΌΠΎΠΆΠ½ΠΎ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ ΠΎΠ·Π²ΡΡΠΈΠ²Π°Π½ΠΈΠ΅ ΡΠΎΠ±ΡΡΠΈΠΉ ΠΈΠ³ΡΡ, ΡΡΠΎΠ²Π΅Π½Ρ ΡΠ»ΠΎΠΆΠ½ΠΎΡΡΠΈ ΠΈΠ³ΡΡ ΠΈ ΡΠ°Π·Π½ΡΠ΅ Π½Π°ΡΡΡΠΎΠΉΠΊΠΈ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² ΠΈΠ³ΡΡ. ΠΡΠΎ Π²ΡΠ·Π²Π°Π»ΠΎ Π±Ρ Π±ΠΎΠ»ΡΡΠΈΠΉ ΠΈΠ½ΡΠ΅ΡΠ΅Ρ ΠΊ ΠΈΠ³ΡΠ΅. ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΠΎΡΠ΅Π½Ρ ΠΏΡΠΎΡΡΠΎΠΉ Π²Π°ΡΠΈΠ°Π½Ρ ΠΈΠ³ΡΡ «Π‘Π±Π΅ΠΉ ΡΠ°ΠΌΠΎΠ»Π΅Ρ» .
Π ΠΏΡΠΎΡΠ΅ΡΡΠ΅ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΠΎΡΠΈΠ±ΠΎΠΊ Π½Π΅ ΠΎΠ±Π½Π°ΡΡΠΆΠ΅Π½ΠΎ.
ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈΠ³ΡΠ° ΡΠ°ΠΉΠΌΠ΅Ρ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ
Π‘ΠΏΠΈΡΠΎΠΊ ΠΈΡΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΠΎΠΉ Π»ΠΈΡΠ΅ΡΠ°ΡΡΡΡ
1. Π€Π°ΡΠΎΠ½ΠΎΠ² Π. Π. Delphi 4: Π£ΡΠ΅Π±Π½ΡΠΉ ΠΊΡΡΡ. — Π.: ΠΠ·Π΄Π°ΡΠ΅Π»ΡΡΡΠ²ΠΎ «ΠΠΎΠ»ΠΈΠ΄ΠΆ», 1998.
2. ΠΠ°ΡΠ°Ρ Π²Π΅Π»ΠΈΠ΄Π·Π΅ Π., ΠΠ°ΡΠΊΠΎΠ² Π. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π² Delphi 4. — Π‘ΠΠ±.: ΠΠ₯Π — Π‘Π°Π½ΠΊΡ-ΠΠ΅ΡΠ΅ΡΠ±ΡΡΠ³, 1999.
3. ΠΡΠ»ΡΡΠΈΠ½ Π. Π. ΠΡΠ½ΠΎΠ²Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π² Turbo Delphi. — Π‘ΠΠ±.: ΠΠ₯Π — ΠΠ΅ΡΠ΅ΡΠ±ΡΡΠ³, 2007.
4. ΠΡΠ»ΡΡΠΈΠ½ Π. Π. Delphi Π² Π·Π°Π΄Π°ΡΠ°Ρ ΠΈ ΠΏΡΠΈΠΌΠ΅ΡΠ°Ρ . — Π‘ΠΠ±.: ΠΠ₯Π — ΠΠ΅ΡΠ΅ΡΠ±ΡΡΠ³, 2003.
5. ΠΠΈΡΡ. Π. ΠΠ»Π³ΠΎΡΠΈΡΠΌΡ ΠΈ ΡΡΡΡΠΊΡΡΡΡ Π΄Π°Π½Π½ΡΡ : ΠΠ΅Ρ. Ρ Π°Π½Π³Π». — Π.: ΠΠΈΡ, 1989.
6. Π€ΠΎΠΊΡ ΠΠΆ. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΈ Π΅Π³ΠΎ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ°: ΠΠ΅Ρ. Ρ Π°Π½Π³Π». — Π.: ΠΠΈΡ, 1985.
7. Π ΠΎΠ± ΠΠ°Π°Ρ, ΠΠ°ΠΉΠΊ Π€Π΅ΡΠ²Π°ΠΉ, Π₯Π°ΠΉΠ΄Π΅ΠΌΠ°ΡΠΈΡ ΠΡΠ½ΡΠ΅Ρ. Delphi 4. ΠΠΎΠ»Π½ΠΎΠ΅ ΡΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ. — Π.: ΠΠ·Π΄Π°ΡΠ΅Π»ΡΡΠΊΠ°Ρ Π³ΡΡΠΏΠΏΠ° BHV, 1999.
8. ΠΡΡ Π°Π½Π³Π΅Π»ΡΡΠΊΠΈΠΉ Π. Π―. Delphi5. — Π., ΠΠΠ «ΠΠ·Π΄Π°ΡΠ΅Π»ΡΡΡΠ²ΠΎ «ΠΠΈΠ½ΠΎΠΌ», 2001.
9. ΠΠ»Π΅ΠΊΡΡΠΎΠ½Π½Π°Ρ ΡΠ½ΡΠΈΠΊΠ»ΠΎΠΏΠ΅Π΄ΠΈΡ.
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ 1
Π’Π΅ΠΊΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
Unit Unit1;
interface
Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, ExtCtrls, jpeg;
type
TForm1 = class (TForm)
samolet1: TTimer;
tank: TImage;
sam1: TImage;
raketa: TImage;
timer2: TTimer;
label1: TLabel;
fon: TImage;
Timer3: TTimer;
sam2: TImage;
Timer4: TTimer;
sam3: TImage;
label2: TLabel;
sam4: TImage;
Timer5: TTimer;
boom: TImage;
boom2: TImage;
boom3: TImage;
boom4: TImage;
Label3: TLabel;
procedure FormKeyDown (Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure samolet1Timer (Sender: TObject);
procedure timer2Timer (Sender: TObject);
procedure Timer3Timer (Sender: TObject);
procedure Timer4Timer (Sender: TObject);
procedure FormCreate (Sender: TObject);
procedure Timer5Timer (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
i, j, n:integer;
implementation
{$R *.dfm}
procedure TForm1. FormKeyDown (Sender: TObject; var Key: Word; //Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΠ΅ ΡΠ°Π½ΠΊΠ°
Shift: TShiftState);
begin
DoubleBuffered := True;
if (key=VK_left) and (tank.left>=0) then
tank.left:=tank.left-20;
if (key=VK_right) and (tank.left + tank. width <= Form1. Clientwidth)then
tank.left:=tank.left+20;
if key=vk_space then
timer2.enabled:=true;
if key=$ 49 then
begin
i:=0;
j:=10;
sam1.Left:=-1000;
sam2.Left:=-1000;
sam3.left:=+1000;
sam4 .Left:=+700;
label1.caption:='Π‘Π°ΠΌΠΎΠ»Π΅ΡΠΎΠ² ΡΠ½ΠΈΡΡΠΎΠΆΠ΅Π½ΠΎ:'+inttostr (i); //Π²ΡΠ²ΠΎΠ΄ ΡΠ±ΠΈΡΡΡ ΡΠ°ΠΌΠΎΠ»Π΅ΡΠΎΠ²
label2.Caption:='Π Π°ΠΊΠ΅Ρ ΠΎΡΡΠ°Π»ΠΎΡΡ:'+inttostr (j); //Π²ΡΠ²ΠΎΠ΄ ΠΎΡΡΠ°Π²ΡΠΈΡ ΡΡ ΡΠ°ΠΊΠ΅Ρ
end;
if key=$ 50 then //ΠΏΠ°ΡΠ·Π° ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ «p»
begin
samolet1.Enabled:=false;
timer2.Enabled:=false;
timer3.Enabled:=false;
timer4.Enabled:=false;
timer5.Enabled:=false;
end;
if key=$4 °F then //Π²ΠΎΠ·ΠΎΠ±Π½ΠΎΠ²ΠΈΡΡ ΠΈΠ³ΡΡ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ «ΠΎ»
begin
samolet1.Enabled:=true;
timer3.Enabled:=true;
timer4.Enabled:=true;
timer5.Enabled:=true ;
end;
if timer2. enabled=false then //ΡΠ°ΠΊΠ΅ΡΠ° Π΄Π²ΠΈΠΆΠ΅ΡΡΡ Π²ΠΌΠ΅ΡΡΠ΅ Ρ ΡΠ°Π½ΠΊΠΎΠΌ
begin
if (key=vk_left) then raketa. top:=tank.top+70;
if (key=vk_left) then raketa. left:=tank.left+50;
if (key=vk_right) then raketa. top:=tank.top+70;
if (key=vk_right) then raketa. left:=tank.left+50;
end;
end;
procedure TForm1. samolet1Timer (Sender: TObject); //ΡΠ°ΠΌΠΎΠ»Π΅Ρ 1
begin
sam1.left:=sam1.left+(n);
if sam1. Left > Form1. Clientwidth then
begin
sam1.Left:=form1.Width-1000
end;
if sam1. left>(-500) then
boom.visible:=false;
end;
procedure TForm1. Timer3Timer (Sender: TObject); //ΡΠ°ΠΌΠΎΠ»Π΅Ρ 2
begin
sam2.left:=sam2.left+(n);
if sam2. Left > Form1. Clientwidth then
begin
sam2.Left:=form1.Width-1500
end;
if sam2. left >(-500) then
boom2.visible:=false;
end;
procedure TForm1. Timer4Timer (Sender: TObject); //ΡΠ°ΠΌΠΎΠ»Π΅Ρ 3
begin
sam3.left:=sam3.left-(n);
if sam3. Left < (-100) then
begin sam3. Left:=sam3.Left+1000
end;
if sam3. left<700 then
boom3.visible:=false;
end;
procedure TForm1. Timer5Timer (Sender: TObject); //ΡΠ°ΠΌΠΎΠ»Π΅Ρ 4
begin
sam4.left:=sam4.left-(n);
if sam4. Left < (-100) then
begin sam4. Left:=sam4.Left+700
end;
if sam4. left<500 then
boom4.visible:=false;
end;
procedure TForm1. timer2Timer (Sender: TObject); //ΡΠ°ΠΊΠ΅ΡΠ°
begin
raketa.top:=raketa.top-20;
if raketa. top<0 then //Π΅ΡΠ»ΠΈ ΡΠ°ΠΊΠ΅ΡΠ° Π΄ΠΎΡΡΠΈΠ³Π°Π΅Ρ ΠΊΡΠ°Ρ ΡΠΎΡΠΌΡ ΡΠΎ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅ΡΡΡ
begin
j:=j-1;
timer2.Enabled:=false;
raketa.left:=tank.left+50;
raketa.top:=tank.top+70;
end;
if ((raketa.Top > sam1. Top) and //Π΅ΡΠ»ΠΈ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ 1 ΡΠ°ΠΌΠΎΠ»Π΅ΡΠ° ΠΈ ΡΠ°ΠΊΠ΅ΡΡ ΡΠ°Π²Π½Ρ
(raketa.Top < sam1. Top+ sam1. height)
and
(raketa.left > sam1. left) and
(raketa.left < sam1. left+sam1.Width))
then
begin
timer2.Enabled:=false; ////////////////////////
raketa.left:=tank.left+50;
raketa.top:=tank.top+70;
boom.Left:=sam1.Left;
boom.Visible:=true;
sam1.Left:=sam1.left-1000;
i:=i+1;
end;
if ((raketa.Top > sam2. Top) and //Π΅ΡΠ»ΠΈ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ 2 ΡΠ°ΠΌΠΎΠ»Π΅ΡΠ° ΠΈ ΡΠ°ΠΊΠ΅ΡΡ ΡΠ°Π²Π½Ρ
(raketa.Top < sam2. Top+ sam2. height)
and
(raketa.left > sam2. left) and
(raketa.left < sam2. left+sam2.Width))
then
begin
timer2.Enabled:=false;
raketa.left:=tank.left+50;
raketa.top:=tank.top+70;
boom2.Left:=sam2.Left;
boom2.Visible:=true;
sam2.left:=-1000;
i:=i+1;
end;
if ((raketa.Top > sam3. Top) and //Π΅ΡΠ»ΠΈ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ 3 ΡΠ°ΠΌΠΎΠ»Π΅ΡΠ° ΠΈ ΡΠ°ΠΊΠ΅ΡΡ ΡΠ°Π²Π½Ρ
(raketa.Top < sam3. Top+ sam3. height)
and
(raketa.left > sam3. left) and
(raketa.left < sam3. left+sam3.Width))
then
begin
timer2.Enabled:=false;
raketa.left:=tank.left+50;
raketa.top:=tank.top+70;
boom3.Left:=sam3.Left;
boom3.Visible:=true;
sam3.left:=+1000;
i:=i+1;
end;
if ((raketa.Top > sam4. Top) and //Π΅ΡΠ»ΠΈ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ 4 ΡΠ°ΠΌΠΎΠ»Π΅ΡΠ° ΠΈ ΡΠ°ΠΊΠ΅ΡΡ ΡΠ°Π²Π½Ρ
(raketa.Top < sam4. Top+ sam4. height)
and
(raketa.left > sam4. left) and
(raketa.left < sam4. left+sam4.Width))
then
begin
timer2.Enabled:=false;
raketa.left:=tank.left+50;
raketa.top:=tank.top+70;
boom4.Left:=sam4.Left;
boom4.Visible:=true;
sam4.left:=+700;
i:=i+1;
end;
if i=20 then begin
n:=10;
label3.Caption:='Π£ΡΠΎΠ²Π΅Π½Ρ ΡΠ»ΠΎΠΆΠ½ΠΎΡΡΠΈ:2';
end;
if i=40 then begin
n:=14;
label3.Caption:='Π£ΡΠΎΠ²Π΅Π½Ρ ΡΠ»ΠΎΠΆΠ½ΠΎΡΡΠΈ:3';
end;
if i=60 then begin
n:=20;
label3.Caption:='Π£ΡΠΎΠ²Π΅Π½Ρ ΡΠ»ΠΎΠΆΠ½ΠΎΡΡΠΈ:4';
end;
label1.caption:='Π‘Π°ΠΌΠΎΠ»Π΅ΡΠΎΠ² ΡΠ½ΠΈΡΡΠΎΠΆΠ΅Π½ΠΎ:'+inttostr (i); //Π²ΡΠ²ΠΎΠ΄ ΡΠ±ΠΈΡΡΡ ΡΠ°ΠΌΠΎΠ»Π΅ΡΠΎΠ²
label2.Caption:='Π Π°ΠΊΠ΅Ρ ΠΎΡΡΠ°Π»ΠΎΡΡ:'+inttostr (j); //Π²ΡΠ²ΠΎΠ΄ ΠΎΡΡΠ°Π²ΡΠΈΡ ΡΡ ΡΠ°ΠΊΠ΅Ρ
if j<1 then //Π΅ΡΠ»ΠΈ ΡΠ°ΠΊΠ΅ΡΡ Π·Π°ΠΊΠΎΠ½ΡΠΈΠ»ΠΈΡΡ
begin //ΠΈΠ³ΡΠ° ΠΎΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅ΡΡΡ ΠΈ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡΡ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅
showmessage ('CΠ°ΠΌΠΎΠ»Π΅ΡΠΎΠ² Π²ΡΠ°Π³Π° ΡΠ½ΠΈΡΡΠΎΠΆΠ΅Π½ΠΎ:'+inttostr (i));//Π²ΡΠ²ΠΎΠ΄ ΡΠ±ΠΈΡΡΡ ΡΠ°ΠΌΠΎΠ»Π΅ΡΠΎΠ²
close;
end;
end;
procedure TForm1. FormCreate (Sender: TObject); //ΠΏΡΠΈ Π·Π°ΠΏΡΡΠΊΠ΅ ΠΈΠ³ΡΡ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡΡ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅
begin
showmessage ('p-ΠΏΠ°ΡΠ·Π°, ΠΎ-Π²ΠΎΠ·ΠΎΠ±Π½ΠΎΠ²ΠΈΡΡ ΠΈΠ³ΡΡ, i-Π½Π°Π²Π°Ρ ΠΈΠ³ΡΠ°, space-ΠΎΠ³ΠΎΠ½Ρ, <-,-> -ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ ΡΠ°Π½ΠΊΠΎΠΌ');
j:=10;
boom.Visible:=false; //ΡΡΠ°ΡΡΠΎΠ²ΠΎΠ΅ ΠΊΠΎΠ»-Π²ΠΎ ΡΠ°ΠΊΠ΅Ρ
boom2.Visible:=false;
boom3.Visible:=false;
boom4.Visible:=false;
n:=8;
label1.caption:='Π‘Π°ΠΌΠΎΠ»Π΅ΡΠΎΠ² ΡΠ½ΠΈΡΡΠΎΠΆΠ΅Π½ΠΎ:'+inttostr (i); //Π²ΡΠ²ΠΎΠ΄ ΡΠ±ΠΈΡΡΡ ΡΠ°ΠΌΠΎΠ»Π΅ΡΠΎΠ²
label2.Caption:='Π Π°ΠΊΠ΅Ρ ΠΎΡΡΠ°Π»ΠΎΡΡ:'+inttostr (j); //Π²ΡΠ²ΠΎΠ΄ ΠΎΡΡΠ°Π²ΡΠΈΡ ΡΡ ΡΠ°ΠΊΠ΅Ρ
label3.Caption:='Π£ΡΠΎΠ²Π΅Π½Ρ ΡΠ»ΠΎΠΆΠ½ΠΎΡΡΠΈ:1';
end;
end.
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ 2
ΠΡΠ½ΠΎΠ²Π½ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ (Form1)
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ 3
ΠΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ ΡΠ°ΠΌΠΎΠ»Π΅ΡΠ°
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ 4
ΠΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ ΡΠ°ΠΊΠ΅ΡΠ½ΠΎΠΉ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ 5
ΠΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ ΡΠ°ΠΊΠ΅ΡΡ
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ 6
ΠΠΊΠ½ΠΎ Π²ΠΎ Π²ΡΠ΅ΠΌΡ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ 7
ΠΠΊΠ½ΠΎ Π²ΠΎ Π²ΡΠ΅ΠΌΡ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ 8
ΠΠΊΠ½ΠΎ ΠΏΠΎΡΠ»Π΅ Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΡ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ