ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π½Π° ΡΠ·ΡΠΊΠ΅ ΠΠ°ΡΠΊΠ°Π»Ρ, ΡΠ΅Π°Π»ΠΈΠ·ΡΡΡΠ°Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ Π½Π°Π΄ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°ΠΌΠΈ
ΠΠ΅ΠΊΠ°ΡΡΠΎΠ²ΡΠΌ ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ΠΈΠ΅ΠΌ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ², Π ΠΈ Π Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ Π‘, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠ΅Π΅ ΡΠΏΠΎΡΡΠ΄ΠΎΡΠ΅Π½Π½ΡΠ΅ ΠΏΠ°ΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ², ΠΏΡΠΈΡΠ΅ΠΌ ΠΏΠ΅ΡΠ²ΡΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΠΏΠ°ΡΡ ΠΏΡΠΈΠ½Π°Π΄Π»Π΅ΠΆΠΈΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Ρ Π, Π²ΡΠΎΡΠΎΠΉ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Ρ Π. Π‘ΠΈΠΌΠΌΠ΅ΡΡΠΈΡΠ½ΠΎΠΉ ΡΠ°Π·Π½ΠΎΡΡΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ², Π ΠΈ Π Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ Π‘, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠ΅Π΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° Π, Π½Π΅ Π²Ρ ΠΎΠ΄ΡΡΠΈΠ΅ Π²ΠΎ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ Π, ΠΈ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° Π, Π½Π΅ Π²Ρ ΠΎΠ΄ΡΡΠΈΠ΅ Π²ΠΎ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ Π. Π Π°Π·Π½ΠΎΡΡΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ², Π ΠΈ Π Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π½Π° ΡΠ·ΡΠΊΠ΅ ΠΠ°ΡΠΊΠ°Π»Ρ, ΡΠ΅Π°Π»ΠΈΠ·ΡΡΡΠ°Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ Π½Π°Π΄ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°ΠΌΠΈ (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠ°Π±ΠΎΡΠ°ΡΠΎΡΠ½Π°Ρ ΡΠ°Π±ΠΎΡΠ° № 1..
ΠΠΏΠ΅ΡΠ°ΡΠΈΠΈ Π½Π°Π΄ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°ΠΌΠΈ.
Π¦Π΅Π»Ρ ΡΠ°Π±ΠΎΡΡ:.
ΠΠ°ΠΊΡΠ΅ΠΏΠ»Π΅Π½ΠΈΠ΅ ΡΠ΅ΠΎΡΠ΅ΡΠΈΡΠ΅ΡΠΊΠΈΡ Π·Π½Π°Π½ΠΈΠΉ ΠΈ ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΠ΅ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΡ Π½Π°Π²ΡΠΊΠΎΠ² Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ Π½Π°Π΄ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°ΠΌΠΈ.
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠ°Π±ΠΎΡΡ:.
1. ΠΠ·ΡΡΠΈΡΡ ΡΠ΅ΠΎΡΠΈΡ.
2. Π Π°Π·ΡΠ°Π±ΠΎΡΠ°ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π° Π°Π»Π³ΠΎΡΠΈΡΠΌΠΈΡΠ΅ΡΠΊΠΎΠΌ ΡΠ·ΡΠΊΠ΅, ΡΠ΅Π°Π»ΠΈΠ·ΡΡΡΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ Π½Π°Π΄ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°ΠΌΠΈ.
3. ΠΡΠΏΠΎΠ»Π½ΠΈΡΡ Π²ΡΡΠΈΡΠ»ΠΈΡΠ΅Π»ΡΠ½ΡΠ΅ ΡΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½ΡΡ.
ΠΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎ-ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΡΡΠ΅Π΄ΡΡΠ²Π°:.
1. ΠΠ΅ΡΡΠΎΠ½Π°Π»ΡΠ½ΡΠΉ ΠΊΠΎΠΌΠΏΡΡΡΠ΅Ρ ΡΠΈΠΏΠ° IBM PC.
2. Turbo Pascal 7.0.
ΠΡΠ°ΡΠΊΠ°Ρ ΡΠ΅ΠΎΡΠΈΡ:.
ΠΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ ΡΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² ΠΎΠ΄Π½ΠΎΠΉ ΠΏΡΠΈΡΠΎΠ΄Ρ.
ΠΠΏΠ΅ΡΠ°ΡΠΈΠΈ Π½Π°Π΄ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°ΠΌΠΈ.
ΠΡΠ΅Π΄ΠΏΠΎΠ»ΠΎΠΆΠΈΠΌ, ΡΡΡΠ΅ΡΡΠ²ΡΡΡ Π΄Π²Π° ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°, Π ΠΈ Π, ΠΏΡΠΈΠ½Π°Π΄Π»Π΅ΠΆΠ°ΡΠΈΠ΅ ΠΊΠ°ΠΊΠΎΠΌΡ-ΡΠΎ ΡΠ½ΠΈΠ²Π΅ΡΡΠ°Π»ΡΠ½ΠΎΠΌΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Ρ U. Π’ΠΎΠ³Π΄Π°:
1. ΠΠ±ΡΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠ΅ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ².
ΠΠ±ΡΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠ΅ΠΌ ΠΈΠ»ΠΈ ΡΡΠΌΠΌΠΎΠΉ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ², Π ΠΈ Π Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ Π‘, ΡΠΎΡΡΠΎΡΡΠ΅Π΅ ΠΈΠ· ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ², Π²Ρ ΠΎΠ΄ΡΡΠΈΡ Π² ΠΎΠ±Π° ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°.
2. ΠΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ².
ΠΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ΠΌ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ², Π ΠΈ Π Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ Π‘, ΡΠΎΡΡΠΎΡΡΠ΅Π΅ ΠΈΠ· ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ², ΠΏΡΠΈΠ½Π°Π΄Π»Π΅ΠΆΠ°ΡΠΈΡ ΠΎΠ±ΠΎΠΈΠΌ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°ΠΌ.
3. Π Π°Π·Π½ΠΎΡΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ².
Π Π°Π·Π½ΠΎΡΡΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ², Π ΠΈ Π Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ Π‘, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠ΅Π΅ ΡΠ΅ ΠΈ ΡΠΎΠ»ΡΠΊΠΎ ΡΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° Π, ΠΊΠΎΡΠΎΡΡΠ΅ Π½Π΅ ΠΏΡΠΈΠ½Π°Π΄Π»Π΅ΠΆΠ°Ρ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Ρ Π.
4. Π‘ΠΈΠΌΠΌΠ΅ΡΡΠΈΡΠ½Π°Ρ ΡΠ°Π·Π½ΠΎΡΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ².
Π‘ΠΈΠΌΠΌΠ΅ΡΡΠΈΡΠ½ΠΎΠΉ ΡΠ°Π·Π½ΠΎΡΡΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ², Π ΠΈ Π Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ Π‘, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠ΅Π΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° Π, Π½Π΅ Π²Ρ ΠΎΠ΄ΡΡΠΈΠ΅ Π²ΠΎ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ Π, ΠΈ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° Π, Π½Π΅ Π²Ρ ΠΎΠ΄ΡΡΠΈΠ΅ Π²ΠΎ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ Π.
5. ΠΠ΅ΠΊΠ°ΡΡΠΎΠ²ΠΎΠ΅ ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ΠΈΠ΅ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ².
ΠΠ΅ΠΊΠ°ΡΡΠΎΠ²ΡΠΌ ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ΠΈΠ΅ΠΌ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ², Π ΠΈ Π Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ Π‘, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠ΅Π΅ ΡΠΏΠΎΡΡΠ΄ΠΎΡΠ΅Π½Π½ΡΠ΅ ΠΏΠ°ΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ², ΠΏΡΠΈΡΠ΅ΠΌ ΠΏΠ΅ΡΠ²ΡΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΠΏΠ°ΡΡ ΠΏΡΠΈΠ½Π°Π΄Π»Π΅ΠΆΠΈΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Ρ Π, Π²ΡΠΎΡΠΎΠΉ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Ρ Π.
ΠΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠ°Ρ ΠΏΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ° Π·Π°Π΄Π°ΡΠΈ:.
Π Π΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ Π½Π° ΠΎΠ΄Π½ΠΎΠΌ ΠΈΠ· ΡΠ·ΡΠΊΠΎΠ² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΡΠΏΠΎΡΠΎΠ±Π½ΡΡ Π²ΡΠΏΠΎΠ»Π½ΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ Π½Π°Π΄ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°ΠΌΠΈ: ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠ΅, ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΠ΅, ΡΠ°Π·Π½ΠΎΡΡΡ, ΡΠΈΠΌΠΌΠ΅ΡΡΠΈΡΠ½Π°Ρ ΡΠ°Π·Π½ΠΎΡΡΡ, Π΄Π΅ΠΊΠ°ΡΡΠΎΠ²ΠΎΠ΅ ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ΠΈΠ΅.
ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΌΠ΅ΡΠΎΠ΄Π° ΡΠ΅ΡΠ΅Π½ΠΈΡ Π·Π°Π΄Π°ΡΠΈ:.
ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ:.
ΠΠ°Π½Π½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°, Π½Π°ΠΏΠΈΡΠ°Π½Π½Π°Ρ Π½Π° ΡΠ·ΡΠΊΠ΅ ΠΠ°ΡΠΊΠ°Π»Ρ, Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ Ρ ΡΠ°Π·Π΄Π΅Π»Π° ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ , ΠΏΠΎΠ»Π½ΡΠΉ ΡΠΏΠΈΡΠΎΠΊ ΠΊΠΎΡΠΎΡΡΡ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ Π² Π’Π°Π±Π»ΠΈΡΠ΅ 1. Π ΠΎΡΠ½ΠΎΠ²Π΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π»Π΅ΠΆΠ°Ρ ΠΏΡΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡ, ΠΊΠ°ΠΆΠ΄Π°Ρ ΠΈΠ· ΠΊΠΎΡΠΎΡΡΡ ΠΎΡΠ²Π΅ΡΠ°Π΅Ρ Π·Π° Π·Π°ΠΊΡΠ΅ΠΏΠ»Π΅Π½Π½ΡΡ Π·Π° Π½Π΅ΠΉ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡ Π½Π°Π΄ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎΠΌ. (ΡΠΌ. Π’Π°Π±Π»ΠΈΡΡ 2) ΠΡΠ±ΠΎΡ ΡΡΠ΅Π±ΡΠ΅ΠΌΠΎΠΉ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ ΠΏΡΡΠ΅ΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° case.
Π Π°Π±ΠΎΡΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π°ΡΠΈΠ½Π°Π΅ΡΡΡ Ρ Π²ΡΠ²ΠΎΠ΄Π° ΡΠΎΠΎΠ±ΡΠ΅Π½ΠΈΡ ΠΎ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΠΈ Π²Π²Π΅ΡΡΠΈ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ ΠΈ Π²ΡΠΎΡΠΎΠ³ΠΎ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ². ΠΠ°Π»Π΅Π΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΡΠ΅Π±ΡΠ΅Ρ Π²Π²Π΅ΡΡΠΈ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ², Π·Π°ΠΊΠ°Π½ΡΠΈΠ²Π°Ρ Π²Π²ΠΎΠ΄ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° Π½Π°ΠΆΠ°ΡΠΈΠ΅ΠΌ ΠΊΠ»Π°Π²ΠΈΡΠΈ Enter. ΠΠΎΡΠ»Π΅ Π²Π²ΠΎΠ΄Π° ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ² Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π²ΡΠ±ΡΠ°ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡ, ΠΊΠΎΡΠΎΡΠ°Ρ Π΄ΠΎΠ»ΠΆΠ½Π° Π±ΡΡΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½Π° Π½Π°Π΄ Π½ΠΈΠΌΠΈ. Π Π΅Π·ΡΠ»ΡΡΠ°Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ Π½Π° ΡΠΊΡΠ°Π½.
Π’Π°Π±Π»ΠΈΡΠ° 1..
Π‘ΠΏΠΈΡΠΎΠΊ ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΎΡΠΎΠ² ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ :
ΠΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΎΡ | Π’ΠΈΠΏ. | ΠΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅. | |
Zoopark1. | Zoopark1: array [1.33] of string. | Π₯ΡΠ°Π½ΠΈΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ Π·ΠΎΠΎΠΏΠ°ΡΠΊΠ°. | |
Zoopark2. | Zoopark2: array [1.33] of string; | Π₯ΡΠ°Π½ΠΈΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ Π²ΡΠΎΡΠΎΠ³ΠΎ Π·ΠΎΠΎΠΏΠ°ΡΠΊΠ°. | |
Rezultat. | rezultat: array [1.75] of string; | Π₯ΡΠ°Π½ΠΈΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ. | |
Zpark1. | zpark1: array [1 .33] of string; | ΠΠ»Ρ Π²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠ³ΠΎ Ρ ΡΠ°Π½Π΅Π½ΠΈΡ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ Π·ΠΎΠΎΠΏΠ°ΡΠΊΠ°. | |
zpark2. | zpark2: array [1.33] of string; | ΠΠ»Ρ Π²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠ³ΠΎ Ρ ΡΠ°Π½Π΅Π½ΠΈΡ Π²ΡΠΎΡΠΎΠ³ΠΎ Π·ΠΎΠΎΠΏΠ°ΡΠΊΠ°. | |
x, y, i, j, d, t, k. | integer. | ΠΠ»Ρ ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΠΈ ΡΠΈΠΊΠ»ΠΎΠ². | |
V. | integer. | Π Π°Π·ΠΌΠ΅Ρ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°. | |
w. | integer. | Π Π°Π·ΠΌΠ΅Ρ Π²ΡΠΎΡΠΎΠ³ΠΎ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°. | |
wiborka. | char. | Π₯ΡΠ°Π½ΠΈΡ Π½ΠΎΠΌΠ΅Ρ Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠΉ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ. | |
Π’Π°Π±Π»ΠΈΡΠ° 2..
Π‘ΠΏΠΈΡΠΎΠΊ ΠΏΡΠΎΡΠ΅Π΄ΡΡ:
ΠΠΌΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ. | Π€ΠΎΡΠΌΠ°Π»ΡΠ½ΡΠ΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ. | ΠΡΠ·ΠΎΠ² ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ. | ΠΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅. | |
obedinenie. | Π½Π΅Ρ. | obedinenie. | ΠΠΏΠ΅ΡΠ°ΡΠΈΡ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ². | |
peresechenie. | Π½Π΅Ρ. | peresechenie. | ΠΠΏΠ΅ΡΠ°ΡΠΈΡ ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ². | |
ΠΠΌΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ. | Π€ΠΎΡΠΌΠ°Π»ΡΠ½ΡΠ΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ. | ΠΡΠ·ΠΎΠ² ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ. | ΠΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅. | |
raznost. | Π½Π΅Ρ. | raznost. | ΠΠΏΠ΅ΡΠ°ΡΠΈΡ ΡΠ°Π·Π½ΠΎΡΡΠΈ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ². | |
simmetrichnaya_raznost. | Π½Π΅Ρ. | simmetrichnaya_raznost. | ΠΠΏΠ΅ΡΠ°ΡΠΈΡ ΡΠΈΠΌΠΌΠ΅ΡΡΠΈΡΠ½ΠΎΠΉ ΡΠ°Π·Π½ΠΎΡΡΠΈ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ². | |
dekartovoe_proizvedenie. | Π½Π΅Ρ. | dekartovoe_proizvedenie. | ΠΠΏΠ΅ΡΠ°ΡΠΈΡ Π΄Π΅ΠΊΠ°ΡΡΠΎΠ²ΠΎΠ³ΠΎ ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ΠΈΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ². | |
ΠΡΠ²ΠΎΠ΄:.
Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ Π²ΡΠ΅ΠΉ ΠΏΡΠΎΠ΄Π΅Π»Π°Π½Π½ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ ΠΌΡ Π·Π°ΠΊΡΠ΅ΠΏΠΈΠ»ΠΈ ΡΠ΅ΠΎΡΠ΅ΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ Π·Π½Π°Π½ΠΈΡ ΠΈ ΠΏΠΎΠ»ΡΡΠΈΠ»ΠΈ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ Π½Π°Π²ΡΠΊΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ Π½Π°Π΄ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°ΠΌΠΈ, ΡΠ°ΠΊΠΆΠ΅ Π½Π°ΠΌΠΈ Π±ΡΠ»Π° ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π½Π° ΡΠ·ΡΠΊΠ΅ ΠΠ°ΡΠΊΠ°Π»Ρ, ΡΠ΅Π°Π»ΠΈΠ·ΡΡΡΠ°Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ Π½Π°Π΄ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π°ΠΌΠΈ: ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠ΅, ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΠ΅, ΡΠ°Π·Π½ΠΎΡΡΡ, ΡΠΈΠΌΠΌΠ΅ΡΡΠΈΡΠ½Π°Ρ ΡΠ°Π·Π½ΠΎΡΡΡ, Π΄Π΅ΠΊΠ°ΡΡΠΎΠ²ΠΎΠ΅ ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ΠΈΠ΅.
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅.
ΠΠΈΡΡΠΈΠ½Π³ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ:.
program giwotnie_zooparka;
uses CRT;
label menu;
var.
zoopark1: array [1.33] of string;
zoopark2: array [1.33] of string;
zpark1: array [1 .33] of string;
zpark2: array [1.33] of string;
j, i: integer;
x, y: integer;
d, k, t: integer;
v, w: integer;
str: string;
rezultat: array [1.75] of string;
wiborka: char;
procedure peresechenie;
begin.
for x:=1 to v do.
for y:=1 to w do.
begin.
if zoopark1[x]=zoopark2[y] then.
rezultat[x] :=zoopark2 [y] ;
end;
clrscr;
writeln ('Rezultat rawen->> ');
for i:=1 to v+w do.
begin.
if rezultat[i] <> ' ' then.
writeln (rezultat[i]);
end;
end;
procedure obedinenie;
begin.
for x:=1 to v do.
for y:=1 to w do.
begin.
if zoopark1[x]=zoopark2[y] then.
zoopark1[x]: =' ';
end;
for j:=1 to v do.
begin.
rezultat[j]: =zoopark1[j];
end;
t:=0;
for d:=j+1 to v+w do.
begin.
t:=t+1;
rezultat[d] :=zoopark2[t];
end;
clrscr;
writeln ('Rezultat rawen->>');
for i:=1 to v+w do.
begin.
if rezultat[i] <> ' ' then.
writeln (rezultat[i]);
end;
end;
procedure simmetrichnaya_raznost;
begin.
for x:=1 to v do.
for y:=1 to w do.
begin.
if zoopark1[x]=zoopark2[y] then.
begin.
zoopark1[x]: =' ';
zoopark2[y]: =' ';
end;
end;
for j:=1 to v do.
begin.
rezultat[j]: =zoopark1[j];
end;
t:=0;
for d:=j+1 to v+w do.
begin.
t:=t+1;
rezultat[d] :=zoopark2[t];
end;
clrscr;
writeln ('Rezultat rawen->>');
for i:=1 to v+w do.
begin.
if rezultat[i] <> ' ' then.
writeln (rezultat[i]);
end;
end;
procedure raznost;
begin.
for x:=1 to v do.
begin.
rezultat[x] :=zoopark1 [x] ;
for i:=1 to v do.
for j:=1 to w do.
begin.
if rezultat[i]=zoopark2[j] then.
rezultat[i]: =' ';
end;
clrscr;
writeln ('Rezultat rawen->>');
for i:=1 to w do.
begin.
if rezultat[i] <> ' ' then.
writeln (rezultat[i]);
end;
end;
end;
procedure dekartovoe_proizvedenie;
begin.
i:=0;
for x:=1 to v do.
for y:=1 to w do.
begin.
inc (i);
str:=' ';
if zoopark1[x]<>zoopark2[y] then rezultat[i]: =zoopark1[x]+' * '+zoopark2[y];
end;
clrscr;
writeln ('Rezultat rawen->>');
for i:=1 to v*w do.
begin.
if rezultat[i] <> ' ' then.
writeln (rezultat[i]);
end;
end;
begin.
clrscr;
textbackground (white);
textcolor (black);
writeln ('Wwedite kolichestwo giwotnih 1 zooparka:');
readln (v);
writeln ('Wwedite kolichestwo giwotnih 2 zooparka:');
readln (w);
write ('Wwedite giwotnih 1 zooparka ');
writeln (', w konce nagat Enter:');
for k:=1 to v do.
begin.
readln (zoopark1[k]);
end;
write ('Wwedite giwotnih 2 zooparka ');
writeln (', w konce nagat Enter:');
for i:=1 to w do.
begin.
readln (zoopark2[i]);
end;
for i:=1 to v do.
zpark1[i] :=zoopark1[i];
for i:=1 to w do.
zpark2[i] :=zoopark2[i];
menu:
writeln ('Wwesti nomer operacii:');
writeln ('1->>Peresechenie');
writeln ('2->>Obedinenie');
writeln ('3->>Simmetricheska raznost');
writeln ('4->>Raznost');
writeln ('5->>Dekartowoe proizwedenie');
writeln ('6->>Wihod');
writeln ('Wi Wibrali:');
readln (wiborka);
case wiborka of.
'1': peresechenie;
'2': obedinenie;
'3': simmetrichnaya_raznost;
'4': raznost;
'5': dekartovoe_proizvedenie;
'6': exit;
end;
readln;
clrscr;
for i:=1 to v*w do.
rezultat[i]: = ' ';
for i:=1 to v do.
begin.
zoopark1[i]: = zpark1[i];
end;
for i:=1 to w do.
begin.
zoopark2[i]: =zpark2[i];
end;
goto menu;
end.