Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΈ ΡΡΠ°Π½Π΄Π°ΡΡΠΈΠ·Π°ΡΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ ΡΡΠ΅Π΄ΡΡΠ² ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΡ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΉ
ΠΡΠΎΠ²Π΅ΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΠΎΡΠ»Π΅ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, Π² ΠΌΠ΅Π½Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ «Delphi» Π½Π°ΠΆΠΈΠΌΠ°Π΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΡ debug (ΠΎΡΠ»Π°Π΄ΠΊΠ°) ΠΈ Π΄Π΅Π»Π°Π΅ΠΌ ΠΏΠΎΡΠ°Π³ΠΎΠ²ΡΡ ΠΎΡΠ»Π°Π΄ΠΊΡ. ΠΡΠ»ΠΈ ΠΏΠΎΡΠ²Π»ΡΡΡΡΡ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΎΡΠΈΠ±ΠΊΠΈ, ΡΠΎ ΠΈΡΠΏΡΠ°Π²Π»ΡΠ΅ΠΌ ΠΈΡ . ΠΠ°Π»Π΅Π΅ ΠΏΡΠΎΠ²Π΅ΡΠΊΠ° ΠΈΠ΄Π΅Ρ Π½Π° Π²ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΡΠ΅ΠΌΠ°Π½ΡΠΈΡΠ΅ΡΠΊΠΈΡ ΠΎΡΠΈΠ±ΠΎΠΊ. ΠΠ°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΠ²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΠΌΠΈΠ½ΠΈ — Π‘Π£ΠΠ. ΠΠ²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½Π°Ρ Π²ΡΠ±ΠΎΡΠΊΠ° Π΄Π°Π½Π½ΡΡ . Π£ΠΏΡΠΎΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΏΡΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠΈ Π‘Π£ΠΠ. Π’Π°ΠΊ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΈ ΡΡΠ°Π½Π΄Π°ΡΡΠΈΠ·Π°ΡΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ ΡΡΠ΅Π΄ΡΡΠ² ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΡ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΉ (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠΠΠΠ‘Π’ΠΠ Π‘Π’ΠΠ ΠΠΠ ΠΠΠΠΠΠΠΠ― Π ΠΠΠ£ΠΠ Π ΠΠ‘Π‘ΠΠΠ‘ΠΠΠ Π€ΠΠΠΠ ΠΠ¦ΠΠ ΠΠΠ‘ΠΠΠΠ‘ΠΠΠ― ΠΠΠΠΠΠΠΠ― ΠΠ ΠΠΠΠ ΠΠΠΠΠΠ’ΠΠΠ¬Π‘Π’ΠΠ ΠΠ Π ΠΠ ΠΠΠΠ’ΠΠΠ¬Π‘Π’ΠΠ ΠΠΠ‘ΠΠΠ« Π‘ΡΡΠ³ΡΡΡΠΊΠΈΠΉ ΡΠΈΠ»ΠΈΠ°Π» ΠΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ ΡΠ°Π±ΠΎΡΠ°
Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΈ ΡΡΠ°Π½Π΄Π°ΡΡΠΈΠ·Π°ΡΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ ΡΡΠ΅Π΄ΡΡΠ² ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΡ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΉ
ΠΡΠΏΠΎΠ»Π½ΠΈΠ»: Π§Π΅ΡΠ½ΠΎΠ±ΡΠΎΠ²ΠΊΠΈΠ½ ΠΠΈΡΠ°Π»ΠΈΠΉ ΠΠΈΠΊΡΠΎΡΠΎΠ²ΠΈΡ Π‘ΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΡ: ΠΡΠΈΠΊΠ»Π°Π΄Π½Π°Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠ° Π² ΡΠΊΠΎΠ½ΠΎΠΌΠΈΠΊΠ΅ ΠΡΠΎΠ²Π΅ΡΠΈΠ»: ΠΠ½ΠΈΡΠΈΠΌΠΎΠ² ΠΠ°Π»Π΅ΡΠΈΠΉ ΠΠ»Π΅ΠΊΡΠ΅Π΅Π²ΠΈΡ Π³. Π‘ΡΡΠ³ΡΡ, 2009 Π³.
1. Π’Π΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΎΠ΅ Π·Π°Π΄Π°Π½ΠΈΠ΅ Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ
1.1 ΠΠ±ΡΠΈΠ΅ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ ΠΡΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΠΉ ΡΠ°ΠΉΠ» (ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°) Π½Π°ΠΏΠΈΡΠ°Π½Π½Π°Ρ Π½Π° Π²ΡΡΠΎΠΊΠΎΡΡΠΎΠ²Π½Π΅Π²ΠΎΠΌ ΡΠ·ΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ «Delphi», ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡΠ°Ρ ΡΠΎΠ±ΠΎΠΉ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ Π² Π²ΠΈΠ΄Π΅ ΠΊΠ½ΠΎΠΏΠΎΡΠ½ΠΎΠΉ ΡΠΎΡΠΌΡ.
ΠΠ°ΠΊΠ°Π·ΡΠΈΠΊ: Π ΡΠΊΠΎΠ²ΠΎΠ΄ΠΈΡΠ΅Π»Ρ ΠΊΠ°ΡΠ΅Π΄ΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΡ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΉ ΠΊ. Ρ. Π½. ΠΠ½ΠΈΡΠΈΠΌΠΎΠ² Π. Π.
Π Π°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊ: Π§Π΅ΡΠ½ΠΎΠ±ΡΠΎΠ²ΠΊΠΈΠ½ ΠΠΈΡΠ°Π»ΠΈΠΉ ΠΠΈΠΊΡΠΎΡΠΎΠ²ΠΈΡ ΡΡΡΠ΄Π΅Π½Ρ 5-Π³ΠΎ ΠΊΡΡΡΠ° ΠΠΎΡΠΠ, Π³ Π‘ΡΡΠ³ΡΡ.
ΠΡΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΠΉ ΡΠ°ΠΉΠ» (ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°), ΡΠ°Π·ΡΠ°Π±Π°ΡΡΠ²Π°Π΅ΡΡΡ ΡΠΎΠ³Π»Π°ΡΠ½ΠΎ ΠΠΠ‘Π’ 34–602−89 ΠΠ’.
Π‘ΡΠΎΠΊ Π½Π°ΡΠ°Π»ΠΎ ΡΠ°Π±ΠΎΡΡ ΠΏΠΎ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ: 7.03.2009.
ΠΠΊΠΎΠ½ΡΠ°Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΡ 21. 04. 2009
ΠΠΎΡΡΠ΄ΠΎΠΊ ΠΎΡΠΎΡΠΌΠ»Π΅Π½ΠΈΡ ΠΈ ΠΏΡΠ΅Π΄ΡΡΠ²Π»Π΅Π½ΠΈΡ Π·Π°ΠΊΠ°Π·ΡΠΈΠΊΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ² ΡΠ°Π±ΠΎΡ ΠΏΠΎ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΡΠΈΡΡΠ΅ΠΌΡ (Π΅Π΅ ΡΠ°ΡΡΠ΅ΠΉ), ΠΏΠΎ ΠΈΠ·Π³ΠΎΡΠΎΠ²Π»Π΅Π½ΠΈΡ ΠΈ Π½Π°Π»Π°Π΄ΠΊΠ΅: 1) Π΄Π΅ΠΌΠΎΠ½ΡΡΡΠ°ΡΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π² ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΈ PowerPoint Π½Π°ΠΏΠΈΡΠ°Π½Π½ΠΎΠΉ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΠ―Π «Delphi».
1.2 ΠΠ°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΠ²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΠΌΠΈΠ½ΠΈ — Π‘Π£ΠΠ. ΠΠ²ΡΠΎΠΌΠ°ΡΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½Π°Ρ Π²ΡΠ±ΠΎΡΠΊΠ° Π΄Π°Π½Π½ΡΡ . Π£ΠΏΡΠΎΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΏΡΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠΈ Π‘Π£ΠΠ. Π’Π°ΠΊ ΠΊΠ°ΠΊ, ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠ° Π±ΡΠΌΠ°ΠΆΠ½ΠΎΠΉ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°ΡΠΈΠΈ Π² ΡΡΡΠ½ΡΡ Π΄ΠΎΠ»Π³ΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΡΠΉ ΠΈ Π·Π°ΡΡΠ°ΡΠ½ΡΠΉ ΡΡΡΠ΄.
1.3 Π¦Π΅Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΠ΅ΠΌΠΎΠ½ΡΡΡΠ°ΡΠΈΡ Π·Π½Π°Π½ΠΈΠΉ Π² ΠΈΠ·ΡΡΠ΅Π½ΠΈΠΈ ΠΠ―Π «Delphi», Π½Π°Π²ΡΠΊΠΎΠ² Π² ΡΠ°Π±ΠΎΡΠ΅ Ρ Π΄Π°Π½Π½ΡΠΌ ΡΠ·ΡΠΊΠΎΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ. ΠΠ·ΡΡΠ΅Π½ΠΈΠ΅ ΠΈ Π·Π°ΠΊΡΠ΅ΠΏΠ»Π΅Π½ΠΈΠ΅ Π·Π½Π°Π½ΠΈΠΉ Π² ΠΠ‘ΠΠ (ΠΠΠ‘Π’ 19.001−77 ΠΈ Ρ. Π΄. ΠΏΠΎ ΠΏΠΎΡΡΠ΄ΠΊΡ)
1.4 ΠΠ±ΡΠ΅ΠΊΡΡ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ ΠΠ Π ΡΠ΅ΠΊΡΠ΅ΡΠ°ΡΡ ΡΡΠ΅Π±Π½ΠΎ-ΠΌΠ΅ΡΠΎΠ΄ΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΊΠ°Π±ΠΈΠ½Π΅ΡΠ°. Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΠ ΡΠ΅ΠΊΡΠ΅ΡΠ°ΡΡ Π²Ρ ΠΎΠ΄ΠΈΡ ΠΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½Π°Ρ ΡΠΈΡΡΠ΅ΠΌΠ° Windows XP Professional.
1.5 Π’ΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ ΠΊ ΡΠΈΡΠ»Π΅Π½Π½ΠΎΡΡΠΈ ΠΈ ΠΊΠ²Π°Π»ΠΈΡΠΈΠΊΠ°ΡΠΈΠΈ ΠΏΠ΅ΡΡΠΎΠ½Π°Π»Π° ΠΠ²Π°Π»ΠΈΡΠΈΠΊΠ°ΡΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΉ Π΄ΠΎΠ»ΠΆΠ½Π° Π±ΡΡΡ Π½Π° ΡΡΠΎΠ²Π½Π΅ «ΡΠ²Π΅ΡΠ΅Π½Π½ΠΎΠ³ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ». Π’. Π΅. ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π΄ΠΎΠ»ΠΆΠ΅Π½ ΡΠ²Π΅ΡΠ΅Π½Π½ΠΎ ΡΠ°Π·Π±ΠΈΡΠ°ΡΡΡΡ ΠΈ ΡΠ°Π±ΠΎΡΠ°ΡΡ Π² Π‘Π£ΠΠ Π½Π°ΠΏΠΈΡΠ°Π½Π½ΠΎΠΉ Π½Π° ΠΠ―Π «Delphi».
1.6 Π’ΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ ΠΊ Π·Π°ΡΠΈΡΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΠΎΠ½ΡΠΈΠ΄Π΅Π½ΡΠΈΠ°Π»ΡΠ½Π°Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΈ Π΄ΠΎΡΡΡΠΏ ΠΊ Π±Π°Π·Π΅ Π΄Π°Π½Π½ΡΡ Π΄ΠΎΠ»ΠΆΠ΅Π½ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ ΠΏΠ°ΡΠΎΠ»Ρ. (Π Π΄Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΡΠ°ΠΊΠΎΠ΅ ΡΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΠ΅ Π½Π΅ Π½ΡΠΆΠ½ΠΎ).
1.2 Π’ΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ ΠΊ Π²ΠΈΠ΄Π°ΠΌ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ
1.2.1 ΠΠΈΠ½Π³Π²ΠΈΡΡΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΡΠ·ΡΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π½Π° ΠΊΠΎΡΠΎΡΡΡ ΠΏΠΈΡΠ΅ΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Ρ. Π΅. ΠΠ―Π — «Delphi».
1.2.2 ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅ Π‘ΠΎΡΡΠ°Π², ΡΡΡΡΠΊΡΡΡΠ° ΠΈ ΡΠΏΠΎΡΠΎΠ± ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΠΈ Π΄Π°Π½Π½ΡΡ Π΄ΠΎΠ»ΠΆΠ½Ρ Π±ΡΡΡ ΠΏΡΠΎΡΡΡ Π² ΠΏΠΎΠ½ΠΈΠΌΠ°Π½ΠΈΠΈ, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅, ΠΊΠΎΡΠΎΡΡΠ΅ Π΄ΠΎΠ»ΠΆΠ½Ρ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΎΠ²Π°ΡΡ ΡΠ²ΠΎΠΉΡΡΠ²Π°ΠΌ Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΡΠ·ΡΠΊΠ° Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΠΉ ΠΎΠ±ΠΌΠ΅Π½ ΠΌΠ΅ΠΆΠ΄Ρ Π΄Π°Π½Π½ΡΠΌΠΈ Π΄ΠΎΠ»ΠΆΠ΅Π½ Π±ΡΡΡ ΠΊΠ°ΠΊ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΡΠΌ, ΡΠ°ΠΊ ΠΈ Π²ΡΠ±ΠΎΡΠΎΡΠ½ΡΠΌ Π Π΅ΠΊΠΎΠΌΠ΅Π½Π΄ΡΠ΅ΠΌΡΠ΅ ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΡΡΠ΅Π΄ΡΡΠ²Π° ΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½Π°Ρ ΡΠΈΡΡΠ΅ΠΌΠ°: ΠΠΠΠ ΡΠΈΠΏΠ° IBM PC ΠΈ ΠΠ‘ Microsoft Windows. Π Π΅ΠΊΠΎΠΌΠ΅Π½Π΄ΡΠ΅ΠΌΠ°Ρ Π‘Π£ΠΠ — «Delphi»
1.2.3 ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΠ»Ρ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠΎΡΠΌΡ ΠΏΡΠΈΠΌΠ΅Π½ΡΠ»Π°ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π½Π°ΠΏΠΈΡΠ°Π½Π½Π°Ρ Π½Π° ΠΠ―Π «Delphi».
1.3 Π‘ΠΎΡΡΠ°Π² ΠΈ ΡΠΎΠ΄Π΅ΡΠΆΠ°Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡ Π’Π°Π±Π»ΠΈΡΠ° 2.1
βΠΏ/ΠΏ | ΠΠ°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ°Π±ΠΎΡΡ | Π Π΅Π·ΡΠ»ΡΡΠ°Ρ ΡΠ°Π±ΠΎΡΡ | |
Π’ΠΠ | ΠΠ±ΠΎΡΠ½ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈ ΡΠΌΡΡΠ» ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ | ||
ΠΠΎΡΡΡΠΎΠ΅Π½ΠΈΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° | ΠΡΠ½ΠΎΠ²Π° Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ | ||
ΠΠ°ΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ | ΠΡΠ½ΠΎΠ²Π½ΠΎΠΉ Π»ΠΈΡΡΠΈΠ½Π³ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ | ||
ΠΡΠΎΠ³ΠΎΠ½ΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ | ΠΠ½Π°Π»ΠΈΠ· ΠΈ Π²ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΎΡΠΈΠ±ΠΎΠΊ | ||
ΠΡΠ»Π°Π΄ΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ | Π£ΡΡΡΠ°Π½Π΅Π½ΠΈΠ΅ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΡ ΠΈ ΡΠ΅ΠΌΠ°Π½ΡΠΈΡΠ΅ΡΠΊΠΈΡ ΠΎΡΠΈΠ±ΠΎΠΊ | ||
ΠΠ²ΠΎΠ΄ Π² ΡΠΊΡΠΏΠ»ΡΠ°ΡΠ°ΡΠΈΡ | Π Π°Π±ΠΎΡΠ° Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΎΠΉ | ||
2. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΈ ΠΌΠ΅ΡΠΎΠ΄ΠΈΠΊΠ° ΠΈΡΠΏΡΡΠ°Π½ΠΈΠΉ Π‘ΠΎΠ³Π»Π°ΡΠ½ΠΎ ΠΠ‘ΠΠ ΠΠΠ‘Π’ 19.301−79 ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΡΠ°Π·Π΄Π΅Π»Ρ:
2.1 ΠΠ±ΡΠ΅ΠΊΡ ΠΈΡΠΏΡΡΠ°Π½ΠΈΠΉ
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° — ΠΈΡΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΠΉ ΡΠ°ΠΉΠ», ΠΏΠΎ ΡΡΡΠ½ΠΎΡΡΠΈ — Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ Π‘Π£ΠΠ, ΠΊΠ½ΠΎΠΏΠΎΡΠ½Π°Ρ ΡΠΎΡΠΌΠ°.
2.2 Π¦Π΅Π»Ρ ΠΈΡΠΏΡΡΠ°Π½ΠΈΠΉ ΠΡΠΎΠ²Π΅ΡΠΊΠ° Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Π·Π°Π΄Π°Π½ΠΈΡ, ΠΈΡΠΏΡΡΠ°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π² ΡΠ°Π±ΠΎΡΠ΅. ΠΡΠΎΠ²Π΅ΡΠΊΠ° Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ Π½Π°Π·Π½Π°ΡΠ΅Π½Π½ΡΡ ΡΡΠ½ΠΊΡΠΈΠΉ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅
2.3 Π’ΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ ΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΠ°Π½Π½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π΄ΠΎΠ»ΠΆΠ½Π° ΠΈΠΌΠ΅ΡΡ ΡΠ΅ΡΠΊΡΡ, ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΡΡ, Π»Π΅Π³ΠΊΠΎΠ²ΠΎΡΠΏΡΠΈΠ½ΠΈΠΌΠ°Π΅ΠΌΡΡ ΠΎΡΠ³Π°Π½ΠΈΠ·ΠΎΠ²Π°Π½Π½ΡΡ ΡΡΡΡΠΊΡΡΡΡ. ΠΡΠΎΡΡΠ΅ΠΉΡΡΡ ΠΠ°Π·Ρ Π΄Π°Π½Π½ΡΡ . Π‘Π»Π°ΠΆΠ΅Π½Π½ΠΎ ΠΈ Π±Π΅ΡΠΏΠ΅ΡΠ΅Π±ΠΎΠΉΠ½ΠΎ ΡΡΠ½ΠΊΡΠΈΠΎΠ½ΠΈΡΠΎΠ²Π°ΡΡ: Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π½Π°ΠΆΠ°ΡΠΈΡ ΠΊΠ½ΠΎΠΏΠΎΠΊ Π² ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ΅ ΡΠΎΡΠΌΡ, ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°ΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΡΠΎΠ³Π»Π°ΡΠ½ΠΎ ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠΌΡ Π·Π°Π΄Π°Π½ΠΈΡ Π΄Π»Ρ Π΄Π°Π½Π½ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ (ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ) ΡΠΌ. Π½ΠΈΠΆΠ΅.
ΠΠ²ΠΈΠ΄Ρ ΡΠ²ΠΎΠ΅ΠΉ ΡΠΏΡΠΎΡΠ΅Π½Π½ΠΎΡΡΠΈ, ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π΄ΠΎΠ»ΠΆΠ½Π° ΡΠΊΡΠΏΠ»ΡΠ°ΡΠΈΡΠΎΠ²Π°ΡΡΡΡ Π΅Π΄ΠΈΠ½ΠΈΡΠ½ΡΠΌ, ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΠΌ.
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π΄ΠΎΠ»ΠΆΠ½Π° Π²ΡΠ²ΠΎΠ΄ΠΈΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΡΠΎΠ³Π»Π°ΡΠ½ΠΎ Π²Π²Π΅Π΄Π΅Π½Π½ΡΠΌ Π΄Π»Ρ Π½Π΅Π΅ ΡΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡΠΌ.
ΠΡΠΈ ΡΠΊΡΠΏΠ»ΡΠ°ΡΠ°ΡΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π΄ΠΎΠ»ΠΆΠ½Π° ΠΈΠΌΠ΅ΡΡ ΡΠ΄ΠΎΠ±Π½ΡΠΉ ΠΈ ΠΏΠΎΠ½ΡΡΠ½ΡΠΉ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ. ΠΠ°ΠΆΠ΄Π°Ρ ΠΊΠ½ΠΎΠΏΠΊΠ° Π΄ΠΎΠ»ΠΆΠ½Π° ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΎΠ²Π°ΡΡ ΡΠ²ΠΎΠ΅ΠΌΡ Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΈΡ.
ΠΡΠ»ΠΈ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΈΠΌΠ΅Π΅ΡΡΡ ΠΎΡΠΎΠ±Π°Ρ ΠΈΠ»ΠΈ ΡΠ΅ΠΊΡΠ΅ΡΠ½Π°Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ, ΡΠΎ ΠΎΠ½Π° Π΄ΠΎΠ»ΠΆΠ½Π° ΠΈΠΌΠ΅ΡΡ ΠΊΠΎΠ΄ Π΄ΠΎΡΡΡΠΏΠ° (ΠΏΠ°ΡΠΎΠ»Ρ). Π Π΄Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΡΠ°ΠΊΠΎΠ²ΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ Π½Π΅Ρ.
2.4 Π’ΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ ΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠΉ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°ΡΠΈΠΈ Π‘ΠΎΡΡΠ°Π² ΠΈ ΡΡΡΡΠΊΡΡΡΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ° ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅ΡΡΡ ΠΏΠΎ ΠΠΠ‘Π’ 19.105−78. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ Π΄ΠΎΠΊΡΠΌΠ΅Π½Ρ Π²ΡΠΏΠΎΠ»Π½ΡΡΡ ΠΎΠ΄Π½ΠΈΠΌ ΠΈΠ· ΡΠ»Π΅Π΄ΡΡΡΠΈΡ ΠΏΠ΅ΡΠ°ΡΠ½ΡΡ ΡΠΏΠΎΡΠΎΠ±ΠΎΠ²:
ΠΌΠ°ΡΠΈΠ½ΠΎΠΏΠΈΡΠ½ΡΠΌ — Π½Π° ΠΎΠ΄Π½ΠΎΠΉ ΡΡΠΎΡΠΎΠ½Π΅ Π»ΠΈΡΡΠ°, ΡΠ΅ΡΠ΅Π· Π΄Π²Π° ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»Π°; Π΄ΠΎΠΏΡΡΠΊΠ°Π΅ΡΡΡ ΡΠ΅ΡΠ΅Π· ΠΎΠ΄ΠΈΠ½ ΠΈΠ»ΠΈ ΠΏΠΎΠ»ΡΠΎΡΠ° ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»Π°, Π΅ΡΠ»ΠΈ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅ΡΡΡ ΠΏΡΠΈΠ³ΠΎΠ΄Π½ΠΎΡΡΡ ΠΊ ΠΌΠΈΠΊΡΠΎΡΠΈΠ»ΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΠΎ ΠΠΠ‘Π’ 13.102−72 (ΡΠ°Π·Π΄.1);
ΠΌΠ°ΡΠΈΠ½Π½ΡΠΌ — Π½Π° ΠΎΠ΄Π½ΠΎΠΉ ΡΡΠΎΡΠΎΠ½Π΅ Π»ΠΈΡΡΠ°, Ρ ΡΠ°ΡΡΡΠΎΡΠ½ΠΈΡΠΌΠΈ ΠΌΠ΅ΠΆΠ΄Ρ ΠΎΡΠ½ΠΎΠ²Π°Π½ΠΈΡΠΌΠΈ ΡΡΡΠΎΠΊ, ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°ΡΡΠΈΠΌ ΠΏΡΠΈΠ³ΠΎΠ΄Π½ΠΎΡΡΡ ΠΊ ΠΌΠΈΠΊΡΠΎΡΠΈΠ»ΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ;
ΡΠΈΠΏΠΎΠ³ΡΠ°ΡΡΠΊΠΈΠΌ — Π² ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΈΠΈ Ρ ΡΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡΠΌΠΈ, ΠΏΡΠ΅Π΄ΡΡΠ²Π»Π΅Π½Π½ΡΠΌΠΈ ΠΊ ΠΈΠ·Π΄Π°Π½ΠΈΡΠΌ, ΠΈΠ·Π³ΠΎΡΠ°Π²Π»ΠΈΠ²Π°Π΅ΠΌΡΠΌ ΡΠΈΠΏΠΎΠ³ΡΠ°ΡΡΠΊΠΈΠΌ ΡΠΏΠΎΡΠΎΠ±ΠΎΠΌ.
2.5 Π‘ΠΎΡΡΠ°Π² ΠΈ ΠΏΠΎΡΡΠ΄ΠΎΠΊ ΠΈΡΠΏΡΡΠ°Π½ΠΈΠΉ Π‘ΡΡΡΠΊΡΡΡΠ° ΠΈ ΠΎΡΠΎΡΠΌΠ»Π΅Π½ΠΈΠ΅ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ° ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅ΡΡΡ Π² ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΈΠΈ Ρ ΠΠΠ‘Π’ 19.105−78.
ΠΠ»Ρ ΠΏΡΠΎΠ²Π΅Π΄Π΅Π½ΠΈΡ ΠΈΡΠΏΡΡΠ°Π½ΠΈΠΉ (Π·Π°ΠΏΡΡΠΊ, ΠΎΡΠ»Π°Π΄ΠΊΠ°, ΠΎΡΡΠ°Π½ΠΎΠ²) ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π±ΡΠ» Π·Π°Π΄Π΅ΠΉΡΡΠ²ΠΎΠ²Π°Π½ ΠΠ ΡΠΈΠΏΠ° Pentium VI Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΠΎΠΉ Windows XP.
3. ΠΠΈΡΡΠΈΠ½Π³ ΠΏΡΠΈΠΊΠ»Π°Π΄Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, ValEdit, CheckLst;
type
TForm1 = class (TForm)
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const filename = 'students.txt'; {ΡΠ°ΠΉΠ» Ρ ΠΈΡΡ ΠΎΠ΄Π½ΡΠΌΠΈ Π΄Π°Π½Π½ΡΠΌΠΈ}
type
student_record = record {ΡΡΡΡΠΊΡΡΡΠ° Π΄Π»Ρ Ρ ΡΠ°Π½Π΅Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ ΠΎ ΡΡΡΠ΄Π΅Π½ΡΠ΅}
name: ShortString; {Π€ΠΠ}
examen1: ShortString; {ΠΠ°Π»Π» Π·Π° ΠΏΠ΅ΡΠ²ΡΠΉ ΡΠΊΠ·Π°ΠΌΠ΅Π½}
examen2: ShortString; {ΠΠ°Π»Π» Π·Π° Π²ΡΠΎΡΠΎΠΉ}
zachet: ShortString; {1- ΡΠ΄Π°Π½ Π·Π°ΡΠ΅Ρ, 0-Π½Π΅ ΡΠ΄Π°Π½}
faculty: ShortString; {ΡΠ°ΠΊΡΠ»ΡΡΠ΅Ρ}
profession: ShortString; {ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΡ}
end;
plan = record {ΡΡΡΡΠΊΡΡΡΠ° Π΄Π»Ρ Ρ ΡΠ°Π½Π΅Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ ΠΎ ΠΏΠ»Π°Π½Π΅ ΠΏΡΠΈΠ΅ΠΌΠ° Π½Π° ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΠΈ}
name: ShortString; {Π½Π°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΠΈ}
ball: word; {ΠΏΡΠΎΡ ΠΎΠ΄Π½ΠΎΠΉ Π±Π°Π»Π» Π½Π° ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΡ}
students: array of student_record; {ΡΡΡΠ΄Π΅Π½ΡΡ, Π·Π°ΡΠΈΡΠ»Π΅Π½Π½ΡΠ΅ Π½Π° ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΡ}
end;
var
Form1: TForm1;
f: textfile;
student_kniga: array of student_record; {ΠΌΠ°ΡΡΠΈΠ² ΡΡΡΠ΄Π΅Π½ΡΠΎΠ² (Π΄Π°Π½Π½ΡΠ΅ ΠΈΠ· ΡΠ°ΠΉΠ»Π°)}
plans: array of plan;{ΠΏΠ»Π°Π½ ΠΏΡΠΈΠ΅ΠΌΠ° ΠΈ Π·Π°ΡΠΈΡΠ»Π΅Π½Π½ΡΠ΅ ΡΡΡΠ΄Π΅Π½ΡΡ}
implementation
{$R *.dfm}
{ΠΎΡΠΊΡΡΡΠΈΠ΅ ΠΈ ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»Π° Π΄Π°Π½Π½ΡΡ }
procedure open_file;
var i, ii, t: word;
s: ShortString;
begin
AssignFile (f, filename);
Reset (f);
i:=1;
SetLength (student_kniga, 0);
while not eof (f) do {Π² ΡΠΈΠΊΠ»Π΅ ΡΡΠΈΡΡΠ²Π°Π΅ΠΌ Π΄Π°Π½Π½ΡΠ΅ ΠΈΠ· ΡΠ°ΠΉΠ»Π° Π² ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅}
begin
t:=0;
SetLength (student_kniga, i);
readln (f, s); {ΡΠΈΡΠ°Π΅ΠΌ ΠΏΠΎΡΡΡΠΎΡΠ½ΠΎ}
for ii:=1 to Length (s) do {ΠΏΠ΅ΡΠ΅Π±ΠΈΡΠ°Π΅ΠΌ ΠΏΠΎΡΠΈΠΌΠ²ΠΎΠ»ΡΠ½ΠΎ ΡΡΡΠΎΠΊΡ}
begin
if (s[ii] = '+') then t:=t+1{Π΅ΡΠ»ΠΈ Π²ΡΡΡΠ΅ΡΠ°Π΅ΠΌ ΡΠΈΠΌΠ²ΠΎΠ»-ΡΠ°Π·Π΄Π΅Π»ΠΈΡΠ΅Π»Ρ Π΄Π°Π½Π½ΡΡ , ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄ΠΈΠΌ ΠΊ ΡΡΠΈΡΡΠ²Π°Π½ΠΈΡ ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ}
else
if t=0 then
student_kniga[i-1]. name:= student_kniga[i-1]. name + s[ii] {Π·Π°ΠΏΠΎΠΌΠΈΠ½Π°Π΅ΠΌ ΡΠ°ΠΌΠΈΠ»ΠΈΡ}
else
if t=1 then
student_kniga[i-1]. examen1:= student_kniga[i-1]. examen1 + s[ii] {Π·Π°ΠΏΠΎΠΌΠΈΠ½Π°Π΅ΠΌ Π±Π°Π»Π» ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ ΡΠΊΠ·Π°ΠΌΠ΅Π½Π°}
else
if t=2 then
student_kniga[i-1]. examen2:= student_kniga[i-1]. examen2 + s[ii] {Π·Π°ΠΏΠΎΠΌΠΈΠ½Π°Π΅ΠΌ Π±Π°Π»Π» Π²ΡΠΎΡΠΎΠ³ΠΎ ΡΠΊΠ·Π°ΠΌΠ΅Π½Π°}
else
if t=3 then
student_kniga[i-1]. zachet:= student_kniga[i-1]. zachet + s[ii] {Π·Π°ΠΏΠΎΠΌΠΈΠ½Π°Π΅ΠΌ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ Π·Π°ΡΠ΅ΡΠ°}
else
if t=4 then
student_kniga[i-1]. faculty:= student_kniga[i-1]. faculty + s[ii] {Π·Π°ΠΏΠΎΠΌΠΈΠ½Π°Π΅ΠΌ ΡΠ°ΠΊΡΠ»ΡΡΠ΅Ρ}
else
if t=5 then
student_kniga[i-1]. profession:= student_kniga[i-1]. profession + s[ii]; {Π·Π°ΠΏΠΎΠΌΠΈΠ½Π°Π΅ΠΌ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΡ}
end;
i:= i+1;
end;
closefile (f); {Π·Π°ΠΊΡΡΠ²Π°Π΅ΠΌ ΡΠ°ΠΉΠ» Π΄Π°Π½Π½ΡΡ }
end;
{ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ Π·Π°Π³ΡΡΠΆΠ΅Π½Π½ΡΡ Π΄Π°Π½Π½ΡΡ Π½Π° ΡΠΎΡΠΌΠ΅}
procedure display;
var i: word;
begin
form1.Memo1.Clear; {ΠΎΡΠΈΡΠ°Π΅ΠΌ ΠΎΠΊΠ½ΠΎ Π²ΡΠ²ΠΎΠ΄Π° Π΄Π°Π½Π½ΡΡ }
for i:=0 to length (student_kniga)-1 do {ΡΠΈΠΊΠ» ΠΏΠΎ ΡΡΡΠ΄Π΅Π½ΡΠ°ΠΌ}
begin
form1.Memo1.Lines.add (student_kniga[i]. name {Π·Π°Π½ΠΎΡΠΈΠΌ Π΄Π°Π½Π½ΡΠ΅ ΠΎ ΡΡΡΠ΄Π΅Π½ΡΠ΅ Π² ΠΎΠΊΠ½ΠΎ Π²ΡΠ²ΠΎΠ΄Π°}
+ #09 + student_kniga[i]. examen1
+ #09 + student_kniga[i]. examen2
+ #09 + student_kniga[i]. zachet
+ #09 + student_kniga[i]. faculty
+ #09 + student_kniga[i]. profession);
end;
end;
{ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ² Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠΉ}
procedure save_file;
var i, ii: word;
begin
for i:=0 to length (plans)-1 do {ΡΠΈΠΊΠ» ΠΏΠΎ Π²ΡΠ΅ΠΌ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΡΠΌ}
begin
if plans[i]. name <> '' then
AssignFile (f, plans[i]. name+'.txt'); {ΡΠΎΠ·Π΄Π°Π΅ΠΌ ΡΠ°ΠΉΠ» Ρ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΠΈ}
reWrite (f);//ΠΎΡΠΊΡΡΠ²Π°Π΅ΠΌ ΡΠ°ΠΉΠ» Π½Π° ΠΏΠ΅ΡΠ΅Π·Π°ΠΏΠΈΡΡ
if length (plans[i]. students) >0 then
begin
form1.Memo1.Lines.add ('Π‘ΡΡΠ΄Π΅Π½ΡΡ Π·Π°ΡΠΈΡΠ»Π΅Π½Π½ΡΠ΅ Π½Π° ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΡ '+plans[i]. name+': ');
for ii:=0 to length (plans[i]. students)-1 do {ΡΠΈΠΊΠ» ΠΏΠΎ Π·Π°ΡΠΈΡΠ»Π΅Π½Π½ΡΠΌ ΡΡΡΠ΄Π΅Π½ΡΠ°ΠΌ Π½Π° Π΄Π°Π½Π½ΡΡ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΡ}
begin
writeln (f, plans[i]. students[ii].name); {Π·Π°ΠΏΠΈΡΡΠ²Π°Π΅ΠΌ ΠΈΠΌΡ ΡΡΡΠ΄Π΅Π½ΡΠ° Π² ΡΠ°ΠΉΠ»}
end;
end
else
writeln (f, 'Π‘ΡΡΠ΄Π΅Π½ΡΡ Π½Π΅ Π·Π°ΡΠΈΡΠ»Π΅Π½Ρ'); {ΡΠΎΠΎΠ±ΡΠ°Π΅ΠΌ, Π΅ΡΠ»ΠΈ Π½Π΅Ρ Π·Π°ΡΠΈΡΠ»Π΅Π½Π½ΡΡ ΡΡΡΠ΄Π΅Π½ΡΠΎΠ² Π½Π° Π΄Π°Π½Π½ΡΡ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΡ}
closefile (f); {Π·Π°ΠΊΡΡΠ²Π°Π΅ΠΌ ΡΠ°ΠΉΠ»}
end;
end;
{ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π·Π°Π³ΡΡΠ·ΠΊΠΈ Π΄Π°Π½Π½ΡΡ (ΠΊΠ½ΠΎΠΏΠΊΠ° «ΠΠ°Π³ΡΡΠ·ΠΊΠ°»)}
procedure TForm1. Button1Click (Sender: TObject);
begin
open_file; {ΠΎΡΠΊΡΡΡΠΈΠ΅ ΠΈ ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»Π° Π΄Π°Π½Π½ΡΡ }
display; {ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ Π½Π° ΡΠΎΡΠΌΠ΅}
end;
{ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ Π΄Π°Π½Π½ΡΡ (ΠΊΠ½ΠΎΠΏΠΊΠ° «ΠΠ°ΡΠΈΡΠ»ΠΈΡΡ ΡΡΡΠ΄Π΅Π½ΡΠΎΠ²»)}
procedure TForm1. Button2Click (Sender: TObject);
var sname: shortstring;
i, ii, iii, ball: word;
popal: boolean;
begin
for i:=0 to length (student_kniga)-1 do {ΡΡΡΠΎΠΈΠΌ ΠΌΠ°ΡΡΠΈΠ² ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΠ΅ΠΉ.}
begin
setlength (plans, i+1); {ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°Π΅ΠΌ ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΡ ΠΌΠ°ΡΡΠΈΠ²Π° Π½Π° Π΅Π΄ΠΈΠ½ΠΈΡΡ}
plans[i]. name:= student_kniga[i]. profession; {Π·Π°ΠΏΠΎΠΌΠΈΠ½Π°Π΅ΠΌ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΡ}
end;
end;
for i:=0 to length (plans)-1 do {ΡΠ΄Π°Π»ΡΠ΅ΠΌ ΠΏΠΎΠ²ΡΠΎΡΡΡΡΠΈΠ΅ΡΡ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΠΈ}
begin
sname:= plans[i]. name; {Π·Π°ΠΏΠΎΠΌΠΈΠ½Π°Π΅ΠΌ ΠΏΠ΅ΡΠ²ΡΡ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΡ Π΄Π»Ρ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ Ρ ΠΏΠΎΡΠ»Π΅Π΄ΡΡΡΠΈΠΌΠΈ}
for ii:=i+1 to length (plans)-1 do
begin
if sname = plans[ii]. name then plans[ii]. name:= ''; {Π΅ΡΠ»ΠΈ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΡ ΠΏΠΎΠ²ΡΠΎΡΡΠ΅ΡΡΡ ΠΎΠ±Π½ΡΠ»ΡΠ΅ΠΌ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΠΌΠ°ΡΡΠΈΠ²Π° ΡΠΏΠ΅Ρ}
end;
end;
for i:=0 to length (plans)-1 do {ΡΠΈΠΊΠ» ΠΏΠΎ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΡΠΌ ΡΡΠΎΠ±Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΡ ΠΏΡΠΎΡ ΠΎΠ΄Π½ΠΎΠΉ Π±Π°Π»Π» Π΄Π»Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ}
begin
{Π΅ΡΠ»ΠΈ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ ΡΠΏΠ΅Ρ-ΡΠΈ Π½Π΅ ΠΏΡΡΡΠΎΠ΅, Π²ΡΠ²ΠΎΠ΄ΠΈΠΌ ΠΎΠΊΠ½ΠΎ Π²Π²ΠΎΠ΄Π° Π΄Π°Π½Π½ΡΡ ΠΎ ΠΏΡΠΎΡ ΠΎΠ΄Π½ΠΎΠΌ Π±Π°Π»Π»Π΅ Π½Π° Π΄Π°Π½Π½ΡΡ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΡ}
if plans[i]. name <> '' then plans[i]. ball:= strtoint (InputBox ('ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΠΏΡΠΎΡ ΠΎΠ΄Π½ΠΎΠΉ Π±Π°Π»Π»','ΠΡΠΎΡ ΠΎΠ΄Π½ΠΎΠΉ Π±Π°Π»Π» Π΄Π»Ρ '+plans[i]. name+': ',''));
end;
{Π² ΡΠΈΠΊΠ»Π΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅ΡΡΡ ΠΏΡΠΎΡΠ΅Π» ΡΡΡΠ΄Π΅Π½Ρ Π½Π° ΡΠ²ΠΎΡ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΡ ΠΈΠ»ΠΈ Π½Π΅Ρ (ΠΏΠΎ ΠΏΡΠΎΡ ΠΎΠ΄Π½ΠΎΠΌΡ Π±Π°Π»Π»Ρ}
for i:=0 to length (student_kniga)-1 do
begin
ball:= {Π²ΡΡΠΈΡΠ»ΡΠ΅ΠΌ Π½Π°Π±ΡΠ°Π½Π½ΡΠΉ Π±Π°Π»Π» ΡΡΡΠ΄Π΅Π½ΡΠΎΠΌ}
strtoint (student_kniga[i]. examen1) +
strtoint (student_kniga[i]. examen2) +
strtoint (student_kniga[i]. zachet);
for ii:=0 to length (plans)-1 do
begin
{ΠΏΡΠΎΠ²Π΅ΡΠΊΠ° Π½Π° ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΈΠ΅ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΡΠΏΠ΅Ρ-ΡΠΈ ΠΈ Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠΉ ΡΡΡΠ΄Π΅Π½ΡΠΎΠΌ}
if plans[ii]. name = student_kniga[i]. profession then {Π΅ΡΠ»ΠΈ ΡΠΎΠ²ΠΏΠ°Π΄Π°Π΅Ρ, ΡΠΌΠΎΡΡΠΈΠΌ ΠΏΡΠΎΡ ΠΎΠ΄ΠΈΡ ΡΡΡΠ΄Π΅Π½Ρ ΠΏΠΎ Π½Π°Π±ΡΠ°Π½Π½ΠΎΠΌΡ Π±Π°Π»Π»Ρ ΠΈΠ»ΠΈ Π½Π΅Ρ}
if plans[ii]. ball<=ball then
begin
setlength (plans[ii]. students, length (plans[ii]. students)+1); {ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°Π΅ΠΌ ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΡ ΠΌΠ°ΡΡΠΈΠ²Π° ΡΡΡΠ΄Π΅Π½ΡΠΎΠ² Π½Π° 1}
plans[ii]. students[length (plans[ii].students)-1].name:= student_kniga[i]. name; {Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅ΠΌ ΡΡΡΠ΄Π΅Π½ΡΠ° Π² ΡΠΏΠΈΡΠΎΠΊ Π·Π°ΡΠΈΡΠ»Π΅Π½Π½ΡΡ }
popal:=true; {Π·Π°ΠΏΠΎΠΌΠΈΠ½Π°Π΅ΠΌ Π² ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ, ΡΡΠΎ ΡΡΡΠ΄Π΅Π½Ρ ΠΏΡΠΎΡ ΠΎΠ΄ΠΈΡ}
end
else
popal:=false; {ΠΈΠ½Π°ΡΠ΅ ΡΠΌΠΎΡΡΠΈΠΌ Π½Π° ΠΊΠ°ΠΊΡΡ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΡ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π·Π°ΡΠΈΡΠ»Π΅Π½}
end;
if not (popal) then
begin
for iii:=0 to length (plans)-1 do {ΡΠΌΠΎΡΡΠΈΠΌ ΠΏΡΠΎΡ ΠΎΠ΄Π½ΡΠ΅ Π±Π°Π»Π»Ρ ΠΏΠΎ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΡΠΌ ΠΈ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅ΠΌ ΠΊΡΠ΄Π° ΠΌΠΎΠΆΠ½ΠΎ Π·Π°ΡΠΈΡΠ»ΠΈΡΡ ΡΡΡΠ΄Π΅Π½ΡΠ°}
begin
if (plans[iii]. ball <= ball) and (plans[iii]. name<>'') then {Π΅ΡΠ»ΠΈ Π½Π°Π±ΡΠ°Π½Π½ΡΠΉ ΡΡΡΠ΄Π΅Π½ΡΠΎΠΌ Π±Π°Π»Π» Π±ΠΎΠ»ΡΡΠ΅ ΠΏΡΠΎΡ ΠΎΠ΄Π½ΠΎΠ³ΠΎ}
begin
setlength (plans[iii]. students, length (plans[iii]. students)+1); {ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°Π΅ΠΌ ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΡ ΠΌΠ°ΡΡΠΈΠ²Π° ΡΡΡΠ΄Π΅Π½ΡΠΎΠ² Π½Π° 1}
plans[iii]. students[length (plans[iii].students)-1].name:= student_kniga[i]. name; {Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅ΠΌ ΡΡΡΠ΄Π΅Π½ΡΠ° Π² ΡΠΏΠΈΡΠΎΠΊ Π·Π°ΡΠΈΡΠ»Π΅Π½Π½ΡΡ }
break; {ΠΏΡΠ΅ΡΡΠ²Π°Π΅ΠΌ ΡΠΈΠΊΠ»}
end;
end;
end;
end;
save_file; //ΡΠΎΡ ΡΠ°Π½ΡΠ΅ΠΌ Π΄Π°Π½Π½ΡΠ΅ Π² ΡΠ°ΠΉΠ»
end;
end.
ΠΡΠΈΠΌΠ΅Ρ Π²Π²ΠΎΠ΄Π° ΠΈΡΡ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ
4. ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΠΉ Π°Π»Π³ΠΎΡΠΈΡΠΌ, Π½Π° ΠΎΡΠ½ΠΎΠ²Π΅ ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠ³ΠΎ Π·Π°Π΄Π°Π½ΠΈΡ.
5. Π ΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ ΡΠΈΡΡΠ΅ΠΌΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΠ°
5.1 ΠΠ±ΡΠΈΠ΅ ΡΠ²Π΅Π΄Π΅Π½ΠΈΡ ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΠ°Π½Π½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π° Π΄Π»Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΡΠ°ΠΊΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΉ ΠΊΠ°ΠΊ:
ΠΠ°Π³ΡΡΠ·ΠΊΠ° Π² Π‘Π£ΠΠ (ΡΠΎΡΠΌΡ) ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΎ ΡΡΡΠ΄Π΅Π½ΡΠ°Ρ — Π€ΠΠ, ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π±Π°Π»ΠΎΠ², Π½Π°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ°ΠΊΡΠ»ΡΡΠ΅ΡΠ° (ΡΠΎΠΊΡ.), Π½ΠΎΠΌΠ΅Ρ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΠΈ.
ΠΠΎΡΠ»Π΅ Π²Π²Π΅Π΄Π΅Π½ΠΈΡ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Π° Π±Π°Π»Π»ΠΎΠ², ΠΏΠΎΠΊΠ°Π· ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ ΠΏΡΠΎΡ ΠΎΠΆΠ΄Π΅Π½ΠΈΡ ΠΏΠΎ ΡΠΎΠΉ ΠΈΠ»ΠΈ ΠΈΠ½ΠΎΠΉ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΠΈ (Π½ΠΎΠΌΠ΅Ρ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΠΈ), Ρ. Π΅. ΠΏΡΠΎΡΠ΅Π» ΡΠΎΡ ΠΈΠ»ΠΈ ΠΈΠ½ΠΎΠΉ ΡΡΡΠ΄Π΅Π½Ρ ΠΈΠ»ΠΈ Π½Π΅Ρ.
ΠΡΠ²ΠΎΠ΄ Π½Π° Π΄ΠΈΡΠΏΠ»Π΅ΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΎ ΡΡΡΠ΄Π΅Π½ΡΠ°Ρ , ΠΊΠΎΡΠΎΡΡΠ΅ ΠΏΠΎΠ»ΡΡΠΈΠ»ΠΈ ΠΏΡΠΎΡ ΠΎΠ΄Π½ΠΎΠΉ Π±Π°Π»Π» ΠΈ Π·Π°ΡΠΈΡΠ»Π΅Π½Ρ Π½Π° ΡΠ°ΠΊΡΠ»ΡΡΠ΅ΡΡ.
5.2 Π‘ΡΡΡΠΊΡΡΡΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ: Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, ValEdit, CheckLst;
Π’ΠΈΠΏΡ ΠΊΠ»Π°ΡΡΠΎΠ², ΠΏΡΠΎΡΠ΅Π΄ΡΡ, ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ²: TForm1 = class (TForm)
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
Π’ΠΈΠΏΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ : student_record = record {ΡΡΡΡΠΊΡΡΡΠ° Π΄Π»Ρ Ρ ΡΠ°Π½Π΅Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ ΠΎ ΡΡΡΠ΄Π΅Π½ΡΠ΅}
name: ShortString; {Π€ΠΠ}
examen1: ShortString; {ΠΠ°Π»Π» Π·Π° ΠΏΠ΅ΡΠ²ΡΠΉ ΡΠΊΠ·Π°ΠΌΠ΅Π½}
examen2: ShortString; {ΠΠ°Π»Π» Π·Π° Π²ΡΠΎΡΠΎΠΉ}
zachet: ShortString; {1- ΡΠ΄Π°Π½ Π·Π°ΡΠ΅Ρ, 0-Π½Π΅ ΡΠ΄Π°Π½}
faculty: ShortString; {ΡΠ°ΠΊΡΠ»ΡΡΠ΅Ρ}
profession: ShortString; {ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΡ}
end;
plan = record {ΡΡΡΡΠΊΡΡΡΠ° Π΄Π»Ρ Ρ ΡΠ°Π½Π΅Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ ΠΎ ΠΏΠ»Π°Π½Π΅ ΠΏΡΠΈΠ΅ΠΌΠ° Π½Π° ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΠΈ}
name: ShortString; {Π½Π°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΠΈ}
ball: word; {ΠΏΡΠΎΡ ΠΎΠ΄Π½ΠΎΠΉ Π±Π°Π»Π» Π½Π° ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΡ}
students: array of student_record; {ΡΡΡΠ΄Π΅Π½ΡΡ, Π·Π°ΡΠΈΡΠ»Π΅Π½Π½ΡΠ΅ Π½Π° ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΡ}
end.
ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅: var
Form1: TForm1;
f: textfile;
student_kniga: array of student_record; {ΠΌΠ°ΡΡΠΈΠ² ΡΡΡΠ΄Π΅Π½ΡΠΎΠ² (Π΄Π°Π½Π½ΡΠ΅ ΠΈΠ· ΡΠ°ΠΉΠ»Π°)}
plans: array of plan;{ΠΏΠ»Π°Π½ ΠΏΡΠΈΠ΅ΠΌΠ° ΠΈ Π·Π°ΡΠΈΡΠ»Π΅Π½Π½ΡΠ΅ ΡΡΡΠ΄Π΅Π½ΡΡ}
Π’Π΅Π»ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ:
begin
…
…
end.
5.3 ΠΠ°ΡΡΡΠΎΠΉΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΡΠΊΡΡΡΡ ΡΠ°ΠΉΠ» — Project1. exe, ΠΏΠΎΡΠ»Π΅ ΡΠΎΠ³ΠΎ ΠΊΠ°ΠΊ Π½Π° Π΄ΠΈΡΠΏΠ»Π΅Π΅, ΠΏΠΎΡΠ²ΠΈΡΡΡ Form1, Π½Π°Π²Π΅ΡΡΠΈ ΠΊΡΡΡΠΎΡ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ «Π·Π°ΠΏΡΡΠΊ» ΠΈ Π½Π°ΠΆΠ°ΡΡ.
ΠΠΎΡΠ²ΠΈΡΡΡ ΡΠΏΠΈΡΠΎΠΊ ΡΡΡΠ΄Π΅Π½ΡΠΎΠ², ΠΏΠΎΡΠ»Π΅ ΡΠ΅Π³ΠΎ Π½Π°ΠΆΠ°ΡΡ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ «Π·Π°ΡΠΈΡΠ»ΠΈΡΡ ΡΡΡΠ΄Π΅Π½ΡΠΎΠ²».
ΠΠΎΡΠ²ΠΈΡΡΡ ΡΠΎΡΠΌΠ° «Π²Π²Π΅Π΄ΠΈΡΠ΅ ΠΏΡΠΎΡ ΠΎΠ΄Π½ΠΎΠΉ Π±Π°Π»Π»» Π΄Π»Ρ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΠΈ 22 031. ΠΠ²ΠΎΠ΄ΠΈΠΌ Π΄ΠΎΠΏΡΡΡΠΈΠΌΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ (ΡΠΈΡΡΡ) ΠΠΎΡΠ²ΠΈΡΡΡ ΡΠΎΡΠΌΠ° «Π²Π²Π΅Π΄ΠΈΡΠ΅ ΠΏΡΠΎΡ ΠΎΠ΄Π½ΠΎΠΉ Π±Π°Π»Π»» Π΄Π»Ρ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΠΈ 22 032. ΠΠ²ΠΎΠ΄ΠΈΠΌ Π΄ΠΎΠΏΡΡΡΠΈΠΌΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ (ΡΠΈΡΡΡ) ΠΠΎΡΠ²ΠΈΡΡΡ ΡΠΎΡΠΌΠ° «Π²Π²Π΅Π΄ΠΈΡΠ΅ ΠΏΡΠΎΡ ΠΎΠ΄Π½ΠΎΠΉ Π±Π°Π»Π»» Π΄Π»Ρ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΠΈ 23 150. ΠΠ²ΠΎΠ΄ΠΈΠΌ Π΄ΠΎΠΏΡΡΡΠΈΠΌΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ (ΡΠΈΡΡΡ) ΠΠΎΡΠ²ΠΈΡΡΡ ΡΠΎΡΠΌΠ° «Π²Π²Π΅Π΄ΠΈΡΠ΅ ΠΏΡΠΎΡ ΠΎΠ΄Π½ΠΎΠΉ Π±Π°Π»Π»» Π΄Π»Ρ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΠΈ 23 152. ΠΠ²ΠΎΠ΄ΠΈΠΌ Π΄ΠΎΠΏΡΡΡΠΈΠΌΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ (ΡΠΈΡΡΡ) ΠΠΎΡΠ»Π΅ Π²Π²ΠΎΠ΄Π° Π²ΠΎ Π²ΡΠ΅ ΡΠΎΡΠΌΡ Π²ΡΠ΅Ρ Π΄ΠΎΠΏΡΡΡΠΈΠΌΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ Π½Π°ΠΆΠΈΠΌΠ°Π΅ΠΌ «ΠΎΠΊ».
Π§ΠΈΡΠ°Π΅ΠΌ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ (ΡΡΡΠ΄Π΅Π½ΡΡ Π·Π°ΡΠΈΡΠ»Π΅Π½Ρ Π½Π° ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΡ _Π½ΠΎΠΌΠ΅Ρ).
5.4 ΠΡΠΎΠ²Π΅ΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΠΎΡΠ»Π΅ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, Π² ΠΌΠ΅Π½Ρ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ «Delphi» Π½Π°ΠΆΠΈΠΌΠ°Π΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΡ debug (ΠΎΡΠ»Π°Π΄ΠΊΠ°) ΠΈ Π΄Π΅Π»Π°Π΅ΠΌ ΠΏΠΎΡΠ°Π³ΠΎΠ²ΡΡ ΠΎΡΠ»Π°Π΄ΠΊΡ. ΠΡΠ»ΠΈ ΠΏΠΎΡΠ²Π»ΡΡΡΡΡ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΎΡΠΈΠ±ΠΊΠΈ, ΡΠΎ ΠΈΡΠΏΡΠ°Π²Π»ΡΠ΅ΠΌ ΠΈΡ . ΠΠ°Π»Π΅Π΅ ΠΏΡΠΎΠ²Π΅ΡΠΊΠ° ΠΈΠ΄Π΅Ρ Π½Π° Π²ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΡΠ΅ΠΌΠ°Π½ΡΠΈΡΠ΅ΡΠΊΠΈΡ ΠΎΡΠΈΠ±ΠΎΠΊ.
5.5 ΠΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ Π Π΄Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΎΡΡΡΡΡΡΠ²ΡΡΡ.
5.6 Π‘ΠΎΠΎΠ±ΡΠ΅Π½ΠΈΡ ΡΠΈΡΡΠ΅ΠΌΠ½ΠΎΠΌΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΡ.
Π‘ΠΌΠΎΡΡΠΈ ΠΌΠ΅Π½Ρ ΠΎΡΠ»Π°Π΄ΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ «Delphi»
6. Π ΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΠ°
6.1 ΠΠ°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΈ ΡΡΠ»ΠΎΠ²ΠΈΡ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ.
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π° Π΄Π»Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ ΠΏΡΠΎΡΠ΅ΡΡΠ° Π·Π°ΡΠΈΡΠ»Π΅Π½ΠΈΡ Π°Π±ΠΈΡΡΡΠΈΠ΅Π½ΡΠΎΠ². ΠΠ΅Π³ΠΊΠΎ ΠΈΡΠΏΠΎΠ»Π½ΡΠ΅ΠΌΠ°. ΠΠ»Ρ ΠΈΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΠΎ ΡΡΠ΅Π±ΡΠ΅ΡΡΡ ΠΠ Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΠΎΠΉ Windows Π»ΡΠ±ΠΎΠΉ Π²Π΅ΡΡΠΈΠΈ.
6.2 Π₯Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΡΡΠΈΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΎΠΉ ΠΏΠΎ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ Π½Π΅ ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½ΠΎ. Π Π΅ΠΆΠΈΠΌ ΡΠ°Π±ΠΎΡΡ — ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΠ΅ ΠΈΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»ΠΎΠ². Π‘ΡΠ΅Π΄ΡΡΠ²Π° ΠΊΠΎΠ½ΡΡΠΎΠ»Ρ ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎΡΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΈ ΡΠ°ΠΌΠΎΠ²ΠΎΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅ΠΌΠΎΡΡΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ Π½Π΅ ΠΈΠΌΠ΅Π΅Ρ, Ρ. Π΅ Π½Π°ΠΏΠΈΡΠ°Π½Π° ΡΠ°ΠΊ, ΡΡΠΎ ΠΎΡΠΈΠ±ΠΎΠΊ Π½Π΅ ΠΈΠΌΠ΅Π΅Ρ.
6.3 ΠΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΠ°ΡΠΈΠ½Π°Π΅ΠΌ Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΎΡΠΊΡΡΡΠΈΠ΅ ΡΠ°ΠΉΠ»Π°: procedure open_file; ΠΠ°Π»Π΅Π΅ ΠΈΠ΄Π΅Ρ ΡΠΎΡΡΠ°Π²Π½ΠΎΠΉ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ ΠΎΠΏΠΈΡΡΠ²Π°ΡΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅, ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΡ, ΠΊΠΎΠΌΠΌΠ΅Π½ΡΠ°ΡΠΈΠΈ (ΡΠ²ΡΠ·Π°Π½ΠΎ Ρ Π·Π°ΠΏΠΎΠΌΠΈΠ½Π°Π½ΠΈΠ΅ΠΌ ΠΏΡΠΎΡ ΠΎΠ΄Π½ΠΎΠ³ΠΎ Π±Π°Π»Π»Π°, ΡΠ°ΠΌΠΈΠ»ΠΈΠΈ, ΠΈΠΌΠ΅Π½ΠΈ, ΡΡΡΠ΄Π΅Π½ΡΠ° ΠΈ Ρ. Π΄.) ΠΠ°ΡΠ΅ΠΌ ΠΈΠ΄Π΅Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Π·Π°ΠΊΡΡΡΠΈΡ ΡΠ°ΠΉΠ»Π°: closefile (f); ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΡ Π·Π°Π³ΡΡΠΆΠ΅Π½Π½ΡΡ Π΄Π°Π½Π½ΡΡ Π½Π° ΡΠΎΡΠΌΠ΅: procedure display; ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ² Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠΉ: procedure save_file;
ΠΠ°Π»Π΅Π΅ ΡΠΌΠΎΡΡΠΈ Π»ΠΈΡΡΠΈΠ½Π³ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
6.4 ΠΡ ΠΎΠ΄Π½ΡΠ΅ ΠΈ Π²ΡΡ ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ ΠΡ ΠΎΠ΄Π½ΡΠ΅ — ΡΠΈΡΡΡ ΠΎΡ 0 Π΄ΠΎ 9 (ΠΏΡΠΎΡ ΠΎΠ΄Π½ΠΎΠΉ Π±Π°Π»Π»). ΠΡΡ ΠΎΠ΄Π½ΡΠ΅ — ΡΡΡΠΎΠΊΠΎΠ²ΡΠ΅. ΠΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ Π½Π° Π΄ΠΈΡΠΏΠ»Π΅ΠΉ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠΎΡΠΌ Π½Π°ΠΏΠΈΡΠ°Π½Π½ΡΡ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ «Delphi».
6.5 Π‘ΠΎΠΎΠ±ΡΠ΅Π½ΠΈΡ ΠΡΠ΅ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΡ ΠΏΠΎ Ρ ΠΎΠ΄Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΠΌΠΎΡΡΠ΅ΡΡ Π² ΠΌΠ΅Π½Ρ ΡΠ°ΠΌΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π° ΠΏΠΈΡΠ°Π½Π½ΠΎΠΉ Π² ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΈ «Delphi».
7 Π ΡΠΊΠΎΠ²ΠΎΠ΄ΡΡΠ²ΠΎ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ°
7.1 ΠΠ°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π° Π΄Π»Ρ ΠΠ Π ΡΠ΅ΠΊΡΠ΅ΡΠ°ΡΡ ΡΡΠ΅Π±Π½ΠΎ — ΠΌΠ΅ΡΠΎΠ΄ΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΎΡΠ΄Π΅Π»Π°. Π Π½Π΅ΠΉ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅ΡΡΡ Π·Π°ΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ Π»ΠΈΠ±ΠΎ Π½Π΅Ρ, ΡΠΎΠ³ΠΎ ΠΈΠ»ΠΈ ΠΈΠ½ΠΎΠ³ΠΎ ΡΡΡΠ΄Π΅Π½ΡΠ° Π½Π° Π·Π°Π΄Π°Π½Π½ΡΡ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΡ.
7.2 Π£ΡΠ»ΠΎΠ²ΠΈΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΡΠ΅ ΡΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ — ΠΠ Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΠΎΠΉ Widows Π»ΡΠ±ΠΎΠΉ Π²Π΅ΡΡΠΈΠΈ, ΠΠΠ£ 64 Mb.
7.3 ΠΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
1. ΠΡΠΊΡΡΡΡ ΡΠ°ΠΉΠ» (Project1.exe) Π² ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΈ «Delphi». Π ΠΏΠΎΡΠ²ΠΈΠ²ΡΠ΅ΠΉΡΡ ΡΠΎΡΠΌΠ΅1 ΠΊΡΡΡΠΎΡΠΎΠΌ Π½Π°ΠΆΠ°ΡΡ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ «Π·Π°ΠΏΡΡΠΊ». Π ΠΎΠΊΠ½Π΅ ΡΠΎΡΠΌΡ ΠΏΠΎΡΠ²ΠΈΡΡΡ ΡΠΏΠΈΡΠΎΠΊ ΡΡΡΠ΄Π΅Π½ΡΠΎΠ², ΠΏΡΠΎΡ ΠΎΠ΄Π½ΡΠ΅ Π±Π°Π»Π»Ρ ΠΏΠΎ ΠΏΡΠ΅Π΄ΠΌΠ΅ΡΠ°ΠΌ, Π½ΠΎΠΌΠ΅ΡΠ° ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΠ΅ΠΉ.
2. ΠΠΎΡΠ»Π΅ ΠΏΠΎΡΠ²Π»Π΅Π½ΠΈΡ ΡΠΏΠΈΡΠΊΠ°, Π½Π°ΠΆΠΈΠΌΠ°Π΅ΠΌ ΠΊΠ½ΠΎΠΏΠΊΡ «Π·Π°ΡΠΈΡΠ»ΠΈΡΡ». ΠΠΎΠΎΡΠ΅ΡΠ΅Π΄Π½ΠΎ Π±ΡΠ΄ΡΡ ΠΏΠΎΡΠ²Π»ΡΡΡΡΡ ΠΌΠ°Π»Π΅Π½ΡΠΊΠΈΠ΅ ΡΠΎΡΠΌΡ Π΄Π»Ρ Π²Π²ΠΎΠ΄Π° ΠΏΡΠΎΡ ΠΎΠ΄Π½ΠΎΠ³ΠΎ Π±Π°Π»Π»Π° Π½Π° ΡΡ, ΠΈΠ»ΠΈ ΠΈΠ½ΡΡ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΡ. ΠΠ²ΠΎΠ΄ΠΈΠΌ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΠ΅ ΡΠΈΡΡΡ.
3. ΠΠΎΡΠ»Π΅ Π²Π²ΠΎΠ΄Π° ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅ΠΉ ΡΠΎΡΠΌΡ, Π² ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ΅ ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΡΠΎΡΠΌΡ1 ΠΏΠΎΡΠ²ΠΈΡΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ ΡΡΡΠ΄Π΅Π½ΡΠ°Ρ Π·Π°ΡΠΈΡΠ»Π΅Π½Π½ΡΡ Π½Π° ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΡ ΠΏΠΎΠ΄ ΡΠΊΠ°Π·Π°Π½Π½ΡΠΌ Π½ΠΎΠΌΠ΅ΡΠΎΠΌ.
7.4 Π‘ΠΎΠΎΠ±ΡΠ΅Π½ΠΈΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΡ Π Π΄Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅:
ΠΠ°ΡΠΈΡΠ»ΠΈΡΡ ΡΡΡΠ΄Π΅Π½ΡΠΎΠ², ΠΡΠΎΡ ΠΎΠ΄Π½ΠΎΠΉ Π±Π°Π»Π» — Π³ΡΡΠΏΠΏΠ° (Π½ΠΎΠΌΠ΅Ρ), ΠΠ°ΡΠΈΡΠ»Π΅Π½ΠΎ (Π³ΡΡΠΏΠΏΠ°).