Π Π΅ΡΠ΅Π½ΠΈΠ΅ ΠΏΡΠΈΠΊΠ»Π°Π΄Π½ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ
Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½ΠΎΠΉ ΡΠΎΡΠΊΠΈ ΡΡΠ°Π²Π½ΠΈΠΌ Ρ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠΌ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. Π Π΅Π·ΡΠ»ΡΡΠ°Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅ 1, Π° ΡΠ°ΠΊΠΆΠ΅ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ Π² ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΈ Π. Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΎΠ΄Π½Π° ΠΈΠ· Π΄ΠΈΡΠ΅ΠΊΡΠΈΠ² ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡΠ° {$N+), ΠΊΠΎΡΠΎΡΠ°Ρ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠΈΡΠ»ΠΎΠ²ΠΎΠΉ ΡΠΎΠΏΡΠΎΡΠ΅ΡΡΠΎΡ, Ρ. Π΅. ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²ΡΠ²Π°ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ Ρ ΠΏΠ»Π°Π²Π°ΡΡΠ΅ΠΉ ΡΠΎΡΠΊΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎ. ΠΠΠΠΠΠΠ‘ΠΠΠ ΠΠΠ‘Π£ΠΠΠ Π‘Π’ΠΠΠΠΠ«Π Π£ΠΠΠΠΠ Π‘ΠΠ’ΠΠ’ ΠΠ°ΡΠ΅Π΄ΡΠ°… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
Π Π΅ΡΠ΅Π½ΠΈΠ΅ ΠΏΡΠΈΠΊΠ»Π°Π΄Π½ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠΠΠΠΠΠ‘ΠΠΠ ΠΠΠ‘Π£ΠΠΠ Π‘Π’ΠΠΠΠΠ«Π Π£ΠΠΠΠΠ Π‘ΠΠ’ΠΠ’ ΠΠ°ΡΠ΅Π΄ΡΠ° ΠΠ½ΠΠ£Π ΠΡΡΡΠΎΠ²Π°Ρ ΡΠ°Π±ΠΎΡΠ° Π Π΅ΡΠ΅Π½ΠΈΠ΅ ΠΏΡΠΈΠΊΠ»Π°Π΄Π½ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ ΠΡΠΏΠΎΠ»Π½ΠΈΠ»Π°: ΡΡ-ΠΊΠ° Π³ΡΡΠΏΠΏΡ 06 ΠΠ-1
Π.Π. ΠΠ΄ΠΈΠ½ΠΎΠΊΠΎΠ²Π° ΠΡΠΈΠ½ΡΠ»: Π΄ΠΎΡΠ΅Π½Ρ Π. Π. Π§Π΅ΡΠ½ΠΎΡΠΊΡΡΠΎΠ²
1 Π¦Π΅Π»Ρ ΡΠ°Π±ΠΎΡΡ 4
2 ΠΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ° Π·Π°Π΄Π°ΡΠΈ 5
3 Π Π°ΡΡΠ΅Ρ ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½ΠΎΠΉ ΡΠΎΡΠΊΠΈ 6
4 Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΡΡ Π΅ΠΌ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΎΠ² ΠΈ ΡΠ΅ΠΊΡΡΠΎΠ² ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ, ΠΈΡ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ 10
4.1 Function Proizvedenie 10
4.2 Function Symma 12
4.3 Procedure Massive_Z 14
5 Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΡΡ Π΅ΠΌΡ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΈ ΡΠ΅ΠΊΡΡΠ° ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΈ ΠΈΡ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ 16
ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅ 21
Π‘ΠΏΠΈΡΠΎΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Π½ΡΡ ΠΈΡΡΠΎΡΠ½ΠΈΠΊΠΎΠ²
Π»ΠΈΡΠ΅ΡΠ°ΡΡΡΡ 22
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π. ΠΠΈΡΡΠΈΠ½Π³ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ 23
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π. Π Π΅Π·ΡΠ»ΡΡΠ°Ρ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ 26
ΠΠ²Π΅Π΄Π΅Π½ΠΈΠ΅
Π―Π·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΠ°ΡΠΊΠ°Π»Ρ (Π½Π°Π·Π²Π°Π½ Π² ΡΠ΅ΡΡΡ Π²ΡΠ΄Π°ΡΡΠ΅Π³ΠΎΡΡ ΡΡΠ°Π½ΡΡΠ·ΡΠΊΠΎΠ³ΠΎ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΠΊΠ° ΠΈ ΡΠΈΠ»ΠΎΡΠΎΡΠ° ΠΠ»Π΅Π· ΠΠ°ΡΠΊΠ°Π»Ρ (1623−1662)), ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°Π½ Π² 1968;1971 Π³Π³. ΠΠΈΠΊΠ»Π°ΡΡΠΎΠΌ ΠΠΈΡΡΠΎΠΌ, ΠΏΡΠΎΡΠ΅ΡΡΠΎΡΠΎΠΌ, Π΄ΠΈΡΠ΅ΠΊΡΠΎΡΠΎΠΌ ΠΈΠ½ΡΡΠΈΡΡΡΠ° ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠΈ Π¨Π²Π΅ΠΉΡΠ°ΡΡΠΊΠΎΠΉ Π²ΡΡΡΠ΅ΠΉ ΠΏΠΎΠ»ΠΈΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΎΠΉ ΡΠΊΠΎΠ»Ρ. Π―Π·ΡΠΊ ΠΠ°ΡΠΊΠ°Π»Ρ, ΡΠΎΠ·Π΄Π°Π½Π½ΡΠΉ ΠΏΠ΅ΡΠ²ΠΎΠ½Π°ΡΠ°Π»ΡΠ½ΠΎ Π΄Π»Ρ ΠΎΠ±ΡΡΠ΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΊΠ°ΠΊ ΡΠΈΡΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠΉ Π΄ΠΈΡΡΠΈΠΏΠ»ΠΈΠ½Π΅, ΡΠΊΠΎΡΠΎ ΡΡΠ°Π» ΡΠΈΡΠΎΠΊΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ Π΄Π»Ρ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ ΡΡΠ΅Π΄ΡΡΠ² Π² ΠΏΡΠΎΡΠ΅ΡΡΠΈΠΎΠ½Π°Π»ΡΠ½ΠΎΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠΈ.
Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ Π½Π° ΠΠ°ΡΠΊΠ°Π»Π΅ Π²ΠΊΠ»ΡΡΠ°Π΅Ρ Π² ΡΠ΅Π±Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ (ΡΡΠ°ΠΏΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ): Π²Π²ΠΎΠ΄ ΠΈ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠ΅ΠΊΡΡΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π° ΡΠ·ΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΠ°ΡΠΊΠ°Π»Ρ, Π΅Π΅ ΡΡΠ°Π½ΡΠ»ΡΡΠΈΡ, ΠΎΡΠ»Π°Π΄ΠΊΡ.
ΠΠ»Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΡΡΠ°ΠΏΠ° ΠΏΡΠΈΠΌΠ΅Π½ΡΡΡΡΡ ΡΠΏΠ΅ΡΠΈΠ°Π»ΡΠ½ΡΠ΅ ΡΡΠ΅Π΄ΡΡΠ²Π°: Π΄Π»Ρ Π²Π²ΠΎΠ΄Π° ΠΈ ΡΠ΅Π΄Π°ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ° ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠ΅Π΄Π°ΠΊΡΠΎΡ ΡΠ΅ΠΊΡΡΠΎΠ², Π΄Π»Ρ ΡΡΠ°Π½ΡΠ»ΡΡΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ — ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡ, Π΄Π»Ρ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ ΠΈΡΠΏΠΎΠ»Π½ΡΠ΅ΠΌΠΎΠ³ΠΎ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠΎΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΌΠΎΠ΄ΡΠ»Ρ Ρ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠ΅ΠΌ ΡΠ°Π·ΡΠΎΠ·Π½Π΅Π½Π½ΡΡ ΠΎΡΠΊΠΎΠΌΠΏΠΈΠ»ΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΠΌΠΎΠ΄ΡΠ»Π΅ΠΉ ΠΈ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΎΠΉ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡ ΠΠ°ΡΠΊΠ°Π»Ρ — ΠΊΠΎΠΌΠΏΠΎΠ½ΠΎΠ²ΡΠΈΠΊ, Π΄Π»Ρ ΠΎΡΠ»Π°Π΄ΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Ρ Π°Π½Π°Π»ΠΈΠ·ΠΎΠΌ Π΅Π΅ ΠΏΠΎΠ²Π΅Π΄Π΅Π½ΠΈΡ, ΠΏΠΎΠΈΡΠΊΠΎΠΌ ΠΎΡΠΈΠ±ΠΎΠΊ, ΠΏΡΠΎΡΠΌΠΎΡΡΠΎΠΌ ΠΈ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ΠΌ ΡΠΎΠ΄Π΅ΡΠΆΠΈΠΌΠΎΠ³ΠΎ ΡΡΠ΅Π΅ΠΊ ΠΏΠ°ΠΌΡΡΠΈ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ° — ΠΎΡΠ»Π°Π΄ΡΠΈΠΊ.
ΠΠ»Ρ ΠΏΠΎΠ²ΡΡΠ΅Π½ΠΈΡ ΠΊΠ°ΡΠ΅ΡΡΠ²Π° ΠΈ ΡΠΊΠΎΡΠΎΡΡΠΈ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ Π² ΡΠ΅ΡΠ΅Π΄ΠΈΠ½Π΅ 80-Ρ Π³Π³. Π±ΡΠ»Π° ΡΠΎΠ·Π΄Π°Π½Π° ΡΠΈΡΡΠ΅ΠΌΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π’ΡΡΠ±ΠΎ ΠΠ°ΡΠΊΠ°Π»Ρ. Π‘Π»ΠΎΠ²ΠΎ «ΡΡΡΠ±ΠΎ» Π² Π½Π°Π·Π²Π°Π½ΠΈΠΈ ΡΠΈΡΡΠ΅ΠΌΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ — ΡΡΠΎ ΠΎΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ ΡΠΎΡΠ³ΠΎΠ²ΠΎΠΉ ΠΌΠ°ΡΠΊΠΈ ΡΠΈΡΠΌΡ — ΡΠ°Π·ΡΠ°Π±ΠΎΡΡΠΈΠΊΠ° Borland International, Inc. (Π‘Π¨Π).
1. Π¦Π΅Π»Ρ ΡΠ°Π±ΠΎΡΡ Π¦Π΅Π»ΡΡ Π΄Π°Π½Π½ΠΎΠΉ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ ΡΠ²Π»ΡΠ΅ΡΡΡ Π·Π°ΠΊΡΠ΅ΠΏΠ»Π΅Π½ΠΈΠ΅ ΡΠ΅ΠΎΡΠ΅ΡΠΈΡΠ΅ΡΠΊΠΈΡ ΠΈ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΡ Π½Π°Π²ΡΠΊΠΎΠ² Π² ΡΠ΅ΡΠ΅Π½ΠΈΠΈ ΠΏΡΠΈΠΊΠ»Π°Π΄Π½ΡΡ Π·Π°Π΄Π°Ρ Ρ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ΠΌ ΡΡΠ½ΠΊΡΠΈΠΉ ΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡ. ΠΡΠ²ΠΎΠ΅Π½ΠΈΠ΅ ΡΡΡΡΠΊΡΡΡΠ½ΠΎΠ³ΠΎ (ΠΌΠΎΠ΄ΡΠ»ΡΠ½ΠΎΠ³ΠΎ) ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ.
2. ΠΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ° Π·Π°Π΄Π°ΡΠΈ Π Π°Π·ΡΠ°Π±ΠΎΡΠ°ΡΡ ΡΡ Π΅ΠΌΡ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π΄Π»Ρ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΌΠ°ΡΡΠΈΠ²Π° z ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π΅:
.
ΠΡΡ ΠΎΠ΄Π½ΡΠΌΠΈ Π΄Π°Π½Π½ΡΠΌΠΈ ΡΠ²Π»ΡΡΡΡΡ:
ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ»ΡΠ½ΠΎΠΉ ΡΡΠΌΠΌΡ ΠΈ ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ΠΈΡ ΠΎΡΠΎΡΠΌΠΈΡΡ ΡΡΠ½ΠΊΡΠΈΡΠΌΠΈ, Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΠΌΠ°ΡΡΠΈΠ²Π° — ΠΏΡΠΎΡΠ΅Π΄ΡΡΠΎΠΉ.
3. Π Π°ΡΡΠ΅Ρ ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½ΠΎΠΉ ΡΠΎΡΠΊΠΈ ΠΠ»Ρ ΡΠ°ΡΡΠ΅ΡΠ° ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½ΠΎΠΉ ΡΠΎΡΠΊΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌ ΠΈΡΡ ΠΎΠ΄Π½ΡΠΉ Π΄Π°Π½Π½ΡΠ΅. Π ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅ ΠΈΡΡ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡΡΡ:
Π Π°ΡΡΡΠΈΡΠ°Π΅ΠΌ ΡΠ°Π³ Π΄Π»Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΌΠ°ΡΡΠΈΠ²Π° ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π΅:
;
Π ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΈΠΈ Ρ ΠΈΡΡ ΠΎΠ΄Π½ΡΠΌΠΈ Π΄Π°Π½Π½ΡΠΌΠΈ Xmax ΡΠ°Π²Π½ΠΎ 100, Π° Xmin — -10.
Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΡΠ°Π³ ΡΠ°Π²Π΅Π½:
Π Π°ΡΡΡΠΈΡΠ°Π΅ΠΌ ΡΠ°Π³ Π΄Π»Ρ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΌΠ°ΡΡΠΈΠ²Π° ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π΅:
;
Π ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΈΠΈ Ρ ΠΈΡΡ ΠΎΠ΄Π½ΡΠΌΠΈ Π΄Π°Π½Π½ΡΠΌΠΈ Ymax ΡΠ°Π²Π½ΠΎ 100, Π° Ymin — 0.1.
Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΡΠ°Π³ ΡΠ°Π²Π΅Π½:
ΠΠΏΡΠ΅Π΄Π΅Π»ΠΈΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΌΠ°ΡΡΠΈΠ²Π°. ΠΠ° ΠΏΠ΅ΡΠ²ΡΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΠΌΠ°ΡΡΠΈΠ²Π° ΠΏΡΠΈΠΌΠ΅ΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Xmin. ΠΠ°ΡΠ΅ΠΌ ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²ΠΎΠΌ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΈΠ±Π°Π²Π»Π΅Π½ΠΈΡ ΡΠ°Π³Π° ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΠΌ ΠΎΡΡΠ°Π»ΡΠ½ΡΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΌΠ°ΡΡΠΈΠ²Π°. Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅:
.
ΠΠΏΡΠ΅Π΄Π΅Π»ΠΈΠΌ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΌΠ°ΡΡΠΈΠ²Π°. ΠΠ° ΠΏΠ΅ΡΠ²ΡΠΉ ΡΠ»Π΅ΠΌΠ΅Π½Ρ ΠΌΠ°ΡΡΠΈΠ²Π° ΠΏΡΠΈΠΌΠ΅ΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Ymin. ΠΠ°ΡΠ΅ΠΌ ΠΏΠΎΡΡΠ΅Π΄ΡΡΠ²ΠΎΠΌ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΠ³ΠΎ ΠΏΡΠΈΠ±Π°Π²Π»Π΅Π½ΠΈΡ ΡΠ°Π³Π° ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΠΌ ΠΎΡΡΠ°Π»ΡΠ½ΡΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΠΌΠ°ΡΡΠΈΠ²Π°. Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅:
.
ΠΠΏΡΠ΅Π΄Π΅Π»ΠΈΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΌΠ°ΡΡΠΈΠ²Π° ΡΠΎΠ³Π»Π°ΡΠ½ΠΎ ΡΠΎΡΠΌΡΠ»Π΅:
.
Π’.ΠΊ. y[1] = 0.1 ΠΈ y[1] < a, ΡΠΎ ΡΠ°ΡΡΠ΅Ρ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΠΌΠ°ΡΡΠΈΠ²Π° ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅ΠΌ ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π΅:
Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅:
Π’.ΠΊ. y[2] = 25,075 ΠΈ y[2] > a, ΡΠΎ ΡΠ°ΡΡΠ΅Ρ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΠΌΠ°ΡΡΠΈΠ²Π° ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅ΠΌ ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π΅:
Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅:
Π’.ΠΊ. y[3] = 50,05 ΠΈ y[3] > a, ΡΠΎ ΡΠ°ΡΡΠ΅Ρ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΠΌΠ°ΡΡΠΈΠ²Π° ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅ΠΌ ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π΅, ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΉ Π² ΠΏΡΠ½ΠΊΡΠ΅ Π±.
Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅:
Π’.ΠΊ. y[4] = 75,025 ΠΈ y[4] > a, ΡΠΎ ΡΠ°ΡΡΠ΅Ρ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΠΌΠ°ΡΡΠΈΠ²Π° ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅ΠΌ ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π΅, ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΉ Π² ΠΏΡΠ½ΠΊΡΠ΅ Π±.
Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅:
Π’.ΠΊ. y[5] = 100 ΠΈ y[5] > a, ΡΠΎ ΡΠ°ΡΡΠ΅Ρ ΠΏΠ΅ΡΠ²ΠΎΠ³ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ° ΠΌΠ°ΡΡΠΈΠ²Π° ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅ΠΌ ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π΅, ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΠΎΠΉ Π² ΠΏΡΠ½ΠΊΡΠ΅ Π±.
Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅:
Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½ΠΎΠΉ ΡΠΎΡΠΊΠΈ ΡΡΠ°Π²Π½ΠΈΠΌ Ρ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠΌ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. Π Π΅Π·ΡΠ»ΡΡΠ°Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅ 1, Π° ΡΠ°ΠΊΠΆΠ΅ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ Π² ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΈ Π.
Π‘Π΄Π΅Π»Π°Π΅ΠΌ Π²ΡΠ²ΠΎΠ΄, ΡΡΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ Π²Π΅ΡΠ½ΠΎ.
4. Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΡΡ Π΅ΠΌ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΎΠ² ΠΈ ΡΠ΅ΠΊΡΡΠΎΠ² ΠΏΠΎΠ΄ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ, ΠΈΡ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅
4.1 Function Proizvedenie
ΠΠ°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅: Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ΠΈΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π΅ .
ΠΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅: Proizvedenie (x, y[j], n);
ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ²:
x — ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΡΠΈΠΏΠ° massiv. ΠΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅Ρ ΠΌΠ°ΡΡΠΈΠ² ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΡΡ 52.
Y — ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΡΠΈΠΏΠ° double. ΠΠ»Π΅ΠΌΠ΅Π½Ρ ΠΌΠ°ΡΡΠΈΠ²Π° .
n — ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² Π² ΠΌΠ°ΡΡΠΈΠ²Π΅ x. n=12.
Π’ΡΠ΅Π±ΡΠ΅ΠΌΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ: Π½Π΅Ρ.
ΠΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΡΡΠ½ΠΊΡΠΈΠΈ Proizvedenie:
ΠΠΈΡΡΠΈΠ½Π³ ΡΡΠ½ΠΊΡΠΈΠΈ Proizvedenie:
Function Proizvedenie (x1:Massiv;y1:double;n1:integer):double;
var
p1:double;
i:integer;
begin
p1:=1;
for i:=1 to n1 do
p1:=p1*(x1[i]-y1);
Proizvedenie:=p1;
end;
4.2 Function Symma
ΠΠ°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅: Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΡΡΠΌΠΌΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π΅ .
ΠΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅: Symma (x, y[j], n);
ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ²:
x — ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΡΠΈΠΏΠ° massiv. ΠΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅Ρ ΠΌΠ°ΡΡΠΈΠ² ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΡΡ 52.
Y — ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΡΠΈΠΏΠ° double. ΠΠ»Π΅ΠΌΠ΅Π½Ρ ΠΌΠ°ΡΡΠΈΠ²Π° .
n — ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² Π² ΠΌΠ°ΡΡΠΈΠ²Π΅ x. n=12.
Π’ΡΠ΅Π±ΡΠ΅ΠΌΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ: Π½Π΅Ρ.
ΠΠΈΡΡΠΈΠ½Π³ ΡΡΠ½ΠΊΡΠΈΠΈ Symma:
Function Symma (x1:Massiv;y1:double;n1:integer):real;
var
s1:real;
begin
s1:=0;
for i:=1 to n1 do
s1:=s1+(x1[i]-y1);
Symma:=s1;
end;
ΠΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΡΡΠ½ΠΊΡΠΈΠΈ Symma:
4.3 Procedure Massive_Z
ΠΠ°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅: ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΌΠ°ΡΡΠΈΠ²Π° .
ΠΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅: Massive_Z (y, m);
ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ²:
y — ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΡΠΈΠΏΠ° massiv. ΠΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅Ρ ΠΌΠ°ΡΡΠΈΠ² ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΡΡ 15.
m — ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² Π² ΠΌΠ°ΡΡΠΈΠ²Π΅ y. m=5.
Π’ΡΠ΅Π±ΡΠ΅ΠΌΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ:
Sqrt — Π°ΡΠΈΡΠΌΠ΅ΡΠΈΡΠ΅ΡΠΊΠ°Ρ ΡΡΠ½ΠΊΡΠΈΡ, Π²ΠΎΠ·Π²ΡΠ°ΡΠ°ΡΡΠ°Ρ ΠΊΠ²Π°Π΄ΡΠ°ΡΠ½ΡΠΉ ΠΊΠΎΡΠ΅Π½Ρ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ°.
Sqr — Π°ΡΠΈΡΠΌΠ΅ΡΠΈΡΠ΅ΡΠΊΠ°Ρ ΡΡΠ½ΠΊΡΠΈΡ, Π²ΠΎΠ·Π²ΡΠ°ΡΠ°ΡΡΠ°Ρ Π°ΡΠ³ΡΠΌΠ΅Π½Ρ Π² ΠΊΠ²Π°Π΄ΡΠ°ΡΠ΅.
Exp — Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΡΠΊΡΠΏΠΎΠ½Π΅Π½ΡΡ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ°.
Cos — Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΠΊΠΎΡΠΈΠ½ΡΡ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ°.
Proizvedenie (x, y[j], n) — Π²ΡΡΠΈΡΠ»ΡΠ΅Ρ ΠΏΡΠΎΠΈΠ·Π²Π΅Π΄Π΅Π½ΠΈΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π΅ .
Symma (x, y[j], n) -Π²ΡΡΠΈΡΠ»ΡΠ΅Ρ ΡΡΠΌΠΌΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π΅ .
ΠΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Massive_Z:
ΠΠΈΡΡΠΈΠ½Π³ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Massive_Z:
Procedure Massive_Z (y1:Massiv;m1:integer);
begin
for j:=1 to m1 do
if a>=y1[j] then
z[j]: =a*Sqr (cos (al))+(1/(b*Sqrt (exp (-t))))+Proizvedenie (x, y[j], n)
else
if a
z[j]: =a*((exp (-(Sqr (t-tay))))/(Sqrt (a-b)))*Symma (x, y[j], n);
end;
5. Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΡΡ Π΅ΠΌΡ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΈ ΡΠ΅ΠΊΡΡΠ° ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΈ ΠΈΡ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π Π°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π½Π°ΠΏΠΈΡΠ°Π½Π° Π½Π° ΡΠ·ΡΠΊΠ΅ Turbo Pascal 7.0. ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π° Π΄Π»Ρ ΠΎΡΡΡΠ΅ΡΡΠ²Π»Π΅Π½ΠΈΡ ΡΠ°ΡΡΠ΅ΡΠ° ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π°ΠΌ, ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Π½ΡΠΌ Π²ΡΡΠ΅.
Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΎΠ΄Π½Π° ΠΈΠ· Π΄ΠΈΡΠ΅ΠΊΡΠΈΠ² ΠΊΠΎΠΌΠΏΠΈΠ»ΡΡΠΎΡΠ° {$N+), ΠΊΠΎΡΠΎΡΠ°Ρ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠΈΡΠ»ΠΎΠ²ΠΎΠΉ ΡΠΎΠΏΡΠΎΡΠ΅ΡΡΠΎΡ, Ρ. Π΅. ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²ΡΠ²Π°ΡΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ Ρ ΠΏΠ»Π°Π²Π°ΡΡΠ΅ΠΉ ΡΠΎΡΠΊΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎ.
Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ ΠΊΠΎΠ½ΡΡΠ°Π½ΡΡ:
Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠΈΠΏ Massiv=array [1.d] of real.
Π ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅:
x:Massiv — ΠΎΠ·Π½ΠΎΠΌΠ΅ΡΠ½ΡΠΉ ΠΌΠ°ΡΡΠΈΠ² Π²Π΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΡΡ ΡΠΈΡΠ΅Π» ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΡΡ n.
y:Massiv — ΠΎΠ΄Π½ΠΎΠΌΠ΅ΡΠ½ΡΠΉ ΠΌΠ°ΡΡΠΈΠ² Π²Π΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΡΡ ΡΠΈΡΠ΅Π» ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΡΡ m;
z — ΠΎΠ΄Π½ΠΎΠΌΠ΅ΡΠ½ΡΠΉ ΠΌΠ°ΡΡΠΈΠ² ΡΠΈΡΠ΅Π» ΡΠΈΠΏΠ° double ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΡΡ d;
i, j — ΡΠΈΠΏΠ° integer;
h, k — ΡΠΈΠΏΠ° double;
ΠΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ:
ΠΠΈΡΡΠΈΠ½Π³ ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ:
Begin
clrscr;
writeln ('ΠΡΡΡΠΎΠ²Π°Ρ ΡΠ°Π±ΠΎΡΠ° «Π Π΅ΡΠ΅Π½ΠΈΠ΅ ΠΏΡΠΈΠΊΠ»Π°Π΄Π½ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ» ');
writeln;
k:=(Xmax-Xmin)/(n-1);
writeln ('Π¨Π°Π³ Π΄Π»Ρ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΌΠ°ΡΡΠΈΠ²Π° x ΡΠ°Π²Π΅Π½ ', k:10:4);
h:=(Ymax-Ymin)/(m-1);
writeln ('Π¨Π°Π³ Π΄Π»Ρ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΌΠ°ΡΡΠΈΠ²Π° y ΡΠ°Π²Π΅Π½ ', h:10:4);
x[1]: =Xmin;
for i:=2 to n do
x[i]: =x[i-1]+k;
y[1]:=Ymin;
for j:=2 to m do
y[j]: =y[j-1]+h;
writeln ('ΠΡΡ ΠΎΠ΄Π½ΡΠΉ ΠΌΠ°ΡΡΠΈΠ² x');
for i:=1 to n do
begin
write (x[i]: 10:4, '':2);
if ((i mod 5)=0) then writeln;
end;
writeln ('ΠΡΡ ΠΎΠ΄Π½ΡΠΉ ΠΌΠ°ΡΡΠΈΠ² y');
for j:=1 to m do
write (y[j]: 10:4, '':2);
writeln;
Massive_Z (y, m);
writeln ('ΠΡΡΠΈΡΠ»Π΅Π½Π½ΡΠΉ ΠΌΠ°ΡΡΠΈΠ² z ΡΠ°Π²Π΅Π½');
for j:=1 to m do
writeln (z[j]);
writeln;
write ('ΠΠ°ΠΆΠΌΠΈΡΠ΅ Π»ΡΠ±ΡΡ ΠΊΠ»Π°Π²ΠΈΡΡ…');
readln;
End.
ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
Π ΠΏΡΠΎΡΠ΅ΡΡΠ΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Π΄Π°Π½Π½ΠΎΠΉ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ Π±ΡΠ»ΠΈ Π·Π°ΠΊΡΠ΅ΠΏΠ»Π΅Π½Ρ ΡΠ΅ΠΎΡΠ΅ΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΈ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ Π½Π°Π²ΡΠΊΠΈ Π² ΡΠ΅ΡΠ΅Π½ΠΈΠΈ ΠΏΡΠΈΠΊΠ»Π°Π΄Π½ΡΡ Π·Π°Π΄Π°Ρ Ρ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ΠΌ ΡΡΠ½ΠΊΡΠΈΠΉ ΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡ, Π±ΡΠ»ΠΎ ΠΎΡΠ²ΠΎΠ΅Π½ ΠΏΡΠΈΠ½ΡΠΈΠΏ ΡΡΡΡΠΊΡΡΡΠ½ΠΎΠ³ΠΎ (ΠΌΠΎΠ΄ΡΠ»ΡΠ½ΠΎΠ³ΠΎ) ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ. Π’Π°ΠΊΠΆΠ΅ Π² ΠΏΡΠΎΡΠ΅ΡΡΠ΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Π΄Π°Π½Π½ΠΎΠΉ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ Π±ΡΠ»Π° ΡΠΎΠ·Π΄Π°Π½Π° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΡΡΠ°Ρ ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΌΠ°ΡΡΠΈΠ²Π° z Π² ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΈΠΈ Ρ ΠΏΡΠΈΠ²Π΅Π΄Π΅Π½Π½ΡΠΌΠΈ ΡΠΎΡΠΌΡΠ»Π°ΠΌΠΈ.
Π‘ΠΏΠΈΡΠΎΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Π½ΡΡ ΠΈΡΡΠΎΡΠ½ΠΈΠΊΠΎΠ²
Π»ΠΈΡΠ΅ΡΠ°ΡΡΡΡ
1. Π€Π°ΡΠΎΠ½ΠΎΠ² Π. Π. Turbo Pascal 7.0 — Π.: «ΠΠΎΠ»ΠΈΠ΄ΠΆ», 2001 Π³. — 576 Ρ.
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅, Π ΠΠΈΡΡΠΈΠ½Π³ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
Program Kyrsov_rabota;
{$N+}
uses crt;
const
n=10;
m=5;
a=23.56;
b=7.86;
al=0.364;
t=10;
tay=0.05;
d=100;
Ymin=0.1;
Ymax=100;
Xmin=-10;
Xmax=100;
type
Massiv=array [1.d] of real;
var
x, y: Massiv;
z:array [1.d] of double;
i, j: integer;
h, k: double;
Function Proizvedenie (x1:Massiv;y1:double;n1:integer):double;
var
p1:double;
i:integer;
begin
p1:=1;
for i:=1 to n1 do
p1:=p1*(x1[i]-y1);
Proizvedenie:=p1;
end;
Function Symma (x1:Massiv;y1:double;n1:integer):real;
var
s1:real;
begin
s1:=0;
for i:=1 to n1 do
s1:=s1+(x1[i]-y1);
Symma:=s1;
end;
Procedure Massive_Z (y1:Massiv;m1:integer);
begin
for j:=1 to m1 do
if a>=y1[j] then
z[j]: =a*Sqr (cos (al))+(1/(b*Sqrt (exp (-t))))+Proizvedenie (x, y[j], n)
else
if a
z[j]: =a*((exp (-(Sqr (t-tay))))/(Sqrt (a-b)))*Symma (x, y[j], n);
end;
Begin
clrscr;
writeln ('ΠΡΡΡΠΎΠ²Π°Ρ ΡΠ°Π±ΠΎΡΠ° «Π Π΅ΡΠ΅Π½ΠΈΠ΅ ΠΏΡΠΈΠΊΠ»Π°Π΄Π½ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ» ');
writeln;
k:=(Xmax-Xmin)/(n-1);
writeln ('Π¨Π°Π³ Π΄Π»Ρ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΌΠ°ΡΡΠΈΠ²Π° x ΡΠ°Π²Π΅Π½ ', k:10:4);
h:=(Ymax-Ymin)/(m-1);
writeln ('Π¨Π°Π³ Π΄Π»Ρ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΌΠ°ΡΡΠΈΠ²Π° y ΡΠ°Π²Π΅Π½ ', h:10:4);
x[1]: =Xmin;
for i:=2 to n do
x[i]: =x[i-1]+k;
y[1]:=Ymin;
for j:=2 to m do
y[j]: =y[j-1]+h;
writeln ('ΠΡΡ ΠΎΠ΄Π½ΡΠΉ ΠΌΠ°ΡΡΠΈΠ² x');
for i:=1 to n do
begin
write (x[i]: 10:4, '':2);
if ((i mod 5)=0) then writeln;
end;
writeln ('ΠΡΡ ΠΎΠ΄Π½ΡΠΉ ΠΌΠ°ΡΡΠΈΠ² y');
for j:=1 to m do
write (y[j]: 10:4, '':2);
writeln;
Massive_Z (y, m);
writeln ('ΠΡΡΠΈΡΠ»Π΅Π½Π½ΡΠΉ ΠΌΠ°ΡΡΠΈΠ² z ΡΠ°Π²Π΅Π½');
for j:=1 to m do
writeln (z[j]);
writeln;
write ('ΠΠ°ΠΆΠΌΠΈΡΠ΅ Π»ΡΠ±ΡΡ ΠΊΠ»Π°Π²ΠΈΡΡ…');
readln;
End.
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅ Π Π Π΅Π·ΡΠ»ΡΡΠ°Ρ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π ΠΈΡΡΠ½ΠΎΠΊ Π1 — ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ