Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠΊΡΠΏΠ΅ΡΡΠ½ΡΡ ΡΠΈΡΡΠ΅ΠΌ ΡΡΠ΅Π΄ΡΡΠ²Π°ΠΌΠΈ ΡΠ·ΡΠΊΠ° Π’ΡΡΠ±ΠΎ-ΠΡΠΎΠ»ΠΎΠ³
ΠΡΠ»ΠΈ ΠΆΠ΅ ΠΠ°ΡΠ° ΡΠΊΡΠΏΠ΅ΡΡΠ½Π°Ρ ΡΠΈΡΡΠ΅ΠΌΠ° Π±ΡΠ΄Π΅Ρ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ Π½Π΅ Π±ΠΎΠ»Π΅Π΅ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ ΡΠΎΡΠ΅Π½ ΠΏΡΠ°Π²ΠΈΠ», ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ, Π±Π°Π·ΠΈΡΡΡΡΠ΅ΠΉΡΡ Π½Π° ΠΏΡΠ°Π²ΠΈΠ»Π°Ρ Π±ΠΎΠ»Π΅Π΅ ΠΏΡΠ΅Π΄ΠΏΠΎΡΡΠΈΡΠ΅Π»ΡΠ½ΠΎ. Π ΡΠΈΠ»Ρ ΡΠΎΠ³ΠΎ, ΡΡΠΎ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΎΠ½Π½ΡΠ΅ ΠΏΡΠ°Π²ΠΈΠ»Π° ΠΏΠΎΡΡΠΈ Π½Π΅ Π·Π°Π²ΠΈΡΡΡ Π΄ΡΡΠ³ ΠΎΡ Π΄ΡΡΠ³Π°, ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΈ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ°ΠΊΠΎΠΉ ΡΠΊΡΠΏΠ΅ΡΡΠ½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ ΠΏΡΠΎΡΠ΅. ΠΡΠΎΡΡΠΎ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΠΈ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΠΏΡΠ°Π²ΠΈΠ» Ρ ΡΠ΅Π»ΡΡ ΠΈΠ·ΡΡΠΈΡΡ ΡΡΡΠ΅ΠΊΡ, Π²ΡΠ·Π²Π°Π½Π½ΡΠΉ ΡΠ°ΠΊΠΈΠΌ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ΠΌ. Π ΡΠΈΡΡΠ΅ΠΌΠ°Ρ ΠΆΠ΅… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠΊΡΠΏΠ΅ΡΡΠ½ΡΡ ΡΠΈΡΡΠ΅ΠΌ ΡΡΠ΅Π΄ΡΡΠ²Π°ΠΌΠΈ ΡΠ·ΡΠΊΠ° Π’ΡΡΠ±ΠΎ-ΠΡΠΎΠ»ΠΎΠ³ (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠΈΠ½ΠΈΡΡΠ΅ΡΡΡΠ²ΠΎ ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΡ Π ΠΎΡΡΠΈΠΉΡΠΊΠΎΠΉ Π€Π΅Π΄Π΅ΡΠ°ΡΠΈΠΈ
ΠΠΎΡΠΎΠ½Π΅ΠΆΡΠΊΠ°Ρ Π³ΠΎΡΡΠ΄Π°ΡΡΡΠ²Π΅Π½Π½Π°Ρ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠ°Ρ Π°ΠΊΠ°Π΄Π΅ΠΌΠΈΡ
ΠΠ°ΡΠ΅Π΄ΡΠ° ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΌΠΎΠ΄Π΅Π»ΠΈΡΠΎΠ²Π°Π½ΠΈΡ
ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΡ ΠΈ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΈΡ ΡΠΈΡΡΠ΅ΠΌ
Π ΠΠΠ ΠΠΠΠ’ΠΠ ΠΠΠ‘ΠΠΠ Π’ΠΠ«Π₯ Π‘ΠΠ‘Π’ΠΠ Π‘Π ΠΠΠ‘Π’ΠΠΠΠ Π―ΠΠ«ΠΠ Π’Π£Π ΠΠ-ΠΠ ΠΠΠΠ
ΠΠ΅ΡΠΎΠ΄ΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΡΠΊΠ°Π·Π°Π½ΠΈΡ ΠΊ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠΌ Π·Π°Π½ΡΡΠΈΡΠΌ
ΠΏΠΎ ΠΊΡΡΡΡ «ΠΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ Π·Π½Π°Π½ΠΈΠΉ Π² ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΡ ΡΠΈΡΡΠ΅ΠΌΠ°Ρ »
ΠΠ»Ρ ΡΡΡΠ΄Π΅Π½ΡΠΎΠ² ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΠΈ
71 900 — «ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ ΠΈ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΈ», ΠΎΠ±ΡΡΠ°ΡΡΠΈΡ ΡΡ ΠΏΠΎ Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ 654 700 — «ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ»,
Π΄Π½Π΅Π²Π½ΠΎΠΉ ΡΠΎΡΠΌΡ ΠΎΠ±ΡΡΠ΅Π½ΠΈΡ ΠΠΎΡΠΎΠ½Π΅ΠΆ 2003
Π£ΠΠ 51(075); 681.3.06
Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠΊΡΠΏΠ΅ΡΡΠ½ΡΡ ΡΠΈΡΡΠ΅ΠΌ ΡΡΠ΅Π΄ΡΡΠ²Π°ΠΌΠΈ ΡΠ·ΡΠΊΠ° Π’ΡΡΠ±ΠΎ-ΠΡΠΎΠ»ΠΎΠ³: ΠΠ΅ΡΠΎΠ΄ΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΡΠΊΠ°Π·Π°Π½ΠΈΡ ΠΊ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠΌ Π·Π°Π½ΡΡΠΈΡΠΌ ΠΏΠΎ ΠΊΡΡΡΡ «ΠΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ Π·Π½Π°Π½ΠΈΠΉ Π² ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΡ ΡΠΈΡΡΠ΅ΠΌΠ°Ρ » / ΠΠΎΡΠΎΠ½Π΅ΠΆ. Π³ΠΎΡ. ΡΠ΅Ρ Π½ΠΎΠ». Π°ΠΊΠ°Π΄.; Π‘ΠΎΡΡ. Π. Π. ΠΠ°Π²Π»ΠΎΠ², Π‘. Π. ΠΡΠ»Π°ΠΊΠΎΠ²Π°. ΠΠΎΡΠΎΠ½Π΅ΠΆ, 2003. 36 Ρ.
ΠΠ°Π΄Π°Π½ΠΈΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½Ρ Π² ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΈΠΈ Ρ ΡΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡΠΌΠΈ ΠΠΠ ΠΏΠΎΠ΄Π³ΠΎΡΠΎΠ²ΠΊΠΈ ΠΈΠ½ΠΆΠ΅Π½Π΅ΡΠΎΠ² ΠΏΠΎ Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ 654 700 — «ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ», ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΠΎΡΡΠΈ 71 900 — «ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ ΠΈ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΈ». ΠΠ½ΠΈ ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Ρ Π΄Π»Ρ Π·Π°ΠΊΡΠ΅ΠΏΠ»Π΅Π½ΠΈΡ ΡΠ΅ΠΎΡΠ΅ΡΠΈΡΠ΅ΡΠΊΠΈΡ Π·Π½Π°Π½ΠΈΠΉ Π΄ΠΈΡΡΠΈΠΏΠ»ΠΈΠ½Ρ ΡΠΈΠΊΠ»Π° ΠΠΠ.
ΠΠ·Π»Π°Π³Π°ΡΡΡΡ ΠΎΡΠ½ΠΎΠ²Π½ΡΠ΅ ΠΏΡΠΈΠ½ΡΠΈΠΏΡ ΡΠ°Π±ΠΎΡΡ Ρ Π±Π°Π·Π°ΠΌΠΈ Π΄Π°Π½Π½ΡΡ , ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΠΈ Π±Π°Π· Π·Π½Π°Π½ΠΈΠΉ ΠΈ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΡΡΠ°ΡΠ΅Π³ΠΈΠ΅ΠΉ Π²ΡΠ²ΠΎΠ΄Π° Π² ΡΠΊΡΠΏΠ΅ΡΡΠ½ΡΡ ΡΠΈΡΡΠ΅ΠΌΠ°Ρ ΡΡΠ΅Π΄ΡΡΠ²Π°ΠΌΠΈ ΡΠ·ΡΠΊΠ° Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΡΠΎΠ»ΠΎΠ³. ΠΡΠΈΠ²Π΅Π΄Π΅Π½Ρ ΠΏΡΠΈΠΌΠ΅ΡΡ ΡΠΎΡΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ ΠΈ Π²Π°ΡΠΈΠ°Π½ΡΡ Π·Π°Π΄Π°Π½ΠΈΠΉ Π΄Π»Ρ ΡΠ°ΠΌΠΎΡΡΠΎΡΡΠ΅Π»ΡΠ½ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ.
ΠΠΈΠ±Π»ΠΈΠΎΠ³Ρ.: 7 Π½Π°Π·Π².
Π‘ΠΎΡΡΠ°Π²ΠΈΡΠ΅Π»ΠΈ: Π΄ΠΎΡΠ΅Π½Ρ Π.Π. ΠΠΠΠΠΠ, Π΄ΠΎΡΠ΅Π½Ρ Π‘. Π. ΠΡΠ»Π°ΠΊΠΎΠ²Π° ΠΠ°ΡΡΠ½ΡΠΉ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ ΠΏΡΠΎΡΠ΅ΡΡΠΎΡ Π. Π. ΠΠΠ ΠΠΠΠ Π Π΅ΡΠ΅Π½Π·Π΅Π½Ρ ΠΏΡΠΎΡΠ΅ΡΡΠΎΡ Π.Π. ΠΠΠ ΠΠ₯ΠΠ ΠΠ΅ΡΠ°ΡΠ°Π΅ΡΡΡ ΠΏΠΎ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΡΠ΅Π΄Π°ΠΊΡΠΈΠΎΠ½Π½ΠΎ-ΠΈΠ·Π΄Π°ΡΠ΅Π»ΡΡΠΊΠΎΠ³ΠΎ ΡΠΎΠ²Π΅ΡΠ° ΠΠΎΡΠΎΠ½Π΅ΠΆΡΠΊΠΎΠΉ Π³ΠΎΡΡΠ΄Π°ΡΡΡΠ²Π΅Π½Π½ΠΎΠΉ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΎΠΉ Π°ΠΊΠ°Π΄Π΅ΠΌΠΈΠΈ Π³ ΠΠ°Π²Π»ΠΎΠ² Π. Π.,
ΠΡΠ»Π°ΠΊΠΎΠ²Π° Π‘.Π., 2003
Π£ ΠΠΎΡΠΎΠ½Π΅ΠΆΡΠΊΠ°Ρ Π³ΠΎΡΡΠ΄Π°ΡΡΡΠ²Π΅Π½Π½Π°Ρ Π’Π΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠ°Ρ Π°ΠΊΠ°Π΄Π΅ΠΌΠΈΡ, 2003
ΠΡΠΈΠ³ΠΈΠ½Π°Π»-ΠΌΠ°ΠΊΠ΅Ρ Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΠΈΠ·Π΄Π°Π½ΠΈΡ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠΎΠ±ΡΡΠ²Π΅Π½Π½ΠΎΡΡΡΡ ΠΠΎΡΠΎΠ½Π΅ΠΆΡΠΊΠΎΠΉ Π³ΠΎΡΡΠ΄Π°ΡΡΡΠ²Π΅Π½Π½ΠΎΠΉ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΎΠΉ Π°ΠΊΠ°Π΄Π΅ΠΌΠΈΠΈ, Π΅Π³ΠΎ ΡΠ΅ΠΏΡΠΎΠ΄ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ (Π²ΠΎΡΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ΠΈΠ΅) Π»ΡΠ±ΡΠΌ ΡΠΏΠΎΡΠΎΠ±ΠΎΠΌ Π±Π΅Π· ΡΠΎΠ³Π»Π°ΡΠΈΡ Π°ΠΊΠ°Π΄Π΅ΠΌΠΈΠΈ Π·Π°ΠΏΡΠ΅ΡΠ°Π΅ΡΡΡ.
Π ΠΠΠΠ’Π Π‘ ΠΠΠΠΠΠ ΠΠΠΠΠ«Π₯ Π ΠΠΠΠ ΠΠ’ΠΠΠΠΠ ΠΠΠΠ―Π’Π
Π‘Π°ΠΌΠ° ΡΠΎΡΠΌΠ° Π·Π°ΠΏΠΈΡΠΈ ΡΠ°ΠΊΡΠΎΠ² Π² ΠΡΠΎΠ»ΠΎΠ³Π΅ Π½Π°Π²ΠΎΠ΄ΠΈΡ Π½Π° ΠΌΡΡΠ»Ρ ΠΎ ΡΠ°Π±ΠΎΡΠ΅ Ρ Π±Π°Π·ΠΎΠΉ Π΄Π°Π½Π½ΡΡ (ΠΠ). ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Π½Π°Π±ΠΎΡ ΡΠ°ΠΊΡΠΎΠ²
student («99−231″,"ΠΠ²Π°Π½ΠΎΠ² Π‘.Π‘.»,"ΠΠ’Π").
student («99−232″,"ΠΠ΅ΡΡΠΎΠ² Π.Π.»,"Π’Π΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΈΠΉ").
student («99−233″,"Π‘ΡΠ΅ΠΏΠ°Π½ΠΎΠ² Π.Π.»,"ΠΠ’Π").
student («99−234″,"ΠΠ²Π°Π½ΠΎΠ² Π.Π.»,"ΠΠΠ").
student («99−235″,"ΠΠ΅ΠΌΠΈΠ΄ΠΎΠ² Π‘.Π.»,"ΠΠ’Π").
Π·Π°Π΄Π°Π΅Ρ ΡΠ°Π±Π»ΠΈΡΡ Π²ΠΈΠ΄Π°
Π¨ΠΈΡΡ ΡΡΡΠ΄Π΅Π½ΡΠ° (Π½ΠΎΠΌΠ΅Ρ Π·Π°ΡΠ΅ΡΠ½ΠΎΠΉ ΠΊΠ½ΠΈΠΆΠΊΠΈ) | Π€Π°ΠΌΠΈΠ»ΠΈΡ ΡΡΡΠ΄Π΅Π½ΡΠ° | Π€Π°ΠΊΡΠ»ΡΡΠ΅Ρ | |
… | … | … | |
Π Π°Π±ΠΎΡΡ Ρ ΡΠ°ΠΊΠΈΠΌΠΈ ΠΠ Π»Π΅Π³ΠΊΠΎ ΠΎΡΠ³Π°Π½ΠΈΠ·ΠΎΠ²Π°ΡΡ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΌΠΈ ΡΡΠ΅Π΄ΡΡΠ²Π°ΠΌΠΈ Π’ΡΡΠ±ΠΎ-ΠΡΠΎΠ»ΠΎΠ³Π°. ΠΡΠΈ ΡΡΠ΅Π΄ΡΡΠ²Π° ΡΠ΄ΠΎΠ±Π½Ρ Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ ΠΈ Ρ ΡΠ΅Π»ΡΡΠΈΠΎΠ½Π½ΡΠΌΠΈ Π±Π°Π·Π°ΠΌΠΈ Π΄Π°Π½Π½ΡΡ , ΡΠ°ΠΊ ΠΊΠ°ΠΊ Π²Π½ΡΡΡΠ΅Π½Π½ΠΈΠ΅ ΡΠ½ΠΈΡΠΈΠΊΠ°ΡΠΈΠΎΠ½Π½ΡΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΡΠ·ΡΠΊΠ° ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΡΡ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΡΡ Π²ΡΠ±ΠΎΡΠΊΡ ΡΠ°ΠΊΡΠΎΠ² Ρ Π½ΡΠΆΠ½ΡΠΌΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΡΠΌΠΈ ΠΈΠ·Π²Π΅ΡΡΠ½ΡΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² ΠΈ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π΅ΡΠ΅ Π½Π΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠΌ.
ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Π·Π°Π΄Π°Π΄ΠΈΠΌ ΡΠΎΠ²ΠΎΠΊΡΠΏΠ½ΠΎΡΡΡ ΡΠ°ΠΊΡΠΎΠ², ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡΠΈΡ Π΅ΡΠ΅ ΠΎΠ΄Π½Ρ ΡΠ°Π±Π»ΠΈΡΡ Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠ΅ΠΉ ΠΎ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ°Ρ ΡΠ΄Π°ΡΠΈ ΡΠΊΠ·Π°ΠΌΠ΅Π½ΠΎΠ²:
exam («99−231″ ,"ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠ°», 4).
exam («99−232″ ,"ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠ°», 5).
exam («99−231″ ,"ΠΠ°ΡΠ΅ΠΌΠ°ΡΠΈΠΊΠ°», 5).
exam («99−233″ ,"ΠΠ°ΡΠ΅ΠΌΠ°ΡΠΈΠΊΠ°», 3).
exam («99−235″ ,» ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠ° «, 5).
Π’Π΅ΠΏΠ΅ΡΡ Π²ΡΠ²Π΅Π΄Π΅ΠΌ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎΠ±ΠΎ Π²ΡΠ΅Ρ ΡΡΡΠ΄Π΅Π½ΡΠ°Ρ ΡΠ°ΠΊΡΠ»ΡΡΠ΅ΡΠ° ΠΠ’Π, ΡΠ΄Π°Π²ΡΠΈΡ ΡΠΊΠ·Π°ΠΌΠ΅Π½ ΠΏΠΎ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠ΅ Ρ ΠΎΡΠ΅Π½ΠΊΠΎΠΉ 5. ΠΠ»Ρ ΡΠ΅Π³ΠΎ Π·Π°Π΄Π°Π΄ΠΈΠΌ ΡΠ΅Π»Ρ
goal
exam (Num, ,"ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠ°", 5), student (Num, Name, «ΠΠ’Π»), write (Name), nl, fail.
ΠΡΠΎΠ»ΠΎΠ³-ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΡΠΎΡΠΌΠ°ΡΡΠΈΠ²Π°Π΅Ρ Π²ΡΠ΅ ΡΠ°ΠΊΡΡ Ρ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠΎΠΌ exam Π΄ΠΎ ΡΠ΅Ρ ΠΏΠΎΡ, ΠΏΠΎΠΊΠ° Π½Π΅ Π½Π°Ρ ΠΎΠ΄ΠΈΡ ΡΠ°ΠΊΡ exam («99−235″ ,"ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠ°», 5), ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠΉ Π²ΡΠΎΡΠΎΠΌΡ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΡ ΠΏΡΠ°Π²ΠΈΠ»Π°. Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΡΠ΅Π³ΠΎ ΡΠ²ΠΎΠ±ΠΎΠ΄Π½Π°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Num ΠΏΠΎΠ»ΡΡΠ°Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ «99−235». Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΠΏΠ΅ΡΠ²ΡΠΉ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°Ρ ΡΠ΅Π»ΠΈ ΡΠΎΠ³Π»Π°ΡΠΎΠ²Π°Π½, ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄ΠΈΡ ΠΊ ΡΠΎΠ³Π»Π°ΡΠΎΠ²Π°Π½ΠΈΡ ΡΠ»Π΅Π΄ΡΡΡΠ΅Π³ΠΎ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ° student («99−235″, Name, „ΠΠ’Π“). Π’Π°ΠΊ ΠΊΠ°ΠΊ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΈΠΌΠ΅Π΅ΡΡΡ ΡΠ°ΠΊΡ student („99−235″,"ΠΠ΅ΠΌΠΈΠ΄ΠΎΠ² Π‘.Π.“,"ΠΠ’Π»), ΠΏΡΠ΅Π΄ΠΈΠΊΠ°Ρ ΠΎΠΊΠ°Π·ΡΠ²Π°Π΅ΡΡΡ ΠΈΡΡΠΈΠ½Π΅Π½, ΠΈ Π² ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Name ΠΏΠΎΠ»ΡΡΠ°Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ «ΠΠ΅ΠΌΠΈΠ΄ΠΎΠ² Π‘.Π.», ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΈ Π±ΡΠ΄Π΅Ρ Π²ΡΠ²Π΅Π΄Π΅Π½ΠΎ Π½Π° ΡΠΊΡΠ°Π½ Π² ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΠΏΡΠΎΠ²Π΅ΡΠΊΠΈ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ° write (Name). ΠΡΡΠ°Π²ΡΠΈΠ΅ΡΡ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΡ nl ΠΈ fail ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Ρ Π΄Π»Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ° ΠΈ ΠΏΠΎΠΈΡΠΊΠ° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΏΠΎ Π²ΡΠ΅ΠΌΡ ΡΠΏΠΈΡΠΊΡ ΡΡΡΠ΄Π΅Π½ΡΠΎΠ².
ΠΠ Π² ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΌ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ°ΡΡΡΡ ΠΊΠΎΠ΄Π° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΈ Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½Π° Π² ΠΏΡΠΎΡΠ΅ΡΡΠ΅ Π΅Π΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ, ΡΠΎ Π΅ΡΡΡ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΠ΅ ΡΡΠ°Π³ΠΌΠ΅Π½ΡΡ ΡΠ²Π»ΡΡΡΡΡ ΠΏΡΠΈΠΌΠ΅ΡΠΎΠΌ ΡΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠΉ ΠΠ.
ΠΠ΄Π½Π°ΠΊΠΎ ΠΡΠΎΠ»ΠΎΠ³ ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΡΠ΅Π΄ΡΡΠ²Π° ΠΏΠΎ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΈΡ ΠΠ, ΡΠΎ Π΅ΡΡΡ ΠΠ, Π² ΠΊΠΎΡΠΎΡΡΠ΅ ΠΌΠΎΠΆΠ½ΠΎ Π΄ΠΎΠ±Π°Π²Π»ΡΡΡ ΠΈ ΡΠ΄Π°Π»ΡΡΡ Π·Π°ΠΏΠΈΡΠΈ Π² ΠΏΡΠΎΡΠ΅ΡΡΠ΅ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. ΠΠ»Ρ ΡΠ°Π±ΠΎΡΡ Ρ ΡΠ°ΠΊΠΎΠΉ ΠΠ, Π΅Π΅ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΡ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΎΠΏΠΈΡΠ°ΡΡ Π² ΡΠ°Π·Π΄Π΅Π»Π΅ database. Π Π°Π·Π΄Π΅Π» ΠΈΠΌΠ΅Π΅Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΡΠΎΡΠΌΠ°Ρ:
database [- <οΏ½ΠΈΠΌΡ ΠΠ>]
dbpred1(…)
dbpred2(…)
…
ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ,
database — tabel
dstudent (symbol, symbol, symbol.)
dexam (symbol, symbol, integer)
ΠΠ΅ΡΠ΅ΡΠΈΡΠ»Π΅Π½Π½ΡΠ΅ Π·Π΄Π΅ΡΡ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΡ ΠΏΠΎΡΠ»Π΅ ΠΏΠΎΠ΄ΡΡΠ°Π½ΠΎΠ²ΠΊΠΈ Π² Π½ΠΈΡ Π²ΠΌΠ΅ΡΡΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΊΠΎΠ½ΡΡΠ°Π½Ρ (Ρ. Π΅. ΠΏΡΠ΅Π²ΡΠ°ΡΠ΅Π½ΠΈΡ ΠΈΡ Π² ΡΠ°ΠΊΡΡ) ΠΌΠΎΠ³ΡΡ Π±ΡΡΡ ΠΏΠΎΠΌΠ΅ΡΠ΅Π½Ρ ΠΈ, Π΅ΡΠ»ΠΈ ΠΏΠΎΡΡΠ΅Π±ΡΠ΅ΡΡΡ, ΡΠ΄Π°Π»Π΅Π½Ρ Π²ΠΎ Π²ΡΠ΅ΠΌΡ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π² Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΡΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ . ΠΠ΅Π»Π°Π΅ΡΡΡ ΡΡΠΎ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΡ (Π²ΡΡΡΠΎΠ΅Π½Π½ΡΡ Π² ΡΠΈΡΡΠ΅ΠΌΡ) ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠΎΠ²: asserta, assertz, retract, save, consult, readterm, findall. Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠ°Π·Π΄Π΅Π»ΠΎΠ² database, ΠΏΡΠΈ ΡΡΠΎΠΌ ΠΊΠ°ΠΆΠ΄ΠΎΠΌΡ ΠΈΠ· Π½ΠΈΡ Π½ΡΠΆΠ½ΠΎ Π½Π°Π·Π½Π°ΡΠΈΡΡ ΡΠ½ΠΈΠΊΠ°Π»ΡΠ½ΠΎΠ΅ ΠΈΠΌΡ. ΠΡΠ»ΠΈ ΠΈΠΌΡ ΡΠ°Π·Π΄Π΅Π»Ρ database Π½Π΅ Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΎ (ΡΠ°ΠΊΠΎΠΉ ΡΠ°Π·Π΄Π΅Π» Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΠΎΠ΄ΠΈΠ½), ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ Π½Π°Π·Π½Π°ΡΠ°Π΅Ρ ΠΈΠΌΡ dbasedom.
Π‘ΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠ΅ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΡ Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ Ρ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΈΠΌΠΈ ΠΠ
1. ΠΡΠ΅Π΄ΠΈΠΊΠ°Ρ asserta Π·Π°Π½ΠΎΡΠΈΡ Π½ΠΎΠ²ΡΠΉ ΡΠ°ΠΊΡ Π² Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ , ΡΠ°ΡΠΏΠΎΠ»Π°Π³Π°ΡΡΡΡΡΡ Π² ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠ²Π½ΠΎΠΉ ΠΏΠ°ΠΌΡΡΠΈ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ° (ΡΠ΅Π·ΠΈΠ΄Π΅Π½ΡΠ½Π°Ρ ΠΠ). ΠΠΎΠ²ΡΠΉ ΡΠ°ΠΊΡ ΠΏΠΎΠΌΠ΅ΡΠ°Π΅ΡΡΡ ΠΏΠ΅ΡΠ΅Π΄ Π²ΡΠ΅ΠΌΠΈ ΡΠΆΠ΅ Π²Π½Π΅ΡΠ΅Π½Π½ΡΠΌΠΈ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΡΠΌΠΈ Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ°. ΠΡΠΎΡ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°Ρ ΠΈΠΌΠ΅Π΅Ρ ΡΠ°ΠΊΠΎΠΉ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡ:
asserta (<οΏ½ΡΠ°ΠΊΡ>)
Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΡΡΠΎΠ±Ρ ΠΏΠΎΠΌΠ΅ΡΡΠΈΡΡ Π² ΠΠ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΠ΅
dstudent («99−233″,"Π‘ΡΠ΅ΠΏΠ°Π½ΠΎΠ² Π.Π.»,"ΠΠ’Π")
ΠΏΠ΅ΡΠ΅Π΄ ΡΠΆΠ΅ ΠΈΠΌΠ΅ΡΡΠΈΠΌΡΡ ΡΠ°ΠΌ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΠ΅ΠΌ
dstudent («99−234″,"ΠΠ²Π°Π½ΠΎΠ² Π.Π.»,"ΠΠΠ"),
ΡΡΠΎΡΡΠΈΠΌ Π² Π½Π°ΡΡΠΎΡΡΠΈΠΉ ΠΌΠΎΠΌΠ΅Π½Ρ Π² Π±Π°Π·Π΅ Π΄Π°Π½Π½ΡΡ Π½Π° ΠΏΠ΅ΡΠ²ΠΎΠΌ ΠΌΠ΅ΡΡΠ΅, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠ»Π΅Π΄ΡΡΡΠ΅Π΅ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ½ΠΎΠ΅ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅
asserta (dstudent («99−233″,"Π‘ΡΠ΅ΠΏΠ°Π½ΠΎΠ² Π.Π.»,"ΠΠ’Π")).
2. ΠΡΠ΅Π΄ΠΈΠΊΠ°Ρ assertz ΡΠ°ΠΊ ΠΆΠ΅, ΠΊΠ°ΠΊ ΠΈ asserta, Π·Π°Π½ΠΎΡΠΈΡ Π½ΠΎΠ²ΡΠ΅ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΡ Π² Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ . ΠΠ΄Π½Π°ΠΊΠΎ ΠΎΠ½ ΠΏΠΎΠΌΠ΅ΡΠ°Π΅Ρ Π½ΠΎΠ²ΠΎΠ΅ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΠ΅ Π·Π° Π²ΡΠ΅ΠΌΠΈ ΡΠΆΠ΅ ΠΈΠΌΠ΅ΡΡΠΈΠΌΠΈΡΡ Π² Π±Π°Π·Π΅ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΡΠΌΠΈ ΡΠΎΠ³ΠΎ ΠΆΠ΅ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ°. Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ° ΡΠΎΡ ΠΆΠ΅. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ,
assertz (dstudent («99−235″,"ΠΠ΅ΠΌΠΈΠ΄ΠΎΠ² Π‘.Π.»,"ΠΠ’Π")).
ΠΠ°ΠΌΠ΅ΡΠ°Π½ΠΈΠ΅: ΠΈΠ½ΠΎΠ³Π΄Π° Π±ΡΠ²Π°Π΅Ρ ΠΏΡΠ΅Π΄ΠΏΠΎΡΡΠΈΡΠ΅Π»ΡΠ½ΠΎ ΠΈΠΌΠ΅ΡΡ ΡΠ°ΡΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ Π² Π²ΠΈΠ΄Π΅ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΠΉ ΡΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠΉ ΠΠ; ΡΡΠΈ Π΄Π°Π½Π½ΡΠ΅ Π·Π°Π½ΠΎΡΡΡΡΡ Π² Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΡΡ ΠΠ ΡΡΠ°Π·Ρ ΠΏΠΎΡΠ»Π΅ Π°ΠΊΡΠΈΠ²ΠΈΠ·Π°ΡΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. ΠΠ»Ρ ΡΡΠΎΠΉ ΡΠ΅Π»ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΡ asserta ΠΈ assertz. Π ΠΎΠ±ΡΠ΅ΠΌ, ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΡ ΡΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠΉ ΠΠ ΠΈΠΌΠ΅ΡΡ Π΄ΡΡΠ³ΠΎΠ΅ ΠΈΠΌΡ, Π½ΠΎ ΡΡ ΠΆΠ΅ ΡΠ°ΠΌΡΡ ΡΠΎΡΠΌΡ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ , ΡΡΠΎ ΠΈ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΡ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΎΠΉ. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ,
predicates
student (symbol, symbol, symbol)
database
dstudent (code, name, dep)
clauses
student («99−231″,"ΠΠ²Π°Π½ΠΎΠ² Π‘.Π‘.»,"ΠΠ’Π").
student («99−232″,"ΠΠ΅ΡΡΠΎΠ² Π.Π.»,"Π’Π΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΈΠΉ").
student («99−233″,"Π‘ΡΠ΅ΠΏΠ°Π½ΠΎΠ² Π.Π.»,"ΠΠ’Π").
student («99−234″,"ΠΠ²Π°Π½ΠΎΠ² Π.Π.»,"ΠΠΠ").
student («99−235″,"ΠΠ΅ΠΌΠΈΠ΄ΠΎΠ² Π‘.Π.»,"ΠΠ’Π").
ΠΡΠ΅ ΠΎΡΠ»ΠΈΡΠΈΠ΅ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ° dstudent ΠΏΠΎ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ Ρ student Π·Π°ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π»ΠΈΡΡ Π² ΠΎΠ΄Π½ΠΎΠΉ Π»ΠΈΡΠ½Π΅ΠΉ Π±ΡΠΊΠ²Π΅ ΡΠ΅ΡΠΌΠ°. ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ Π»Π°ΡΠΈΠ½ΡΠΊΠΎΠΉ Π±ΡΠΊΠ²Ρ d — ΠΎΠ±ΡΡΠ½ΡΠΉ ΡΠΏΠΎΡΠΎΠ± ΡΠ°Π·Π»ΠΈΡΠ°ΡΡ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΡ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΎΠΉ ΠΈ ΡΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠΉ Π±Π°Π· Π΄Π°Π½Π½ΡΡ .
Π ΠΏΡΠ°Π²ΠΈΠ»ΠΎΠΌ Π΄Π»Ρ Π·Π°Π½Π΅ΡΠ΅Π½ΠΈΡ Π² Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΡΡ ΠΠ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΈΠ· ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΠΉ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ° student ΡΠ»ΡΠΆΠΈΡ
assert_database : — student (Code, Name, Dep),
assertz (dstudent (Code, Name, Dep)), fail.
assert_database : — !.
3. ΠΡΠ΅Π΄ΠΈΠΊΠ°Ρ retract ΡΠ΄Π°Π»ΡΠ΅Ρ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΠ΅ ΠΈΠ· Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΎΠΉ ΠΠ (Π΅ΡΠ΅ ΡΠ°Π· Π½Π°ΠΏΠΎΠΌΠ½ΠΈΠΌ, ΡΡΠΎ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠ°Ρ ΠΠ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΡΠ°ΠΊΡΡ, Π½ΠΎ Π½Π΅ ΠΏΡΠ°Π²ΠΈΠ»Π°) ΠΠ³ΠΎ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡ ΡΠ°ΠΊΠΎΠ²:
retract (<οΏ½ΡΠ°ΠΊΡ>).
ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ ΠΏΡΠ°Π²ΠΈΠ»ΠΎ
del: — retract (exam (99−231,inf, 5)).
ΡΠ΄Π°Π»ΡΠ΅Ρ ΠΈΠ· ΠΠ ΡΠ°ΠΊΡ exam (99−231,inf, 5), Π° ΠΏΡΠ°Π²ΠΈΠ»ΠΎ
del_all:-retract (_,_,_), fail.
ΡΠ΄Π°Π»ΡΠ΅Ρ ΠΈΠ· Π½Π΅Π΅ Π²ΡΠ΅ ΡΠ°ΠΊΡΡ.
4. ΠΡΠ΅Π΄ΠΈΠΊΠ°Ρ findall ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠΎΠ±ΡΠ°ΡΡ Π²ΡΠ΅ ΠΈΠΌΠ΅ΡΡΠΈΠ΅ΡΡ Π² Π±Π°Π·Π΅ Π΄Π°Π½Π½ΡΠ΅ Π² ΡΠΏΠΈΡΠΎΠΊ, ΠΊΠΎΡΠΎΡΡΠΉ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΏΠΎΠ»Π΅Π·Π΅Π½ ΠΏΡΠΈ Π΄Π°Π»ΡΠ½Π΅ΠΉΡΠ΅ΠΉ ΡΠ°Π±ΠΎΡΠ΅. Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡ:
findall (<οΏ½ΡΠ»Π΅ΠΌΠ΅Π½Ρ_ΡΠΏΠΈΡΠΊΠ°>,<οΏ½ΡΠ°ΠΊΡ>,<οΏ½ΡΠΏΠΈΡΠΎΠΊ>)
Π’Π°ΠΊ, findall ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΄Π»Ρ ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΡ ΡΠΏΠΈΡΠΊΠ° ΠΈΠΌΠ΅Π½ Π²ΡΠ΅Ρ ΡΡΡΠ΄Π΅Π½ΡΠΎΠ², ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠΈΡ ΡΡ Π² ΠΠ. ΠΠΎΡΠ»Π΅ ΡΠΎΠ³ΠΎ, ΠΊΠ°ΠΊ ΡΡΠΏΠ΅ΡΠ½ΡΠΌ Π±ΡΠ΄Π΅Ρ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°Ρ
findall (Name, dstudent (_, Name,_), Student_list)
ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Student_list Π±ΡΠ΄Π΅Ρ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ ΡΠΏΠΈΡΠΎΠΊ ΠΈΠΌΠ΅Π½ Π²ΡΠ΅Ρ ΡΡΡΠ΄Π΅Π½ΡΠΎΠ², ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠΈΡ ΡΡ Π² ΡΠ°ΠΊΡΠ°Ρ Ρ ΡΠ΅ΡΠΌΠΎΠΌ dstudent.
ΠΡΠ΅Π΄ΠΈΠΊΠ°ΡΡ Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ Ρ ΠΠ Π² ΡΠ΅Π»ΠΎΠΌ
ΠΠ»Ρ Π·Π°ΠΏΠΈΡΠΈ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΎΠΉ ΠΠ Π² ΡΠ°ΠΉΠ» Π½Π° Π΄ΠΈΡΠΊ ΠΈ Π΄Π»Ρ Π·Π°Π³ΡΡΠ·ΠΊΠΈ ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° Π² Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΡΡ ΠΠ ΠΏΡΠΈΠΌΠ΅Π½ΡΡΡΡΡ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠ΅ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΡ save ΠΈ consult.
ΠΡΠ΅Π΄ΠΈΠΊΠ°Ρ save ΡΠΎΡ ΡΠ°Π½ΡΠ΅Ρ Π½Π°Ρ ΠΎΠ΄ΡΡΡΡΡΡ Π² ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠ²Π½ΠΎΠΉ ΠΏΠ°ΠΌΡΡΠΈ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ Π² ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠΌ ΡΠ°ΠΉΠ»Π΅. Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡ ΡΡΠΎΠ³ΠΎ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ°
save (ΠΈΠΌΡ_ΡΠ°ΠΉΠ»Π°[, ΠΈΠΌΡ_ΠΠ]),
Π³Π΄Π΅ ΠΈΠΌΡ_ΡΠ°ΠΉΠ»Π° Π΅ΡΡΡ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ»ΡΠ½ΠΎΠ΅ Π΄ΠΎΠΏΡΡΡΠΈΠΌΠΎΠ΅ Π² MS DOS ΠΈΠ»ΠΈ PC DOS ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π°.
ΠΡΠΈΠΌΠ΅Ρ: Π΄Π»Ρ ΡΠΎΠ³ΠΎ, ΡΡΠΎΠ±Ρ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ΅ ΠΠ tabel Π² ΡΠ°ΠΉΠ»Π΅ Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ exam03.dba, ΡΡΠ΅Π±ΡΠ΅ΡΡΡ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°Ρ
save («exam03.dba», tabel).
Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ Π²ΡΠ΅ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΡ Π½Π°Ρ ΠΎΠ΄ΡΡΠ΅ΠΉΡΡ Π² ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠ²Π½ΠΎΠΉ ΠΏΠ°ΠΌΡΡΠΈ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΎΠΉ ΠΠ tabel Π±ΡΠ΄ΡΡ Π·Π°ΠΏΠΈΡΠ°Π½Ρ Π² ΡΠ°ΠΉΠ» exam03.dba. CΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ΅ ΠΠ ΡΠΎ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΌ ΠΈΠΌΠ΅Π½Π΅ΠΌ dbasedom ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ Π² ΡΠ°ΠΉΠ»Π΅ c: dir1f1. db ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ°
save («c:\dir1\f1.db»).
ΠΠ°ΠΌΠ΅ΡΠΈΠΌ, ΡΡΠΎ Π΅ΡΠ»ΠΈ ΡΠ°ΠΉΠ» Ρ ΡΠ°ΠΊΠΈΠΌ ΠΈΠΌΠ΅Π½Π΅ΠΌ ΡΠΆΠ΅ ΡΡΡΠ΅ΡΡΠ²ΠΎΠ²Π°Π» Π½Π° Π΄ΠΈΡΠΊΠ΅, ΡΠΎ ΡΡΠΎΡ ΡΡΠ°ΡΡΠΉ ΡΠ°ΠΉΠ» Π±ΡΠ΄Π΅Ρ Π·Π°ΡΠ΅ΡΡ. ΠΠΎΡΡΠΎΠΌΡ ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°Ρ save Ρ ΠΈΠ·Π²Π΅ΡΡΠ½ΠΎΠΉ Π΄ΠΎΠ»Π΅ΠΉ ΠΎΡΡΠΎΡΠΎΠΆΠ½ΠΎΡΡΠΈ.
ΠΡΠΎΠΈΠ·Π²ΠΎΠ»ΡΠ½ΡΠΉ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ°ΠΉΠ», ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠΈΠΉ ΡΠ°ΠΊΡΡ, ΡΠΎΠ²ΠΏΠ°Π΄Π°ΡΡΠΈΠ΅ ΠΏΠΎ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΡ Ρ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ°ΠΌΠΈ ΠΎΠΏΠΈΡΠ°Π½Π½ΠΎΠΉ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΠ, ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΡΡΠΈΡΠ°Π½ Π² ΠΏΠ°ΠΌΡΡΡ (Π·Π°Π³ΡΡΠΆΠ΅Π½) ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ° consult, ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡ ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ ΡΠ°ΠΊΠΎΠ²:
consult (<οΏ½ΠΈΠΌΡ_ΡΠ°ΠΉΠ»Π°>[,<οΏ½ΠΈΠΌΡ_ΠΠ>]).
ΠΠ»Ρ Π·Π°Π³ΡΡΠ·ΠΊΠΈ ΡΠ°ΠΉΠ»Π° exam02.dba Π² ΠΠ tabel ΡΡΠ΅Π±ΡΠ΅ΡΡΡ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅
consult («exam02.dba «, tabel).
Π Π΄Π»Ρ ΡΠΎΠ³ΠΎ, ΡΡΠΎΠ±Ρ Π·Π°Π³ΡΡΠ·ΠΈΡΡ ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ΅ ΡΠ°ΠΉΠ»Π° d: dir2f2. dbf Π² ΠΠ ΡΠΎ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΌ ΠΈΠΌΠ΅Π½Π΅ΠΌ dbasedom Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°Ρ
consult («d:\dir2\f2.dbf»).
ΠΡΠ΅Π΄ΠΈΠΊΠ°Ρ consult Π½Π΅ΡΡΠΏΠ΅ΡΠ΅Π½, Π΅ΡΠ»ΠΈ ΡΠ°ΠΉΠ» Ρ ΡΠΊΠ°Π·Π°Π½Π½ΡΠΌ ΠΈΠΌΠ΅Π½Π΅ΠΌ ΠΎΡΡΡΡΡΡΠ²ΡΠ΅Ρ Π½Π° Π΄ΠΈΡΠΊΠ΅, ΠΈΠ»ΠΈ Π΅ΡΠ»ΠΈ ΡΡΠΎΡ ΡΠ°ΠΉΠ» ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΎΡΠΈΠ±ΠΊΠΈ, ΠΊΠ°ΠΊ, Π½Π°ΠΏΡΠΈΠΌΠ΅Ρ, Π² ΡΠ»ΡΡΠ°Π΅ Π½Π΅ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΈΡ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠ° ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ° ΠΈΠ· ΡΠ°ΠΉΠ»Π° ΠΎΠΏΠΈΡΠ°Π½ΠΈΡΠΌ ΠΈΠ· ΡΠ°Π·Π΄Π΅Π»Π° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ database, ΠΈΠ»ΠΈ Π΅ΡΠ»ΠΈ ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ΅ ΡΠ°ΠΉΠ»Π° Π½Π΅Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ ΡΠ°Π·ΠΌΠ΅ΡΡΠΈΡΡ Π² ΠΏΠ°ΠΌΡΡΠΈ Π²Π²ΠΈΠ΄Ρ ΠΎΡΡΡΡΡΡΠ²ΠΈΡ ΠΌΠ΅ΡΡΠ°.
ΠΡΠΈΠΌΠ΅Ρ ΡΠ°Π±ΠΎΡΡ Ρ Π±Π°Π·ΠΎΠΉ Π΄Π°Π½Π½ΡΡ , ΡΠ°ΡΠΏΠΎΠ»Π°Π³Π°ΡΡΠ΅ΠΉΡΡ Π² ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠ²Π½ΠΎΠΉ ΠΏΠ°ΠΌΡΡΠΈ
ΠΡΠ±Π°Ρ ΡΠΈΡΡΠ΅ΠΌΠ° ΡΠΈΡΡΠ΅ΠΌΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Π±Π°Π·ΠΎΠΉ Π΄Π°Π½Π½ΡΡ (Π‘Π£ΠΠ), ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½Π°Ρ Π½Π° Π΄ΠΈΠ°Π»ΠΎΠ³ Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ Π΄ΠΎΠ»ΠΆΠ½Π° ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ ΠΊΠ°ΠΊ ΠΌΠΈΠ½ΠΈΠΌΡΠΌ ΡΠ°ΠΊΠΈΠ΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ, ΠΊΠ°ΠΊ Π·Π°Π½Π΅ΡΠ΅Π½ΠΈΠ΅ Π² Π±Π°Π·Ρ Π½ΠΎΠ²ΡΡ Π΄Π°Π½Π½ΡΡ ; ΡΠ΄Π°Π»Π΅Π½ΠΈΠ΅ Π΄Π°Π½Π½ΡΡ ΠΈΠ· Π±Π°Π·Ρ; Π²ΡΠ±ΠΎΡΠΊΠ° ΠΈ Π²ΡΠ²ΠΎΠ΄ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠΈΡ ΡΡ Π² Π±Π°Π·Π΅ Π΄Π°Π½Π½ΡΡ .
Π₯ΠΎΡΠ΅Π»ΠΎΡΡ Π±Ρ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ Π»ΠΎΠ³ΠΈΡΠ½ΡΠΌ ΡΠ΄ΠΎΠ±Π½ΡΠΌ Π΄Π»Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΡΠΏΠΎΡΠΎΠ±ΠΎΠΌ. Π’Π°ΠΊΠΈΠ΅ ΡΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠ΅Π΄ΠΏΠΎΠ»Π°Π³Π°ΡΡ Π½Π°Π»ΠΈΡΠΈΠ΅ Π² ΡΠΈΡΡΠ΅ΠΌΠ΅ ΠΌΠ΅Π½Ρ.
ΠΡΠΈΠ²Π΅Π΄Π΅ΠΌ ΠΏΡΠΈΠΌΠ΅Ρ ΠΏΡΠΎΡΡΠ΅ΠΉΡΠ΅ΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡΠ΅ΠΉ Π²ΡΠΏΠΎΠ»Π½ΡΡΡ ΠΎΡΠ½ΠΎΠ²Π½ΡΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ Π½Π°Π΄ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΎΠΉ ΠΠ.
database
dstudent (symbol, symbol, symbol) /*Π’Π°Π±Π»ΠΈΡΠ° Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠ΅ΠΉ ΠΎ ΡΡΡΠ΄Π΅Π½ΡΠ°Ρ */
dexam (symbol, symbol, integer) /* Π’Π°Π±Π»ΠΈΡΠ° Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠ΅ΠΉ ΠΎ ΡΠ΄Π°ΡΠ΅ ΡΠΊΠ·Π°ΠΌΠ΅Π½ΠΎΠ²*/
predicates
menu
reaction (char)
deldb
typerec (char)
addquation3(char)
retquation4(char)
findquation4(char)
find (integer)
findname (symbol)
findnameyes (symbol)
findexam (symbol, symbol, integer)
find4(symbol, integer)
dely
goal
makewindow (1, 10, 3, «ΠΠ `ΡΠ΅ΡΡΠΈΡ' «, 3, 10, 19, 60, 1, -1,
" 218 191 192 217 196 192″), menu.
clauses
/*ΠΡΠ²ΠΎΠ΄ ΠΌΠ΅Π½Ρ Π½Π° ΡΠΊΡΠ°Π½*/
menu: — clearwindow,
write («1 — ΡΠΎΠ·Π΄Π°ΡΡ»), nl,
write («2 — Π·Π°Π³ΡΡΠ·ΠΈΡΡ»), nl,
write («3 — Π΄ΠΎΠ±Π°Π²ΠΈΡΡ Π·Π°ΠΏΠΈΡΡ»), nl,
write («4 — Π½Π°ΠΉΡΠΈ Π·Π°ΠΏΠΈΡΡ»), nl,
write («5 — ΡΠ΄Π°Π»ΠΈΡΡ Π·Π°ΠΏΠΈΡΡ»), nl,
write («6 — ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ»), nl,
write («7 — Π²ΡΡ ΠΎΠ΄»), nl, readchar (N), reaction (N).
/*Π Π΅Π°ΠΊΡΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π° Π²ΡΠ±ΠΎΡ ΠΏΡΠ½ΠΊΡΠ° ΠΌΠ΅Π½Ρ*/
reaction ('1'):-deldb, menu.
reaction ('2'):-clearwindow, write («ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π°»), readln (Fname),
consult (Fname), menu.
reaction ('3'):-typerec (N), addquation3(N), dely, menu.
reaction ('4'):-clearwindow, typerec (N), findquation4(N), menu.
reaction ('5'):-clearwindow, typerec (N), retquation4(N), dely, menu.
reaction ('6'):-write («Enter filename»), readln (Fname), save (Fname), menu.
reaction ('7').
reaction (_):-write («ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΡΠΈΡΠ»ΠΎ 1−6»), dely, menu.
/*Π£Π΄Π°Π»Π΅Π½ΠΈΠ΅ Π²ΡΠ΅ΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΈΠ· Π±Π°Π·Ρ*/
deldb:-retract (dstudent (_,_,_)), fail.
deldb:-retract (dexam (_,_,_)), fail.
deldb.
/*ΠΡΠ±ΠΎΡ ΡΠΈΠΏΠ° Π·Π°ΠΏΠΈΡΠΈ (ΡΠ°Π±Π»ΠΈΡΡ ΠΠ)*/
typerec (N):-clearwindow, write («1 — ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ ΡΡΡΠ΄Π΅Π½ΡΠ°Ρ »), nl,
write («2 — ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΡ ΡΠ΄Π°ΡΠΈ ΡΠΊΠ·Π°ΠΌΠ΅Π½ΠΎΠ²»), nl, readchar (N).
/*ΠΠ²ΠΎΠ΄ ΠΈ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ Π½ΠΎΠ²ΠΎΠΉ Π·Π°ΠΏΠΈΡΠΈ*/
addquation3('1'):-clearwindow, write («ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΡΠΈΡΡ ΡΡΡΠ΄Π΅Π½ΡΠ°»), nl, readln (Code),
write («ΠΠ²Π΅Π΄ΠΈΡΠ΅ Π€ΠΠ ΡΡΡΠ΄Π΅Π½ΡΠ°»), nl, readln (Name),
write («ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΡΠ°ΠΊΡΠ»ΡΡΠ΅Ρ»), nl, readln (D),
assertz (dstudent (Code, Name, D)), write («ΠΠ°ΠΏΠΈΡΡ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½Π°»), nl.
addquation3('2'):-clearwindow, write («ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΡΠΈΡΡ ΡΡΡΠ΄Π΅Π½ΡΠ° «), nl, readln (Code),
write («Enter course»), nl, readln (Course),
write («Enter mark»), nl, readint (Mark),
assertz (dexam (Code, Course, Mark)), write («ΠΠ°ΠΏΠΈΡΡ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½Π° «).
addquation3(_): — write («ΠΡΠΈΠ±ΠΊΠ°!»).
/*Π£ΡΠΎΡΠ½Π΅Π½ΠΈΠ΅ Π·Π°Π΄Π°Π½ΠΈΡ Π½Π° ΠΏΠΎΠΈΡΠΊ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ*/
findquation4('1'):-clearwindow, write («1 — ΠΈΡΠΊΠ°ΡΡ Π·Π°ΠΏΠΈΡΡ ΠΏΠΎ ΡΠΈΡΡΡ»), nl,
write («2 — ΠΈΡΠΊΠ°ΡΡ Π·Π°ΠΏΠΈΡΡ ΠΏΠΎ ΠΈΠΌΠ΅Π½ΠΈ»), nl, readint (N), find (N), dely.
findquation4('2'):-clearwindow, write («1 — ΠΈΡΠΊΠ°ΡΡ Π·Π°ΠΏΠΈΡΡ ΠΏΠΎ ΡΠΈΡΡΡ «), nl,
write («2 — ΠΈΡΠΊΠ°ΡΡ Π·Π°ΠΏΠΈΡΡ ΠΏΠΎ Π½Π°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΡ Π΄ΠΈΡΡΠΈΠΏΠ»ΠΈΠ½Ρ «), nl,
readint (N), N2=N+2, find (N2), dely.
/*Π£ΡΠΎΡΠ½Π΅Π½ΠΈΠ΅ Π·Π°Π΄Π°Π½ΠΈΡ Π½Π° ΠΏΠΎΠΈΡΠΊ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ */
find (1):-clearwindow, write («ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΡΠΈΡΡ «), readln (Code),
dstudent (Code, Name, D), write («Π‘ΡΡΠ΄Π΅Π½Ρ «), write (Name), nl,
write («ΠΎΠ±ΡΡΠ°Π΅ΡΡΡ Π½Π° ΡΠ°ΠΊΡΠ»ΡΡΠ΅ΡΠ΅ «), write (D).
find (1):-write («Π’Π°ΠΊΠΎΠΉ Π·Π°ΠΏΠΈΡΠΈ Π² Π±Π°Π·Π΅ Π½Π΅Ρ»).
find (2):-clearwindow, write («ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΠΈΠΌΡ ΡΡΡΠ΄Π΅Π½ΡΠ° «), readln (Name),
findname (Name), findnameyes (Name).
find (2):-write («Π’Π°ΠΊΠΎΠΉ Π·Π°ΠΏΠΈΡΠΈ Π² Π±Π°Π·Π΅ Π½Π΅Ρ «).
find (3):-clearwindow, write («ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΡΠΈΡΡ ΡΡΡΠ΄Π΅Π½ΡΠ° «), readln (Code),
dstudent (Code, Name, D), write («Π‘ΡΡΠ΄Π΅Π½Ρ «), write (Name), nl,
write («ΡΠ°ΠΊΡΠ»ΡΡΠ΅ΡΠ°»), write (D), nl, findexam (Code,_,_).
find (3):-write («Π’Π°ΠΊΠΎΠΉ Π·Π°ΠΏΠΈΡΠΈ Π² Π±Π°Π·Π΅ Π½Π΅Ρ «).
find (4):-clearwindow, write («ΠΠ²Π΅Π΄ΠΈΡΠ΅ Π½Π°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ Π΄ΠΈΡΡΠΈΠΏΠ»ΠΈΠ½Ρ»),
readln (Course),
write («ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΠΎΡΠ΅Π½ΠΊΡ. ΠΠ»Ρ ΠΏΠΎΠΈΡΠΊΠ° ΠΏΠΎ Π²ΡΠ΅ΠΌ ΠΎΡΠ΅Π½ΠΊΠ°ΠΌ Π²Π²Π΅Π΄ΠΈΡΠ΅ 0 «),
readint (Mark), find4(Course, Mark).
/*ΠΠΎΠΈΡΠΊ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΎ ΡΠ΄Π°ΡΠ΅ ΡΠΊΠ·Π°ΠΌΠ΅Π½ΠΎΠ² */
find4(Course, 0):-findexam (_, Course,_).
find4(Course, Mark):-findexam (_, Course, Mark).
/*ΠΠΎΠΈΡΠΊ Π·Π°ΠΏΠΈΡΠ΅ΠΉ ΠΏΠΎ ΠΈΠΌΠ΅Π½ΠΈ ΡΡΡΠ΄Π΅Π½ΡΠ°*/
findname (Name):-dstudent (Code, Name, D), write («Π¨ΠΈΡΡ ΡΡΡΠ΄Π΅Π½ΡΠ° «),
write (Code), nl,
write («Π€Π°ΠΊΡΠ»ΡΡΠ΅Ρ «), write (D), dely, fail.
findname (_).
/*Π Π΅Π·ΡΠ»ΡΡΠ°Ρ ΠΏΠΎΠΈΡΠΊΠ° Π·Π°ΠΏΠΈΡΠ΅ΠΉ ΠΏΠΎ ΠΈΠΌΠ΅Π½ΠΈ*/
findnameyes (Name):-dstudent (_, Name,_).
/*ΠΠΎΠΈΡΠΊ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΎ ΡΠ΄Π°ΡΠ΅ ΡΠΊΠ·Π°ΠΌΠ΅Π½ΠΎΠ²*/
findexam (Code, Course, Mark):-dexam (Code, Course, Mark),
write («Π¨ΠΈΡΡ»), write (Code), write (««),
write (Course), write (««), write (Mark), nl, fail.
findexam (_,_,_).
/*ΠΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΠ΅ ΠΈ ΡΠ΄Π°Π»Π΅Π½ΠΈΠ΅ ΡΡΡΠΎΠΊΠΈ ΠΈΠ· ΠΠ*/
retquation4('1'):-write («ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΡΠΈΡΡ ΡΡΡΠ΄Π΅Π½ΡΠ°»), nl, readln (Code),
write («ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΠΈΠΌΡ»), nl, readln (Name),
write («ΠΠ²Π΅Π΄ΠΈΡΠ΅ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ ΡΠ°ΠΊΡΠ»ΡΡΠ΅ΡΠ°»), nl, readln (D),
retract (dstudent (Code, Name, D)), write («ΠΠ°ΠΏΠΈΡΡ ΡΠ΄Π°Π»Π΅Π½Π°»), nl.
retquation4('2'):-write («ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΡΠΈΡΡ ΡΡΡΠ΄Π΅Π½ΡΠ° «), nl, readln (Code),
write («ΠΠ²Π΅Π΄ΠΈΡΠ΅ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ Π΄ΠΈΡΡΠΈΠΏΠ»ΠΈΠ½Ρ»), nl, readln (Course),
retract (dexam (Code, Course,_)),
write («ΠΠ°ΠΏΠΈΡΡ ΡΠ΄Π°Π»Π΅Π½Π°»), nl.
retquation4(_):-write («Π’Π°ΠΊΠΎΠΉ Π·Π°ΠΏΠΈΡΠΈ Π² Π±Π°Π·Π΅ Π½Π΅Ρ»), nl.
/*ΠΡΠΈΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ° ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π΄ΠΎ Π½Π°ΠΆΠ°ΡΠΈΡ Π»ΡΠ±ΠΎΠΉ ΠΊΠ»Π°Π²ΠΈΡΠΈ*/
dely:-nl, nl, nl, write («ΠΠ°ΠΆΠΌΠΈΡΠ΅ Π»ΡΠ±ΡΡ ΠΊΠ»Π°Π²ΠΈΡΡ»), nl, readchar (_).
/* ΠΠΎΠ½Π΅Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ */
Π ΠΠΠΠ’Π Π‘ ΠΠ ΠΠ ΠΠΠ‘ΠΠ
ΠΠ±ΡΠΈΠ΅ ΠΏΡΠ°Π²ΠΈΠ»Π° ΡΠ°Π±ΠΎΡΡ Ρ ΡΠ°ΠΉΠ»Π°ΠΌΠΈ Π½Π° Π²Π½Π΅ΡΠ½ΠΈΡ Π½ΠΎΡΠΈΡΠ΅Π»ΡΡ
Π ΡΠΈΡΡΠ΅ΠΌΠ΅ Π’ΡΡΠ±ΠΎ-ΠΡΠΎΠ»ΠΎΠ³ ΠΈΠΌΠ΅ΡΡΡΡ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΡ Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ Ρ ΡΠ°ΠΉΠ»Π°ΠΌΠΈ Π² ΡΠ΅Π»ΠΎΠΌ:
deletefile (<οΏ½ΠΈΠΌΡ_ΡΠ°ΠΉΠ»Π°>) — ΡΠ½ΠΈΡΡΠΎΠΆΠ°Π΅Ρ ΡΠ°ΠΉΠ» <οΏ½ΠΈΠΌΡ_ΡΠ°ΠΉΠ»Π°>;
save (<οΏ½ΠΈΠΌΡ_ΡΠ°ΠΉΠ»Π°>) — ΡΠΎΡ ΡΠ°Π½ΡΠ΅Ρ Π½Π° Π΄ΠΈΡΠΊΠ΅ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΡ Π΄ΠΈΠ½Π°ΠΌΠΈΡΠ΅ΡΠΊΠΎΠΉ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ ;
renamefile (<οΏ½ΡΡΠ°ΡΠΎΠ΅_ΠΈΠΌΡ_ΡΠ°ΠΉΠ»Π°>,<οΏ½Π½ΠΎΠ²ΠΎΠ΅_ΠΈΠΌΡ_ΡΠ°ΠΉΠ»Π°>) — ΠΏΠ΅ΡΠ΅ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»Π°;
existfile (<οΏ½ΠΈΠΌΡ_ΡΠ°ΠΉΠ»Π°>) — ΡΠ΅ΡΡ Π½Π° Π½Π°Π»ΠΈΡΠΈΠ΅ ΡΠ°ΠΉΠ»Π° Ρ Π΄Π°Π½Π½ΡΠΌ ΠΈΠΌΠ΅Π½Π΅ΠΌ. ΠΡΠ΅Π΄ΠΈΠΊΠ°Ρ ΡΡΠΏΠ΅ΡΠ΅Π½ Π² ΡΠ»ΡΡΠ°Π΅, Π΅ΡΠ»ΠΈ ΡΠ°ΠΉΠ» Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ, Π·Π°Π΄Π°Π½Π½ΡΠΌ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠΎΠΌ <οΏ½ΠΈΠΌΡ_ΡΠ°ΠΉΠ»Π°>, ΠΏΡΠΈΡΡΡΡΡΠ²ΡΠ΅Ρ Π² Π΄ΠΈΡΠ΅ΠΊΡΠΎΡΠΈΠΈ;
flush (<οΏ½ΡΠ°ΠΉΠ»ΠΎΠ²Π°Ρ_ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ>) — ΠΏΡΠ΅Π΄ΠΈΠΊΠ°Ρ ΡΠ±ΡΠ°ΡΡΠ²Π°Π΅Ρ ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ΅ Π²Π½ΡΡΡΠ΅Π½Π½Π΅Π³ΠΎ Π±ΡΡΠ΅ΡΠ°, ΠΎΡΠ²Π΅Π΄Π΅Π½Π½ΠΎΠ³ΠΎ Π΄Π»Ρ Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΡΡΡΡΠΎΠΉΡΡΠ²Π° Π·Π°ΠΏΠΈΡΠΈ.
disk (<οΏ½ΠΏΡΡΡ>) — Π²ΡΠ±ΠΎΡ Π΄ΠΈΡΠΊΠΎΠ²ΠΎΠ΄Π° ΠΈ ΠΏΡΡΠΈ Π΄ΠΎΡΡΡΠΏΠ°: Π΅ΡΠ»ΠΈ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡ <οΏ½ΠΏΡΡΡ> ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΊΠΎΠ½ΡΡΠ°Π½ΡΠΎΠΉ ΠΈΠ»ΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ, ΠΊΠΎΡΠΎΡΠΎΠΉ ΠΏΡΠΈΡΠ²ΠΎΠ΅Π½ ΠΊΠΎΡΡΠ΅ΠΊΡΠ½ΡΠΉ ΠΏΡΡΡ Π΄ΠΎΡΡΡΠΏΠ°, ΡΠΎ Π·Π°Π΄Π°Π½Π½ΡΠΉ Ρ Π΅Π³ΠΎ ΠΏΠΎΠΌΠΎΡΡΡ ΠΊΠ°ΡΠ°Π»ΠΎΠ³ ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡΡ ΡΠ΅ΠΊΡΡΠΈΠΌ. ΠΡΠ»ΠΈ ΠΆΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ <οΏ½ΠΏΡΡΡ> Π½Π΅ ΠΎΠ·Π½Π°ΡΠ΅Π½Π°, ΡΠΎ Π΄Π°Π½Π½ΡΠΉ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°Ρ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π΅Ρ Π΅ΠΉ ΠΏΡΡΡ Π΄ΠΎΡΡΡΠΏΠ° ΠΊ ΡΠ΅ΠΊΡΡΠ΅ΠΉ Π΄ΠΈΡΠ΅ΠΊΡΠΎΡΠΈΠΈ.
dir (<οΏ½ΠΏΡΡΡ>,<οΏ½ΡΠ°Π±Π»ΠΎΠ½>,<οΏ½ΠΈΠΌΡ_ΡΠ°ΠΉΠ»Π°>) — Π²ΡΠ΄Π°ΡΠ° ΡΠΏΠΈΡΠΊΠ° ΡΠ°ΠΉΠ»ΠΎΠ² ΠΊΠ°ΡΠ°Π»ΠΎΠ³Π°. ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ <οΏ½ΠΏΡΡΡ> Π΄ΠΎΠ»ΠΆΠ΅Π½ Π±ΡΡΡ ΠΏΡΠΈΡΠ²ΠΎΠ΅Π½ ΠΊΠΎΡΡΠ΅ΠΊΡΠ½ΡΠΉ ΠΏΡΡΡ Π΄ΠΎΡΡΡΠΏΠ°, ΡΠ΅ΠΊΡΡΠΎΠ²Π°Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ <οΏ½ΡΠ°Π±Π»ΠΎΠ½> Π·Π°Π΄Π°Π΅Ρ ΡΠ°Π±Π»ΠΎΠ½ Π³ΡΡΠΏΠΏΡ ΡΠ°ΠΉΠ»ΠΎΠ², ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡΠ΅ΠΉ ΠΈΠ½ΡΠ΅ΡΠ΅Ρ. ΠΠ°Π½Π½ΡΠΉ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°Ρ Π²ΡΠ΄Π°Π΅Ρ ΠΊΠ°ΡΠ°Π»ΠΎΠ³ ΠΈΠΌΠ΅Π½ ΡΠ°ΠΉΠ»ΠΎΠ² ΠΏΠΎΠ΄Ρ ΠΎΠ΄ΡΡΠΈΡ ΠΏΠΎΠ΄ Π·Π°Π΄Π°Π½Π½ΡΠΉ ΡΠ°Π±Π»ΠΎΠ½; Π²Ρ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π²ΡΠ±ΡΠ°ΡΡ ΡΡΠ΅Π΄ΠΈ Π½ΠΈΡ Π½ΡΠΆΠ½ΡΠΉ ΠΈ Π½Π°ΠΆΠ°ΡΡ Enter. ΠΠΌΡ ΡΠ°ΠΉΠ»Π° Π±ΡΠ΄Π΅Ρ ΠΏΡΠΈΡΠ²ΠΎΠ΅Π½ΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ <οΏ½ΠΈΠΌΡ_ΡΠ°ΠΉΠ»Π°>.
Π’Π°ΠΊ, Π² ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΌ Π²ΡΡΠ΅ ΠΏΡΠΈΠΌΠ΅ΡΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΠ°Π±ΠΎΡΡ Ρ ΠΠ Π² ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠ²Π½ΠΎΠΉ ΠΏΠ°ΠΌΡΡΠΈ ΠΏΡΠ°Π²ΠΈΠ»ΠΎ reaction (6) ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΠΠ Π² ΡΠ°ΠΉΠ»Π΅ Π½Π° Π΄ΠΈΡΠΊΠ΅ ΠΌΠΎΠΆΠ½ΠΎ Π·Π°ΠΌΠ΅Π½ΠΈΡΡ (Π΄ΠΎΠ±Π°Π²ΠΈΠ² ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠ΅ ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ) ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΉ Π³ΡΡΠΏΠΏΠΎΠΉ ΠΏΡΠ°Π²ΠΈΠ».
reaction ('6'):-savedb, nl, menu.
…
savedb: — write («ΠΠ²Π΅Π΄ΠΈΡΠ΅ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π°»), readln (Fname), rwrite (Fname).
rwrite («„): — disk (Dir), dir (Dir,“ *.dba», Fname1), save (Fname1).
rwrite (Fname): — existfile (Fname), write («Π€Π°ΠΉΠ» Ρ ΡΠ°ΠΊΠΈΠΌ ΠΈΠΌΠ΅Π½Π΅ΠΌ ΡΠΆΠ΅ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ. ΠΠ΅ΡΠ΅Π·Π°ΠΏΠΈΡΠ°ΡΡ (y/n)?»), nl, readchar (Yes), rwr (Yes, Fname).
rwrite (Fname): — not (existfile (Fname)), save (Fname).
rwr ('y', Fname):-save (Fname).
rwr ('n',_): — write («Enter new filename»), readln (Fname1),
rwrite (Fname1).
rwr ('Y', Fname):-rwr ('y', Fname).
rwr ('N', Fname):-rwr ('n', Fname).
ΠΠ΄Π΅ΡΡ ΠΏΡΠ°Π²ΠΈΠ»ΠΎ rwrite ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½ΠΎ Π΄Π»Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΠΈΠΌΠ΅Π½ΠΈ ΡΠ°ΠΉΠ»Π°, ΠΈ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ Π² Π½Π΅ΠΌ Π΄Π°Π½Π½ΡΡ ΠΈΠ· Π±Π°Π·Ρ. ΠΡΠΈ ΡΡΠΎΠΌ Π΅ΡΠ»ΠΈ Π²Π²Π΅Π΄Π΅Π½ΠΎ ΠΈΠΌΡ ΡΠΆΠ΅ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠ΅Π³ΠΎ ΡΠ°ΠΉΠ»Π°, Π±ΡΠ΄Π΅Ρ Π²ΡΠ΄Π°Π½ Π·Π°ΠΏΡΠΎΡ ΠΎ ΠΏΠ΅ΡΠ΅Π·Π°ΠΏΠΈΡΠΈ Ρ ΡΠ½ΠΈΡΡΠΎΠΆΠ΅Π½ΠΈΠ΅ΠΌ ΠΏΡΠ΅ΠΆΠ½Π΅ΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ (ΠΏΡΠ΅Π΄ΠΈΠΊΠ°Ρ rwr), Π° Π΅ΡΠ»ΠΈ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π° Π²Π²Π΅Π΄Π΅Π½ΠΎ Π½Π΅ Π±ΡΠ»ΠΎ, ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΡΠ΅Π΄ΠΎΡΡΠ°Π²ΠΈΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ Π²ΡΠ±ΠΎΡΠ° ΠΈΠΌΠ΅Π½ΠΈ ΠΈΠ· ΡΠΏΠΈΡΠΊΠ° (ΠΏΡΠ΅Π΄ΠΈΠΊΠ°Ρ dir).
ΠΡΠΎΠΌΠ΅ ΡΠΎΠ³ΠΎ, ΠΏΠ΅ΡΠ΅Π΄ ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ΠΌ Π½ΠΎΠ²ΠΎΠΉ ΠΠ Π±ΡΠ»ΠΎ Π±Ρ Π½Π΅ΠΏΠ»ΠΎΡ ΠΎ Π²ΡΠ²Π΅ΡΡΠΈ Π·Π°ΠΏΡΠΎΡ ΠΎ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠΈ ΡΠΆΠ΅ ΠΈΠΌΠ΅ΡΡΠΈΡ ΡΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ². ΠΠ»Ρ ΡΠ΅Π³ΠΎ reaction (1) Π·Π°ΠΌΠ΅Π½ΡΠ΅ΠΌ ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΉ ΠΏΡΠ°Π²ΠΈΠ».
reaction ('1'): — write («Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ (y/n)?»),
readchar (Yes), nl, savequation1(Yes), nl, deldb,
menu.
savequation1('n').
savequation1('N').
savequation1('y'):-savequation1('Y').
savequation1('Y'):-savedb.
savequation1(_):-write («ΠΠ°ΠΆΠΌΠΈΡΠ΅, ΠΏΠΎΠΆΠ°Π»ΡΠΉΡΡΠ°, y ΠΈΠ»ΠΈ n»),
readchar (Yes), nl, savequation1(Yes).
ΠΠ΄Π΅ΡΡ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°Ρ savequation1 Π·Π°Π΄Π°Π΅Ρ ΡΠ΅Π°ΠΊΡΠΈΡ Π½Π° ΠΎΡΠ²Π΅Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π½Π° Π·Π°ΠΏΡΠΎΡ ΠΎ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠΈ ΠΈΠΌΠ΅ΡΡΠΈΡ ΡΡ Π΄Π°Π½Π½ΡΡ . ΠΡΠ΅Π²ΠΈΠ΄Π½ΠΎ, ΡΡΠΎ ΡΠ°ΠΊΠΎΠΉ Π·Π°ΠΏΡΠΎΡ ΠΌΠΎΠΆΠ½ΠΎ Π²ΠΊΠ»ΡΡΠΈΡΡ ΠΈ Π² ΠΏΡΠ°Π²ΠΈΠ»ΠΎ reaction (2) ΠΏΠ΅ΡΠ΅Π΄ Π·Π°Π³ΡΡΠ·ΠΊΠΎΠΉ Π½ΠΎΠ²ΠΎΠΉ ΠΠ ΠΈ Π² ΠΏΡΠ°Π²ΠΈΠ»ΠΎ reaction (7) ΠΏΠ΅ΡΠ΅Π΄ ΠΎΠΊΠΎΠ½ΡΠ°Π½ΠΈΠ΅ΠΌ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
reaction ('2'): — disk (Dir), dir (Dir," *.dba", Fname),
clearwindow, write («Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ (y/n)?»),
readchar (Yes), nl, savequation1(Yes), nl,
consult (Fname), menu.
reaction ('7'): — write («Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ (y/n)?»),
readchar (Yes), nl, savequation1(Yes), nl.
ΠΠΎΠΌΠΈΠΌΠΎ ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»Π΅Π½Π½ΡΡ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠΎΠ² Π’ΡΡΠ±ΠΎ-ΠΡΠΎΠ»ΠΎΠ³ ΡΠ°ΠΊΠΆΠ΅ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΈΠ²Π°Π΅Ρ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΡ ΡΡΠ΅Π½ΠΈΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΈΠ· ΡΠ°ΠΉΠ»Π°, Π·Π°ΠΏΠΈΡΠΈ Π² ΡΠ°ΠΉΠ», ΠΌΠΎΠ΄ΠΈΡΠΈΠΊΠ°ΡΠΈΠΈ ΡΠ°ΠΉΠ»Π° ΠΈ ΡΠΎΠΌΡ ΠΏΠΎΠ΄ΠΎΠ±Π½ΡΠ΅. ΠΠ΄Π½Π°ΠΊΠΎ Π΄Π»Ρ ΡΠΎΠ³ΠΎ ΡΡΠΎΠ±Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΡΠ°ΠΊΠΈΠ΅ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΡ, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π΅Π΅ ΡΠ½Π°Π±Π΄ΠΈΡΡ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ΠΌ ΡΠ°ΠΉΠ»ΠΎΠ²ΠΎΠ³ΠΎ Π΄ΠΎΠΌΠ΅Π½Π°.
ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»ΠΎΠ²ΠΎΠ³ΠΎ Π΄ΠΎΠΌΠ΅Π½Π°
ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»ΠΎΠ²ΠΎΠ³ΠΎ Π΄ΠΎΠΌΠ΅Π½Π° Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ datafile Π²ΡΠ³Π»ΡΠ΄ΠΈΡ ΠΊΠ°ΠΊ
file = datafile
ΠΡΠΎ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΎΡΠ»ΠΈΡΠ°Π΅ΡΡΡ ΠΎΡ ΠΏΡΠΈΠ²ΡΡΠ½ΠΎΠ³ΠΎ ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ ΡΠΈΠΏΠ°
name = symbol,
Π³Π΄Π΅ name ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΈΠΌΠ΅Π½Π΅ΠΌ Π΄ΠΎΠΌΠ΅Π½Π°, Π° symbol — ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΌ ΡΠΈΠΏΠΎΠΌ Π΄ΠΎΠΌΠ΅Π½ΠΎΠ² Π’ΡΡΠ±ΠΎ-ΠΡΠΎΠ»ΠΎΠ³Π°.
1. ΠΡΠΈ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠΈ ΡΠ°ΠΉΠ»ΠΎΠ²ΡΡ Π΄ΠΎΠΌΠ΅Π½ΠΎΠ², ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΉ ΡΠΈΠΏ Π΄ΠΎΠΌΠ΅Π½Π° file Π·Π°Π΄Π°Π΅ΡΡΡ ΠΏΠΎ Π»Π΅Π²ΡΡ ΡΡΠΎΡΠΎΠ½Ρ ΠΎΡ Π·Π½Π°ΠΊΠ° ΡΠ°Π²Π΅Π½ΡΡΠ²Π°, Π° ΠΈΠΌΡ Π΄ΠΎΠΌΠ΅Π½Π° datafile — ΠΏΠΎ ΠΏΡΠ°Π²ΡΡ.
2. datafile, Ρ ΠΎΡΡ ΠΈ ΠΎΠΏΠΈΡΡΠ²Π°Π΅ΡΡΡ ΠΊΠ°ΠΊ Π΄ΠΎΠΌΠ΅Π½, Π½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ (ΠΏΡΠΈ Π·Π°ΠΏΠΈΡΠΈ ΠΏΡΠ°Π²ΠΈΠ») ΠΊΠ°ΠΊ ΡΠΈΠΌΠ²ΠΎΠ»ΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π°, ΡΠΎ Π΅ΡΡΡ ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΎΡ, ΠΊΠΎΡΠΎΡΡΠΉ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΈ ΠΎΡΠΎΠΆΠ΄Π΅ΡΡΠ²Π»Π΅Π½ Ρ Π»ΡΠ±ΡΠΌ DOS ΡΠ°ΠΉΠ»ΠΎΠΌ. ΠΡΠΎ ΡΠΈΠΌΠ²ΠΎΠ»ΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΈΠΌΡ Π½Π°Π·ΡΠ²Π°ΡΡ ΡΠ°ΠΊΠΆΠ΅ Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΈΠΌ ΠΈΠΌΠ΅Π½Π΅ΠΌ ΡΠ°ΠΉΠ»Π°.
Π ΠΎΠΏΠΈΡΠ°Π½ΠΈΠΈ file ΠΌΠΎΠΆΠ½ΠΎ ΡΠΊΠ°Π·ΡΠ²Π°ΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠΈΠΌΠ²ΠΎΠ»ΠΈΡΠ΅ΡΠΊΠΈΡ ΠΈΠΌΠ΅Π½, Π½ΠΎ ΡΠ°ΠΌΠΎ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π΄ΠΎΠ»ΠΆΠ½ΠΎ Π±ΡΡΡ Π΅Π΄ΠΈΠ½ΡΡΠ²Π΅Π½Π½ΡΠΌ. ΠΡΠ»ΠΈ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ Π²Π²ΠΎΠ΄ΠΈΡΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠΈΠΌΠ²ΠΎΠ»ΠΈΡΠ΅ΡΠΊΠΈΡ ΠΈΠΌΠ΅Π½ ΡΠ°ΠΉΠ»ΠΎΠ², ΡΠΎ ΠΎΠ½ΠΈ ΡΠ°Π·Π΄Π΅Π»ΡΡΡΡΡ ΠΌΠ΅ΠΆΠ΄Ρ ΡΠΎΠ±ΠΎΠΉ ΡΠΎΡΠΊΠΎΠΉ Ρ Π·Π°ΠΏΡΡΠΎΠΉ (;). ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ,
file = datafile1; datafile2; datafile3
ΠΡΠΎ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ Π΄Π΅ΠΊΠ»Π°ΡΠΈΡΡΠ΅Ρ ΡΡΠΈ ΡΠΈΠΌΠ²ΠΎΠ»ΠΈΡΠ΅ΡΠΊΠΈΡ ΠΈΠΌΠ΅Π½ΠΈ Π΄Π»Ρ ΠΏΠΎΡΠ»Π΅Π΄ΡΡΡΠ΅Π³ΠΎ ΠΈΡ ΠΎΡΠΎΠΆΠ΄Π΅ΡΡΠ²Π»Π΅Π½ΠΈΡ Ρ ΡΠ΅Π°Π»ΡΠ½ΡΠΌΠΈ DOS ΡΠ°ΠΉΠ»Π°ΠΌΠΈ.
ΠΠΏΠ΅ΡΠ°ΡΠΈΠΈ ΡΡΠ΅Π½ΠΈΡ-Π·Π°ΠΏΠΈΡΠΈ Π² ΡΠ°ΠΉΠ»
ΠΠ°ΠΏΠΈΡΡ Π² ΡΠ°ΠΉΠ»
ΠΠ΅ΡΠ΅Π΄ ΡΠ΅ΠΌ, ΠΊΠ°ΠΊ Π½Π°ΡΠ°ΡΡ ΠΏΠΈΡΠ°ΡΡ ΡΡΠΎ-Π»ΠΈΠ±ΠΎ Π² ΡΠ°ΠΉΠ», Π½ΡΠΆΠ½ΠΎ ΡΠΎΠ·Π΄Π°ΡΡ Π΅Π³ΠΎ. Π Π’ΡΡΠ±ΠΎ-ΠΡΠΎΠ»ΠΎΠ³Π΅ ΡΠ°ΠΉΠ»Ρ ΡΠΎΠ·Π΄Π°ΡΡΡΡ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ° openwrite. ΠΡΠΈ ΡΡΠΎΠΌ, ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ ΡΠ°ΠΉΠ»Π° ΠΏΠΎΠΌΠ΅ΡΠ°Π΅ΡΡΡ Π² Π΅Π³ΠΎ Π½Π°ΡΠ°Π»ΠΎ. Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡ:
openwrite (<οΏ½ΡΠΈΠΌΠ²ΠΎΠ»ΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π°>, <οΏ½ΠΈΠΌΡ_DOS_ΡΠ°ΠΉΠ»Π°>).
ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ
openwrite (datafile1," file1. dat"),
Π³Π΄Π΅ datafile1 Π΅ΡΡΡ Π²Π²Π΅Π΄Π΅Π½Π½ΡΠΉ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ ΡΠ°ΠΉΠ»ΠΎΠ²ΡΠΉ Π΄ΠΎΠΌΠ΅Π½, Π° file1. dat — ΡΠΈΠ·ΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π° Π½Π° Π΄ΠΈΡΠΊΠ΅. ΠΡΠ΅Π΄ΠΈΠΊΠ°Ρ ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅Ρ ΡΠ²ΡΠ·Ρ ΠΌΠ΅ΠΆΠ΄Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠ°ΠΌΠΈ datafile1 ΠΈ file1.dat. Π’Π΅ΠΏΠ΅ΡΡ ΡΡΡΠ»ΠΊΠΈ Π½Π° datafile1 Π±ΡΠ΄ΡΡ ΠΎΠ·Π½Π°ΡΠ°ΡΡ ΠΎΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΊ file1.dat. Π‘Π²ΡΠ·Ρ ΠΎΡΡΠ°Π΅ΡΡΡ Π² ΡΠΈΠ»Π΅ Π²ΠΏΠ»ΠΎΡΡ Π΄ΠΎ Π·Π°ΠΊΡΡΡΠΈΡ ΡΠ°ΠΉΠ»Π°.
ΠΠ°ΠΌΠ΅ΡΠΈΠΌ, ΡΡΠΎ Π΅ΡΠ»ΠΈ ΡΠ°ΠΉΠ» Ρ ΠΈΠΌΠ΅Π½Π΅ΠΌ file1. dat ΠΊ ΠΌΠΎΠΌΠ΅Π½ΡΡ Π²ΡΠ·ΠΎΠ²Π° ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ° openwrite ΡΠΆΠ΅ ΠΏΡΠΈΡΡΡΡΡΠ²ΠΎΠ²Π°Π» Π² Π΄ΠΈΡΠ΅ΠΊΡΠΎΡΠΈΠΈ, ΡΠΎ Π΅Π³ΠΎ ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ΅ Π±ΡΠ΄Π΅Ρ ΡΡΡΠ°ΡΠ΅Π½ΠΎ. ΠΠ»Ρ ΡΠΎΠ³ΠΎ, ΡΡΠΎΠ±Ρ Π·Π°ΡΡΡΠ°Ρ ΠΎΠ²Π°ΡΡΡΡ ΠΎΡ ΡΡΠΎΠΉ Π½Π΅ΠΏΡΠΈΡΡΠ½ΠΎΡΡΠΈ, ΠΌΠΎΠΆΠ½ΠΎ ΡΠ½Π°ΡΠ°Π»Π° ΠΏΡΠΎΠ²Π΅ΡΠΈΡΡ Π½Π°Π»ΠΈΡΠΈΠ΅ ΡΠ°ΠΉΠ»Π° ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ°
existfile («file1.dat»)
ΠΈ ΠΏΡΠΈΠ½ΡΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠ΅ ΠΌΠ΅ΡΡ, Π΅ΡΠ»ΠΈ existfile Π±ΡΠ΄Π΅Ρ ΡΡΠΏΠ΅ΡΠ΅Π½.
Π§ΡΠΎΠ±Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠ΅ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΡ write ΠΈΠ»ΠΈ writef Π΄Π»Ρ Π²ΡΠ²ΠΎΠ΄Π° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ Π² ΡΠ°ΠΉΠ», Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π½Π°Π·Π½Π°ΡΠΈΡΡ ΡΡΠΎΡ ΡΠ°ΠΉΠ» Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΡΡΡΡΠΎΠΉΡΡΠ²Π° Π·Π°ΠΏΠΈΡΠΈ:
writedevice (<οΏ½ΡΠΈΠΌΠ²ΠΎΠ»ΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π°>).
ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ
writedevice (datafile1), write («ΠΡΠΈ ΡΡΠΈ ΡΡΡΠΎΠΊΠΈ Π±ΡΠ΄ΡΡ Π·Π°ΠΏΠΈΡΠ°Π½Ρ Π² ΡΠ°ΠΉΠ» file1. dat»), nl, write («ΠΡΠΎ Π²ΡΠΎΡΠ°Ρ ΡΡΡΠΎΠΊΠ°»), nl, write («Π ΡΡΠΎ — ΡΡΠ΅ΡΡΡ «).
ΠΠΎΠ·Π°ΠΏΠΈΡΡ Π² ΠΊΠΎΠ½Π΅Ρ ΡΠΆΠ΅ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠ΅Π³ΠΎ ΡΠ°ΠΉΠ»Π°
ΠΠ»Ρ ΡΠΎΠ³ΠΎ ΡΡΠΎΠ±Ρ Π·Π°ΠΏΠΈΡΠ°ΡΡ Π½ΠΎΠ²ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ Π² ΠΊΠΎΠ½Π΅Ρ ΡΠΆΠ΅ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠ΅Π³ΠΎ ΡΠ°ΠΉΠ»Π°, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΠΎΡΠΊΡΡΡΡ ΡΡΠΎΡ ΡΠ°ΠΉΠ» ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠΎΠΌ openappend. ΠΠΎΠ³Π΄Π° ΡΠ°ΠΉΠ» ΠΎΡΠΊΡΡΠ²Π°Π΅ΡΡΡ Π΄Π»Ρ Π΄ΠΎΠ·Π°ΠΏΠΈΡΠΈ, ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ ΡΠ°ΠΉΠ»Π° ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Π΅ΡΡΡ Π² Π΅Π³ΠΎ ΠΊΠΎΠ½Π΅Ρ.
openappend (<οΏ½ΡΠΈΠΌΠ²ΠΎΠ»ΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π°>, <οΏ½ΠΈΠΌΡ_DOS_ΡΠ°ΠΉΠ»Π°>).
ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ,
openappend (datafile2," file2. dat")
ΠΠ°Π»ΡΠ½Π΅ΠΉΡΠ°Ρ ΡΠ°Π±ΠΎΡΠ° (ΠΏΠ΅ΡΠ΅Π°Π΄ΡΠ΅ΡΠ°ΡΠΈΡ Π²ΡΠ²ΠΎΠ΄Π°, ΠΈ Π²ΡΠ²ΠΎΠ΄ Π΄Π°Π½Π½ΡΡ ) Π°Π½Π°Π»ΠΎΠ³ΠΈΡΠ½Π° ΡΠ°Π±ΠΎΡΠ΅ Ρ Π½ΠΎΠ²ΡΠΌ ΡΠ°ΠΉΠ»ΠΎΠΌ.
Π§ΡΠ΅Π½ΠΈΠ΅ ΠΈΠ· ΡΠ°ΠΉΠ»Π°
ΠΠ»Ρ ΡΡΠ΅Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ ΠΈΠ· ΡΠ°ΠΉΠ»Π° ΡΡΠ΅Π±ΡΠ΅ΡΡΡ:
1. ΠΡΠΊΡΡΡΡ ΡΠ°ΠΉΠ» ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ° openread:
openread (<οΏ½ΡΠΈΠΌΠ²ΠΎΠ»ΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π°>, <οΏ½ΠΈΠΌΡ_DOS_ΡΠ°ΠΉΠ»Π°>).
ΠΡΠΈΠΌΠ΅Ρ:
openread (datafile3," file3. dat").
2. ΠΠ°Π·Π½Π°ΡΠΈΡΡ ΡΠ°ΠΉΠ» datafile3 ΡΡΡΡΠΎΠΉΡΡΠ²ΠΎΠΌ ΡΡΠ΅Π½ΠΈΡ:
readdevice (<οΏ½ΡΠΈΠΌΠ²ΠΎΠ»ΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π°>).
ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ,
readdevice (datafile1).
3. ΠΠ²Π΅ΡΡΠΈ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΈΠ· ΡΠ°ΠΉΠ»Π° ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅Π³ΠΎ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ° ΠΈΠ»ΠΈ ΠΏΡΠ°Π²ΠΈΠ»Π° (readint, readreal, readln ΠΈ Ρ. Π΄.).
ΠΠΎΠ΄ΠΈΡΠΈΠΊΠ°ΡΠΈΡ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠ΅Π³ΠΎ ΡΠ°ΠΉΠ»Π°
Π’ΡΡΠ±ΠΎ-ΠΡΠΎΠ»ΠΎΠ³ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΎΡΠΊΡΡΠ²Π°ΡΡ ΡΠ°ΠΉΠ»Ρ Π΄Π»Ρ ΠΌΠΎΠ΄ΠΈΡΠΈΠΊΠ°ΡΠΈΠΈ, ΡΠΎ Π΅ΡΡΡ Π΄Π»Ρ ΡΡΠ΅Π½ΠΈΡ ΠΈ Π·Π°ΠΏΠΈΡΠΈ ΠΎΠ΄Π½ΠΎΠ²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎ. ΠΠ»Ρ ΡΡΠΎΠΉ ΡΠ΅Π»ΠΈ ΡΠ»ΡΠΆΠΈΡ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°Ρ openmodify.
openmodify (<οΏ½ΡΠΈΠΌΠ²ΠΎΠ»ΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π°>, <οΏ½ΠΈΠΌΡ_DOS_ΡΠ°ΠΉΠ»Π°>).
ΠΡΠΈΠΌΠ΅Ρ
openmodify (datafile1," file4. dat")
ΠΡΠ΅Π΄ΠΈΠΊΠ°Ρ ΡΡΠΏΠ΅ΡΠ΅Π½ ΡΠΎΠ»ΡΠΊΠΎ Π² ΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅, Π΅ΡΠ»ΠΈ ΡΠ°ΠΉΠ» ΡΠΆΠ΅ ΠΏΡΠΈΡΡΡΡΡΠ²ΡΠ΅Ρ Π½Π° Π΄ΠΈΡΠΊΠ΅.
Π‘ΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ΅ ΡΠ°ΠΉΠ»Π° ΠΌΠΎΠΆΠ½ΠΎ ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°ΡΡ ΠΊΠ°ΠΊ ΠΏΠΎΡΠΎΠΊ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ². ΠΠΎΠ·ΠΈΡΠΈΡ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΡΠΈΠΌΠ²ΠΎΠ»Π° ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅ΡΡΡ Π΅Π³ΠΎ ΡΠ΄Π°Π»Π΅Π½Π½ΠΎΡΡΡΡ ΠΎΡ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ ΡΠΈΠΌΠ²ΠΎΠ»Π° ΡΠ°ΠΉΠ»Π°. Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΠΏΠ΅ΡΠ²ΡΠΉ ΡΠΈΠΌΠ²ΠΎΠ» Π² ΡΠ°ΠΉΠ»Π΅ Π·Π°Π½ΠΈΠΌΠ°Π΅Ρ Π½ΡΠ»Π΅Π²ΡΡ ΠΏΠΎΠ·ΠΈΡΠΈΡ, Π²ΡΠΎΡΠΎΠΉ — ΠΏΠ΅ΡΠ²ΡΡ ΠΈ Ρ. Π΄. ΠΠΎΠ·ΠΈΡΠΈΡ, ΠΈΠ· ΠΊΠΎΡΠΎΡΠΎΠΉ Π±ΡΠ΄Π΅Ρ ΠΏΡΠΎΡΠΈΡΠ°Π½ ΠΈΠ»ΠΈ Π² ΠΊΠΎΡΠΎΡΡΡ Π±ΡΠ΄Π΅Ρ Π·Π°ΠΏΠΈΡΠ°Π½ ΠΎΡΠ΅ΡΠ΅Π΄Π½ΠΎΠΉ ΡΠΈΠΌΠ²ΠΎΠ», ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅Ρ ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ.
Π£ΠΊΠ°Π·Π°ΡΠ΅Π»Ρ ΡΠ°ΠΉΠ»Π° ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΏΠΎΠΌΠ΅ΡΠ΅Π½ Π² Π»ΡΠ±ΡΡ ΠΏΠΎΠ·ΠΈΡΠΈΡ. Π€Π°ΠΉΠ»Ρ Ρ ΡΠ°ΠΊΠΎΠΉ ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΠ΅ΠΉ Π΄ΠΎΡΡΡΠΏΠ° ΠΊ Ρ ΡΠ°Π½ΡΡΠ΅ΠΉΡΡ Π² Π½Π΅ΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ Π½Π°Π·ΡΠ²Π°ΡΡΡΡ ΡΠ°ΠΉΠ»Π°ΠΌΠΈ ΠΏΡΡΠΌΠΎΠ³ΠΎ Π΄ΠΎΡΡΡΠΏΠ°, Π° ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ Π²ΡΠ±ΠΎΡΠΊΠΈ ΠΈΠ· ΡΠ°ΠΊΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° — Π²Π²ΠΎΠ΄ΠΎΠΌ-Π²ΡΠ²ΠΎΠ΄ΠΎΠΌ ΠΈΠ· ΡΠ°ΠΉΠ»Π° ΠΏΡΡΠΌΠΎΠ³ΠΎ Π΄ΠΎΡΡΡΠΏΠ°.
ΠΠΎΠ³Π΄Π° ΡΠ°ΠΉΠ» ΠΎΡΠΊΡΡΠ²Π°Π΅ΡΡΡ Π΄Π»Ρ Π·Π°ΠΏΠΈΡΠΈ ΠΈΠ»ΠΈ ΠΌΠΎΠ΄ΠΈΡΠΈΠΊΠ°ΡΠΈΠΈ, ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ ΠΏΠΎΠΌΠ΅ΡΠ°Π΅ΡΡΡ Π² Π½Π°ΡΠ°Π»ΠΎ ΡΠ°ΠΉΠ»Π°. ΠΠ΄Π½Π°ΠΊΠΎ Π’ΡΡΠ±ΠΎ-ΠΡΠΎΠ»ΠΎΠ³ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠΌΠ΅ΡΠ°ΡΡ ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ° filepos.
filepos (<οΏ½ΡΠΈΠΌΠ²ΠΎΠ»ΠΈΡΠ΅ΡΠΊΠΎΠ΅_ΠΈΠΌΡ_ΡΠ°ΠΉΠ»Π°>, <οΏ½ΠΏΠΎΠ·ΠΈΡΠΈΡ_ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ>, <οΏ½ΡΠΈΠΏ_ΡΠΌΠ΅ΡΠ΅Π½ΠΈΡ>).
ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ <οΏ½ΠΏΠΎΠ·ΠΈΡΠΈΡ_ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ> Π·Π΄Π΅ΡΡ Π΄ΠΎΠ»ΠΆΠ½ΠΎ Π±ΡΡΡ ΠΏΡΠΈΡΠ²ΠΎΠ΅Π½ΠΎ Π΄Π΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ, ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ°ΡΡΠ΅Π΅ ΠΏΠΎΠ·ΠΈΡΠΈΡ Π² ΡΠ°ΠΉΠ»Π΅, ΠΈΠ· ΠΊΠΎΡΠΎΡΠΎΠΉ Π±ΡΠ΄Π΅Ρ ΡΡΠΈΡΠ°Π½ ΠΈΠ»ΠΈ Π² ΠΊΠΎΡΠΎΡΡΡ Π±ΡΠ΄Π΅Ρ Π·Π°ΠΏΠΈΡΠ°Π½ ΡΠΈΠΌΠ²ΠΎΠ» (Π΄ΡΠΎΠ±Π½Π°Ρ ΡΠ°ΡΡΡ ΡΠΈΡΠ»Π° ΠΎΡΠ±ΡΠ°ΡΡΠ²Π°Π΅ΡΡΡ).
ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ <οΏ½ΡΠΈΠΏ_ΡΠΌΠ΅ΡΠ΅Π½ΠΈΡ> ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΏΡΠΈΡΠ²ΠΎΠ΅Π½ΠΎ ΠΎΠ΄Π½ΠΎ ΠΈΠ· ΡΡΠ΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ: 0, 1 ΠΈΠ»ΠΈ 2. ΠΡΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡ ΡΠΎ, ΠΊΠ°ΠΊ Π±ΡΠ΄Π΅Ρ ΠΈΠ½ΡΠ΅ΡΠΏΡΠ΅ΡΠΈΡΠΎΠ²Π°Π½ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ <οΏ½ΠΏΠΎΠ·ΠΈΡΠΈΡ_ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ>. Π ΡΠ°Π±Π». 1 ΠΏΠΎΡΡΠ½Π΅Π½ΠΎ ΡΠΏΠΎΡΡΠ΅Π±Π»Π΅Π½ΠΈΠ΅ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ Π΄ΠΎΠΏΡΡΡΠΈΠΌΠΎΠ³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ° <οΏ½ΡΠΈΠΏ_ΡΠΌΠ΅ΡΠ΅Π½ΠΈΡ>.
Π±Π°Π·Π° Π΄Π°Π½Π½ΡΠ΅ ΡΠ°ΠΉΠ» Π΄ΠΈΡΠΊ Π’Π°Π±Π»ΠΈΡΠ° 1
Π Π΅ΠΆΠΈΠΌΡ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ° filepos
Π’ΠΈΠΏ ΡΠΌΠ΅ΡΠ΅Π½ΠΈΡ | ΠΠ΅ΠΉΡΡΠ²ΠΈΡ ΡΠΈΡΡΠ΅ΠΌΡ | |
Π‘ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅ Π±Π΅ΡΠ΅ΡΡΡ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎ Π½Π°ΡΠ°Π»Π° ΡΠ°ΠΉΠ»Π° | ||
Π‘ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅ Π±Π΅ΡΠ΅ΡΡΡ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΏΠΎΠ·ΠΈΡΠΈΠΈ | ||
Π‘ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅ Π±Π΅ΡΠ΅ΡΡΡ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎ ΠΊΠΎΠ½ΡΠ° ΡΠ°ΠΉΠ»Π° | ||
Π Π°ΡΡΠΌΠΎΡΡΠΈΠΌ, Π΄Π»Ρ ΠΏΡΠΈΠΌΠ΅ΡΠ°, ΡΠ°ΠΊΠΎΠ΅ ΡΠΏΠΎΡΡΠ΅Π±Π»Π΅Π½ΠΈΠ΅ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ° filepos:
filepos (datafile1,100,0).
Π ΡΡΠΎΠΌ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠΈ datafile1 Π΅ΡΡΡ ΠΈΠΌΡ Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π°. ΠΠ°ΡΠ°ΠΌΠ΅ΡΡ <οΏ½ΠΏΠΎΠ·ΠΈΡΠΈΡ_ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ> ΠΈΠΌΠ΅Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ 100, ΡΡΠΎ ΡΠΊΠ°Π·ΡΠ²Π°Π΅Ρ Π½Π° ΡΠΎ, ΡΡΠΎ Π±ΡΠ΄Π΅Ρ ΠΏΡΠΎΡΠΈΡΠ°Π½ ΡΠΈΠΌΠ²ΠΎΠ», ΡΡΠΎΡΡΠΈΠΉ Π² 100-ΠΉ ΠΏΠΎΠ·ΠΈΡΠΈΠΈ (101-ΠΉ ΡΠΈΠΌΠ²ΠΎΠ»). ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ 0 ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ° <οΏ½ΡΠΈΠΏ_ΡΠΌΠ΅ΡΠ΅Π½ΠΈΡ> ΡΠ²ΠΈΠ΄Π΅ΡΠ΅Π»ΡΡΡΠ²ΡΠ΅Ρ ΠΎ ΡΠΎΠΌ, ΡΡΠΎ ΡΠΎΡΠ°Ρ ΠΏΠΎΠ·ΠΈΡΠΈΡ Π±ΡΠ΄Π΅Ρ ΠΎΡΡΡΠΈΡΡΠ²Π°ΡΡΡΡ ΠΎΡ Π½Π°ΡΠ°Π»Π° ΡΠ°ΠΉΠ»Π°.
ΠΡΠ»ΠΈ Π² ΡΡΠΎΠΉ Π·Π°ΠΏΠΈΡΠΈ 0 Π·Π°ΠΌΠ΅Π½ΠΈΡΡ Π½Π° 1,
filepos (datafile1,100,1),
ΡΠΎ ΠΎΡΡΡΠ΅Ρ Π±ΡΠ΄Π΅Ρ Π²Π΅ΡΡΠΈΡΡ ΡΠΆΠ΅ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎ ΡΠ΅ΠΊΡΡΠ΅ΠΉ ΠΏΠΎΠ·ΠΈΡΠΈΠΈ ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ. ΠΡΠ»ΠΈ Π΄Π°Π½Π½ΡΠΉ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°Ρ Π±ΡΠ΄Π΅Ρ ΡΡΠΏΠ΅ΡΠ΅Π½, ΡΠΎ ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ ΡΠ΄Π²ΠΈΠ½Π΅ΡΡΡ Π΅ΡΠ΅ Π½Π° 100 ΠΏΠΎΠ·ΠΈΡΠΈΠΉ Π²ΠΏΠ΅ΡΠ΅Π΄.
ΠΠ°ΠΊΡΡΡΠΈΠ΅ ΡΠ°ΠΉΠ»Π°
ΠΡΠΎΠΉ ΡΠ΅Π»ΠΈ ΡΠ»ΡΠΆΠΈΡ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°Ρ
closefile (<οΏ½ΡΠΈΠΌΠ²ΠΎΠ»ΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΈΠΌΡ ΡΠ°ΠΉΠ»Π°>).
ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ,
closefile (datafile1).
ΠΠΎΠ³Π΄Π° ΡΠ°ΠΉΠ» Π·Π°ΠΊΡΡΡ, ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ ΡΡΠ΅Π½ΠΈΡ ΠΈΠ»ΠΈ Π·Π°ΠΏΠΈΡΠΈ Π΄Π»Ρ Π½Π΅Π³ΠΎ Π½Π΅Π΄ΠΎΠΏΡΡΡΠΈΠΌΡ. ΠΠ°ΠΊΡΡΡΠΈΠ΅ ΡΠ°ΠΉΠ»Π° ΡΠ°ΠΊΠΆΠ΅ Π·Π°ΡΠΈΡΠ°Π΅Ρ ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ΅ ΡΠ°ΠΉΠ»Π° ΠΎΡ ΠΊΠ°ΠΊΠΈΡ Π±Ρ ΡΠΎ Π½ΠΈ Π±ΡΠ»ΠΎ ΠΌΠ°Π½ΠΈΠΏΡΠ»ΡΡΠΈΠΉ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΡΠ΅ΠΏΠ΅ΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½Ρ Π»ΠΈΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ Ρ ΡΠ°ΠΉΠ»ΠΎΠΌ Π² ΡΠ΅Π»ΠΎΠΌ.
ΠΡΠ΅ ΠΎΠ΄Π½ΠΈΠΌ ΡΠ»Π΅Π΄ΡΡΠ²ΠΈΠ΅ΠΌ Π·Π°ΠΊΡΡΡΠΈΡ ΡΠ°ΠΉΠ»Π° ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΠ΅ΡΠ΅Π²ΠΎΠ΄ ΡΠΊΠ°Π·Π°ΡΠ΅Π»Ρ ΡΠ°ΠΉΠ»Π° Π² Π½Π°ΡΠ°Π»ΠΎ. ΠΡΠΎ ΠΌΠΎΠΆΠ΅Ρ ΠΏΠΎΠ½Π°Π΄ΠΎΠ±ΠΈΡΡΡΡ ΠΏΡΠΈ ΠΏΠΎΠ²ΡΠΎΡΠ½ΠΎΠΌ ΠΎΡΠΊΡΡΡΠΈΠΈ ΡΠ°ΠΉΠ»Π°.
ΠΠ΅ΡΠ΅Π°Π΄ΡΠ΅ΡΠ°ΡΠΈΡ Π²Π²ΠΎΠ΄Π°-Π²ΡΠ²ΠΎΠ΄Π°
ΠΡΡΡΠΎΠ΅Π½Π½ΡΠΉ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°Ρ Π’ΡΡΠ±ΠΎ-ΠΡΠΎΠ»ΠΎΠ³Π° readdevice ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΏΠ΅ΡΠ΅Π°Π΄ΡΠ΅ΡΠΎΠ²Π°ΡΡ Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΡΡΡΡΠΎΠΉΡΡΠ²ΠΎ Π²Π²ΠΎΠ΄Π°. ΠΠ½Π°Π»ΠΎΠ³ΠΈΡΠ½ΠΎ Π²ΡΡΡΠΎΠ΅Π½Π½ΡΠΉ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°Ρ writedevice ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅Ρ ΠΏΠ΅ΡΠ΅Π°Π΄ΡΠ΅ΡΠ°ΡΠΈΡ ΡΡΡΡΠΎΠΉΡΡΠ²Π° Π²ΡΠ²ΠΎΠ΄Π° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ.
Π’Π°ΠΊ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°Ρ
readdevice (myfile)
Π½Π°ΡΡΡΠ°ΠΈΠ²Π°Π΅Ρ ΡΡΡΡΠΎΠΉΡΡΠ²ΠΎ Π²Π²ΠΎΠ΄Π° Π½Π° ΡΠ°ΠΉΠ» myfile, Π° ΠΏΡΠ΅Π΄ΠΈΠΊΠ°Ρ
writedevice (yourfile)
Π½Π°ΡΡΡΠ°ΠΈΠ²Π°Π΅Ρ ΡΡΡΡΠΎΠΉΡΡΠ²ΠΎ Π²ΡΠ²ΠΎΠ΄Π° Π½Π° ΡΠ°ΠΉΠ» yourfile.
ΠΠ»Ρ Π½Π°ΡΡΡΠΎΠΉΠΊΠΈ Π²Π²ΠΎΠ΄Π° ΠΈ Π²ΡΠ²ΠΎΠ΄Π° Π½Π° ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠ΅ ΡΡΡΡΠΎΠΉΡΡΠ²Π° Π² Π’ΡΡΠ±ΠΎ-ΠΡΠΎΠ»ΠΎΠ³Π΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠ΅ ΠΈΠΌΠ΅Π½Π° screen, keyboard, printer. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΏΡΠ°Π²ΠΈΠ»ΠΎ
write_lines : — writedevice (screen), write («ΠΠ΅ΡΠ²Π°Ρ ΡΡΡΠΎΠΊΠ° «),
nl, writedevice (printer),
write («ΠΠ΅ΡΠ²Π°Ρ ΡΡΡΠΎΠΊΠ°»), nl,
flush (printer), writedevice (screen).
Π²ΡΠ²ΠΎΠ΄ΠΈΡ ΡΡΡΠΎΠΊΡ «ΠΠ΅ΡΠ²Π°Ρ ΡΡΡΠΎΠΊΠ° «Π½Π° ΡΠΊΡΠ°Π½ ΠΌΠΎΠ½ΠΈΡΠΎΡΠ°, Π° Π·Π°ΡΠ΅ΠΌ ΡΡΡ ΠΆΠ΅ ΡΡΡΠΎΠΊΡ Π²ΡΠ²ΠΎΠ΄ΠΈΡ Π½Π° ΠΏΡΠΈΠ½ΡΠ΅Ρ. Π‘ΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΉ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°Ρ flush Π·Π΄Π΅ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ ΡΠΎΠ³ΠΎ, ΡΡΠΎΠ±Ρ ΡΡΡΠΎΠΊΠ° Π±ΡΠ»Π° Π²ΡΠ²Π΅Π΄Π΅Π½Π° ΠΈΠ· Π±ΡΡΠ΅ΡΠ° ΡΡΠ°Π·Ρ Π½Π° ΠΏΡΠΈΠ½ΡΠ΅Ρ.
ΠΡΡΠ³ΠΈΠ΅ ΠΏΠΎΠ»Π΅Π·Π½ΡΠ΅ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΡ
ΠΡΠ΅Π΄ΠΈΠΊΠ°Ρ eof ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡ ΠΏΡΠΎΠ²Π΅ΡΠΊΡ Π½Π° Π΄ΠΎΡΡΠΈΠΆΠ΅Π½ΠΈΠ΅ ΠΊΠΎΠ½ΡΠ° ΡΠ°ΠΉΠ»Π°
eof (<οΏ½ΡΠΈΠΌΠ²ΠΎΠ»ΠΈΡΠ΅ΡΠΊΠΎΠ΅_ΠΈΠΌΡ_ΡΠ°ΠΉΠ»Π°>)
ΠΠ»Ρ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ ΠΏΡΠΎΡΠ΅ΡΡΠ° ΠΎΡΠΊΡΡΡΠΈΡ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ ΡΠ°ΠΉΠ»ΠΎΠ² Π±ΡΠ²Π°Π΅Ρ ΠΏΠΎΠ»Π΅Π·Π½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ ΠΊΠΎΠ½ΠΊΠ°ΡΠ΅Π½Π°ΡΠΈΠΈ ΡΡΡΠΎΠΊΠΎΠ²ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ , Π΄Π»Ρ ΡΠ΅Π³ΠΎ Π² Π’ΡΡΠ±ΠΎ-ΠΡΠΎΠ»ΠΎΠ³Π΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΉ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°Ρ concat:
concat (<οΏ½ΡΡΡΠΎΠΊΠ°1>,<οΏ½ΡΡΡΠΎΠΊΠ°2>, <οΏ½Π½ΠΎΠ²Π°Ρ_ΡΡΡΠΎΠΊΠ°>).
ΠΡΠΎΠ±Π΅Π½Π½ΠΎΡΡΠΈ ΡΠ°Π±ΠΎΡΡ Ρ ΠΠ, Ρ ΡΠ°Π½ΡΡΠΈΠΌΠΈ Π΄Π°Π½Π½ΡΠ΅ Π² ΡΠ°ΠΉΠ»Π°Ρ Π½Π° Π΄ΠΈΡΠΊΠ΅
Π‘Π£ΠΠ, Ρ ΡΠ°Π½ΡΡΠΈΠ΅ Π΄Π°Π½Π½ΡΠ΅ Π½Π° Π΄ΠΈΡΠΊΠ΅ (Π½Π΅ΡΠ΅Π·ΠΈΠ΄Π΅Π½ΡΠ½ΡΠ΅), ΡΠ²Π»ΡΡΡΡΡ Π±ΠΎΠ»Π΅Π΅ ΠΆΠΈΠ·Π½Π΅ΡΠΏΠΎΡΠΎΠ±Π½ΡΠΌΠΈ. Π’Π°ΠΊ ΠΊΠ°ΠΊ ΠΎΠ±ΡΠ΅ΠΌ Π²Π½Π΅ΡΠ½Π΅ΠΉ ΠΏΠ°ΠΌΡΡΠΈ ΡΡΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΎ Π±ΠΎΠ»ΡΡΠ΅ ΠΎΠ±ΡΠ΅ΠΌΠ° ΠΏΠ°ΠΌΡΡΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠ²Π½ΠΎΠΉ, ΡΠΈΡΡΠ΅ΠΌΡ ΡΠ°ΠΊΠΎΠ³ΠΎ ΠΊΠ»Π°ΡΡΠ° ΠΏΡΠΈΠ³ΠΎΠ΄Π½Ρ Π΄Π»Ρ Π±ΠΎΠ»ΡΡΠΈΠ½ΡΡΠ²Π° ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΡ Π·Π°Π΄Π°Ρ.
Π’ΡΡΠ±ΠΎ-ΠΡΠΎΠ»ΠΎΠ³ ΡΠ°ΡΠΏΠΎΠ»Π°Π³Π°Π΅Ρ Π²ΡΠ΅ΠΌΠΈ ΡΡΠ΅Π΄ΡΡΠ²Π°ΠΌΠΈ, Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΠΌΠΈ Π΄Π»Ρ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠ°Π½ΠΈΡ ΡΠ°ΠΊΠΈΡ Π·Π½Π°ΡΠΈΡΠ΅Π»ΡΠ½ΡΡ ΠΏΠΎ ΠΎΠ±ΡΠ΅ΠΌΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΠ.
ΠΡΠ΅Π΄ΠΈΠΊΠ°ΡΡ Π½Π΅ΡΠ΅Π·ΠΈΠ΄Π΅Π½ΡΠ½ΠΎΠΉ ΠΠ ΠΎΠ±ΡΡΠ²Π»ΡΡΡΡΡ Π² ΡΠ°Π·Π΄Π΅Π»Π΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ database ΡΠ°ΠΊ ΠΆΠ΅, ΠΊΠ°ΠΊ ΠΈ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΡ ΡΠ΅Π·ΠΈΠ΄Π΅Π½ΡΠ½ΠΎΠΉ.
database
Stud (symbol, symbol, symbol)
database — test
Exam (symbol, symbol, integer)
predicates
Add_stud (dbasedom)
Add_exam (test)
ΠΠ»Ρ ΡΠ°Π±ΠΎΡΡ Ρ Π·Π°ΠΏΠΈΡΡΠΌΠΈ Π»ΡΠ±ΠΎΠΉ ΠΠ ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠ²ΠΎΠΈ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΡ. Π Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ° ΡΠ°ΠΊΠΎΠ³ΠΎ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ° ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΈ Π·Π°ΠΏΠΈΡΡ ΠΠ. Π’ΠΎΠ³Π΄Π° Π΄ΠΎΠΌΠ΅Π½ΠΎΠΌ ΡΡΠΎΠ³ΠΎ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ° ΠΏΡΠΈ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠΈ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ° Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠΊΠ°Π·ΡΠ²Π°ΡΡ ΠΈΠΌΡ ΠΠ. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Π΄Π»Ρ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ Π·Π°ΠΏΠΈΡΠ΅ΠΉ Π² Π½Π΅ΡΠ΅Π·ΠΈΠ΄Π΅Π½ΡΠ½ΡΡ ΠΠ ΠΌΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΏΡΠ°Π²ΠΈΠ»Π°.
Add_stud (Term):-Write («ΠΠ΅Π΄ΠΈΡΠ΅ ΡΠΈΡΡ»), readln (Code),
Write («ΠΠ΅Π΄ΠΈΡΠ΅ ΠΈΠΌΡ»), readln (Name),
Write («ΠΠ΅Π΄ΠΈΡΠ΅ ΡΠ°ΠΊΡΠ»ΡΡΠ΅Ρ «),
Rreadln (Dep),
Term=stud (Code, Name, Dep),
Write (Term), Asserta (Term).
Add_exam (Term):-Write («ΠΠ΅Π΄ΠΈΡΠ΅ Π¨ΠΈΡΡ»), readln (Code),
Write («ΠΠ΅Π΄ΠΈΡΠ΅ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ Π΄ΠΈΡΡΠΈΠΏΠ»ΠΈΠ½Ρ»),
Readln (Course),
Write («ΠΠ΅Π΄ΠΈΡΠ΅ ΠΎΡΠ΅Π½ΠΊΡ»), readln (Mark),
Term=exam (Code, Course, Mark),
Write (Term), Asserta (Term).
ΠΠ΄Π΅ΡΡ ΠΏΡΠ°Π²ΠΈΠ»ΠΎ Add_stud ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π²Π²Π΅ΡΡΠΈ Π·Π°ΠΏΠΈΡΡ (ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Term) ΠΈ Π΄ΠΎΠ±Π°Π²ΠΈΡΡ Π΅Π΅ Π² ΡΠ΅Π·ΠΈΠ΄Π΅Π½ΡΠ½ΡΡ ΠΠ dbasedom. Π ΠΏΡΠ°Π²ΠΈΠ»ΠΎ Add_exam Π²Π²ΠΎΠ΄ΠΈΡ Π·Π°ΠΏΠΈΡΡ ΠΈ Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅Ρ ΠΎΠ΄Π½Ρ Π·Π°ΠΏΠΈΡΡ Π² Π±Π°Π·Ρ test.
ΠΠΎΡΠΌΠ΅ ΡΠΎΠ³ΠΎ, Π΄Π»Ρ ΡΡΠ΅Π½ΠΈΡ ΠΈΠ· ΡΠ°ΠΉΠ»Π° ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ², ΠΎΡΠ½ΠΎΡΡΡΠΈΡ ΡΡ ΠΊ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠΌΡ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ Π΄ΠΎΠΌΠ΅Π½Ρ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΡΠΉ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°Ρ readterm. Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡ ΡΡΠΎΠ³ΠΎ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ°
readterm (<οΏ½ΠΈΠΌΡ Π΄ΠΎΠΌΠ΅Π½Π° >,< Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² Π΄ΠΎΠΌΠ΅Π½Π°>).
Π Π°ΡΡΠΌΠΎΡΡΠΈΠΌ, ΠΊ ΠΏΡΠΈΠΌΠ΅ΡΡ, ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ½ΠΎΠ΅ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅
readterm (test, Term)
ΠΠ΄Π΅ΡΡ, ΠΏΡΠ΅Π΄ΠΈΠΊΠ°Ρ ΡΡΠΏΠ΅ΡΠ΅Π½, Π΅ΡΠ»ΠΈ Ρ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Π½ΠΎΠ³ΠΎ ΡΡΡΡΠΎΠΉΡΡΠ²Π° Π²Π²ΠΎΠ΄Π° Π±ΡΠ»Π° ΠΏΡΠΎΡΠΈΡΠ°Π½Π° ΡΡΡΠΎΠΊΠ°, ΡΠΎΠ²ΠΏΠ°Π΄Π°ΡΡΠ°Ρ ΠΏΠΎ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΡ Ρ Π·Π°ΠΏΠΈΡΡΡ ΠΠ test. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, exam («99−291″ ,» ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠ°", 3). Π’ΠΎΠ³Π΄Π° ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Term ΠΏΠΎΠ»ΡΡΠ°Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΡΠΎΠΉ Π·Π°ΠΏΠΈΡΠΈ. Π’ΠΎ Π΅ΡΡΡ, ΠΏΡΠ΅Π΄ΠΈΠΊΠ°Ρ Term=exam («99−291″,"inf», 3) ΠΈΡΡΠΈΠ½Π΅Π½.
Π Π°ΡΡΠΌΠΎΡΡΠΈΠΌ Π΄ΡΡΠ³ΠΎΠΉ ΠΏΡΠΈΠΌΠ΅Ρ
readterm (test, exam (Code, Course, Mark))
ΠΡΠ΅Π΄ΠΈΠΊΠ°Ρ ΡΡΠΏΠ΅ΡΠ΅Π½ ΡΠ°ΠΊΠΆΠ΅, Π΅ΡΠ»ΠΈ Ρ ΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½Π½ΠΎΠ³ΠΎ ΡΡΡΡΠΎΠΉΡΡΠ²Π° Π²Π²ΠΎΠ΄Π° Π±ΡΠ»Π° ΠΏΡΠΎΡΠΈΡΠ°Π½Π° ΡΡΡΠΎΠΊΠ°, ΡΠΎΠ²ΠΏΠ°Π΄Π°ΡΡΠ°Ρ ΠΏΠΎ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡΡ Ρ Π·Π°ΠΏΠΈΡΡΡ ΠΠ test, Π½ΠΎ ΡΡΠΎΡ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°Ρ ΡΠΆΠ΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΏΠΎΠ»Π΅ΠΉ Π·Π°ΠΏΠΈΡΠΈ, ΡΠΎ Π΅ΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Code ΠΏΠΎΠ»ΡΡΠ°Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ «99−291», ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Course — Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ «ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠ°», Π° ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Mark -3.
Π ΠΠΠ ΠΠΠΠ’ΠΠ ΠΠΠΠΠ Π’ΠΠ«Π₯ Π‘ΠΠ‘Π’ΠΠ
Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠΊΡΠΏΠ΅ΡΡΠ½ΡΡ ΡΠΈΡΡΠ΅ΠΌ (ΠΠ‘) ΡΠ²Π»ΡΠ΅ΡΡΡ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΠΏΠ»ΠΎΠ΄ΠΎΡΠ²ΠΎΡΠ½ΠΎΠΉ Π±ΡΡΡΡΠΎ ΡΠ°Π·Π²ΠΈΠ²Π°ΡΡΠ΅ΠΉΡΡ ΠΎΠ±Π»Π°ΡΡΡΡ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΡΠΎΠ»ΠΎΠ³Π°. ΠΡΠ΅Π½Ρ Π²Π°ΠΆΠ½ΠΎ ΠΏΠΎΠ½ΠΈΠΌΠ°ΡΡ, ΠΊΠ°ΠΊ ΡΠ°Π±ΠΎΡΠ°ΡΡ ΡΠΊΡΠΏΠ΅ΡΡΠ½ΡΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΠΎΠ½ΠΈ ΠΌΠΎΠ³ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ, ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ, Π² Π»ΡΠ±ΠΎΠΉ ΠΎΠ±Π»Π°ΡΡΠΈ Π·Π½Π°Π½ΠΈΠΉ.
ΠΠΊΡΠΏΠ΅ΡΡΠ½Π°Ρ ΡΠΈΡΡΠ΅ΠΌΠ° — ΡΡΠΎ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°, ΠΊΠΎΡΠΎΡΠ°Ρ Π² Π½Π΅ΠΊΠΎΡΠΎΡΠΎΠΉ ΠΎΠ±Π»Π°ΡΡΠΈ ΠΏΡΠΎΡΠ²Π»ΡΠ΅Ρ ΡΡΠ΅ΠΏΠ΅Π½Ρ ΠΏΠΎΠ·Π½Π°Π½ΠΈΠΉ ΡΠ°Π²Π½ΠΎΠ·Π½Π°ΡΠ½ΡΡ ΡΡΠ΅ΠΏΠ΅Π½ΠΈ ΠΏΠΎΠ·Π½Π°Π½ΠΈΡ ΡΠ΅Π»ΠΎΠ²Π΅ΠΊΠ°-ΡΠΊΡΠΏΠ΅ΡΡΠ°. ΠΠ±ΡΡΠ½ΠΎ ΡΡΠ° ΠΎΠ±Π»Π°ΡΡΡ ΡΡΡΠΎΠ³ΠΎ ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½Π°. ΠΠ΄Π½Π°ΠΊΠΎ, ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ ΠΎΠ³ΡΠΎΠΌΠ½ΠΎ. Π‘ΡΠ΄Π° Π²Ρ ΠΎΠ΄ΡΡ ΠΏΠΎΠ½ΠΈΠΌΠ°Π½ΠΈΠ΅ ΡΠ΅ΡΠΈ, Π°Π½Π°Π»ΠΈΠ· ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠΉ, ΠΏΡΠΎΠ³Π½ΠΎΠ· ΠΏΠΎΠ³ΠΎΠ΄Ρ, ΠΎΡΠ΅Π½ΠΊΠ° Π±ΡΠ΄ΡΡΠ΅Π³ΠΎ ΡΡΠΎΠΆΠ°Ρ, ΠΌΠ΅Π΄ΠΈΡΠΈΠ½ΡΠΊΠ°Ρ Π΄ΠΈΠ°Π³Π½ΠΎΡΡΠΈΠΊΠ°, ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»ΡΠ½ΡΡ ΡΡ Π΅ΠΌ, ΡΠΈΠ½Π°Π½ΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅, ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ Π²ΠΎΠ·Π΄ΡΡΠ½ΡΠΌ Π΄Π²ΠΈΠΆΠ΅Π½ΠΈΠ΅ΠΌ, ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ Π±ΠΎΠ΅ΠΌ ΠΈ Ρ. Π΄.
Π‘ΡΡΡΠΊΡΡΡΠ° ΡΠΊΡΠΏΠ΅ΡΡΠ½ΡΡ ΡΠΈΡΡΠ΅ΠΌ
Π§ΡΠΎΠ±Ρ ΠΏΡΠΎΠ²ΠΎΠ΄ΠΈΡΡ ΡΠΊΡΠΏΠ΅ΡΡΠΈΠ·Ρ, ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π΄ΠΎΠ»ΠΆΠ½Π° Π±ΡΡΡ ΡΠΏΠΎΡΠΎΠ±Π½Π° ΡΠ΅ΡΠ°ΡΡ Π·Π°Π΄Π°ΡΠΈ ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²ΠΎΠΌ Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ Π²ΡΠ²ΠΎΠ΄Π° ΠΈ ΠΏΠΎΠ»ΡΡΠ°ΡΡ ΠΏΡΠΈ ΡΡΠΎΠΌ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ Π½Π°Π΄Π΅ΠΆΠ½ΡΠ΅ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΡ. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π΄ΠΎΠ»ΠΆΠ½Π° ΠΈΠΌΠ΅ΡΡ Π΄ΠΎΡΡΡΠΏ ΠΊ ΡΠΈΡΡΠ΅ΠΌΠ΅ ΡΠ°ΠΊΡΠΎΠ², Π½Π°Π·ΡΠ²Π°Π΅ΠΌΠΎΠΉ Π±Π°Π·ΠΎΠΉ Π·Π½Π°Π½ΠΈΠΉ. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠ°ΠΊΠΆΠ΅ Π΄ΠΎΠ»ΠΆΠ½Π° Π²ΠΎ Π²ΡΠ΅ΠΌΡ ΠΊΠΎΠ½ΡΡΠ»ΡΡΠ°ΡΠΈΠΈ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡ Π·Π°ΠΊΠ»ΡΡΠ΅Π½ΠΈΡ ΠΈΠ· ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ, ΠΈΠΌΠ΅ΡΡΠ΅ΠΉΡΡ Π² Π±Π°Π·Π΅ Π·Π½Π°Π½ΠΈΠΉ. ΠΠ΅ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠΊΡΠΏΠ΅ΡΡΠ½ΡΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ ΠΌΠΎΠ³ΡΡ ΡΠ°ΠΊΠΆΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π½ΠΎΠ²ΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ, Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅ΠΌΡΡ Π²ΠΎ Π²ΡΠ΅ΠΌΡ ΠΊΠΎΠ½ΡΡΠ»ΡΡΠ°ΡΠΈΠΈ. ΠΠΊΡΠΏΠ΅ΡΡΠ½ΡΡ ΡΠΈΡΡΠ΅ΠΌΡ, ΡΠ°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΠΌΠΎΠΆΠ½ΠΎ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡ ΡΠΎΡΡΠΎΡΡΠ΅ΠΉ ΠΈΠ· ΡΡΠ΅Ρ ΡΠ°ΡΡΠ΅ΠΉ:
1. ΠΠ°Π·Π° Π·Π½Π°Π½ΠΈΠΉ (ΠΠ).
2. ΠΠ΅Ρ Π°Π½ΠΈΠ·ΠΌ Π²ΡΠ²ΠΎΠ΄Π° (ΠΠ).
3. Π‘ΠΈΡΡΠ΅ΠΌΠ° ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° (Π‘ΠΠ).
ΠΠ°Π·Π° Π·Π½Π°Π½ΠΈΠΉ — ΡΠ΅Π½ΡΡΠ°Π»ΡΠ½Π°Ρ ΡΠ°ΡΡΡ ΡΠΊΡΠΏΠ΅ΡΡΠ½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ. ΠΠ½Π° ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΏΡΠ°Π²ΠΈΠ»Π°, ΠΎΠΏΠΈΡΡΠ²Π°ΡΡΠΈΠ΅ ΠΎΡΠ½ΠΎΡΠ΅Π½ΠΈΡ ΠΈΠ»ΠΈ ΡΠ²Π»Π΅Π½ΠΈΡ, ΠΌΠ΅ΡΠΎΠ΄Ρ ΠΈ Π·Π½Π°Π½ΠΈΡ Π΄Π»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π·Π°Π΄Π°Ρ ΠΈΠ· ΠΎΠ±Π»Π°ΡΡΠΈ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ ΡΠΈΡΡΠ΅ΠΌΡ. ΠΠΎΠΆΠ½ΠΎ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡ Π±Π°Π·Ρ Π·Π½Π°Π½ΠΈΠΉ ΡΠΎΡΡΠΎΡΡΠ΅ΠΉ ΠΈΠ· ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΡ Π·Π½Π°Π½ΠΈΠΉ ΠΈ Π·Π½Π°Π½ΠΈΠΉ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ Π΄Π»Ρ Π²ΡΠ²ΠΎΠ΄Π° Π΄ΡΡΠ³ΠΈΡ Π·Π½Π°Π½ΠΈΠΉ. Π£ΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΠ΅ «ΠΠΆΠΎΠ½ Π€. ΠΠ΅Π½Π½Π΅Π΄ΠΈ Π±ΡΠ» 35-ΠΌ ΠΏΡΠ΅Π·ΠΈΠ΄Π΅Π½ΡΠΎΠΌ Π‘ΠΎΠ΅Π΄ΠΈΠ½Π΅Π½Π½ΡΡ Π¨ΡΠ°ΡΠΎΠ²» — ΠΏΡΠΈΠΌΠ΅Ρ ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ Π·Π½Π°Π½ΠΈΡ. «ΠΡΠ»ΠΈ Ρ Π²Π°Ρ Π±ΠΎΠ»ΠΈΡ Π³ΠΎΠ»ΠΎΠ²Π°, ΡΠΎ ΠΏΡΠΈΠΌΠΈΡΠ΅ Π΄Π²Π΅ ΡΠ°Π±Π»Π΅ΡΠΊΠΈ ΡΠΈΡΡΠ°ΠΌΠΎΠ½Π°» — ΠΏΡΠΈΠΌΠ΅Ρ Π·Π½Π°Π½ΠΈΡ Π΄Π»Ρ Π²ΡΠ²ΠΎΠ΄Π°. Π‘Π°ΠΌΠ° Π±Π°Π·Π° Π·Π½Π°Π½ΠΈΠΉ ΠΎΠ±ΡΡΠ½ΠΎ ΡΠ°ΡΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ Π½Π° Π΄ΠΈΡΠΊΠ΅ ΠΈΠ»ΠΈ Π΄ΡΡΠ³ΠΎΠΌ Π½ΠΎΡΠΈΡΠ΅Π»Π΅.
ΠΠ΅Ρ Π°Π½ΠΈΠ·ΠΌ Π²ΡΠ²ΠΎΠ΄Π° ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΏΡΠΈΠ½ΡΠΈΠΏΡ ΠΈ ΠΏΡΠ°Π²ΠΈΠ»Π° ΡΠ°Π±ΠΎΡΡ. ΠΠ΅Ρ Π°Π½ΠΈΠ·ΠΌ Π²ΡΠ²ΠΎΠ΄Π° «Π·Π½Π°Π΅Ρ», ΠΊΠ°ΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π±Π°Π·Ρ Π·Π½Π°Π½ΠΈΠΉ ΡΠ°ΠΊ, ΡΡΠΎΠ±Ρ ΠΌΠΎΠΆΠ½ΠΎ Π±ΡΠ»ΠΎ ΠΏΠΎΠ»ΡΡΠ°ΡΡ ΡΠ°Π·ΡΠΌΠ½ΠΎ ΡΠΎΠ³Π»Π°ΡΡΡΡΠΈΠ΅ΡΡ Π·Π°ΠΊΠ»ΡΡΠ΅Π½ΠΈΡ (Π²ΡΠ²ΠΎΠ΄Ρ) ΠΈΠ· ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ, Π½Π°Ρ ΠΎΠ΄ΡΡΠ΅ΠΉΡΡ Π² Π½Π΅ΠΉ.
ΠΠΎΠ³Π΄Π° ΡΠΊΡΠΏΠ΅ΡΡΠ½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΠ΅ Π·Π°Π΄Π°Π΅ΡΡΡ Π²ΠΎΠΏΡΠΎΡ, ΠΌΠ΅Ρ Π°Π½ΠΈΠ·ΠΌ Π²ΡΠ²ΠΎΠ΄Π° Π²ΡΠ±ΠΈΡΠ°Π΅Ρ ΡΠΏΠΎΡΠΎΠ± ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΏΡΠ°Π²ΠΈΠ» Π±Π°Π·Ρ Π·Π½Π°Π½ΠΈΠΉ Π΄Π»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π·Π°Π΄Π°ΡΠΈ, ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΠΎΠΉ Π² Π²ΠΎΠΏΡΠΎΡΠ΅. Π€Π°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ, ΠΌΠ΅Ρ Π°Π½ΠΈΠ·ΠΌ Π²ΡΠ²ΠΎΠ΄Π° Π·Π°ΠΏΡΡΠΊΠ°Π΅Ρ ΡΠΊΡΠΏΠ΅ΡΡΠ½ΡΡ ΡΠΈΡΡΠ΅ΠΌΡ Π² ΡΠ°Π±ΠΎΡΡ, ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡ ΠΊΠ°ΠΊΠΈΠ΅ ΠΏΡΠ°Π²ΠΈΠ»Π° Π½ΡΠΆΠ½ΠΎ Π²ΡΠ·Π²Π°ΡΡ ΠΈ ΠΎΡΠ³Π°Π½ΠΈΠ·ΡΡ ΠΊ Π½ΠΈΠΌ Π΄ΠΎΡΡΡΠΏ Π² Π±Π°Π·Ρ Π·Π½Π°Π½ΠΈΠΉ. ΠΠ΅Ρ Π°Π½ΠΈΠ·ΠΌ Π²ΡΠ²ΠΎΠ΄Π° Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ ΠΏΡΠ°Π²ΠΈΠ»Π°, ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅Ρ, ΠΊΠΎΠ³Π΄Π° Π½Π°ΠΉΠ΄Π΅Π½ΠΎ ΠΏΡΠΈΠ΅ΠΌΠ»Π΅ΠΌΠΎΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΈ ΠΏΠ΅ΡΠ΅Π΄Π°Π΅Ρ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ. ΠΠΎΠ³Π΄Π° Π²ΠΎΠΏΡΠΎΡ Π΄ΠΎΠ»ΠΆΠ΅Π½ Π±ΡΡΡ ΠΏΡΠ΅Π΄Π²Π°ΡΠΈΡΠ΅Π»ΡΠ½ΠΎ ΠΎΠ±ΡΠ°Π±ΠΎΡΠ°Π½, ΡΠΎ Π΄ΠΎΡΡΡΠΏ ΠΊ Π±Π°Π·Π΅ Π·Π½Π°Π½ΠΈΠΉ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ΅ΡΠ΅Π· ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ.
ΠΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ — ΡΡΠΎ ΡΠ°ΡΡΡ ΡΠΊΡΠΏΠ΅ΡΡΠ½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ, ΠΊΠΎΡΠΎΡΠ°Ρ Π²Π·Π°ΠΈΠΌΠΎΠ΄Π΅ΠΉΡΡΠ²ΡΠ΅Ρ Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ. ΠΠ°ΠΊ ΠΏΡΠ°Π²ΠΈΠ»ΠΎ, ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΠΈ ΠΌΠ°Π»ΠΎ Π·Π½Π°ΡΡ ΠΎΠ± ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΠΈ Π±Π°Π·Ρ Π·Π½Π°Π½ΠΈΠΉ, ΠΏΠΎΡΡΠΎΠΌΡ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ ΠΌΠΎΠΆΠ΅Ρ ΠΏΠΎΠΌΠΎΡΡ ΠΈΠΌ ΡΠ°Π±ΠΎΡΠ°ΡΡ Ρ ΡΠΊΡΠΏΠ΅ΡΡΠ½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΠΎΠΉ Π΄Π°ΠΆΠ΅, Π΅ΡΠ»ΠΈ ΠΎΠ½ΠΈ Π½Π΅ Π·Π½Π°ΡΡ, ΠΊΠ°ΠΊ ΠΎΠ½Π° ΠΎΡΠ³Π°Π½ΠΈΠ·ΠΎΠ²Π°Π½Π°. ΠΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ ΠΌΠΎΠΆΠ΅Ρ ΡΠ°ΠΊΠΆΠ΅ ΠΎΠ±ΡΡΡΠ½ΠΈΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ, ΠΊΠ°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ ΡΠΊΡΠΏΠ΅ΡΡΠ½Π°Ρ ΡΠΈΡΡΠ΅ΠΌΠ° Π²ΡΠ²ΠΎΠ΄ΠΈΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ.
Π Π½Π°ΡΡΠΎΡΡΠ΅ΠΌ ΠΈΠ·Π΄Π°Π½ΠΈΠΈ ΠΌΡ ΠΎΠ³ΡΠ°Π½ΠΈΡΠΈΠΌΡΡ Π»ΠΈΡΡ ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΠ΅ΠΉ ΠΠ ΠΈ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ΠΌ ΡΡΡΠ°ΡΠ΅Π³ΠΈΠ΅ΠΉ Π²ΡΠ²ΠΎΠ΄Π°. ΠΠ»Ρ ΡΠ΅Π³ΠΎ ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ Π΄Π²Π° ΠΏΡΠΈΠΌΠ΅ΡΠ° ΡΠ΅Π°Π»ΠΈΠ·Π°ΡΠΈΠΈ ΠΠ‘ ΡΡΠ΅Π΄ΡΡΠ²Π°ΠΌΠΈ Π’ΡΡΠ±ΠΎ-ΠΏΡΠΎΠ»ΠΎΠ³Π°: ΠΠ‘, ΠΏΠΎΡΡΡΠΎΠ΅Π½Π½ΡΡ Π½Π° ΠΏΡΠ°Π²ΠΈΠ»Π°Ρ , ΠΈ ΠΠ‘, ΠΏΠΎΡΡΡΠΎΠ΅Π½Π½ΡΡ Π½Π° Π»ΠΎΠ³ΠΈΠΊΠ΅.
ΠΠΊΡΠΏΠ΅ΡΡΠ½Π°Ρ ΡΠΈΡΡΠ΅ΠΌΠ° Π½Π° ΠΏΡΠ°Π²ΠΈΠ»Π°Ρ
ΠΠΎ Π²ΡΠ΅Ρ ΡΠΊΡΠΏΠ΅ΡΡΠ½ΡΡ ΡΠΈΡΡΠ΅ΠΌΠ°Ρ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΡ ΠΌΠ΅ΠΆΠ΄Ρ Π²Ρ ΠΎΠ΄Π½ΡΠΌ ΠΏΠΎΡΠΎΠΊΠΎΠΌ Π΄Π°Π½Π½ΡΡ ΠΈ Π΄Π°Π½Π½ΡΠΌΠΈ Π² Π±Π°Π·Π΅ Π·Π½Π°Π½ΠΈΠΉ. ΠΠΎ Π²ΡΠ΅ΠΌΡ ΠΊΠΎΠ½ΡΡΠ»ΡΡΠ°ΡΠΈΠΈ Π²Ρ ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ ΡΠΎΠΏΠΎΡΡΠ°Π²Π»ΡΡΡΡΡ Ρ Π΄Π°Π½Π½ΡΠΌΠΈ Π² Π±Π°Π·Π΅ Π·Π½Π°Π½ΠΈΠΉ. Π Π΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠΌ ΡΠΎΠΏΠΎΡΡΠ°Π²Π»Π΅Π½ΠΈΡ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΡΡΠΈΡΠ°ΡΠ΅Π»ΡΠ½ΡΠΉ ΠΈΠ»ΠΈ ΡΡΠ²Π΅ΡΠ΄ΠΈΡΠ΅Π»ΡΠ½ΡΠΉ ΠΎΡΠ²Π΅Ρ.
Π ΡΠΈΡΡΠ΅ΠΌΠ΅, Π±Π°Π·ΠΈΡΡΡΡΠ΅ΠΉΡΡ Π½Π° ΠΏΡΠ°Π²ΠΈΠ»Π°Ρ , ΡΡΠ²Π΅ΡΠ΄ΠΈΡΠ΅Π»ΡΠ½ΡΠΉ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ ΡΠ²Π»ΡΠ΅ΡΡΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΠ΅ΠΌ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΈΠ· ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΎΠ½Π½ΡΡ ΠΏΡΠ°Π²ΠΈΠ». ΠΡΠΈ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΎΠ½Π½ΡΠ΅ ΠΏΡΠ°Π²ΠΈΠ»Π° ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡΡΡ Π²Ρ ΠΎΠ΄Π½ΡΠΌΠΈ Π΄Π°Π½Π½ΡΠΌΠΈ.
ΠΠΊΡΠΏΠ΅ΡΡΠ½Π°Ρ ΡΠΈΡΡΠ΅ΠΌΠ°, Π±Π°Π·ΠΈΡΡΡΡΠ°ΡΡΡ Π½Π° ΠΏΡΠ°Π²ΠΈΠ»Π°Ρ (Π½Π° Π’ΡΡΠ±ΠΎ-ΠΡΠΎΠ»ΠΎΠ³Π΅) ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ ΠΏΡΠ°Π²ΠΈΠ». ΠΡΠ΅Π΄ΠΈΠΊΠ°ΡΡ Π² Π»Π΅Π²ΠΎΠΉ ΡΠ°ΡΡΠΈ ΠΏΡΠ°Π²ΠΈΠ» ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡ ΠΎΠ΄ΠΈΠ½ ΠΈΠ· Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΡΡ Π²Π°ΡΠΈΠ°Π½ΡΠΎΠ² ΡΠ΅ΡΠ΅Π½ΠΈΡ Π·Π°Π΄Π°ΡΠΈ, ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΡ Π² ΠΏΡΠ°Π²ΠΎΠΉ ΡΠ°ΡΡΠΈ Π²ΡΠ΅Π³Π΄Π° ΡΠΏΠ΅ΡΠΈΡΠΈΡΠΈΡΡΡΡΡΡ Π΄ΡΡΠ³ΠΈΠΌΠΈ ΠΏΡΠ°Π²ΠΈΠ»Π°ΠΌΠΈ, ΠΏΠΎΠΌΠΈΠΌΠΎ ΡΠ΅Ρ ΡΠ»ΡΡΠ°Π΅Π², ΠΊΠΎΠ³Π΄Π° ΠΏΡΠ΅Π΄ΠΈΠΊΠ°Ρ ΠΏΡΠΎΡΡΠΎ ΠΏΡΠΎΠ²Π΅ΡΡΠ΅Ρ, Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ Π»ΠΈ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½Π°Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ Π² Π±Π°Π·Π΅ Π΄Π°Π½Π½ΡΡ . ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ, ΠΏΠΎΠΌΠ΅ΡΠ°Π΅ΠΌΠ°Ρ Π² Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ , ΠΈΠ·Π²Π»Π΅ΠΊΠ°Π΅ΡΡΡ ΠΈΠ· ΠΎΡΠ²Π΅ΡΠΎΠ² ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π½Π° Π·Π°Π΄Π°Π²Π°Π΅ΠΌΡΠ΅ Π²ΠΎΠΏΡΠΎΡΡ. ΠΡΠ΅ ΠΎΡΠ²Π΅ΡΡ ΡΠΎΡ ΡΠ°Π½ΡΡΡΡΡ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΠΎΠ½ΠΈ ΠΌΠΎΠ³ΡΡ ΠΏΠΎΠ½Π°Π΄ΠΎΠ±ΠΈΡΡΡΡ ΠΏΠΎΠ·Π΄Π½Π΅Π΅.
ΠΠΊΡΠΏΠ΅ΡΡΠ½Π°Ρ ΡΠΈΡΡΠ΅ΠΌΠ° ΡΠ°ΠΊΠΆΠ΅ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΈΠ½ΡΠ΅ΡΠΏΡΠ΅ΡΠ°ΡΠΎΡ Π² ΠΌΠ΅Ρ Π°Π½ΠΈΠ·ΠΌΠ΅ Π²ΡΠ²ΠΎΠ΄Π°. Π Π°Π±ΠΎΡΡ ΡΡΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅ΡΠΏΡΠ΅ΡΠ°ΡΠΎΡΠ° ΠΌΠΎΠΆΠ½ΠΎ ΠΎΠΏΠΈΡΠ°ΡΡ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΡΡΡΡ ΡΡΠ΅Ρ ΡΠ°Π³ΠΎΠ²: ΠΈΠ½ΡΠ΅ΡΠΏΡΠ΅ΡΠ°ΡΠΎΡ ΡΠΎΠΏΠΎΡΡΠ°Π²Π»ΡΠ΅Ρ ΠΎΠ±ΡΠ°Π·Π΅Ρ ΠΏΡΠ°Π²ΠΈΠ»Π° Ρ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°ΠΌΠΈ Π΄Π°Π½Π½ΡΡ Π² Π±Π°Π·Π΅ Π·Π½Π°Π½ΠΈΠΉ; Π΅ΡΠ»ΠΈ ΠΌΠΎΠΆΠ½ΠΎ Π²ΡΠ·Π²Π°ΡΡ Π±ΠΎΠ»Π΅Π΅ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΏΡΠ°Π²ΠΈΠ»Π°, ΡΠΎ ΠΈΠ½ΡΠ΅ΡΠΏΡΠ΅ΡΠ°ΡΠΎΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ ΠΌΠ΅Ρ Π°Π½ΠΈΠ·ΠΌ ΡΠ°Π·ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΊΠΎΠ½ΡΠ»ΠΈΠΊΡΠ° Π΄Π»Ρ Π²ΡΠ±ΠΎΡΠ° ΠΏΡΠ°Π²ΠΈΠ»Π°; ΠΈΠ½ΡΠ΅ΡΠΏΡΠ΅ΡΠ°ΡΠΎΡ ΠΏΡΠΈΠΌΠ΅Π½ΡΠ΅Ρ Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠ΅ ΠΏΡΠ°Π²ΠΈΠ»ΠΎ, ΡΡΠΎΠ±Ρ Π½Π°ΠΉΡΠΈ ΠΎΡΠ²Π΅Ρ Π½Π° Π²ΠΎΠΏΡΠΎΡ. ΠΡΠΎΡ ΠΏΡΠΎΡΠ΅ΡΡ ΠΈΠ½ΡΠ΅ΡΠΏΡΠ΅ΡΠ°ΡΠΈΠΈ ΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠΈΠΊΠ»ΠΈΡΠ΅ΡΠΊΠΈΠΌ ΠΈ Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ ΡΠΈΠΊΠ»ΠΎΠΌ «ΡΠ°ΡΠΏΠΎΠ·Π½Π°Π²Π°Π½ΠΈΠ΅-Π΄Π΅ΠΉΡΡΠ²ΠΈΠ΅» .
Π Π°ΡΡΠΌΠΎΡΡΠΈΠΌ Π² ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΏΡΠΈΠΌΠ΅ΡΠ° ΡΠΊΡΠΏΠ΅ΡΡΠ½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ Π½Π° ΠΏΡΠ°Π²ΠΈΠ»Π°Ρ ΡΠΈΡΡΠ΅ΠΌΡ Π΄Π»Ρ ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΈΠΈ ΠΏΠΎΡΠΎΠ΄ ΡΠΎΠ±Π°ΠΊ. ΠΠ½Π° ΠΏΠΎΠΌΠΎΠ³Π°Π΅Ρ ΠΏΠΎΡΠ΅Π½ΡΠΈΠ°Π»ΡΠ½ΠΎΠΌΡ Ρ ΠΎΠ·ΡΠΈΠ½Ρ Π²ΡΠ±ΡΠ°ΡΡ ΠΏΠΎΡΠΎΠ΄Ρ ΡΠΎΠ±Π°ΠΊΠΈ Π² ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΈΠΈ Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠΌΠΈ ΠΊΡΠΈΡΠ΅ΡΠΈΡΠΌΠΈ.
ΠΡΠ΅Π΄ΠΏΠΎΠ»ΠΎΠΆΠΈΠΌ, ΡΡΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΡΠΎΠΎΠ±ΡΠΈΠ» ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ Ρ Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΡΡΠΈΠΊ ΡΠΎΠ±Π°ΠΊΠΈ Π² ΠΎΡΠ²Π΅Ρ Π½Π° Π²ΠΎΠΏΡΠΎΡΡ ΡΠΊΡΠΏΠ΅ΡΡΠ½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ. ΠΠ½ΡΠ΅ΡΠΏΡΠ΅ΡΠ°ΡΠΎΡ ΡΠ°Π±ΠΎΡΠ°Π΅Ρ Π² ΡΠΈΠΊΠ»Π΅ ΡΠ°ΡΠΏΠΎΠ·Π½Π°Π²Π°Π½ΠΈΠ΅-Π΄Π΅ΠΉΡΡΠ²ΠΈΠ΅. ΠΡΠ»ΠΈ Ρ Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΡΡΠΈΠΊΠΈ, Π·Π°Π΄Π°Π½Π½ΡΠ΅ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΌ, ΡΠΎΠΏΠΎΡΡΠ°Π²ΠΈΠΌΡ Ρ Ρ Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΡΡΠΈΠΊΠ°ΠΌΠΈ ΠΏΠΎΡΠΎΠ΄Ρ ΡΠΎΠ±Π°ΠΊΠΈ, ΡΠΎΡΡΠ°Π²Π»ΡΡΡΠΈΠΌΠΈ ΡΠ°ΡΡΡ Π±Π°Π·Ρ Π·Π½Π°Π½ΠΈΠΉ, ΡΠΎΠ³Π΄Π° Π²ΡΠ·ΡΠ²Π°Π΅ΡΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅Π΅ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΎΠ½Π½ΠΎΠ΅ ΠΏΡΠ°Π²ΠΈΠ»ΠΎ ΠΈ Π² ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΡΠΈΡΡΠ΅ΡΡΡ ΠΏΠΎΡΠΎΠ΄Π°. ΠΠ°ΡΠ΅ΠΌ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ ΡΠΎΠΎΠ±ΡΠ°Π΅ΡΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ. ΠΡΠ»ΠΈ ΠΏΠΎΡΠΎΠ΄Π° Π½Π΅ ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΡΠΈΡΠΎΠ²Π°Π½Π°, ΡΡΠΎ ΡΠΎΠΆΠ΅ ΡΠΎΠΎΠ±ΡΠ°Π΅ΡΡΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ.
Π Π°ΡΡΠΌΠΎΡΡΠΈΠΌ Π΄Π²Π΅ ΠΏΠΎΡΠΎΠ΄Ρ ΡΠΎΠ±Π°ΠΊ, ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ ΠΊΠΎΡΠΎΡΡΡ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡΡΡ Π² Π±Π°Π·Π΅ Π·Π½Π°Π½ΠΈΠΉ. ΠΠΎΠ½ΡΠ°Ρ ΠΈΠΌΠ΅Π΅Ρ ΠΊΠΎΡΠΎΡΠΊΡΡ ΡΠ΅ΡΡΡΡ, Π²ΡΡΠΎΡΡ Π² Ρ ΠΎΠ»ΠΊΠ΅ ΠΌΠ΅Π½ΡΡΠ΅ 57 ΡΠΌ Π΄Π»ΠΈΠ½Π½ΡΠ΅ ΡΡΠΈ ΠΈ Ρ ΠΎΡΠΎΡΠΈΠΉ Ρ Π°ΡΠ°ΠΊΡΠ΅Ρ. ΠΠ°ΡΡΠΊΠΈΠΉ Π΄ΠΎΠ³ ΠΈΠΌΠ΅Π΅Ρ ΠΊΠΎΡΠΎΡΠΊΡΡ ΡΠ΅ΡΡΡΡ, Π½ΠΈΠ·ΠΊΠΎ ΠΏΠΎΡΠ°ΠΆΠ΅Π½Π½ΡΠΉ Ρ Π²ΠΎΡΡ, Π΄Π»ΠΈΠ½Π½ΡΠ΅ ΡΡΠΈ, Ρ ΠΎΡΠΎΡΠΈΠΉ Ρ Π°ΡΠ°ΠΊΡΠ΅Ρ ΠΈ Π²Π΅Ρ Π±ΠΎΠ»Π΅Π΅ 45 ΠΊΠ³.
ΠΠ· ΡΡΠΎΠ³ΠΎ ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ Π²ΠΈΠ΄Π½ΠΎ, ΡΡΠΎ ΠΎΠ±Π΅ ΠΏΠΎΡΠΎΠ΄Ρ ΠΈΠΌΠ΅ΡΡ ΠΊΠΎΡΠΎΡΠΊΡΡ ΡΠ΅ΡΡΡΡ, Π΄Π»ΠΈΠ½Π½ΡΠ΅ ΡΡΠΈ ΠΈ Ρ ΠΎΡΠΎΡΠΈΠΉ Ρ Π°ΡΠ°ΠΊΡΠ΅Ρ. Π ΠΎΡΡ Π³ΠΎΠ½ΡΠ΅ΠΉ ΠΌΠ΅Π½ΡΡΠ΅ 57 ΡΠΌ Π² ΡΠΎ Π²ΡΠ΅ΠΌΡ, ΠΊΠ°ΠΊ Π½ΠΈΡΠ΅Π³ΠΎ Π½Π΅ ΡΠΊΠ°Π·Π°Π½ΠΎ ΠΎ ΡΠΎΡΡΠ΅ Π΄ΠΎΠ³Π°. ΠΠΎΠ³ ΠΈΠΌΠ΅Π΅Ρ Π½ΠΈΠ·ΠΊΠΎ ΠΏΠΎΡΠ°ΠΆΠ΅Π½Π½ΡΠΉ Ρ Π²ΠΎΡΡ ΠΈ Π²Π΅Ρ Π±ΠΎΠ»Π΅Π΅ 45 ΠΊΠ³ — Ρ Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΡΡΠΈΠΊΠΈ ΠΎΡΡΡΡΡΡΠ²ΡΡΡΠΈΠ΅ Π΄Π»Ρ Π³ΠΎΠ½ΡΠ΅ΠΉ. ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π΄Π²ΡΡ ΡΠΎΠ±Π°ΠΊ Π² ΡΠ΅ΡΠΌΠΈΠ½Π°Ρ ΡΠΊΠ°Π·Π°Π½Π½ΡΡ Ρ Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΡΡΠΈΠΊ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ, ΡΡΠΎΠ±Ρ ΡΠ°Π·Π»ΠΈΡΠΈΡΡ ΡΡΠΈ Π΄Π²Π΅ ΠΏΠΎΡΠΎΠ΄Ρ, ΠΈ Π΄Π°ΠΆΠ΅ ΠΎΡΠ»ΠΈΡΠΈΡΡ ΠΈΡ ΠΎΡ Π»ΡΠ±ΠΎΠΉ Π΄ΡΡΠ³ΠΎΠΉ ΠΏΠΎΡΠΎΠ΄Ρ Π² Π±Π°Π·Π΅ Π·Π½Π°Π½ΠΈΠΉ.
Π‘Π»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΎΠ½Π½ΡΠ΅ ΠΏΡΠ°Π²ΠΈΠ»Π° ΠΌΠΎΠ³ΡΡ Π±ΡΡΡ ΡΠΎΡΡΠ°Π²Π»Π΅Π½Ρ ΠΏΠΎ ΡΠΊΠ°Π·Π°Π½Π½ΡΠΌ Ρ Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΡΡΠΈΠΊΠ°ΠΌ:
dog_is («ΠΠΎΠ½ΡΠ°Ρ»): — it_is («ΠΊΠΎΡΠΎΡΠΊΠΎΠ΅ΡΡΡΠ½Π°Ρ ΡΠΎΠ±Π°ΠΊΠ°»),
positive(«Π΅Π΅» ," Π²ΡΡΠΎΡΠ° Π² Ρ ΠΎΠ»ΠΊΠ΅ Π½Π΅ Π±ΠΎΠ»Π΅Π΅ 57 ΡΠΌ"),
positive(«Ρ Π½Π΅Π΅» ," Π΄Π»ΠΈΠ½Π½ΡΠ΅ ΡΡΠΈ"),
positive(«Ρ Π½Π΅Π΅» ," Π΄ΡΡΠΆΠ΅Π»ΡΠ±Π½ΡΠΉ Ρ Π°ΡΠ°ΠΊΡΠ΅Ρ"), !.
dog_is («Great Dane»): — it_is («Π΄Π»ΠΈΠ½Π½ΠΎΡΠ΅ΡΡΡΠ½Π°Ρ ΡΠΎΠ±Π°ΠΊΠ°»),
positive («Ρ Π½Π΅Π΅» ," Π½ΠΈΠ·ΠΊΠΎ ΠΏΠΎΡΠ°ΠΆΠ΅Π½Π½ΡΠΉ Ρ Π²ΠΎΡΡ"),
positive(«Ρ Π½Π΅Π΅» ," Π΄Π»ΠΈΠ½Π½ΡΠ΅ ΡΡΠΈ"),
positive(«Ρ Π½Π΅Π΅» ," Π΄ΡΡΠΆΠ΅Π»ΡΠ±Π½ΡΠΉ Ρ Π°ΡΠ°ΠΊΡΠ΅Ρ"),
positive(«Π΅Π΅» ," Π²Π΅Ρ Π±ΠΎΠ»Π΅Π΅ 45 ΠΊΠ³"), !.
ΠΠ°ΠΌΠ΅ΡΠΈΠΌ, ΡΡΠΎ Π² ΠΏΡΠ°Π²ΠΈΠ»Π°Ρ Π΄Π»ΠΈΠ½Π° ΡΠ΅ΡΡΡΠΈ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Π° Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ° positive Π² Π²ΠΈΠ΄Π΅:
positive («Ρ Π½Π΅Π΅» ," ΠΊΠΎΡΠΎΡΠΊΠ°Ρ ΡΠ΅ΡΡΡΡ").
ΠΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ° it_is ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΎΠ³ΡΠ°Π½ΠΈΡΠΈΡΡ «ΠΏΡΠΎΡΡΡΠ°Π½ΡΡΠ²ΠΎ ΠΏΠΎΠΈΡΠΊΠ°» (ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π΄Π°Π½Π½ΡΡ , ΠΏΡΠΎΠ²Π΅ΡΡΠ΅ΠΌΡΡ ΠΏΡΠΈ ΠΏΠΎΠΈΡΠΊΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΡ) ΠΎΠ΄Π½ΠΈΠΌ ΠΏΠΎΠ΄Π΄Π΅ΡΠ΅Π²ΠΎΠΌ Π΄ΡΠ΅Π²ΠΎΠ²ΠΈΠ΄Π½ΠΎΠΉ ΡΡΡΡΠΊΡΡΡΡ, ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠ΅ΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ ΡΠ°Π·Π½ΡΡ ΠΏΠΎΡΠΎΠ΄Π°Ρ ΡΠΎΠ±Π°ΠΊ.
ΠΠΊΡΠΏΠ΅ΡΡΠ½Π°Ρ ΡΠΈΡΡΠ΅ΠΌΠ°, Π±Π°Π·ΠΈΡΡΡΡΠ°ΡΡΡ Π½Π° ΠΏΡΠ°Π²ΠΈΠ»Π°Ρ , ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²ΡΠΈΠΊΡ ΡΡΡΠΎΠΈΡΡ ΠΏΡΠ°Π²ΠΈΠ»Π°, ΠΊΠΎΡΠΎΡΡΠ΅ Π΅ΡΡΠ΅ΡΡΠ²Π΅Π½Π½ΡΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½ΡΡΡ Π² Π³ΡΡΠΏΠΏΡ ΡΠ²ΡΠ·Π°Π½Π½ΡΠ΅ ΡΡΠ°Π³ΠΌΠ΅Π½ΡΡ Π·Π½Π°Π½ΠΈΠΉ. ΠΠ°ΠΆΠ΄ΠΎΠ΅ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΎΠ½Π½ΠΎΠ΅ ΠΏΡΠ°Π²ΠΈΠ»ΠΎ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π½Π΅Π·Π°Π²ΠΈΡΠΈΠΌΡΠΌ ΠΎΡ Π΄ΡΡΠ³ΠΈΡ . ΠΡΠ° Π½Π΅Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΡ Π΄Π΅Π»Π°Π΅Ρ Π±Π°Π·Ρ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΎΠ½Π½ΡΡ ΠΏΡΠ°Π²ΠΈΠ» ΡΠ΅ΠΌΠ°Π½ΡΠΈΡΠ΅ΡΠΊΠΈ ΠΌΠΎΠ΄ΡΠ»ΡΠ½ΠΎΠΉ, Ρ. Π΅. Π³ΡΡΠΏΠΏΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ Π½Π΅ Π²Π»ΠΈΡΡΡ Π΄ΡΡΠ³ Π½Π° Π΄ΡΡΠ³Π°. ΠΠΎΠ»Π΅Π΅ ΡΠΎΠ³ΠΎ, ΠΌΠΎΠ΄ΡΠ»ΡΠ½ΠΎΡΡΡ Π±Π°Π·Ρ ΠΏΡΠ°Π²ΠΈΠ» ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠ°Π·Π²ΠΈΠ²Π°ΡΡ Π±Π°Π·Ρ Π·Π½Π°Π½ΠΈΠΉ, ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°Ρ Π΅Π΅.
ΠΠΠ‘Π’ΠΠΠ
/* ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°: ΡΠΊΡΠΏΠ΅ΡΡ ΠΏΠΎ ΠΏΠΎΡΠΎΠ΄Π°ΠΌ ΡΠΎΠ±Π°ΠΊ */
/* ΠΡΠΎ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΎΠ½Π½Π°Ρ ΡΠΈΡΡΠ΅ΠΌΠ°, Π±Π°Π·ΠΈΡΡΡΡΠ°ΡΡΡ Π½Π° ΠΏΡΠ°Π²ΠΈΠ»Π°Ρ */
database
xpositive (symbol, symbol)
xnegative (symbol, symbol)
predicates
do_expert_job
do_consulting
ask (symbol, symbol)
dog_is (symbol)
it_is (symbol)
positive (symbol, symbol)
negative (symbol, symbol)
remember (symbol, symbol, symbol)
clear_facts
goal
do_expert_job .
clauses
/* Π‘ΠΈΡΡΠ΅ΡΠΌΠ° ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° */
do_expert_job : — makewindow (1, 7, 7, «ΠΠΠ‘ΠΠΠ Π’ ΠΠ ΠΠΠ ΠΠΠΠ Π‘ΠΠΠΠ, 1, 16, 22, 58),
nl, write («* * * * * * * * * * * * * * * * * * * * * «),
nl, write («ΠΠΠΠ Π ΠΠΠΠΠΠΠΠΠ’Π¬! «), nl, nl,
nl, write («ΠΡΠΎΠ²ΠΎΠ΄ΠΈΡΡΡ ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΈΡ ΠΏΠΎΡΠΎΠ΄Ρ «), nl, nl,
nl, write («ΠΡΠ²Π΅ΡΠ°ΠΉΡΠ΅, ΠΏΠΎΠΆΠ°Π»ΡΠΉΡΡΠ°, 'Π΄Π°' ΠΈΠ»ΠΈ 'Π½Π΅Ρ' «),
nl, write («Π° Π²ΠΎΠΏΡΠΎΡΡ ΠΎ ΡΠΎΠ±Π°ΠΊΠ΅, ΠΏΠΎΡΠΎΠ΄Ρ ΠΊΠΎΡΠΎΡΠΎΠΉ «),
nl, write («ΠΡ Ρ ΠΎΡΠΈΡΠ΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΡ «),
nl, write (« * * * * * * * * * * * * * * * * * * * * * * «),
nl, nl, do_consulting, write («ΠΠ°ΠΆΠΌΠΈΡΠ΅ Π»ΡΠ±ΡΡ ΠΊΠ»Π°Π²ΠΈΡΡ»),
nl, readchar (_), removewindow.
do_consulting : — dog_is (X), !, nl, write («ΠΠ΅ΡΠΎΡΡΠ½ΠΎ ΠΠ°ΡΠ° ΡΠΎΠ±Π°ΠΊΠ° — „, X,“ .»),
nl, clear_facts.
do_consulting : — nl, write («ΠΠ·Π²ΠΈΠ½ΠΈΡΠ΅, Ρ Π½Π΅ ΡΠΌΠΎΠ³Ρ ΠΏΠΎΠΌΠΎΡΡ ΠΠ°ΠΌ!»),
clear_facts.
ask (X, Y) : — write («?: — «, X, « «, Y, «? «), readln (Reply),
remember (X, Y, Reply).
/* ΠΠ΅Ρ Π°Π½ΠΈΠ·ΠΌ Π²ΡΠ²ΠΎΠ΄Π° */
positive (X, Y) : — xpositive (X, Y),!.
positive (X, Y) : — not (negative (X, Y)),!, ask (X, Y).
negative (X, Y) : — xnegative (X, Y),!.
remember (X, Y, yes) : — asserta (xpositive (X, Y)).
remember (X, Y, no) : — asserta (xnegative (X, Y)), fail.
clear_facts : — retract (xpositive (_,_)), fail.
clear_facts : — retract (xnegative (_,_)), fail.
/* ΠΡΠΎΠ΄ΡΠΊΡΠΈΠΎΠ½Π½ΡΠ΅ ΠΏΡΠ°Π²ΠΈΠ»Π° */
dog_is («ΠΠ½Π³Π»ΠΈΠΉΡΠΊΠΈΠΉ ΠΡΠ»ΡΠ΄ΠΎΠ³») : — it_is («ΠΊΠΎΡΠΎΡΠΊΠΎΡΠ΅ΡΡΡΠ½Π°Ρ ΡΠΎΠ±Π°ΠΊΠ°»),
positive(«Π΅Π΅» ," Π²ΡΡΠΎΡΠ° Π² Ρ ΠΎΠ»ΠΊΠ΅ Π½Π΅ Π±ΠΎΠ»Π΅Π΅ 57 ΡΠΌ"),
positive(«Ρ Π½Π΅Π΅» ," Π½ΠΈΠ·ΠΊΠΎ ΠΏΠΎΡΠ°ΠΆΠ΅Π½Π½ΡΠΉ Ρ Π²ΠΎΡΡ"),
positive(«Ρ Π½Π΅Π΅» ," Π΄ΡΡΠΆΠ΅Π»ΡΠ±Π½ΡΠΉ Ρ Π°ΡΠ°ΠΊΡΠ΅Ρ"),!.
dog_is («ΠΠΎΠ½ΡΠ°Ρ») : — it_is («ΠΊΠΎΡΠΎΡΠΊΠΎΡΠ΅ΡΡΡΠ½Π°Ρ ΡΠΎΠ±Π°ΠΊΠ°»),
positive(«Π΅Π΅» ," Π²ΡΡΠΎΡΠ° Π² Ρ ΠΎΠ»ΠΊΠ΅ Π½Π΅ Π±ΠΎΠ»Π΅Π΅ 57 ΡΠΌ"),
positive(«Ρ Π½Π΅Π΅» ," Π΄Π»ΠΈΠ½Π½ΡΠ΅ ΡΡΠΈ"),
positive(«Ρ Π½Π΅Π΅» ," Π΄ΡΡΠΆΠ΅Π»ΡΠ±Π½ΡΠΉ Ρ Π°ΡΠ°ΠΊΡΠ΅Ρ"),!.
dog_is («ΠΠ΅ΠΌΠ΅ΡΠΊΠΈΠΉ ΠΠΎΠ³») : — it_is («ΠΊΠΎΡΠΎΡΠΊΠΎΡΠ΅ΡΡΡΠ½Π°Ρ ΡΠΎΠ±Π°ΠΊΠ°»),
positive(«Ρ Π½Π΅Π΅» ," Π½ΠΈΠ·ΠΊΠΎ ΠΏΠΎΡΠ°ΠΆΠ΅Π½Π½ΡΠΉ Ρ Π²ΠΎΡΡ"),
positive(«Ρ Π½Π΅Π΅» ," Π΄ΡΡΠΆΠ΅Π»ΡΠ±Π½ΡΠΉ Ρ Π°ΡΠ°ΠΊΡΠ΅Ρ"),
positive(«Π΅Π΅» ," Π²Π΅Ρ Π±ΠΎΠ»Π΅Π΅ 45 ΠΊΠ³"),!.
dog_is («ΠΠΌΠ΅ΡΠΈΠΊΠ°Π½ΡΠΊΠΈΠΉ Π€ΠΎΠΊΡΡ Π°ΡΠ½Π΄») : — it_is («ΠΊΠΎΡΠΎΡΠΊΠΎΡΠ΅ΡΡΡΠ½Π°Ρ ΡΠΎΠ±Π°ΠΊΠ°»),
positive(«Π΅Π΅» ," Π²ΡΡΠΎΡΠ° Π² Ρ ΠΎΠ»ΠΊΠ΅ Π½Π΅ Π±ΠΎΠ»Π΅Π΅ 77 ΡΠΌ"),
positive(«Ρ Π½Π΅Π΅» ," Π΄Π»ΠΈΠ½Π½ΡΠ΅ ΡΡΠΈ"),
positive(«Ρ Π½Π΅Π΅» ," Π΄ΡΡΠΆΠ΅Π»ΡΠ±Π½ΡΠΉ Ρ Π°ΡΠ°ΠΊΡΠ΅Ρ"),!.
dog_is («ΠΠΎΠΊΠ΅Ρ Π‘ΠΏΠ°Π½ΠΈΠ΅Π»Ρ») : — it_is («Π΄Π»ΠΈΠ½Π½ΠΎΡΠ΅ΡΡΡΠ½Π°Ρ ΡΠΎΠ±Π°ΠΊΠ°»),
positive(«Π΅Π΅» ," Π²ΡΡΠΎΡΠ° Π² Ρ ΠΎΠ»ΠΊΠ΅ Π½Π΅ Π±ΠΎΠ»Π΅Π΅ 57 ΡΠΌ"),
positive(«Ρ Π½Π΅Π΅» ," Π½ΠΈΠ·ΠΊΠΎ ΠΏΠΎΡΠ°ΠΆΠ΅Π½Π½ΡΠΉ Ρ Π²ΠΎΡΡ"),
positive(«Ρ Π½Π΅Π΅» ," Π΄Π»ΠΈΠ½Π½ΡΠ΅ ΡΡΠΈ"),
positive(«Ρ Π½Π΅Π΅» ," Π΄ΡΡΠΆΠ΅Π»ΡΠ±Π½ΡΠΉ Ρ Π°ΡΠ°ΠΊΡΠ΅Ρ"),!.
dog_is («ΠΡΠ»Π°Π½Π΄ΡΠΊΠΈΠΉ Π‘Π΅ΡΡΠ΅Ρ») : — it_is («Π΄Π»ΠΈΠ½Π½ΠΎΡΠ΅ΡΡΡΠ½Π°Ρ ΡΠΎΠ±Π°ΠΊΠ°»),
positive(«Π΅Π΅» ," Π²ΡΡΠΎΡΠ° Π² Ρ ΠΎΠ»ΠΊΠ΅ Π½Π΅ Π±ΠΎΠ»Π΅Π΅ 77 ΡΠΌ"),
positive(«Ρ Π½Π΅Π΅» ," Π΄Π»ΠΈΠ½Π½ΡΠ΅ ΡΡΠΈ"),!.
dog_is («ΠΠΎΠ»Π»ΠΈ») : — it_is («Π΄Π»ΠΈΠ½Π½ΠΎΡΠ΅ΡΡΡΠ½Π°Ρ ΡΠΎΠ±Π°ΠΊΠ°»),
positive(«Π΅Π΅» ," Π²ΡΡΠΎΡΠ° Π² Ρ ΠΎΠ»ΠΊΠ΅ Π½Π΅ Π±ΠΎΠ»Π΅Π΅ 77 ΡΠΌ"),
positive(«Ρ Π½Π΅Π΅» ," Π½ΠΈΠ·ΠΊΠΎ ΠΏΠΎΡΠ°ΠΆΠ΅Π½Π½ΡΠΉ Ρ Π²ΠΎΡΡ"),
positive(«Ρ Π½Π΅Π΅» ," Π΄ΡΡΠΆΠ΅Π»ΡΠ±Π½ΡΠΉ Ρ Π°ΡΠ°ΠΊΡΠ΅Ρ"),!.
dog_is («Π‘Π΅Π½Π±Π΅ΡΠ½Π°Ρ») : — it_is («Π΄Π»ΠΈΠ½Π½ΠΎΡΠ΅ΡΡΡΠ½Π°Ρ ΡΠΎΠ±Π°ΠΊΠ°»),
positive(«Ρ Π½Π΅Π΅» ," Π½ΠΈΠ·ΠΊΠΎ ΠΏΠΎΡΠ°ΠΆΠ΅Π½Π½ΡΠΉ Ρ Π²ΠΎΡΡ"),
positive(«Ρ Π½Π΅Π΅» ," Π΄ΡΡΠΆΠ΅Π»ΡΠ±Π½ΡΠΉ Ρ Π°ΡΠ°ΠΊΡΠ΅Ρ"),
positive(«Π΅Π΅» ," Π²Π΅Ρ Π±ΠΎΠ»Π΅Π΅ 45 ΠΊΠ³"),!.
it_is («ΠΊΠΎΡΠΎΡΠΊΠΎΡΠ΅ΡΡΡΠ½Π°Ρ ΡΠΎΠ±Π°ΠΊΠ° «) :;
positive(«ΡΡΠΎ» ," ΠΊΠΎΡΠΎΡΠΊΠΎΡΠ΅ΡΡΡΠ½Π°Ρ ΡΠΎΠ±Π°ΠΊΠ° «),!.
it_is («Π΄Π»ΠΈΠ½Π½ΠΎΡΠ΅ΡΡΡΠ½Π°Ρ ΡΠΎΠ±Π°ΠΊΠ° «) :;
positive(«ΡΡΠΎ» ," Π΄Π»ΠΈΠ½Π½ΠΎΡΠ΅ΡΡΡΠ½Π°Ρ ΡΠΎΠ±Π°ΠΊΠ° «),!.
/* ΠΠΎΠ½Π΅Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ */
ΠΠΊΡΠΏΠ΅ΡΡΠ½ΡΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ, Π±Π°Π·ΠΈΡΡΡΡΠΈΠ΅ΡΡ Π½Π° ΡΠ°ΠΊΡΠ°Ρ
Π ΡΠΊΡΠΏΠ΅ΡΡΠ½ΡΡ ΡΠΈΡΡΠ΅ΠΌΠ°Ρ , Π±Π°Π·ΠΈΡΡΡΡΠΈΡ ΡΡ Π½Π° ΡΠ°ΠΊΡΠ°Ρ , Π±Π°Π·Π° Π·Π½Π°Π½ΠΈΠΉ ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΠΉ Π² Π²ΠΈΠ΄Π΅ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΠΉ Π»ΠΎΠ³ΠΈΠΊΠΈ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠΎΠ². Π’Π°ΠΊΠΈΠ΅ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΡ ΠΌΠΎΠ³ΡΡ Π³ΡΡΠΏΠΏΠΈΡΠΎΠ²Π°ΡΡΡΡ, ΠΎΠ±ΡΠ°Π·ΡΡ ΠΠ Π’ΡΡΠ±ΠΎ-ΠΡΠΎΠ»ΠΎΠ³Π°. ΠΡΠ°Π²ΠΈΠ»Π° ΠΌΠΎΠ³ΡΡ Π»ΠΈΠ±ΠΎ ΠΎΠΏΠΈΡΡΠ²Π°ΡΡ Π΄Π°Π½Π½ΡΠ΅, Π»ΠΈΠ±ΠΎ ΡΠΏΡΠ°Π²Π»ΡΡΡ ΠΏΡΠΎΡΠ΅ΡΡΠΎΠΌ Π²Π½ΡΡΡΠ΅Π½Π½Π΅ΠΉ ΡΠ½ΠΈΡΠΈΠΊΠ°ΡΠΈΠΈ Π’ΡΡΠ±ΠΎ-ΠΡΠΎΠ»ΠΎΠ³Π°.
Π’Π°ΠΊ ΠΆΠ΅ ΠΊΠ°ΠΊ ΠΈ Π² ΡΠΈΡΡΠ΅ΠΌΠ΅ Π½Π° ΠΏΡΠ°Π²ΠΈΠ»Π°Ρ ΡΠΊΡΠΏΠ΅ΡΡΠ½Π°Ρ ΡΠΈΡΡΠ΅ΠΌΠ°, Π±Π°Π·ΠΈΡΡΡΡΠ°ΡΡΡ Π½Π° ΡΠ°ΠΊΡΠ°Ρ , ΠΈΠΌΠ΅Π΅Ρ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ ΠΏΡΠ°Π²ΠΈΠ», ΠΊΠΎΡΠΎΡΡΠ΅ ΠΌΠΎΠ³ΡΡ Π²ΡΠ·ΡΠ²Π°ΡΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ Π΄Π°Π½Π½ΡΡ ΠΈΠ· Π²Ρ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΏΠΎΡΠΎΠΊΠ°. Π‘ΠΈΡΡΠ΅ΠΌΠ° ΠΈΠΌΠ΅Π΅Ρ ΡΠ°ΠΊΠΆΠ΅ ΠΈΠ½ΡΠ΅ΡΠΏΡΠ΅ΡΠ°ΡΠΎΡ, ΠΊΠΎΡΠΎΡΡΠΉ ΠΌΠΎΠΆΠ΅Ρ Π²ΡΠ±ΠΈΡΠ°ΡΡ ΠΈ Π°ΠΊΡΠΈΠ²ΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡ ΠΌΠΎΠ΄ΡΠ»ΠΈ, Π²ΠΊΠ»ΡΡΠ°Π΅ΠΌΡΠ΅ Π² ΡΠ°Π±ΠΎΡΡ ΡΠΈΡΡΠ΅ΠΌΡ.
ΠΠ½ΡΠ΅ΡΠΏΡΠ΅ΡΠ°ΡΠΎΡ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ ΡΠ°Π·Π»ΠΈΡΠ½ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ Π²Π½ΡΡΡΠΈ ΡΠΈΡΡΠ΅ΠΌΡ Π½Π° ΠΎΡΠ½ΠΎΠ²Π΅ ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΉ ΡΡ Π΅ΠΌΡ:
1. Π‘ΠΈΡΡΠ΅ΠΌΠ° ΠΈΠΌΠ΅Π΅Ρ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΡ Π² Π±Π°Π·Π΅ Π·Π½Π°Π½ΠΈΠΉ, ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠΏΡΠ°Π²Π»ΡΡΡ ΠΏΠΎΠΈΡΠΊΠΎΠΌ ΠΈ ΡΠΎΠΏΠΎΡΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ΠΌ. ΠΠ½ΡΠ΅ΡΠΏΡΠ΅ΡΠ°ΡΠΎΡ ΡΠΎΠΏΠΎΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΡΠΈ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΡ Ρ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°ΠΌΠΈ Π΄Π°Π½Π½ΡΡ Π² Π±Π°Π·Π΅ Π΄Π°Π½Π½ΡΡ .
2. ΠΡΠ»ΠΈ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π²ΡΠ·Π²Π°Π½ΠΎ Π±ΠΎΠ»Π΅Π΅ ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΏΡΠ°Π²ΠΈΠ»Π°, ΡΠΎ ΡΠΈΡΡΠ΅ΠΌΠ° ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ Π’ΡΡΠ±ΠΎ-ΠΡΠΎΠ»ΠΎΠ³Π° Π΄Π»Ρ ΡΠ°Π·ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΊΠΎΠ½ΡΠ»ΠΈΠΊΡΠ°. Π‘Π»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎ, ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ/ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΡΡ Π½Π΅ Π½ΡΠΆΠ½ΠΎ ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°ΡΡ ΠΏΠΎΡΠ΅Π½ΡΠΈΠ°Π»ΡΠ½ΠΎ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΡΠ΅ ΠΊΠΎΠ½ΡΠ»ΠΈΠΊΡΡ.
3. Π‘ΠΈΡΡΠ΅ΠΌΠ° ΠΏΠΎΠ»ΡΡΠ°Π΅Ρ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΡ ΡΠ½ΠΈΡΠΈΠΊΠ°ΡΠΈΠΎΠ½Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΡΠ΅ΡΡΠ° Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ, ΠΏΠΎΡΡΠΎΠΌΡ ΠΎΠ½ΠΈ ΠΌΠΎΠ³ΡΡ Π½Π°ΠΏΡΠ°Π²Π»ΡΡΡΡΡ Π½Π° Π½ΡΠΆΠ½ΠΎΠ΅ ΡΡΡΡΠΎΠΉΡΡΠ²ΠΎ Π²ΡΠ²ΠΎΠ΄Π° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ.
Π’Π°ΠΊ ΠΆΠ΅ ΠΊΠ°ΠΊ ΠΈ Π² ΡΠΈΡΡΠ΅ΠΌΠ΅, Π±Π°Π·ΠΈΡΡΡΡΠ΅ΠΉΡΡ Π½Π° ΠΏΡΠ°Π²ΠΈΠ»Π°Ρ , Π΄Π°Π½Π½ΡΠΉ ΡΠΈΠΊΠ»ΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΏΡΠΎΡΠ΅ΡΡ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΡΠΎΡΠ΅ΡΡΠΎΠΌ ΡΠ°ΡΠΏΠΎΠ·Π½Π°Π²Π°Π½ΠΈΠ΅-Π΄Π΅ΠΉΡΡΠ²ΠΈΠ΅. ΠΡΠ°ΡΠΎΡΠ° ΠΈ Π±ΠΎΠ»ΡΡΠΈΠ΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ ΡΠΈΡΡΠ΅ΠΌΡ, ΠΎΡΠ½ΠΎΠ²Π°Π½Π½ΠΎΠΉ Π½Π° ΡΠ°ΠΊΡΠ°Ρ , Π·Π°ΠΊΠ»ΡΡΠ°ΡΡΡΡ Π² ΡΠΎΠΌ, ΡΡΠΎ ΠΎΠ½Π° ΠΎΡΡΠ°ΠΆΠ°Π΅Ρ ΡΡΡΡΠΊΡΡΡΡ ΡΠ°ΠΌΠΎΠ³ΠΎ Π’ΡΡΠ±ΠΎ-ΠΡΠΎΠ»ΠΎΠ³Π°. ΠΡΠΈΠΌ ΠΎΠ±ΡΡΡΠ½ΡΠ΅ΡΡΡ ΡΠΎΡ ΡΠ°ΠΊΡ, ΡΡΠΎ ΠΎΠ½Π° ΠΎΡΠ΅Π½Ρ ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½Π° Π² ΡΠ°Π±ΠΎΡΠ΅.
ΠΠ°ΠΈΠ±ΠΎΠ»Π΅Π΅ Π²Π°ΠΆΠ½ΡΠΌ Π°ΡΠΏΠ΅ΠΊΡΠΎΠΌ Π΄Π»Ρ Π±Π°Π·Ρ Π·Π½Π°Π½ΠΈΠΉ Π² ΡΠΈΡΡΠ΅ΠΌΠ΅, ΠΎΡΠ½ΠΎΠ²Π°Π½Π½ΠΎΠΉ Π½Π° ΡΠ°ΠΊΡΠ°Ρ , ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π±Π°Π·Ρ Π·Π½Π°Π½ΠΈΠΉ, Π΅Π΅ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΠΉ ΠΈ ΠΈΡ ΡΡΡΡΠΊΡΡΡΡ. ΠΠ°Π·Π° Π·Π½Π°Π½ΠΈΠΉ Π΄ΠΎΠ»ΠΆΠ½Π° ΠΈΠΌΠ΅ΡΡ Π½Π΅Π΄Π²ΡΡΠΌΡΡΠ»Π΅Π½Π½ΡΡ Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΡΡ ΠΎΡΠ³Π°Π½ΠΈΠ·Π°ΡΠΈΡ, ΠΈ ΠΎΠ½Π° Π΄ΠΎΠ»ΠΆΠ½Π° ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ ΠΌΠΈΠ½ΠΈΠΌΡΠΌ ΠΈΠ·Π±ΡΡΠΎΡΠ½ΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ. Π’Π°ΠΊ ΠΆΠ΅ ΠΊΠ°ΠΊ ΠΈ Π² ΡΠΈΡΡΠ΅ΠΌΠ΅, Π±Π°Π·ΠΈΡΡΡΡΠ΅ΠΉΡΡ Π½Π° ΠΏΡΠ°Π²ΠΈΠ»Π°Ρ , ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΠΎ Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π΄Π°Π½Π½ΡΡ ΠΎΠ±ΡΠ°Π·ΡΡΡ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΡΡ ΡΠΈΡΡΠ΅ΠΌΡ. Π£ΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΡ Π±Π°Π·Ρ Π·Π½Π°Π½ΠΈΠΉ Π΄Π»Ρ Π³ΠΎΠ½ΡΠ΅ΠΉ ΠΈ Π΄ΠΎΠ³Π° Π²ΡΠ³Π»ΡΠ΄ΡΡ ΡΠ°ΠΊ:
rule (1," Π‘ΠΎΠ±Π°ΠΊΠ°" ," ΠΠΎΠ½ΡΠ°Ρ" ,[1,2,3,4]).
rule(2," Π‘ΠΎΠ±Π°ΠΊΠ°" ," ΠΠ΅ΠΌΠ΅ΡΠΊΠΈΠΉ ΠΠΎΠ³" ,[1,5,3,4,6]).
cond(1," ΠΊΠΎΡΠΎΡΠΊΠΎΡΠ΅ΡΡΡΠ½Π°Ρ").
cond(2," Π²ΡΡΠΎΡΠ° Π² Ρ ΠΎΠ»ΠΊΠ΅ Π½Π΅ Π±ΠΎΠ»Π΅Π΅ 57 ΡΠΌ").
cond(3," Π΄Π»ΠΈΠ½Π½ΡΠ΅ ΡΡΠΈ").
cond(4," Π΄ΡΡΠΆΠ΅Π»ΡΠ±Π½ΡΠΉ Ρ Π°ΡΠ°ΠΊΡΠ΅Ρ").
cond(5," Π½ΠΈΠ·ΠΊΠΎ ΠΏΠΎΡΠ°ΠΆΠ΅Π½Π½ΡΠΉ Ρ Π²ΠΎΡΡ").
cond(6," Π²Π΅Ρ Π±ΠΎΠ»Π΅Π΅ 45 ΠΊΠ³").
ΠΠ°ΠΌΠ΅ΡΡΡΠ΅, ΡΡΠΎ Π² ΠΊΠ°ΠΆΠ΄ΠΎΠΌ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΠΈ ΡΠΈΠΏΠ° rule ΠΏΠ΅ΡΠ²ΡΠΉ Π°ΡΠ³ΡΠΌΠ΅Π½Ρ — Π½ΠΎΠΌΠ΅Ρ ΠΏΡΠ°Π²ΠΈΠ»Π°, Π²ΡΠΎΡΠΎΠΉ Π°ΡΠ³ΡΠΌΠ΅Π½Ρ — ΡΠΈΠΏ ΠΎΠ±ΡΠ΅ΠΊΡΠ° («ΡΠΎΠ±Π°ΠΊΠ°») ΠΈ ΡΡΠ΅ΡΠΈΠΉ Π°ΡΠ³ΡΠΌΠ΅Π½Ρ — ΠΏΠΎΡΠΎΠ΄Π° ΡΠΎΠ±Π°ΠΊΠΈ. Π Π½Π°ΡΠ΅ΠΌ ΡΠ»ΡΡΠ°Π΅ ΡΡΠΎ Π³ΠΎΠ½ΡΠ°Ρ ΠΈΠ»ΠΈ Π΄ΠΎΠ³. Π‘ΠΏΠΈΡΠΎΠΊ ΡΠ΅Π»ΡΡ ΡΠΈΡΠ΅Π» Π·Π°Π΄Π°Π΅Ρ Π½ΠΎΠΌΠ΅ΡΠ° ΡΡΠ»ΠΎΠ²ΠΈΠΉ ΠΈΠ· ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΠΉ ΡΠΈΠΏΠ° cond (ΡΡΠ»ΠΎΠ²ΠΈΠ΅). ΠΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΡ ΡΠΈΠΏΠ° cond ΡΠΎΠ΄Π΅ΡΠΆΠ°Ρ Π²ΡΠ΅ Ρ Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΡΡΠΈΠΊΠΈ Π΄Π»Ρ Π»ΡΠ±ΠΎΠΉ ΠΏΠΎΡΠΎΠ΄Ρ, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Π½ΠΎΠΉ Π² Π±Π°Π·Π΅ Π·Π½Π°Π½ΠΈΠΉ.
Π‘ΠΏΠΈΡΠΊΠΈ Π½ΠΎΠΌΠ΅ΡΠΎΠ² ΡΡΠ»ΠΎΠ²ΠΈΠΉ ΡΠ»ΡΠΆΠ°Ρ Π΄Π»Ρ Ρ ΡΠ°Π½Π΅Π½ΠΈΡ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²Π° ΡΠ°ΠΊΡΠΎΠ², ΡΠΎΠ³Π»Π°ΡΠ½ΠΎ ΠΊΠΎΡΠΎΡΡΠΌ Π²ΡΠ±ΠΈΡΠ°ΡΡΡΡ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΡ ΡΠΈΠΏΠ° rule. ΠΠ½ΡΠ΅ΡΠΏΡΠ΅ΡΠ°ΡΠΎΡ Π² ΡΠΊΡΠΏΠ΅ΡΡΠ½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΠ΅, Π±Π°Π·ΠΈΡΡΡΡΠ΅ΠΉΡΡ Π½Π° Π»ΠΎΠ³ΠΈΠΊΠ΅, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅Ρ ΡΡΠΈ Π½ΠΎΠΌΠ΅ΡΠ° ΡΡΠ»ΠΎΠ²ΠΈΠΉ, ΡΡΠΎΠ±Ρ Π΄Π΅Π»Π°ΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠΉ Π²ΡΠ±ΠΎΡ.
ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΈ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΠ΅ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΠΉ Π±Π°Π·Ρ Π·Π½Π°Π½ΠΈΠΉ ΡΠ²Π»ΡΡΡΡΡ ΠΏΡΠΎΡΡΡΠΌΠΈ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡΠΌΠΈ (ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΡ retract ΠΈ assert). ΠΠΊΡΠΏΠ΅ΡΡΠ½ΡΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ, Π±Π°Π·ΠΈΡΡΡΡΠΈΠ΅ΡΡ Π½Π° ΡΠ°ΠΊΡΠ°Ρ , Π»Π΅Π³ΠΊΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°ΡΡ, ΡΠ°Π·Π²ΠΈΠ²Π°ΡΡ ΠΈ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΈΠ²Π°ΡΡ Π² Π’ΡΡΠ±ΠΎ-ΠΡΠΎΠ»ΠΎΠ³Π΅, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΠΏΠΎ ΠΌΠ΅ΡΠ΅ ΡΠ°ΡΡΠΈΡΠ΅Π½ΠΈΡ Π±Π°Π·Ρ Π·Π½Π°Π½ΠΈΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π½Π΅ ΡΡΠ΅Π±ΡΠ΅Ρ ΠΌΠΎΠ΄ΠΈΡΠΈΠΊΠ°ΡΠΈΠΈ. Π Π°ΡΡΠΈΡΠ΅Π½ΠΈΠ΅, ΠΏΡΠ΅ΠΆΠ΄Π΅ Π²ΡΠ΅Π³ΠΎ, Π·Π°ΠΊΠ»ΡΡΠ°Π΅ΡΡΡ Π² ΠΏΠΎΡΡΠ΅ΠΏΠ΅Π½Π½ΠΎΠΌ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠΈ Π½ΠΎΠ²ΡΡ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΠΉ.
ΠΠΠ‘Π’ΠΠΠ
/* ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°: ΠΠΊΡΠΏΠ΅ΡΡ ΠΏΠΎ ΠΏΠΎΡΠΎΠ΄Π°ΠΌ ΡΠΎΠ±Π°ΠΊ */
/* ΠΡΠΈΠΌΠ΅Ρ ΡΠΊΡΠΏΠ΅ΡΡΠ½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ, Π±Π°Π·ΠΈΡΡΡΡΠ΅ΠΉΡΡ Π½Π° Π»ΠΎΠ³ΠΈΠΊΠ΅ */
domains
conditions = integer *
history = integer *
database
/* ΠΡΠ΅Π΄ΠΈΠΊΠ°ΡΡ Π±Π°Π·Ρ Π΄Π°Π½Π½ΡΡ */
rule (integer, symbol, symbol, conditions)
cond (integer, symbol)
yes (integer)
no(integer)
predicates
/* ΠΡΠ΅Π΄ΠΈΠΊΠ°ΡΡ ΡΠΈΡΡΠ΅ΠΌΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° */
do_expert_job
do_consulting
goes (symbol)
clear
/* ΠΡΠ΅Π΄ΠΈΠΊΠ°ΡΡ ΠΌΠ΅Ρ Π°Π½ΠΈΠ·ΠΌΠ° Π²ΡΠ²ΠΎΠ΄Π° */
go (history, symbol)
check (integer, history, conditions)
Inpo (history, integer, integer, symbol)
do_answer (history, integer, symbol, integer, integer)
goal
do_expert_job.
clauses
/* ΠΠ°Π·Π° Π·Π½Π°Π½ΠΈΠΉ (ΠΠ) */
rule(1, «Π‘ΠΎΠ±Π°ΠΊΠ°», «ΠΠΎΡΠΎΡΠΊΠΎΡΠ΅ΡΡΡΠ½Π°Ρ ΡΠΎΠ±Π°ΠΊΠ°», [1]).
rule(2, «Π‘ΠΎΠ±Π°ΠΊΠ°», «ΠΠ»ΠΈΠ½Π½ΠΎΡΠ΅ΡΡΡΠ½Π°Ρ ΡΠΎΠ±Π°ΠΊΠ° «, [2]).
rule(3, «ΠΠΎΡΠΎΡΠΊΠΎΡΠ΅ΡΡΡΠ½Π°Ρ ΡΠΎΠ±Π°ΠΊΠ°» ," ΠΠ½Π³Π»ΠΈΠΉΡΠΊΠΈΠΉ Π±ΡΠ»ΡΠ΄ΠΎΠ³" ,[3,5,7]).
rule(4, «ΠΠΎΡΠΎΡΠΊΠΎΡΠ΅ΡΡΡΠ½Π°Ρ ΡΠΎΠ±Π°ΠΊΠ°» ," ΠΠΎΠ½ΡΠ°Ρ", [3,6,7]).
rule(5, «ΠΠΎΡΠΎΡΠΊΠΎΡΠ΅ΡΡΡΠ½Π°Ρ ΡΠΎΠ±Π°ΠΊΠ°» ," ΠΠ΅ΠΌΠ΅ΡΠΊΠΈΠΉ ΠΠΎΠ³", [5,6,7,8]).
rule(6, «ΠΠΎΡΠΎΡΠΊΠΎΡΠ΅ΡΡΡΠ½Π°Ρ ΡΠΎΠ±Π°ΠΊΠ°» ," ΠΠΌΠ΅ΡΠΈΠΊΠ°Π½ΡΠΊΠΈΠΉ ΡΠΎΠΊΡΡ Π°ΡΠ½Π΄" ,
[4,6,7]).
rule(7, «ΠΠ»ΠΈΠ½Π½ΠΎΡΠ΅ΡΡΡΠ½Π°Ρ ΡΠΎΠ±Π°ΠΊΠ° «, «ΠΠΎΠΊΠ΅Ρ ΡΠΏΠ°Π½ΠΈΠ΅Π»Ρ», [3,5,6,7]).
rule(8, «ΠΠ»ΠΈΠ½Π½ΠΎΡΠ΅ΡΡΡΠ½Π°Ρ ΡΠΎΠ±Π°ΠΊΠ° «, «ΠΡΠ»Π°Π½Π΄ΡΠΊΠΈΠΉ Π‘Π΅ΡΡΠ΅Ρ», [4,6]).
rule(9, «ΠΠ»ΠΈΠ½Π½ΠΎΡΠ΅ΡΡΡΠ½Π°Ρ ΡΠΎΠ±Π°ΠΊΠ° «, «ΠΠΎΠ»Π»ΠΈ», [4,5,7]).
rule(10, «ΠΠ»ΠΈΠ½Π½ΠΎΡΠ΅ΡΡΡΠ½Π°Ρ ΡΠΎΠ±Π°ΠΊΠ° «, «Π‘Π΅Π½Π±Π΅ΡΠ½Π°Ρ», [5,7,8]).
cond(1," ΠΠΎΡΠΎΡΠΊΠΎΡΠ΅ΡΡΡΠ½Π°Ρ").
cond(2," ΠΠ»ΠΈΠ½Π½ΠΎΡΠ΅ΡΡΡΠ½Π°Ρ").
cond(3," ΠΡΡΠΎΡΠ° Π² Ρ ΠΎΠ»ΠΊΠ΅ Π½Π΅ Π±ΠΎΠ»Π΅Π΅ 57 ΡΠΌ").
cond(4," ΠΡΡΠΎΡΠ° Π² Ρ ΠΎΠ»ΠΊΠ΅ Π½Π΅ Π±ΠΎΠ»Π΅Π΅ 77 ΡΠΌ «).
cond(5," ΠΠΈΠ·ΠΊΠΎ ΠΏΠΎΡΠ°ΠΆΠ΅Π½Π½ΡΠΉ Ρ Π²ΠΎΡΡ").
cond(6, «ΠΠ»ΠΈΠ½Π½ΡΠ΅ ΡΡΠΈ»).
cond(7, «ΠΡΡΠΆΠ΅Π»ΡΠ±Π½ΡΠΉ Ρ Π°ΡΠ°ΠΊΡΠ΅Ρ»).
cond(8, «ΠΠ΅Ρ Π±ΠΎΠ»Π΅Π΅ 45 ΠΊΠ³»).
/* Π‘ΠΈΡΡΠ΅ΠΌΠ° ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»ΡΡΠΊΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡΠ° */
do_expert_job :;
makewindow(1,7,7," ΠΠΠ‘ΠΠΠ Π’ ΠΠ ΠΠΠ ΠΠΠΠ Π‘ΠΠΠΠ", 0, 0, 25, 80),
do_consulting, nl, nl, nl, nl, write («ΠΠ°ΠΆΠΌΠΈΡΠ΅ Π»ΡΠ±ΡΡ ΠΊΠ»Π°Π²ΠΈΡΡ»),
readchar (_), exit.
do_consulting :-goes (Mygoal), go ([], Mygoal),!.
do_consulting :-nl, write («ΠΠ·Π²ΠΈΠ½ΠΈΡΠ΅, Ρ Π½Π΅ ΡΠΌΠΎΠ³Ρ ΠΠ°ΠΌ ΠΏΠΎΠΌΠΎΡΡ»), clear.
do_consulting.
goes (Mygoal) : — clear, clearwindow, nl, nl,nl, nl,
write («ΠΠΠΠ Π ΠΠΠΠΠΠΠΠΠ’Π¬»), nl, nl, nl,
write(«ΠΡΠΎΠ²ΠΎΠ΄ΠΈΡΡΡ ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΈΡ ΠΏΠΎΡΠΎΠ΄Ρ»), nl,
write(«ΠΠ»Ρ ΡΠΎΠ³ΠΎ, ΡΡΠΎΠ±Ρ Π½Π°ΡΠ°ΡΡ ΠΏΡΠΎΡΠ΅ΡΡ ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΈΠΈ,»), nl,
write(«Π²Π²Π΅Π΄ΠΈΡΠ΅ ΡΠ»ΠΎΠ²ΠΎ 'Π‘ΠΎΠ±Π°ΠΊΠ°'. «), nl, nl, readln (Mygoal),!.
inpo (HISTORY, RNO, BNO, TEXT) :-write («?: — «, TEXT,» ? «),
makewindow(2,7,7," ΠΠ»Ρ ΠΎΡΠ²Π΅ΡΠ° Π½Π° Π²ΠΎΠΏΡΠΎΡ", 10,54,7,35),
write(«Π²Π²Π΅Π΄ΠΈΡΠ΅ 1, Π΅ΡΠ»ΠΈ ΠΠ°Ρ ΠΎΡΠ²Π΅Ρ 'Π΄Π°' ,»),
write(«Π²Π²Π΅Π΄ΠΈΡΠ΅ 2, Π΅ΡΠ»ΠΈ ΠΠ°Ρ ΠΎΡΠ²Π΅Ρ 'Π½Π΅Ρ' ,»),
write(«Π²Π²Π΅Π΄ΠΈΡΠ΅ 0, Π΄Π»Ρ Π²ΡΡ ΠΎΠ΄Π° ΠΈΠ· ΡΠΈΡΡΠ΅ΠΌΡ»), nl,
readint (RESPONSE),
clearwindow, shiftwindow (1),
do_answer (HISTORY, RNO, TEXT, BNO, RESPONSE).
/* ΠΠ΅Ρ Π°Π½ΠΈΠ·ΠΌ Π²ΡΠ²ΠΎΠ΄Π° */
go (HISTORY, Mygoal) :-rule (RNO, Mygoal, NY, COND),
check (RNO, HISTORY, COND),!,
go ([RNO|HISTORY], NY).
go (_, Mygoal) :-not (rule (_, Mygoal,_,_)),!,
nl, write («ΠΠ΅ΡΠΎΡΡΠ½ΠΎ ΠΠ°ΡΠ° ΡΠΎΠ±Π°ΠΊΠ° — „, Mygoal,“ .»), nl, nl, nl.
check (RNO, HISTORY,[BNO|REST]) :;
yes(BNO),!, check (RNO, HISTORY, REST).
check (_,_,[BNO|_]) : — no (BNO),!, fail.
check (RNO, HISTORY,[BNO|REST]) :-cond (BNO, TEXT),
inpo (HISTORY, RNO, BNO, TEXT),
check (RNO, HISTORY, REST).
check (_,_,[]).
do_answer (_,_,_,_, 0): — exit.
do_answer (_,_,_, BNO, 1) :-assert (yes (BNO)), write (yes), nl.
do_answer (_,_,_, BNO, 2) :-assert (no (BNO)), write (no), nl, fail.
clear : — retract (yes (_)), retract (no (_)), fail,!.
clear.
/* ΠΠΎΠ½Π΅Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ */
ΠΡΠ±ΠΎΡ ΡΠΈΠΏΠ° ΠΠ‘
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π΄Π»Ρ Π²ΡΠ±ΠΎΡΠ° ΠΏΠΎΡΠΎΠ΄Ρ ΡΠΎΠ±Π°ΠΊΠΈ, ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΠ΅ Π²ΡΡΠ΅, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ Π΄Π»Ρ ΠΈΠ»Π»ΡΡΡΡΠ°ΡΠΈΠΈ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ² ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ ΡΠΈΡΡΠ΅ΠΌΡ, Π±Π°Π·ΠΈΡΡΡΡΠ΅ΠΉΡΡ Π½Π° ΠΏΡΠ°Π²ΠΈΠ»Π°Ρ , ΠΈ ΡΠΈΡΡΠ΅ΠΌΡ, Π±Π°Π·ΠΈΡΡΡΡΠ΅ΠΉΡΡ Π½Π° ΡΠ°ΠΊΡΠ°Ρ . Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, Π΅ΡΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΡΡΠ°Π²Π½ΠΈΡΡ Π΄Π²Π° ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ ΠΏΠΎΠ΄Ρ ΠΎΠ΄Π° ΠΏΡΠΈ ΡΠ°Π±ΠΎΡΠ΅ Ρ ΠΎΠ΄Π½ΠΈΠΌΠΈ ΠΈ ΡΠ΅ΠΌΠΈ ΠΆΠ΅ Π΄Π°Π½Π½ΡΠΌΠΈ ΠΈ ΡΠ΄Π΅Π»Π°ΡΡ Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ Π²Π°ΠΆΠ½ΡΠ΅ Π²ΡΠ²ΠΎΠ΄Ρ.
ΠΡΠ°ΠΊ, Π΅ΡΠ»ΠΈ ΡΠΊΡΠΏΠ΅ΡΡΠ½Π°Ρ ΡΠΈΡΡΠ΅ΠΌΠ°, ΠΊΠΎΡΠΎΡΡΡ ΠΡ Ρ ΠΎΡΠΈΡΠ΅ ΡΠ΄Π΅Π»Π°ΡΡ, Π² ΠΊΠΎΠ½Π΅ΡΠ½ΠΎΠΌ ΡΡΠ΅ΡΠ΅ ΠΌΠΎΠΆΠ΅Ρ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ ΡΠΎΡΠ½ΠΈ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΎΠ½Π½ΡΡ ΠΏΡΠ°Π²ΠΈΠ», ΡΠΎ ΡΡΡΠ΄Π½ΠΎ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΡ ΡΡΡΠ΅ΠΊΡ ΠΎΡ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ Π΄ΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΡΡ ΠΏΡΠ°Π²ΠΈΠ». Π Π’ΡΡΠ±ΠΎ-ΠΡΠΎΠ»ΠΎΠ³Π΅ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΎΠ½Π½ΡΠ΅ ΠΏΡΠ°Π²ΠΈΠ»Π° ΠΏΠΎΠΌΠ΅ΡΠ°ΡΡΡΡ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΠΈ, ΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎ, ΡΠ°Π·ΠΌΠ΅ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΠ²Π΅Π»ΠΈΡΠΈΠ²Π°ΡΡΡΡ ΠΏΠΎ ΠΌΠ΅ΡΠ΅ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ ΠΏΡΠ°Π²ΠΈΠ». Π Π°Π·ΠΌΠ΅ΡΡ ΠΏΠ°ΠΌΡΡΠΈ, Π² ΠΊΠΎΠ½ΡΠ΅ ΠΊΠΎΠ½ΡΠΎΠ², ΠΎΠ³ΡΠ°Π½ΠΈΡΠΈΠ²Π°ΡΡ ΡΠΈΡΠ»ΠΎ ΠΏΡΠ°Π²ΠΈΠ». Π ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ Π½Π° ΠΏΡΠ°Π²ΠΈΠ»Π°Ρ ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡΡ ΠΏΡΠΎΠ±Π»Π΅ΠΌΠ°ΡΠΈΡΠ½ΡΠΌ. Π ΡΠΎ ΠΆΠ΅ Π²ΡΠ΅ΠΌΡ, Π² ΡΠΈΡΡΠ΅ΠΌΠ΅, Π±Π°Π·ΠΈΡΡΡΡΠ΅ΠΉΡΡ Π½Π° Π»ΠΎΠ³ΠΈΠΊΠ΅, Π³Π΄Π΅ Π±Π°Π·Π° Π·Π½Π°Π½ΠΈΠΉ ΠΌΠΎΠΆΠ΅Ρ Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡΡ Π² ΡΠ°ΠΉΠ»Π΅ Π½Π° Π΄ΠΈΡΠΊΠ΅, ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½ΠΈΡ Π½Π° ΡΠ°Π·ΠΌΠ΅ΡΡ Π±Π°Π·Ρ Π·Π½Π°Π½ΠΈΠΉ Π½Π΅ Π½Π°ΠΊΠ»Π°Π΄ΡΠ²Π°ΡΡΡΡ. ΠΠΎΡΡΠΎΠΌΡ ΡΠΈΡΡΠ΅ΠΌΠ°, ΠΎΡΠ½ΠΎΠ²Π°Π½Π½Π°Ρ Π½Π° Π»ΠΎΠ³ΠΈΠΊΠ΅, Π² ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΠΏΡΠ΅Π΄ΠΏΠΎΡΡΠΈΡΠ΅Π»ΡΠ½Π΅Π΅.
ΠΡΠ»ΠΈ ΠΆΠ΅ ΠΠ°ΡΠ° ΡΠΊΡΠΏΠ΅ΡΡΠ½Π°Ρ ΡΠΈΡΡΠ΅ΠΌΠ° Π±ΡΠ΄Π΅Ρ ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ Π½Π΅ Π±ΠΎΠ»Π΅Π΅ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ ΡΠΎΡΠ΅Π½ ΠΏΡΠ°Π²ΠΈΠ», ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΈΡΡΠ΅ΠΌΡ, Π±Π°Π·ΠΈΡΡΡΡΠ΅ΠΉΡΡ Π½Π° ΠΏΡΠ°Π²ΠΈΠ»Π°Ρ Π±ΠΎΠ»Π΅Π΅ ΠΏΡΠ΅Π΄ΠΏΠΎΡΡΠΈΡΠ΅Π»ΡΠ½ΠΎ. Π ΡΠΈΠ»Ρ ΡΠΎΠ³ΠΎ, ΡΡΠΎ ΠΏΡΠΎΠ΄ΡΠΊΡΠΈΠΎΠ½Π½ΡΠ΅ ΠΏΡΠ°Π²ΠΈΠ»Π° ΠΏΠΎΡΡΠΈ Π½Π΅ Π·Π°Π²ΠΈΡΡΡ Π΄ΡΡΠ³ ΠΎΡ Π΄ΡΡΠ³Π°, ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΈ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ°ΠΊΠΎΠΉ ΡΠΊΡΠΏΠ΅ΡΡΠ½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ ΠΏΡΠΎΡΠ΅. ΠΡΠΎΡΡΠΎ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΠΈ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΠΏΡΠ°Π²ΠΈΠ» Ρ ΡΠ΅Π»ΡΡ ΠΈΠ·ΡΡΠΈΡΡ ΡΡΡΠ΅ΠΊΡ, Π²ΡΠ·Π²Π°Π½Π½ΡΠΉ ΡΠ°ΠΊΠΈΠΌ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ΠΌ. Π ΡΠΈΡΡΠ΅ΠΌΠ°Ρ ΠΆΠ΅, Π±Π°Π·ΠΈΡΡΡΡΠΈΡ ΡΡ Π½Π° ΡΠ°ΠΊΡΠ°Ρ , ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² Π²Π½ΡΡΡΠΈ Π±Π°Π·Ρ Π·Π½Π°Π½ΠΈΠΉ Π΄ΠΎΠ»ΠΆΠ½ΠΎ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ Ρ Π±ΠΎΠ»ΡΡΠ΅ΠΉ ΠΎΡΡΠΎΡΠΎΠΆΠ½ΠΎΡΡΡΡ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΡ ΠΌΠ΅Π½Π΅Π΅ Π·Π°ΠΌΠ΅ΡΠ½Ρ, Π° ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΡΠ°Π·ΡΡΡΠΈΡΠ΅Π»ΡΠ½ΡΠΌ ΠΈ Π²ΠΎΡΡΡΠ°Π½ΠΎΠ²Π»Π΅Π½ΠΈΠ΅ Π·Π°ΡΡΡΠ΄Π½ΠΈΡΠ΅Π»ΡΠ½ΡΠΌ.
ΠΡΠ»ΠΈ Π±ΡΡΡΡΠΎΡΠ° ΡΠ²Π»ΡΠ΅ΡΡΡ Π³Π»Π°Π²Π½ΡΠΌ ΡΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΠΊ ΡΠ°Π·ΡΠ°Π±Π°ΡΡΠ²Π°Π΅ΠΌΠΎΠΉ ΡΠΊΡΠΏΠ΅ΡΡΠ½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΠ΅, ΡΠΎ ΠΌΠΎΠΆΠ½ΠΎ Π²ΡΠ±ΡΠ°ΡΡ Π»ΠΈΠ±ΠΎ ΡΠΈΡΡΠ΅ΠΌΡ Π½Π° ΡΠ°ΠΊΡΠ°Ρ , ΠΏΠΎΠ»Π½ΠΎΡΡΡΡ Π½Π°Ρ ΠΎΠ΄ΡΡΡΡΡΡ Π² ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠ²Π½ΠΎΠΉ ΠΏΠ°ΠΌΡΡΠΈ, Π»ΠΈΠ±ΠΎ ΡΠΈΡΡΠ΅ΠΌΡ, Π±Π°Π·ΠΈΡΡΡΡΡΡΡΡ Π½Π° ΠΏΡΠ°Π²ΠΈΠ»Π°Ρ . ΠΠ±Π΅ Π±ΡΠ΄ΡΡ ΡΠ°Π±ΠΎΡΠ°ΡΡ Ρ ΠΎΡΠΎΡΠΎ. ΠΡΠ»ΠΈ, ΠΎΠ΄Π½Π°ΠΊΠΎ, ΡΠΊΡΠΏΠ΅ΡΡΠ½Π°Ρ ΡΠΈΡΡΠ΅ΠΌΠ° Π΄ΠΎΠ»ΠΆΠ½Π° ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΡ Π±ΠΎΠ»ΡΡΡΡ Π±Π°Π·Ρ Π·Π½Π°Π½ΠΈΠΉ, ΡΠΎ Ρ ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ° ΠΈΠΌΠ΅Π΅ΡΡΡ Π΅Π΄ΠΈΠ½ΡΡΠ²Π΅Π½Π½ΡΠΉ Π²Π°ΡΠΈΠ°Π½Ρ — ΡΠΈΡΡΠ΅ΠΌΠ° Π½Π° ΡΠ°ΠΊΡΠ°Ρ , Π½Π°Ρ ΠΎΠ΄ΡΡΠ°ΡΡΡ Π½Π° Π΄ΠΈΡΠΊΠ΅.
ΠΠΠΠ’Π ΠΠΠ¬ΠΠ«Π ΠΠΠΠ ΠΠ‘Π«
1. ΠΠ»Ρ ΡΠ΅Π³ΠΎ ΡΠ»ΡΠΆΠΈΡ ΠΈ ΡΡΠΎ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΡΠ΅ΠΊΡΠΈΡ database?
2. ΠΠ°ΠΊΠΎΠ΅ ΠΈΠΌΡ ΠΏΠΎΠ»ΡΡΠ°Π΅Ρ ΠΠ ΠΏΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ.
3. ΠΠ΅ΡΠ΅ΡΠΈΡΠ»ΠΈΡΡ Π΄ΠΎΡΡΠΎΠΈΠ½ΡΡΠ²Π° ΠΈ Π½Π΅Π΄ΠΎΡΡΠ°ΡΠΊΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΡΠ΅Π·ΠΈΠ΄Π΅Π½ΡΠ½ΡΡ ΠΠ.
4. ΠΠ΅ΡΠ΅ΡΠΈΡΠ»ΠΈΡΡ Π΄ΠΎΡΡΠΎΠΈΠ½ΡΡΠ²Π° ΠΈ Π½Π΅Π΄ΠΎΡΡΠ°ΡΠΊΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ Π½Π΅ΡΠ΅Π·ΠΈΠ΄Π΅Π½ΡΠ½ΡΡ ΠΠ.
5. ΠΠ»Ρ ΡΠ΅Π³ΠΎ ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Ρ ΠΈ ΠΊΠ°ΠΊ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠ΅ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΡ asserta, assertz, retract, save, consult, readterm, findall.
6. ΠΠΏΠΈΡΠΈΡΠ΅ ΡΠ°Π±ΠΎΡΡ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΠ° dir. ΠΡΠΈΠ²Π΅Π΄ΠΈΡΠ΅ ΠΏΡΠΈΠΌΠ΅ΡΡ.
7. ΠΠ»Ρ ΠΊΠ°ΠΊΠΈΡ ΡΠ΅Π»Π΅ΠΉ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΉ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°Ρ disk? ΠΡΠΈΠ²Π΅Π΄ΠΈΡΠ΅ ΠΏΡΠΈΠΌΠ΅ΡΡ Π΅Π³ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ.
8. ΠΠ°ΠΊ Π² ΠΡΠΎΠ»ΠΎΠ³Π΅ ΠΎΠΏΠΈΡΡΠ²Π°ΡΡΡΡ ΡΠ°ΠΉΠ»Ρ.
9. ΠΡΠΈΠ²Π΅ΡΡΠΈ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠ΅ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΡ Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ Ρ ΡΠ΅Π·ΠΈΠ΄Π΅Π½ΡΠ½ΡΠΌΠΈ ΠΠ.
10. ΠΠ»Ρ ΡΠ΅Π³ΠΎ ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Ρ ΠΈ ΠΊΠ°ΠΊ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠ΅ ΠΏΡΠ΅Π΄ΠΈΠΊΠ°ΡΡ openread, openwrite, openappend, openmodify, readdevice, writedevice, closefile.
ΠΠ ΠΠΠ’ΠΠ§ΠΠ‘ΠΠΠ ΠΠΠΠΠΠΠ―
ΠΠ°ΠΏΠΈΡΠ°ΡΡ ΠΡΠΎΠ»ΠΎΠ³-ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΡΠ΅Π°Π»ΠΈΠ·ΡΡΡΡΡ ΠΎΡΠ½ΠΎΠ²Π½ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΡΠ°Π±ΠΎΡΡ Ρ ΡΠ΅Π·ΠΈΠ΄Π΅Π½ΡΠ½ΠΎΠΉ ΠΈ Π½Π΅ΡΠ΅Π·ΠΈΠ΄Π΅Π½ΡΠ½ΠΎΠΉ ΠΠ Π² ΠΏΡΠ΅Π΄ΠΌΠ΅ΡΠ½ΠΎΠΉ ΠΎΠ±Π»Π°ΡΡΠΈ, ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅ΠΉ Π²Π°ΡΠΈΠ°Π½ΡΡ Π·Π°Π΄Π°ΡΠΈ.