Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠΎΡΠΌΠ°ΡΠΎΠ² Ρ
ΡΠ°Π½Π΅Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ
ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
Π‘ΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅
ΠΡΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π°, Π² ΠΎΡΠ»ΠΈΡΠΈΠ΅ ΠΎΡ ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π°, ΠΈΠΌΠ΅ΡΡ ΠΎΠ΄Π½Ρ ΠΈ ΡΡ ΠΆΠ΅ Π΄Π»ΠΈΠ½Ρ. ΠΡΠΎ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΡ ΠΌΠ΅ΡΡΠΎΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π»ΡΠ±ΠΎΠΉ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ ΡΠ°ΠΉΠ»Π° ΠΏΠΎ Π΅Π΅ Π½ΠΎΠΌΠ΅ΡΡ ΠΈ ΠΎΡΡΡΠ΅ΡΡΠ²ΠΈΡΡ ΠΏΡΡΠΌΠΎΠΉ Π΄ΠΎΡΡΡΠΏ ΠΊ ΡΡΠΎΠΉ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ΅. ΠΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° Π½ΡΠΌΠ΅ΡΡΡΡΡΡ Π½Π°ΡΡΡΠ°Π»ΡΠ½ΡΠΌ ΡΡΠ΄ΠΎΠΌ ΡΠΈΡΠ΅Π» 0,1,2,3,…ΠΡΠΈ ΠΎΡΠΊΡΡΡΠΈΠΈ ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° Π΅Π³ΠΎ ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅ΡΡΡ Π½Π° Π½ΡΠ»Π΅Π²ΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ. ΠΠΎΡΠ»Π΅… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠΎΡΠΌΠ°ΡΠΎΠ² Ρ ΡΠ°Π½Π΅Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. Π‘ΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠ°Π±ΠΎΡΠ°ΡΠΎΡΠ½Π°Ρ ΡΠ°Π±ΠΎΡΠ° № 2.
Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠΎΡΠΌΠ°ΡΠΎΠ² Ρ ΡΠ°Π½Π΅Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. Π‘ΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅.
Π¦Π΅Π»Ρ: 1. ΠΠ·ΡΡΠΈΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΡΠ°Π±ΠΎΡΡ Ρ ΡΠ°ΠΉΠ»Π°ΠΌΠΈ Π½Π° ΡΠ·ΡΠΊΠ΅ Pascal. ΠΠΎΠ»ΡΡΠΈΡΡ Π½Π°Π²ΡΠΊΠΈ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠΎΡΠΌΠ°ΡΠ° Ρ ΡΠ°Π½Π΅Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ Π½Π° ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π·Π°Π΄Π°Ρ Π°Π½Π°Π»ΠΈΡΠΈΡΠ΅ΡΠΊΠΎΠΉ Π³Π΅ΠΎΠΌΠ΅ΡΡΠΈΠΈ.
2. ΠΡΠ²ΠΎΠΈΡΡ ΠΏΡΠΈΡΠΌΡ ΡΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ.
ΠΠ°Π΄Π°Π½ΠΈΠ΅:
1. ΠΠ·ΡΡΠΈΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ ΡΠ·ΡΠΊΠ° Pascal Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ Ρ ΡΠ°ΠΉΠ»Π°ΠΌΠΈ ΠΏΡΡΠΌΠΎΠ³ΠΎ ΠΈ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎ Π΄ΠΎΡΡΡΠΏΠ°.
2. Π‘ΠΎΠ³Π»Π°ΡΠ½ΠΎ Π·Π°Π΄Π°Π½Π½ΠΎΠΌΡ Π²Π°ΡΠΈΠ°Π½ΡΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°ΡΡ ΡΠΎΡΠΌΠ°Ρ ΠΈ ΡΡΡΡΠΊΡΡΡΡ Π² ΡΠ°ΠΉΠ»Π°Ρ ΠΏΡΡΠΌΠΎΠ³ΠΎ Π΄ΠΎΡΡΡΠΏΠ°.
3. Π Π΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Π²Π²ΠΎΠ΄Π° Π΄Π°Π½Π½ΡΡ Ρ ΠΊΠ»Π°Π²ΠΈΠ°ΡΡΡΡ Π»ΠΈΠ±ΠΎ ΠΈΠ· ΡΠ°ΠΉΠ»Π°.
4. ΠΡΡ ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ Π²ΡΠ²Π΅ΡΡΠΈ Π½Π° ΡΠΊΡΠ°Π½ ΠΈ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ Π² ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ°ΠΉΠ».
5. ΠΡΠΈ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΊΠΎΠ½ΡΡΠΎΠ»Ρ Π²Π²ΠΎΠ΄ΠΈΠΌΡΡ Π΄Π°Π½Π½ΡΡ , ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΡΡΠ½ΠΊΡΠΈΡ IOResult.
6. Π£ΡΠ»ΠΎΠ²ΠΈΠ΅ Π·Π°Π΄Π°ΡΠΈ Ρ ΡΠ΅ΠΊΠ²ΠΈΠ·ΠΈΡΠ°ΠΌΠΈ ΠΈΡΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»Ρ Π΄ΠΎΠ»ΠΆΠ½Ρ Π±ΡΡΡ ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»Π΅Π½Ρ Π½Π° ΡΠΊΡΠ°Π½Π΅ ΠΏΡΠΈ Π·Π°ΠΏΡΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
7. Π‘ΡΡΡΠΊΡΡΡΠΈΡΠΎΠ²Π°ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΠΏΡΠΎΡΠ΅Π΄ΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΉ.
Π£ΡΠ»ΠΎΠ²ΠΈΠ΅ Π·Π°Π΄Π°ΡΠΈ Π°Π½Π°Π»ΠΈΡΠΈΡΠ΅ΡΠΊΠΎΠΉ Π³Π΅ΠΎΠΌΠ΅ΡΡΠΈΠΈ:
ΠΠ°ΠΉΡΠΈ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΎΠΊΡΡΠΆΠ½ΠΎΡΡΠ΅ΠΉ Π½Π° ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ ΠΈΠΌΠ΅ΡΡΠΈΡ ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ Ρ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠΎΠΌ ΡΡΠΎΡΠΎΠ½Ρ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ ΠΏΠ°ΡΠ°Π»Π»Π΅Π»ΡΠ½Ρ ΠΎΡΡΠΌ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ.
1. Π’Π΅ΠΎΡΠ΅ΡΠΈΡΠ΅ΡΠΊΠ°Ρ ΡΠ°ΡΡΡ
2. ΠΠ»Π³ΠΎΡΠΈΡΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
3. ΠΠΈΡΡΠΈΠ½Π³ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
4. ΠΠΊΡΠ°Π½Π½ΡΠ΅ ΡΠΎΡΠΌΡ
1. Π’Π΅ΠΎΡΠ΅ΡΠΈΡΠ΅ΡΠΊΠ°Ρ ΡΠ°ΡΡΡ
1. ΠΠΎ ΠΌΠ΅ΡΠΎΠ΄Ρ Π΄ΠΎΡΡΡΠΏΠ° ΠΊ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ°ΠΌ ΡΠ°ΠΉΠ»Ρ ΡΠ°Π·Π΄Π΅Π»ΡΡΡΡΡ Π½Π° ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΡΠ΅ ΠΈ ΠΏΡΡΠΌΡΠ΅. Π ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΠΌ ΡΠ°ΠΉΠ»Π΅ ΡΡΠ΅Π½ΠΈΠ΅ ΠΈ Π·Π°ΠΏΠΈΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΠΉ, Π½Π°ΡΠΈΠ½Π°Ρ Ρ ΠΏΠ΅ΡΠ²ΠΎΠΉ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ. Π ΠΏΡΡΠΌΠΎΠΌ ΡΠ°ΠΉΠ»Π΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠΎΡΠ΅ΡΡΡ ΠΈΠ»ΠΈ Π·Π°ΠΏΠΈΡΠ°ΡΡ Π»ΡΠ±ΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ, ΡΠΊΠ°Π·Π°Π² Π΅Π΅ Π½ΠΎΠΌΠ΅Ρ Π² ΡΠ°ΠΉΠ»Π΅. ΠΡΠΈ ΡΡΠΎΠΌ ΠΏΠ΅ΡΠ΅Π±ΠΎΡ ΠΏΡΠ΅Π΄ΡΠ΄ΡΡΠΈΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ Π½Π΅ ΡΡΠ΅Π±ΡΠ΅ΡΡΡ. ΠΠΎ Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΏΠ΅ΡΠ΅Π΄Π°ΡΠΈ Π΄Π°Π½Π½ΡΡ ΡΠ°ΠΉΠ»Ρ ΡΠ°Π·Π΄Π΅Π»ΡΡΡΡΡ Π½Π° Π²Ρ ΠΎΠ΄Π½ΡΠ΅ ΠΈ Π²ΡΡ ΠΎΠ΄Π½ΡΠ΅.
Π’Π°ΠΊΠΆΠ΅ ΡΡΡΠ΅ΡΡΠ²ΡΡΡ ΡΡΠΈ ΡΠΈΠΏΠ° ΡΠ°ΠΉΠ»ΠΎΠ²:
1) ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅, ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ ΠΊΠΎΡΠΎΡΡΡ ΠΈΠΌΠ΅ΡΡ ΠΆΠ΅ΡΡΠΊΡΡ ΡΡΡΡΠΊΡΡΡΡ;
2) ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠ΅, ΡΠΎΡΡΠΎΡΡΠΈΠ΅ ΠΈΠ· ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² ΠΈ ΡΡΡΠΎΠΊ;
3) Π½Π΅ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅, ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°Π΅ΠΌΡΠ΅ ΠΊΠ°ΠΊ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΡΡΡ Π±Π°ΠΉΡΠΎΠ².
Π Π’ΡΡΠ±ΠΎ-ΠΠ°ΡΠΊΠ°Π»Π΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΎΡΠΊΡΡΡΡ ΡΠ°ΠΉΠ» ΡΠΎΠ»ΡΠΊΠΎ Π΄Π»Ρ ΡΡΠ΅Π½ΠΈΡ, ΡΠΎΠ»ΡΠΊΠΎ Π΄Π»Ρ Π·Π°ΠΏΠΈΡΠΈ, Π° ΡΠ°ΠΊΠΆΠ΅ Π΄Π»Ρ ΡΡΠ΅Π½ΠΈΡ ΠΈ Π·Π°ΠΏΠΈΡΠΈ ΠΎΠ΄Π½ΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎ. ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Reset, Rewrite, Append.
Reset (F) — ΠΎΡΠΊΡΡΡΠΈΠ΅ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠ΅Π³ΠΎ ΡΠ°ΠΉΠ»Π°. ΠΡΠ»ΠΈ ΡΡΠΎ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ°ΠΉΠ», ΡΠΎ Π΄ΠΎΠΏΡΡΠΊΠ°Π΅ΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΡΡΠ΅Π½ΠΈΠ΅ ΠΈΠ· ΡΠ°ΠΉΠ»Π°; Π΄Π»Ρ ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° Π΄ΠΎΠΏΡΡΡΠΈΠΌΡ ΠΊΠ°ΠΊ ΡΡΠ΅Π½ΠΈΠ΅, ΡΠ°ΠΊ ΠΈ Π·Π°ΠΏΠΈΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ. Π ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅ΠΌ ΡΠ»ΡΡΠ°Π΅ ΠΌΠΎΠΆΠ½ΠΎ Π»Π΅Π³ΠΊΠΎ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ ΡΠ°ΠΉΠ»Π°. ΠΡΠ»ΠΈ ΡΠ°ΠΉΠ» F ΡΠΆΠ΅ Π±ΡΠ» ΠΎΡΠΊΡΡΡ, ΡΠΎ ΠΏΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Reset ΡΡΠΎΡ ΡΠ°ΠΉΠ» ΡΠ½Π°ΡΠ°Π»Π° Π·Π°ΠΊΡΡΠ²Π°Π΅ΡΡΡ, Π° Π·Π°ΡΠ΅ΠΌ ΠΎΡΠΊΡΡΠ²Π°Π΅ΡΡΡ. ΠΡΠΈ ΡΡΠΎΠΌ ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ ΡΠ°ΠΉΠ»Π° ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅ΡΡΡ Π² Π½Π°ΡΠ°Π»ΡΠ½ΡΡ ΠΏΠΎΠ·ΠΈΡΠΈΡ ΡΠ°ΠΉΠ»Π°.
Rewrite (F) — ΠΎΡΠΊΡΡΡΠΈΠ΅ Π½ΠΎΠ²ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π°. ΠΡΠ»ΠΈ ΡΡΠΎ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ°ΠΉΠ», ΡΠΎ Π΄ΠΎΠΏΡΡΠΊΠ°Π΅ΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ Π·Π°ΠΏΠΈΡΡ Π² ΡΠ°ΠΉΠ»; Π΄Π»Ρ ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° Π΄ΠΎΠΏΡΡΡΠΈΠΌΡ ΠΊΠ°ΠΊ ΡΡΠ΅Π½ΠΈΠ΅, ΡΠ°ΠΊ ΠΈ Π·Π°ΠΏΠΈΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ. ΠΡΠ»ΠΈ ΡΠ°ΠΉΠ» F ΡΠΆΠ΅ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ, ΡΠΎ ΠΏΡΠΈ ΡΡΠ°Π±Π°ΡΡΠ²Π°Π½ΠΈΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Rewrite ΡΠ°ΠΉΠ» F ΡΠ½ΠΈΡΡΠΎΠΆΠ°Π΅ΡΡΡ.
Append (F) — ΠΎΡΠΊΡΡΡΠΈΠ΅ ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° Π΄Π»Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ Π½ΠΎΠ²ΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ Π² ΠΊΠΎΠ½Π΅Ρ ΡΠ°ΠΉΠ»Π°. ΠΡΠ»ΠΈ ΡΠ°ΠΉΠ» ΡΠΆΠ΅ Π±ΡΠ» ΠΎΡΠΊΡΡΡ ΡΠ°Π½Π΅Π΅ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡ Reset ΠΈΠ»ΠΈ Rewrite, ΡΠΎ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Append Π²Π½Π°ΡΠ°Π»Π΅ Π·Π°ΠΊΡΡΠ²Π°Π΅Ρ Π΄Π°Π½Π½ΡΠΉ ΡΠ°ΠΉΠ», Π° Π·Π°ΡΠ΅ΠΌ Π΅Π³ΠΎ ΠΎΡΠΊΡΡΠ²Π°Π΅Ρ Π΄Π»Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ Π½ΠΎΠ²ΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ.
Π‘ΡΡΠ΅ΡΡΠ²ΡΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ Π΄Π»Ρ ΡΠ°ΠΉΠ»ΠΎΠ² Π»ΡΠ±ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°:
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Close (F). ΠΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ Π·Π°ΠΊΡΡΡΠΈΠ΅ ΡΠ°ΠΉΠ»Π° F. ΠΡΠ»ΠΈ Π±ΡΡΠ΅Ρ Π²ΡΠ²ΠΎΠ΄Π° Π·Π°ΠΏΠΎΠ»Π½Π΅Π½ Π½Π΅ ΠΏΠΎΠ»Π½ΠΎΡΡΡΡ, ΡΠΎ Π΅Π³ΠΎ ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ΅ ΠΏΠ΅ΡΠ΅Π½ΠΎΡΠΈΡΡΡ Π² ΡΠ°ΠΉΠ» F, ΠΏΠΎΡΠ»Π΅ ΡΠ΅Π³ΠΎ ΠΈΠ· ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠ²Π½ΠΎΠΉ ΠΏΠ°ΠΌΡΡΠΈ ΡΠ΄Π°Π»ΡΠ΅ΡΡΡ ΡΠ»ΡΠΆΠ΅Π±Π½Π°Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ ΡΠ°ΠΉΠ»Π΅ F.
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Rename (F, newname). ΠΠ½Π΅ΡΠ½Π΅ΠΌΡ ΡΠ°ΠΉΠ»Ρ, ΡΠ²ΡΠ·Π°Π½Π½ΠΎΠΌΡ Ρ ΡΠ°ΠΉΠ»ΠΎΠ²ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ F, ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π΅ΡΡΡ Π½ΠΎΠ²ΠΎΠ΅ ΠΈΠΌΡ, Π·Π°Π΄Π°Π½Π½ΠΎΠ΅ Π² ΡΡΡΠΎΠΊΠ΅.
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Erase (F). Π€Π°ΠΉΠ» F ΡΠ½ΠΈΡΡΠΎΠΆΠ°Π΅ΡΡΡ. ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Erase ΠΏΡΠΈΠΌΠ΅Π½ΠΈΠΌΠ° ΡΠΎΠ»ΡΠΊΠΎ Π΄Π»Ρ Π·Π°ΠΊΡΡΡΡΡ ΡΠ°ΠΉΠ»ΠΎΠ².
Π€ΡΠ½ΠΊΡΠΈΡ Eof (F):boolean. Π€ΡΠ½ΠΊΡΠΈΡ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ true, Π΅ΡΠ»ΠΈ Π΄ΠΎΡΡΠΈΠ³Π½ΡΡ ΠΊΠΎΠ½Π΅Ρ ΡΠ°ΠΉΠ»Π°; Π² ΠΏΡΠΎΡΠΈΠ²Π½ΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Π²ΡΡ ΠΎΠ΄Π½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠ°Π²Π½ΠΎ false.
Π€ΡΠ½ΠΊΡΠΈΡ IOResult:word (Input-Output-Result). ΠΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΡΡΠ»ΠΎΠ²Π½ΡΠΉ ΠΏΡΠΈΠ·Π½Π°ΠΊ ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅ΠΉ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ Π²Π²ΠΎΠ΄Π°-Π²ΡΠ²ΠΎΠ΄Π°. Π Π΅Π·ΡΠ»ΡΡΠ°Ρ ΡΠ°Π²Π΅Π½ Π½ΡΠ»Ρ, Π΅ΡΠ»ΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡ Π²Π²ΠΎΠ΄Π°-Π²ΡΠ²ΠΎΠ΄Π° Π·Π°Π²Π΅ΡΡΠΈΠ»Π°ΡΡ ΡΡΠΏΠ΅ΡΠ½ΠΎ.
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Truncate (F). Π€Π°ΠΉΠ» ΡΡΠ΅ΠΊΠ°Π΅ΡΡΡ ΠΏΠΎ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΏΠΎΠ·ΠΈΡΠΈΠΈ ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ. Π ΡΡΡ ΠΏΠΎΠ·ΠΈΡΠΈΡ Π·Π°ΠΏΠΈΡΡΠ²Π°Π΅ΡΡΡ ΠΏΡΠΈΠ·Π½Π°ΠΊ eof.
ΠΠ»Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ Π²Π²ΠΎΠ΄Π°-Π²ΡΠ²ΠΎΠ΄Π° Π² ΡΠ΅ΠΊΡΡΠΎΠ²ΡΡ ΡΠ°ΠΉΠ»Π°Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Read,Readln,Write,Writeln.
Π’Π°ΠΊΠΆΠ΅ Π΄Π»Ρ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΡ ΡΠ°ΠΉΠ»ΠΎΠ² ΠΌΠΎΠ³ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ ΡΡΠΈ ΠΏΡΠ΅Π΄ΠΎΠΏΠΈΡΠ°Π½Π½ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ, Π½Π΅ΠΏΡΠΈΠΌΠ΅Π½ΠΈΠΌΡΠ΅ Π΄Π»Ρ ΡΠ°ΠΉΠ»ΠΎΠ² Π΄ΡΡΠ³ΠΎΠ³ΠΎ ΡΠΈΠΏΠ°: Eoln, SeekEoln ΠΈ SeekEof.
Π€ΡΠ½ΠΊΡΠΈΡ Eoln (F):boolean Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ true, Π΅ΡΠ»ΠΈ Π²ΠΎ Π²Ρ ΠΎΠ΄Π½ΠΎΠΌ ΠΏΠΎΡΠΎΠΊΠ΅ Π΄ΠΎΡΡΠΈΠ³Π½ΡΡ ΠΌΠ°ΡΠΊΠ΅Ρ ΠΊΠΎΠ½ΡΠ° ΡΡΡΠΎΠΊΠΈ eol.
Π€ΡΠ½ΠΊΡΠΈΡ SeekEoln (F):boolean ΠΏΡΠΎΠΏΡΡΠΊΠ°Π΅Ρ Π²ΡΠ΅ ΠΏΡΠΎΠ±Π΅Π»Ρ ΠΈ Π·Π½Π°ΠΊΠΈ ΡΠ°Π±ΡΠ»ΡΡΠΈΠΈ Π΄ΠΎ ΠΌΠ°ΡΠΊΠ΅ΡΠ° ΠΊΠΎΠ½ΡΠ° ΡΡΡΠΎΠΊΠΈ eol ΠΈΠ»ΠΈ Π΄ΠΎ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ Π·Π½Π°ΡΠ°ΡΠ΅Π³ΠΎ ΡΠΈΠΌΠ²ΠΎΠ»Π° ΠΈ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ true, Π΅ΡΠ»ΠΈ ΡΠ°ΠΊΠΎΠΉ ΠΌΠ°ΡΠΊΠ΅Ρ ΠΎΠ±Π½Π°ΡΡΠΆΠ΅Π½.
Π€ΡΠ½ΠΊΡΠΈΡ SeekEof (F):boolean ΠΏΡΠΎΠΏΡΡΠΊΠ°Π΅Ρ Π²ΡΠ΅ ΠΏΡΠΎΠ±Π΅Π»Ρ, Π·Π½Π°ΠΊΠΈ ΡΠ°Π±ΡΠ»ΡΡΠΈΠΈ ΠΈ ΠΌΠ°ΡΠΊΠ΅ΡΡ ΠΊΠΎΠ½ΡΠ° ΡΡΡΠΎΠΊΠΈ Π²ΠΏΠ»ΠΎΡΡ Π΄ΠΎ ΠΌΠ°ΡΠΊΠ΅ΡΠ° ΠΊΠΎΠ½ΡΠ° ΡΠ°ΠΉΠ»Π° eof ΠΈΠ»ΠΈ Π΄ΠΎ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ Π·Π½Π°ΡΠ°ΡΠ΅Π³ΠΎ ΡΠΈΠΌΠ²ΠΎΠ»Π° ΠΈ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ true, Π΅ΡΠ»ΠΈ ΡΠ°ΠΊΠΎΠΉ ΠΌΠ°ΡΠΊΠ΅Ρ ΠΎΠ±Π½Π°ΡΡΠΆΠ΅Π½.
ΠΡΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π°, Π² ΠΎΡΠ»ΠΈΡΠΈΠ΅ ΠΎΡ ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π°, ΠΈΠΌΠ΅ΡΡ ΠΎΠ΄Π½Ρ ΠΈ ΡΡ ΠΆΠ΅ Π΄Π»ΠΈΠ½Ρ. ΠΡΠΎ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΡ ΠΌΠ΅ΡΡΠΎΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π»ΡΠ±ΠΎΠΉ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ ΡΠ°ΠΉΠ»Π° ΠΏΠΎ Π΅Π΅ Π½ΠΎΠΌΠ΅ΡΡ ΠΈ ΠΎΡΡΡΠ΅ΡΡΠ²ΠΈΡΡ ΠΏΡΡΠΌΠΎΠΉ Π΄ΠΎΡΡΡΠΏ ΠΊ ΡΡΠΎΠΉ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠ΅. ΠΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° Π½ΡΠΌΠ΅ΡΡΡΡΡΡ Π½Π°ΡΡΡΠ°Π»ΡΠ½ΡΠΌ ΡΡΠ΄ΠΎΠΌ ΡΠΈΡΠ΅Π» 0,1,2,3,…ΠΡΠΈ ΠΎΡΠΊΡΡΡΠΈΠΈ ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° Π΅Π³ΠΎ ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅ΡΡΡ Π½Π° Π½ΡΠ»Π΅Π²ΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ. ΠΠΎΡΠ»Π΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈΡΡΠ΅Π½ΠΈΡ ΠΈΠ»ΠΈ Π·Π°ΠΏΠΈΡΠΈ ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ ΡΠ΄Π²ΠΈΠ³Π°Π΅ΡΡΡ Π½Π° ΡΠ»Π΅Π΄ΡΡΡΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ.
ΠΠ»Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ ΡΡΠ΅Π½ΠΈΡ ΠΈ Π·Π°ΠΏΠΈΡΠΈ Π² ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠΌ ΡΠ°ΠΉΠ»Π΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Read ΠΈ Write (Π½ΠΎ Π½Π΅ Readln, Writeln).
ΠΠ»Ρ ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΡΠ°ΠΉΠ»ΠΎΠ² ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Ρ ΡΠ°ΠΊΠΆΠ΅ ΠΏΡΠ΅Π΄ΠΎΠΏΠΈΡΠ°Π½Π½ΡΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° Seek ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ FileSize,FilePos.
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° Seek (F, k) ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°Π΅Ρ ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ ΡΠ°ΠΉΠ»Π° F Π½Π° ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ Ρ Π½ΠΎΠΌΠ΅ΡΠΎΠΌ k. ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ k Π΄ΠΎΠ»ΠΆΠ½Π° ΠΈΠΌΠ΅ΡΡ ΡΠΈΠΏ longint.
Π€ΡΠ½ΠΊΡΠΈΡ FileSize (F):longint Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΡΠ΅ΠΊΡΡΠΈΠΉ ΡΠ°Π·ΠΌΠ΅Ρ ΡΠ°ΠΉΠ»Π° F (ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ ΡΠ°ΠΉΠ»Π°).
Π€ΡΠ½ΠΊΡΠΈΡ FilePos (F):longint Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ Π½ΠΎΠΌΠ΅Ρ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΏΠΎΠ·ΠΈΡΠΈΠΈ ΡΠ°ΠΉΠ»Π° F.
ΠΠ΅ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅ ΡΠ°ΠΉΠ»Ρ ΠΏΡΠΈΠΌΠ΅Π½ΡΡΡΡΡ Π³Π»Π°Π²Π½ΡΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ Π΄Π»Ρ Π²ΡΡΠΎΠΊΠΎΡΠΊΠΎΡΠΎΡΡΠ½ΠΎΠ³ΠΎ ΠΎΠ±ΠΌΠ΅Π½Π° Π΄Π°Π½Π½ΡΠΌΠΈ ΠΌΠ΅ΠΆΠ΄Ρ Π΄ΠΈΡΠΊΠΎΠΌ ΠΈ ΠΏΠ°ΠΌΡΡΡΡ. ΠΠ»Ρ ΡΡΠΈΡ ΡΠ°ΠΉΠ»ΠΎΠ² Π²ΠΌΠ΅ΡΡΠΎ ΠΏΡΠΎΡΠ΅Π΄ΡΡ Read ΠΈ Write ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ BlockRead ΠΈ BlockWrite.
2. ΠΡΡ ΠΎΠ΄Ρ ΠΈΠ· ΡΡΠ»ΠΎΠ²ΠΈΡ Π·Π°Π΄Π°ΡΠΈ Π²Ρ ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ Π΄Π»Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ:
Π°) ΠΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΡΠΎΡΠΊΠΈ ΡΠ΅Π½ΡΡΠ° ΠΎΠΊΡΡΠΆΠ½ΠΎΡΡΠΈ;
b) ΠΠ»ΠΈΠ½Π° ΡΠ°Π΄ΠΈΡΡΠ° ΠΎΠΊΡΡΠΆΠ½ΠΎΡΡΠΈ;
c) ΠΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ Π»Π΅Π²ΠΎΠΉ Π²Π΅ΡΡ Π½Π΅ΠΉ ΠΈ Π½ΠΈΠΆΠ½Π΅ΠΉ ΠΏΡΠ°Π²ΠΎΠΉ ΡΠΎΡΠΊΠΈ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠ°, ΠΎΠ΄Π½ΠΎΠ·Π½Π°ΡΠ½ΠΎ Π·Π°Π΄Π°ΡΡΠΈΠ΅ Π΅Π³ΠΎ Π½Π° ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ.
Π’Π°ΠΊ ΠΊΠ°ΠΊ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΈ ΡΠΈΠΏ Π΄Π°Π½Π½ΡΡ ΡΡΡΠΊΠΎ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΡΠ°ΠΉΠ»ΠΎΠ² Π΄Π»Ρ Π²Π²ΠΎΠ΄Π° ΠΈΡΡ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ Π±ΡΠ΄Π΅ΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅ ΡΠ°ΠΉΠ»Ρ, ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ ΠΊΠΎΡΠΎΡΡΡ ΠΈΠΌΠ΅ΡΡ ΠΆΠ΅ΡΡΠΊΡΡ ΡΡΡΡΠΊΡΡΡΡ ΠΈ ΠΊ Π½ΠΈΠΌ Π²ΠΎΠ·ΠΌΠΎΠΆΠ΅Π½ ΠΏΡΡΠΌΠΎΠΉ Π΄ΠΎΡΡΡΠΏ.
ΠΠ»Ρ Ρ ΡΠ°Π½Π΅Π½ΠΈΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² ΠΎΠΊΡΡΠΆΠ½ΠΎΡΡΠΈ ΡΠΎΠ·Π΄Π°Π΄ΠΈΠΌ ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΡΠΉ ΡΠ°ΠΉΠ» circle. dat, ΠΊΠΎΡΠΎΡΡΠΉ Π±ΡΠ΄Π΅Ρ ΡΠΎΡΡΠΎΡΡΡ ΠΈΠ· ΠΌΠ°ΡΡΠΈΠ²Π° ΡΠΎΡΡΠ°Π²Π½ΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ ΠΈΠΌΠ΅ΡΡΠΈΡ ΡΡΠΈ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ°: ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ x ΠΈ y ΡΠ΅Π½ΡΡΠ° ΠΎΠΊΡΡΠΆΠ½ΠΎΡΡΠΈ ΠΈ R — ΡΠ°Π΄ΠΈΡΡ ΠΎΠΊΡΡΠΆΠ½ΠΎΡΡΠΈ. Π’ΠΈΠΏ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΠΌ ΠΊΠ°ΠΊ Π·Π°ΠΏΠΈΡΡ, ΠΏΠΎΡΠΎΠΌΡ ΡΡΠΎ Π² Π·Π°ΠΏΠΈΡΠΈ ΠΌΠΎΠΆΠ½ΠΎ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½ΠΈΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ ΡΠΈΠΏΠΎΠ²:
CircleType = record
x : integer;
y : integer;
R : word
end;
ΠΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΡΠ΅Π½ΡΡΠ° ΠΎΠΊΡΡΠΆΠ½ΠΎΡΡΠΈ x ΠΈ y Π±ΡΠ΄ΡΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Ρ ΠΊΠ°ΠΊ ΡΠ΅Π»ΡΠ΅ ΡΠΈΡΠ»Π°, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΌΠΎΠ³ΡΡ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡ ΠΏΠΎΠ»ΠΎΠΆΠΈΡΠ΅Π»ΡΠ½ΠΎΠ΅ ΠΈ ΠΎΡΡΠΈΡΠ°ΡΠ΅Π»ΡΠ½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅, ΠΏΠΎΡΡΠΎΠΌΡ Π΄Π»Ρ Π½ΠΈΡ Π²ΡΠ±ΡΠ°Π½ ΡΠΈΠΏ integer. Π Π°Π΄ΠΈΡΡ ΠΎΠΊΡΡΠΆΠ½ΠΎΡΡΠΈ R Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΎΡΡΠΈΡΠ°ΡΠ΅Π»ΡΠ½ΡΠΌ Π΄Π»Ρ Π½Π΅Π³ΠΎ Π²ΡΠ±ΡΠ°Π½ ΡΠΈΠΏ word — ΡΠ΅Π»ΠΎΠ΅ Π±Π΅Π· Π·Π½Π°ΠΊΠ°, ΠΏΡΠ΅Π΄Π΅Π»Ρ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ 0. 65 535.
Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ ΠΌΠ°ΡΡΠΈΠ² ΠΎΠΊΡΡΠΆΠ½ΠΎΡΡΠ΅ΠΉ Π±ΡΠ΄Π΅Ρ ΠΎΠΏΠΈΡΡΠ²Π°ΡΡΡΡ:
CircleAr: array[1.Nmax] of CircleType;
ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»Π°:
CircleFile : file of CircleType;
ΠΠ»Ρ Π²Π²ΠΎΠ΄Π° ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² Π·Π°Π΄Π°ΡΡΠΈΡ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊ Π±ΡΠ΄Π΅ΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠΈΠΏΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΡΠΉ ΡΠ°ΠΉΠ» rectangle. dat Ρ Π΄Π²ΡΠΌΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°ΠΌΠΈ ΡΠΈΠΏΠ° Π·Π°ΠΏΠΈΡΡ:
RectangleType=record
x: integer;
y: integer;
end;
Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ ΠΊΠ°ΠΆΠ΄ΡΠΉ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ ΡΠ°ΠΉΠ»Π° ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ x ΠΈ y ΡΠ³Π»ΠΎΠ²ΡΡ ΡΠΎΡΠ΅ΠΊ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠ°, ΠΌΠ°ΡΡΠΈΠ² ΡΠΎΡΠ΅ΠΊ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠ° ΠΈ ΡΠ°ΠΉΠ» Π±ΡΠ΄ΡΡ ΠΎΠΏΠΈΡΡΠ²Π°ΡΡΡΡ:
RectangleAr: array[1.2] of RectangleType;
RectangleFile: file of RectangleType;
3. Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½Π° Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Π²Π²ΠΎΠ΄Π° ΠΈΡΡ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ ΠΈΠ· ΡΠ°ΠΉΠ»Π° ΠΈΠ»ΠΈ ΠΊΠ»Π°Π²ΠΈΠ°ΡΡΡΡ. ΠΠΎΡΠ»Π΅ Π·Π°ΠΏΡΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π²ΡΠ΄Π°ΡΡΡΡ Π·Π°ΠΏΡΠΎΡ ΠΎ Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠΈ Π²Π²ΠΎΠ΄Π° «ΠΡΠΊΡΠ΄Π° ΠΏΡΠΎΠΈΠ·Π²Π΅ΡΡΠΈ Π²Π²ΠΎΠ΄ ΠΈΡΡ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ ? f — ΡΠ°ΠΉΠ», k-ΠΊΠ»Π°Π²ΠΈΠ°ΡΡΡΠ°». Π ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΈΠΈ Ρ Π½Π°ΠΆΠ°ΡΠΎΠΉ ΠΊΠ»Π°Π²ΠΈΡΠ΅ΠΉ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄ ΠΊ Π²Π²ΠΎΠ΄Ρ Π΄Π°Π½Π½ΡΡ .
4. Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π²ΡΠ²ΠΎΠ΄ΡΡΡΡ Π½Π° ΡΠΊΡΠ°Π½ ΠΈ Π² ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ°ΠΉΠ» result. txt, ΡΠΎΠ·Π΄Π°Π²Π°Π΅ΠΌΡΠΉ Π² ΠΊΠ°ΡΠ°Π»ΠΎΠ³Π΅ ΠΈΠ· ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ Π·Π°ΠΏΡΡΠ΅Π½Π° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°.
5. Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΠΊΠΎΠ½ΡΡΠΎΠ»Ρ Π²Π²ΠΎΠ΄ΠΈΠΌΡΡ Π΄Π°Π½Π½ΡΡ :
ΠΡΠΈ Π²Π²ΠΎΠ΄Π΅ ΡΠΈΡΠ»ΠΎΠ²ΠΎΠ³ΠΎ ΠΎΡΠ²Π΅ΡΠ° Ρ ΠΊΠ»Π°Π²ΠΈΠ°ΡΡΡΡ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½Π°Ρ Π²Π΅ΡΠΎΡΡΠ½ΠΎΡΡΡ ΠΎΡΠΈΠ±ΠΎΡΠ½ΠΎΠ³ΠΎ Π½Π°Π±ΠΎΡΠ° (Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Π±ΡΠΊΠ²Π° Π²ΠΌΠ΅ΡΡΠΎ ΡΠΈΡΡΡ). ΠΡΠΈ Π²Π²ΠΎΠ΄Π΅ ΠΎΡΠ²Π΅ΡΠ° Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° Read ΡΡΠΎ Π²ΡΠ·Π²Π°Π»ΠΎ Π±Ρ ΠΏΡΠ΅ΡΡΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΈ, ΠΊΠ°ΠΊ ΡΠ»Π΅Π΄ΡΡΠ²ΠΈΠ΅, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΡ Π΅Π΅ ΠΏΠΎΠ²ΡΠΎΡΠ½ΠΎΠ³ΠΎ Π·Π°ΠΏΡΡΠΊΠ°. Π§ΡΠΎΠ±Ρ Π±Π»ΠΎΠΊΠΈΡΠΎΠ²Π°ΡΡ ΡΠ°ΠΊΠΎΠ΅ ΠΏΡΠ΅ΡΡΠ²Π°Π½ΠΈΠ΅, Π²Π²ΠΎΠ΄ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ReadInt, ReadWord Π² ΠΊΠΎΡΠΎΡΡΡ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΠΎΠΉ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ IOResult ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΡΡΠ΅ΠΉ ΠΊΠΎΠ½ΡΡΠΎΠ»Ρ ΡΠΎΡΠΌΠ°ΡΠ° Π²Π²ΠΎΠ΄ΠΈΠΌΠΎΠ³ΠΎ ΡΠΈΡΠ»Π°. ΠΡΠΈ Π½Π΅ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎΠΌ ΡΠΎΡΠΌΠ°ΡΠ΅ Π²Π²ΠΎΠ΄Π° ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ReadInt, ReadWord Π²ΡΠ΄Π°Π΅Ρ Π½Π° ΡΠΊΡΠ°Π½ ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ ΠΎΠ± ΠΎΡΠΈΠ±ΠΊΠ΅ ΠΈ ΠΏΡΠ΅Π΄Π»Π°Π³Π°Π΅Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΏΠΎΠ²ΡΠΎΡΠΈΡΡ Π²Π²ΠΎΠ΄.
6. ΠΡΠΈ Π·Π°ΠΏΡΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π° ΡΠΊΡΠ°Π½Π΅ Π² ΠΏΠ΅ΡΠ²ΡΡ ΠΎΡΠ΅ΡΠ΅Π΄Ρ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Ρ ΡΡΠ»ΠΎΠ²ΠΈΡ Π·Π°Π΄Π°ΡΠΈ ΠΈ ΡΠ΅ΠΊΠ²ΠΈΠ·ΠΈΡΡ ΠΈΡΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»Ρ, ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°Π½Π½ΡΠ΅ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΡΡΠ°ΡΡΠΊΠΎΠΌ ΠΊΠΎΠ΄Π°:
ClrScr;
Writeln ('—————————————————-');
Writeln ('- ΠΠ°Π±ΠΎΡΠ°ΡΠΎΡΠ½Π°Ρ ΡΠ°Π±ΠΎΡΠ° № 2 -');
Writeln ('- ΡΡΡΠ΄Π΅Π½ΡΠ° Π³Ρ. -');
Writeln ('- -');
Writeln ('—————————————————-');
Writeln ('- Π£ΡΠ»ΠΎΠ²ΠΈΠ΅ Π·Π°Π΄Π°ΡΠΈ ΠΏΠΎ Π°Π½Π°Π»ΠΈΡΠΈΡΠ΅ΡΠΊΠΎΠΉ Π³Π΅ΠΎΠΌΠ΅ΡΡΠΈΠΈ: -');
Writeln ('- ΠΠ°ΠΉΡΠΈ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΎΠΊΡΡΠΆΠ½ΠΎΡΡΠ΅ΠΉ Π½Π° ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ -');
Writeln ('- ΠΈΠΌΠ΅ΡΡΠΈΡ ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ Ρ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠΎΠΌ ΡΡΠΎΡΠΎΠ½Ρ -');
Writeln ('- ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ ΠΏΠ°ΡΠ°Π»Π»Π΅Π»ΡΠ½Ρ ΠΎΡΡΠΌ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ. -');
Writeln ('—————————————————');
8. Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ ΡΡΡΡΠΊΡΡΡΠΈΡΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ: FrazaReadError, ReadWord, ReadInt, PrintInData, Cross1, Cross2, PrintHead.
2. ΠΠΈΡΡΠΈΠ½Π³ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
Program Lab2;
uses Crt;
label ExitFromCalc;
Const Nmax=100;
Type
CircleType = record
x: integer;
y: integer;
R: word
end;
RectangleType=record
x: integer;
y: integer;
end;
Var
CircleAr: array[1.Nmax] of CircleType;
CircleFile: file of CircleType;
RectangleAr: array[1.2] of RectangleType;
RectangleFile: file of RectangleType;
ResultFile: text;
n: word; {ΠΠΎΠ»-Π²ΠΎ ΠΎΠΊΡΡΠΆΠ½ΠΎΡΡΠ΅ΠΉ Π΄Π»Ρ ΠΏΡΠΎΠ²Π΅ΡΠΊΠΈ}
i: byte; {ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ ΡΠΈΠΊΠ»Π°}
S: byte; {ΡΡΡΡΡΠΈΠΊ ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΠΉ ΠΎΠΊΡΡΠΆΠ½ΠΎΡΡΠ΅ΠΉ Ρ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠΎΠΌ}
ch: char;
size: longint;
{ —————————————————————————————— }
Procedure FrazaReadError (k:integer);
{ Π‘ΠΎΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ ΠΎ Π½Π΅ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎΠΌ ΡΠΎΡΠΌΠ°ΡΠ΅ Π²Π²ΠΎΠ΄ΠΈΠΌΠΎΠ³ΠΎ ΡΠΈΡΠ»Π° Ρ ΠΏΠΎΠ΄Π°ΡΠ΅ΠΉ }
{ Π·Π²ΡΠΊΠΎΠ²ΠΎΠ³ΠΎ ΡΠΈΠ³Π½Π°Π»Π° }
Begin
If k<>0 then
Begin
Writeln (#7'ΠΠ΅ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΡΠΉ ΡΠΎΡΠΌΠ°Ρ ΡΠΈΡΠ»Π°');
Writeln ('ΠΠΎΠ²ΡΠΎΡΠΈΡΠ΅ Π²Π²ΠΎΠ΄');
End;
End { FrazaReadError };
{ —————————————————————————————— }
Procedure ReadWord (Var Number: word);
{ ΠΠ²ΠΎΠ΄ Ρ ΠΊΠ»Π°Π²ΠΈΠ°ΡΡΡΡ ΠΈ ΠΏΡΠΎΠ²Π΅ΡΠΊΠ° ΡΠΎΡΠΌΠ°ΡΠ° ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΡΠΈΠΏΠ° word}
Var k: word;
Begin
Repeat
{$I-} Read (Number); {$I+}
k:=IOResult;
FrazaReadError (k);
Until k=0;
End { ReadWord };
{ —————————————————————————————— }
Procedure ReadInt (Var Number: integer);
{ ΠΠ²ΠΎΠ΄ Ρ ΠΊΠ»Π°Π²ΠΈΠ°ΡΡΡΡ ΠΈ ΠΏΡΠΎΠ²Π΅ΡΠΊΠ° ΡΠΎΡΠΌΠ°ΡΠ° ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΡΠΈΠΏΠ° integer }
Var k: integer;
Begin
Repeat
{$I-} Read (Number); {$I+}
k:=IOResult;
FrazaReadError (k);
Until k=0;
End { ReadInt };
{ —————————————————————————————— }
Procedure PrintInData;
Var i: byte;
Begin
Writeln (' ΠΡΡ ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅');
Writeln ('ΠΠΊΡΡΠΆΠ½ΠΎΡΡΠΈ:');
For i:=1 to n do
Begin
Write (i,':','R=', CircleAr[i]. R,' (', CircleAr[i]. x,':', CircleAr[i].x,')','; ');
End;
Writeln;
Writeln ('ΠΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊ:');
Writeln ('ΠΠ΅ΡΡ Π½ΡΡ ΠΏΡΠ°Π²Π°Ρ ΡΠΎΡΠΊΠ°: (', RectangleAr[1]. x,':', RectangleAr[1].y,')');
Writeln ('ΠΠ΅ΡΡ Π½ΡΡ ΠΏΡΠ°Π²Π°Ρ ΡΠΎΡΠΊΠ°: (', RectangleAr[2]. x,':', RectangleAr[2].y,')');
End {PrintInData};
{ —————————————————————————————— }
Function Cross1(Var R: word; P, C: integer):boolean;
Begin
Cross1:=false;
if (R*R-(P-C*C))>=0 then Cross1:=true;
End {Cross1};
{ —————————————————————————————— }
Function Cross2(Var Inter1, Inter2:integer; R: word; P, C1, C2:integer):boolean;
Var Buf: real;
Begin
Cross2:=false;
Buf:=sqrt (R*R-(P-C1*C1))+C2;
if Buf<=Inter2 then
if Buf>=Inter1 then Cross2:=true;
End {Cross2};
{ —————————————————————————————— }
Procedure PrintHead;
Begin
ClrScr;
Writeln ('—————————————————————————-');
Writeln ('- ΠΠ°Π±ΠΎΡΠ°ΡΠΎΡΠ½Π°Ρ ΡΠ°Π±ΠΎΡΠ° № 2 -');
Writeln ('- ΡΡΡΠ΄Π΅Π½ΡΠ° Π³Ρ-');
Writeln ('- -');
Writeln ('—————————————————————————-');
Writeln ('- Π£ΡΠ»ΠΎΠ²ΠΈΠ΅ Π·Π°Π΄Π°ΡΠΈ ΠΏΠΎ Π°Π½Π°Π»ΠΈΡΠΈΡΠ΅ΡΠΊΠΎΠΉ Π³Π΅ΠΎΠΌΠ΅ΡΡΠΈΠΈ: -');
Writeln ('- ΠΠ°ΠΉΡΠΈ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΎΠΊΡΡΠΆΠ½ΠΎΡΡΠ΅ΠΉ Π½Π° ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ -');
Writeln ('- ΠΈΠΌΠ΅ΡΡΠΈΡ ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ Ρ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠΎΠΌ ΡΡΠΎΡΠΎΠ½Ρ -');
Writeln ('- ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ ΠΏΠ°ΡΠ°Π»Π»Π΅Π»ΡΠ½Ρ ΠΎΡΡΠΌ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ. -');
Writeln ('—————————————————————————-');
End { ReadInt };
{ —————————————————————————————— }
Begin
PrintHead;
Writeln ('ΠΡΠΊΡΠ΄Π° ΠΏΡΠΎΠΈΠ·Π²Π΅ΡΡΠΈ Π²Π²ΠΎΠ΄ ΠΈΡΡ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ ?');
Writeln ('f — ΡΠ°ΠΉΠ», k-ΠΊΠ»Π°Π²ΠΈΠ°ΡΡΡΠ°');
Repeat
ch:=ReadKey;
Until ((ch='k') or (ch='f'));
if (ch='k') then
Begin
Writeln ('ΠΠ°Π±ΠΎΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² Π·Π°Π²Π΅ΡΡΠ°ΠΉΡΠ΅ Π½Π°ΠΆΠ°ΡΠΈΠ΅ΠΌ ΠΊΠ»Π°Π²ΠΈΡΠΈ Enter');
Write ('ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΎΠΊΡΡΠΆΠ½ΠΎΡΡΠ΅ΠΉ:'); ReadWord (n);
For i:=1 to n do
Begin
Writeln ('ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΠΊΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΡΠ΅Π½ΡΡΠ° ', i,' ΠΎΠΊΡΡΠΆΠ½ΠΎΡΡΠΈ.');
Write ('x='); ReadInt (CircleAr[i]. x);
Write ('y='); ReadInt (CircleAr[i]. y);
Writeln ('ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΡΠ°Π΄ΠΈΡΡ ', i,' ΠΎΠΊΡΡΠΆΠ½ΠΎΡΡΠΈ.');
Write ('R='); ReadWord (CircleAr[i]. R);
End;
For i:=1 to 2 do
Begin
Writeln ('ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΠΊΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ', i,' ΡΠΎΡΠΊΠΈ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠ°');
Write ('x='); ReadInt (RectangleAr[i]. x);
Write ('y='); ReadInt (RectangleAr[i]. y);
End;
PrintHead;
PrintInData;
Writeln ('ΠΠ°ΠΏΠΈΡΠ°ΡΡ Π²Π²Π΅Π΄ΡΠ½Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ Π² ΡΠ°ΠΉΠ»Ρ Π²Ρ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ ?');
Writeln ('(y — ΠΠ°, n — ΠΠ΅Ρ)');
Repeat
ch:=ReadKey;
Until ((ch='y') or (ch='n'));
if (ch='y') then
Begin
Assign (CircleFile,'circle.dat'); Rewrite (CircleFile);
Assign (RectangleFile,'rectangl.dat'); Rewrite (RectangleFile);
For i:=1 to n do
Write (CircleFile, CircleAr[i]);
size:=FileSize (CircleFile);
Writeln ('Π€Π°ΠΉΠ» circle. dat ΠΏΠ΅ΡΠ΅Π·Π°ΠΏΠΈΡΠ°Π½!!! Π’Π΅ΠΊΡΡΠΈΠΉ ΡΠ°Π·ΠΌΠ΅Ρ ', size,' ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½Ρ.');
For i:=1 to 2 do
Write (RectangleFile, RectangleAr[i]);
Writeln ('Π€Π°ΠΉΠ» rectangle. dat ΠΏΠ΅ΡΠ΅Π·Π°ΠΏΠΈΡΠ°Π½!!!');
Close (RectangleFile); Close (CircleFile);
End;
End
else
Begin
Assign (CircleFile,'circle.dat'); Reset (CircleFile);
Assign (RectangleFile,'rectangl.dat'); Reset (RectangleFile);
size:=FileSize (CircleFile);
n:=size;
For i:=1 to n do
Read (CircleFile, CircleAr[i]);
For i:=1 to 2 do
Read (RectangleFile, RectangleAr[i]);
Close (RectangleFile); Close (CircleFile);
Writeln ('ΠΠ°Π½Π½ΡΠ΅ ΠΈΠ· Π²Ρ ΠΎΠ΄Π½ΡΡ ΡΠ°ΠΉΠ»ΠΎΠ² Π·Π°Π³ΡΡΠΆΠ΅Π½Ρ!!!');
PrintInData;
End;
S:=0;
{Π¦ΠΈΠΊΠ» ΠΏΡΠΎΠ²Π΅ΡΠΊΠΈ}
For i:=1 to n do
Begin
if Cross1(CircleAr[i]. R, RectangleAr[1].y, CircleAr[i].y) then
Begin
if Cross2(RectangleAr[1]. x, RectangleAr[2].x, CircleAr[i].R, RectangleAr[1].y, CircleAr[i].y, CircleAr[i].x) then
Begin
S:=S+1; GoTo ExitFromCalc;
End
End;
if Cross1(CircleAr[i]. R, RectangleAr[2].y, CircleAr[i].y) then
Begin
if Cross2(RectangleAr[1]. x, RectangleAr[2].x, CircleAr[i].R, RectangleAr[2].y, CircleAr[i].y, CircleAr[i].x) then
Begin
S:=S+1; GoTo ExitFromCalc;
End
End;
if Cross1(CircleAr[i]. R, RectangleAr[1].x, CircleAr[i].x) then
Begin
if Cross2(RectangleAr[1]. y, RectangleAr[2].y, CircleAr[i].R, RectangleAr[1].x, CircleAr[i].x, CircleAr[i].y) then
Begin
S:=S+1; GoTo ExitFromCalc;
End
End;
if Cross1(CircleAr[i]. R, RectangleAr[2].x, CircleAr[i].x) then
Begin
if Cross2(RectangleAr[1]. y, RectangleAr[2].y, CircleAr[i].R, RectangleAr[2].x, CircleAr[i].x, CircleAr[i].y) then
Begin
S:=S+1; GoTo ExitFromCalc;
End
End;
ExitFromCalc:
End;
{ΠΠΎΠ½Π΅Ρ ΡΠΈΠΊΠ»Π° ΠΏΡΠΎΠ²Π΅ΡΠΊΠΈ}
Writeln ('Π‘ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠΎΠΌ ΠΏΠ΅ΡΠ΅ΡΠ΅ΠΊΠ°ΡΡΡΡ ', S,' ΠΎΠΊΡΡΠΆΠ½ΠΎΡΡΠΈ (Π΅ΠΉ) ΠΈΠ· ', n,'.');
Assign (ResultFile,'result.txt');
Rewrite (ResultFile);
Write (ResultFile,'Π‘ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠΎΠΌ ΠΏΠ΅ΡΠ΅ΡΠ΅ΠΊΠ°ΡΡΡΡ ', S,' ΠΎΠΊΡΡΠΆΠ½ΠΎΡΡΠΈ (Π΅ΠΉ) ΠΈΠ· ', n,'.');
Close (ResultFile);
Readln;
End.
4. ΠΠΊΡΠ°Π½Π½ΡΠ΅ ΡΠΎΡΠΌΡ: