ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈ ΠΈΡΡΠ»Π΅Π΄ΠΎΠ²Π°Π½ΠΈΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΎΠ² Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΡ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»ΠΎΠ²
Π’Π΅ΠΏΠ΅ΡΡ ΠΏΠ΅ΡΠ΅ΠΉΠ΄ΡΠΌ ΠΊ Π·Π°Π΄Π°Π½ΠΈΡ: Π½Π°ΠΌ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π½Π°ΠΉΡΠΈ ΡΠΎΠ»ΡΠΈΠ½Ρ ΡΠ»ΠΎΡ ΠΌΠ΅Π΄ΠΈ, Π²ΡΠ΄Π΅Π»ΠΈΠ²ΡΠ΅ΠΉΡΡ Π² ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΡΠ»Π΅ΠΊΡΡΠΎΠ»ΠΈΠ·Π° Π²ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΡΠ°ΡΡΠ²ΠΎΡΠ° Ρ Π»ΠΎΡΠΈΠ΄Π° ΠΌΠ΅Π΄ΠΈ (II) Π½Π° ΠΊΠ°ΡΠΎΠ΄Π΅. ΠΠ·Π²Π΅ΡΡΠ½Π° Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΡ ΡΠΈΠ»Ρ ΡΠΎΠΊΠ° ΠΎΡ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ. ΠΡΡΡΠ΄Π° ΠΈΠΌΠ΅Π΅ΠΌ. Π€Π°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ Π½Π°ΠΌ Π½Π°Π΄ΠΎ ΠΎΡΠΎΡΠΌΠΈΡΡ ΡΡΠ½ΠΊΡΠΈΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ Π·Π°Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π° Π½Π° Visual Basic 6.0 ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ ΡΡΠ°ΠΏΠ΅ΡΠΈΠΉ. ΠΠ°Π·ΠΎΠ²ΡΠΌ ΡΡΠ½ΠΊΡΠΈΡ metod_trapec. ΠΡΠΈ Π²ΡΠ·ΠΎΠ²Π΅ ΡΡΠ½ΠΊΡΠΈΠΈ Π·Π°Π΄Π°Π²Π°Π΅ΠΌΡΠΌΠΈ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈ ΠΈΡΡΠ»Π΅Π΄ΠΎΠ²Π°Π½ΠΈΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΎΠ² Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΡ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»ΠΎΠ² (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠΎΡΡΠ½ΠΈΡΠ΅Π»ΡΠ½Π°Ρ Π·Π°ΠΏΠΈΡΠΊΠ° ΠΊ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅:
«ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈ ΠΈΡΡΠ»Π΅Π΄ΠΎΠ²Π°Π½ΠΈΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΎΠ² Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΡ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»ΠΎΠ²»
ΠΠ²Π΅Π΄Π΅Π½ΠΈΠ΅
ΠΠ° ΠΏΡΠ°ΠΊΡΠΈΠΊΠ΅ ΡΠ°ΡΡΠΎ Π²ΠΎΠ·Π½ΠΈΠΊΠ°Π΅Ρ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΡ Π²ΡΡΠΈΡΠ»ΠΈΡΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΡΠΉ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π». ΠΡΠ»ΠΈ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π» Π±Π΅ΡΡΡΡΡ Π² Π°Π»Π³Π΅Π±ΡΠ°ΠΈΡΠ΅ΡΠΊΠΈΡ ΡΡΠ½ΠΊΡΠΈΡΡ , ΡΠΎ Π²ΡΡ Π² ΠΏΠΎΡΡΠ΄ΠΊΠ΅ ΠΈ Π²Π·ΡΡΡ Π΅Π³ΠΎ Π²ΡΡΡΠ½ΡΡ Π½Π΅ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΡΡΠ΄Π°. Π Π΅ΡΠ»ΠΈ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π» Π½Π΅ Π±Π΅ΡΡΡΡΡ Π² Π°Π»Π³Π΅Π±ΡΠ°ΠΈΡΠ΅ΡΠΊΠΈΡ ΡΡΠ½ΠΊΡΠΈΡΡ ΠΈΠ»ΠΈ ΠΏΡΠΎΡΡΠΎ ΠΈΡ ΠΎΡΠ΅Π½Ρ ΠΌΠ½ΠΎΠ³ΠΎ, ΡΠΎ ΠΏΡΠΈΡ ΠΎΠ΄ΠΈΡΡΡ ΠΏΡΠΈΠ±Π΅Π³Π°ΡΡ ΠΊ ΠΏΠΎΠΌΠΎΡΠΈ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΠΎΠΉ ΡΠ΅Ρ Π½ΠΈΠΊΠΈ. Π‘ΡΡΠ΅ΡΡΠ²ΡΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠΏΠΎΡΠΎΠ±ΠΎΠ² Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΡΡ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»ΠΎΠ² Π½Π° ΠΠΠ, ΠΏΡΠΈΡΠ΅ΠΌ Π°Π±ΡΠΎΠ»ΡΡΠ½ΠΎ Π²ΡΠ΅ ΡΡΠΈ ΡΠΏΠΎΡΠΎΠ±Ρ ΠΏΠΎΠ»ΡΡΠ°ΡΡ Π»ΠΈΡΡ ΠΏΡΠΈΠ±Π»ΠΈΠΆΡΠ½Π½ΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ. Π ΡΡΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ ΠΌΡ ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ Π΄Π²Π° ΠΌΠ΅ΡΠΎΠ΄Π° Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ: ΠΌΠ΅ΡΠΎΠ΄ ΡΡΠ°ΠΏΠ΅ΡΠΈΠΉ ΠΈ ΠΌΠ΅ΡΠΎΠ΄ Π‘ΠΈΠΌΠΏΡΠΎΠ½Π° (ΠΌΠ΅ΡΠΎΠ΄ ΠΏΠ°ΡΠ°Π±ΠΎΠ»).
ΠΠ΅ΡΠΎΠ΄ ΡΡΠ°ΠΏΠ΅ΡΠΈΠΉ ΠΡΡΡΡ Y=, Π³Π΄Π΅ — ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΡΠ΅ΠΌΠ°Ρ ΡΡΠ½ΠΊΡΠΈΡ, Π½Π΅ΠΏΡΠ΅ΡΡΠ²Π½Π°Ρ Π½Π° ΠΎΡΡΠ΅Π·ΠΊΠ΅. ΠΠ»Ρ Π½Π°Π³Π»ΡΠ΄Π½ΠΎΡΡΠΈ Π±ΡΠ΄Π΅ΠΌ ΠΏΡΠ΅Π΄ΠΏΠΎΠ»Π°Π³Π°ΡΡ, ΡΡΠΎ ΠΏΠΎΠ»ΠΎΠΆΠΈΡΠ΅Π»ΡΠ½Π° Π½Π° ΠΎΡΡΠ΅Π·ΠΊΠ΅. Π ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Y ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΠΏΠ»ΠΎΡΠ°Π΄Ρ ΠΊΡΠΈΠ²ΠΎΠ»ΠΈΠ½Π΅ΠΉΠ½ΠΎΠΉ ΡΡΠ°ΠΏΠ΅ΡΠΈΠΈ, ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½Π½ΠΎΠΉ Π»ΠΈΠ½ΠΈΡΠΌΠΈ: ,. ΠΡΠ±Π΅ΡΠ΅ΠΌ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ»ΡΠ½ΠΎΠ΅ Π½Π°ΡΡΡΠ°Π»ΡΠ½ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ ΠΈ ΡΠ°Π·ΠΎΠ±ΡΡΠΌ ΠΎΡΡΠ΅Π·ΠΎΠΊ Π½Π° ΡΠ°Π²Π½ΡΡ ΠΎΡΡΠ΅Π·ΠΊΠΎΠ² ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΡΠΎΡΠ΅ΠΊ:, ,, , …,. ΠΡΡΠΌΡΠ΅ ΡΠ°Π·Π±ΠΈΠ²Π°ΡΡ Π½Π°ΡΡ ΡΡΠ°ΠΏΠ΅ΡΠΈΡ Π½Π° ΠΏΠΎΠ»ΠΎΡΠΎΠΊ. ΠΠ°ΠΆΠ΄Π°Ρ ΠΏΠΎΠ»ΠΎΡΠ° ΠΈΠΌΠ΅Π΅Ρ Π³ΡΠ°Π½ΠΈΡΠ½ΡΠ΅ Π²Π΅ΡΡΠΈΠΊΠ°Π»ΠΈ: ΠΈ. Π‘ΠΎΠ΅Π΄ΠΈΠ½ΠΈΠΌ ΠΏΡΡΠΌΠΎΠΉ ΡΠ΅ ΡΠΎΡΠΊΠΈ, Π² ΠΊΠΎΡΠΎΡΡΡ ΡΡΠΈ Π²Π΅ΡΡΠΈΠΊΠ°Π»ΠΈ ΠΏΠ΅ΡΠ΅ΡΠ΅ΠΊΠ°ΡΡ ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΡΠ΅ΠΌΡΡ ΡΡΠ½ΠΊΡΠΈΡ. Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΠΏΠ»ΠΎΡΠ°Π΄Ρ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΏΠΎΠ»ΠΎΡΠΊΠΈ ΠΏΡΠΈΠ±Π»ΠΈΠ·ΠΈΡΠ΅Π»ΡΠ½ΠΎ ΡΡΠ°Π»Π° ΡΠ°Π²Π½Π° ΠΏΠ»ΠΎΡΠ°Π΄ΠΈ ΠΎΠ±ΡΡΠ½ΠΎΠΉ ΠΏΡΡΠΌΠΎΠ»ΠΈΠ½Π΅ΠΉΠ½ΠΎΠΉ ΡΡΠ°ΠΏΠ΅ΡΠΈΠΈ (ΡΠΌ. ΡΠΈΡ. 1).
Π ΠΈΡ. 1
ΠΠ»ΠΎΡΠ°Π΄Ρ ΡΠ°ΠΌΠΎΠΉ Π»Π΅Π²ΠΎΠΉ ΠΏΠΎΠ»ΠΎΡΠΊΠΈ ΠΏΡΠΈΠ±Π»ΠΈΠΆΡΠ½Π½ΠΎ ΡΠ°Π²Π½Π° ΠΏΠ»ΠΎΡΠ°Π΄ΠΈ ΡΠ°ΠΌΠΎΠΉ Π»Π΅Π²ΠΎΠΉ ΡΡΠ°ΠΏΠ΅ΡΠΈΠΈ, Π° ΠΈΠΌΠ΅Π½Π½ΠΎ:. ΠΠ· ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΡ ΡΠΎΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠΉ ΠΈ, Π° Π²ΡΡΠΎΡΠ° ΡΡΠ°ΠΏΠ΅ΡΠΈΠΈ. ΠΠ½Π°ΡΠΈΡ. ΠΠ»ΠΎΡΠ°Π΄ΠΈ Π²ΡΠ΅Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΡ ΠΏΠΎΠ»ΠΎΡΠΎΠΊ Π²ΡΡΠ°Π·ΡΡΡΡ Π°Π½Π°Π»ΠΎΠ³ΠΈΡΠ½ΡΠΌ ΡΠΏΠΎΡΠΎΠ±ΠΎΠΌ ΠΈ ΡΠΎΡΡΠ°Π²ΡΡ:, ,, …,. Π§ΡΠΎΠ±Ρ Π½Π°ΠΉΡΠΈ ΠΏΠ»ΠΎΡΠ°Π΄Ρ ΠΈΠ½ΡΠ΅ΡΠ΅ΡΡΡΡΠ΅ΠΉ Π½Π°Ρ ΠΊΡΠΈΠ²ΠΎΠ»ΠΈΠ½Π΅ΠΉΠ½ΠΎΠΉ ΡΡΠ°ΠΏΠ΅ΡΠΈΠΈ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠ»ΠΎΠΆΠΈΡΡ ΠΏΠ»ΠΎΡΠ°Π΄ΠΈ Π²ΡΠ΅Ρ ΠΏΠΎΠ»ΠΎΡΠΎΠΊ, ΠΊΠΎΡΠΎΡΡΠ΅ Π² ΡΠ²ΠΎΡ ΠΎΡΠ΅ΡΠ΅Π΄Ρ ΠΏΡΠΈΠ±Π»ΠΈΠΆΡΠ½Π½ΠΎ ΡΠ°Π²Π½Ρ ΠΏΠ»ΠΎΡΠ°Π΄ΡΠΌ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΡ ΠΏΡΡΠΌΠΎΠ»ΠΈΠ½Π΅ΠΉΠ½ΡΡ ΡΡΠ°ΠΏΠ΅ΡΠΈΠΉ. Π‘Π»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎ, ΠΏΠ»ΠΎΡΠ°Π΄Ρ ΠΊΡΠΈΠ²ΠΎΠ»ΠΈΠ½Π΅ΠΉΠ½ΠΎΠΉ ΡΡΠ°ΠΏΠ΅ΡΠΈΠΈ, Π° Π·Π½Π°ΡΠΈΡ ΠΈ ΡΠΈΡΠ»Π΅Π½Π½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π·Π°Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π°, ΡΠ°Π²Π½Ρ.
ΠΡΡ ΡΠΎΡΠΌΡΠ»Ρ ΠΌΠΎΠΆΠ½ΠΎ Π·Π°ΠΏΠΈΡΠ°ΡΡ Π² Π΄ΡΡΠ³ΠΎΠΌ Π²ΠΈΠ΄Π΅, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΡΠΎΠΊΡΠ°ΡΠ΅Π½ΠΈΡ ΠΈ ΡΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΠ΅, ΡΡΠΎ — Π΄Π»ΠΈΠ½Π° ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΈΠ· ΡΠ°Π²Π½ΡΡ ΠΎΡΡΠ΅Π·ΠΊΠΎΠ² ΠΈΠ»ΠΈ Π²ΡΡΠΎΡΠ° ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΏΡΡΠΌΠΎΠ»ΠΈΠ½Π΅ΠΉΠ½ΠΎΠΉ ΡΡΠ°ΠΏΠ΅ΡΠΈΠΈ:
(1).
ΠΠ°Π½Π½Π°Ρ ΡΠΎΡΠΌΡΠ»Π° Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ ΡΠΎΡΠΌΡΠ»ΠΎΠΉ ΡΡΠ°ΠΏΠ΅ΡΠΈΠΉ. ΠΡ ΡΠΎΡΠ½ΠΎΡΡΡ Π·Π°Π²ΠΈΡΠΈΡ ΠΎΡ. Π§Π΅ΠΌ Π±ΠΎΠ»ΡΡΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ°Π·Π±ΠΈΠ΅Π½ΠΈΠΉ ΠΎΡΡΠ΅Π·ΠΊΠ° ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ, ΡΠ΅ΠΌ Π²ΡΡΠ΅ ΡΠΎΡΠ½ΠΎΡΡΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠΉ.
Π’Π΅ΠΏΠ΅ΡΡ ΠΏΠ΅ΡΠ΅ΠΉΠ΄ΡΠΌ ΠΊ Π·Π°Π΄Π°Π½ΠΈΡ: Π½Π°ΠΌ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π½Π°ΠΉΡΠΈ ΡΠΎΠ»ΡΠΈΠ½Ρ ΡΠ»ΠΎΡ ΠΌΠ΅Π΄ΠΈ, Π²ΡΠ΄Π΅Π»ΠΈΠ²ΡΠ΅ΠΉΡΡ Π² ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΡΠ»Π΅ΠΊΡΡΠΎΠ»ΠΈΠ·Π° Π²ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΡΠ°ΡΡΠ²ΠΎΡΠ° Ρ Π»ΠΎΡΠΈΠ΄Π° ΠΌΠ΅Π΄ΠΈ (II) Π½Π° ΠΊΠ°ΡΠΎΠ΄Π΅. ΠΠ·Π²Π΅ΡΡΠ½Π° Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΡ ΡΠΈΠ»Ρ ΡΠΎΠΊΠ° ΠΎΡ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ. ΠΡΡΡΠ΄Π° ΠΈΠΌΠ΅Π΅ΠΌ. Π€Π°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ Π½Π°ΠΌ Π½Π°Π΄ΠΎ ΠΎΡΠΎΡΠΌΠΈΡΡ ΡΡΠ½ΠΊΡΠΈΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ Π·Π°Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π° Π½Π° Visual Basic 6.0 ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ ΡΡΠ°ΠΏΠ΅ΡΠΈΠΉ. ΠΠ°Π·ΠΎΠ²ΡΠΌ ΡΡΠ½ΠΊΡΠΈΡ metod_trapec. ΠΡΠΈ Π²ΡΠ·ΠΎΠ²Π΅ ΡΡΠ½ΠΊΡΠΈΠΈ Π·Π°Π΄Π°Π²Π°Π΅ΠΌΡΠΌΠΈ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ°ΠΌΠΈ Π±ΡΠ΄ΡΡ down_predel=0 — Π½ΠΈΠΆΠ½ΠΈΠΉ ΠΏΡΠ΅Π΄Π΅Π» ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ, up_predel — Π²Π΅ΡΡ Π½ΠΈΠΉ ΠΏΡΠ΅Π΄Π΅Π» ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ (Π²ΡΠ΅ΠΌΡ Π½Π°Π±Π»ΡΠ΄Π΅Π½ΠΈΡ), chislo_razb — ΡΠΈΡΠ»ΠΎ ΡΠ°Π·Π±ΠΈΠ΅Π½ΠΈΠΉ ΠΎΡΡΠ΅Π·ΠΊΠ° ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ ΠΊΠΎΠ΄ ΡΡΠ½ΠΊΡΠΈΠΈ Π±ΡΠ΄Π΅Ρ Π²ΡΠ³Π»ΡΠ΄Π΅ΡΡ ΡΠ°ΠΊ:
Public Function metod_trapec (ByVal a As Single, ByVal b As Single, ByVal n As Long) As Double
Dim h As Single
Dim s As Double
Dim i As Long
h = (b — a) / n
s = (F (a, Io) + F (b, Io)) * h / 2
For i = 1 To n — 1
s = s + F (a + i * h, Io) * h
Next i
metod_trapec = s
End Function
__________
Π€Π°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ down_predel, up_predel, chislo_razb ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡ ΡΠΎΡΠΌΠ°Π»ΡΠ½ΡΠΌ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ°ΠΌ a, b, n. Π ΠΎΡΠ½ΠΎΠ²Π΅ Π»Π΅ΠΆΠΈΡ ΡΠΎΡΠΌΡΠ»Π° ΡΡΠ°ΠΏΠ΅ΡΠΈΠΉ (1), Π·Π°ΠΏΠΈΡΠ°Π½Π½Π°Ρ ΠΏΠΎ-Π΄ΡΡΠ³ΠΎΠΌΡ:
.
ΠΠ°ΠΊΠ°ΠΏΠ»ΠΈΠ²Π°Π΅ΠΌ ΡΡΠΌΠΌΡ, ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ ΠΊΠΎΡΠΎΡΠΎΠΉ ΠΈ Π±ΡΠ΄Π΅Ρ ΠΈΡΠΊΠΎΠΌΡΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ΠΌ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π°. ΠΠ°Π»Π΅Π΅ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π΅ΠΌ ΠΈΠΌΠ΅Π½ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ s.
ΠΠ΅ΡΠΎΠ΄ Π‘ΠΈΠΌΠΏΡΠΎΠ½Π° (ΠΌΠ΅ΡΠΎΠ΄ ΠΏΠ°ΡΠ°Π±ΠΎΠ») ΠΡΡΡΡ Y=, Π³Π΄Π΅ — ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΡΠ΅ΠΌΠ°Ρ ΡΡΠ½ΠΊΡΠΈΡ, Π½Π΅ΠΏΡΠ΅ΡΡΠ²Π½Π°Ρ Π½Π° ΠΎΡΡΠ΅Π·ΠΊΠ΅. ΠΠ»Ρ Π½Π°Π³Π»ΡΠ΄Π½ΠΎΡΡΠΈ Π±ΡΠ΄Π΅ΠΌ ΠΏΡΠ΅Π΄ΠΏΠΎΠ»Π°Π³Π°ΡΡ, ΡΡΠΎ ΠΏΠΎΠ»ΠΎΠΆΠΈΡΠ΅Π»ΡΠ½Π° Π½Π° ΠΎΡΡΠ΅Π·ΠΊΠ΅. Π ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Y ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΠΏΠ»ΠΎΡΠ°Π΄Ρ ΠΊΡΠΈΠ²ΠΎΠ»ΠΈΠ½Π΅ΠΉΠ½ΠΎΠΉ ΡΡΠ°ΠΏΠ΅ΡΠΈΠΈ, ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½Π½ΠΎΠΉ Π»ΠΈΠ½ΠΈΡΠΌΠΈ: ,. ΠΡΠ±Π΅ΡΠ΅ΠΌ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ»ΡΠ½ΠΎΠ΅ Π½Π°ΡΡΡΠ°Π»ΡΠ½ΠΎΠ΅ ΡΡΡΠ½ΠΎΠ΅ ΡΠΈΡΠ»ΠΎ ΠΈ ΡΠ°Π·ΠΎΠ±ΡΡΠΌ ΠΎΡΡΠ΅Π·ΠΎΠΊ Π½Π° ΡΠ°Π²Π½ΡΡ ΠΎΡΡΠ΅Π·ΠΊΠΎΠ² ΠΏΡΠΈ ΠΏΠΎΠΌΠΎΡΠΈ ΡΠΎΡΠ΅ΠΊ:, …,. ΠΡΡΠΌΡΠ΅ ΡΠ°Π·Π±ΠΈΠ²Π°ΡΡ Π½Π°ΡΡ ΡΡΠ°ΠΏΠ΅ΡΠΈΡ Π½Π° ΠΏΠΎΠ»ΠΎΡΠΎΠΊ. ΠΠ°ΠΆΠ΄Π°Ρ ΠΏΠΎΠ»ΠΎΡΠ° ΠΈΠΌΠ΅Π΅Ρ Π³ΡΠ°Π½ΠΈΡΠ½ΡΠ΅ Π²Π΅ΡΡΠΈΠΊΠ°Π»ΠΈ: ΠΈ. ΠΡΠΌΠ΅ΡΠΈΠΌ ΡΠΎΡΠΊΠΈ, Π² ΠΊΠΎΡΠΎΡΡΡ ΡΡΠΈ Π²Π΅ΡΡΠΈΠΊΠ°Π»ΠΈ ΠΏΠ΅ΡΠ΅ΡΠ΅ΠΊΠ°ΡΡ ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΡΠ΅ΠΌΡΡ ΡΡΠ½ΠΊΡΠΈΡ. Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΠΏΠΎΠ»ΡΡΠΈΠ»ΠΈΡΡ ΡΠΎΡΠΊΠΈ:, ,, …,. ΠΠ° Π²ΡΡΠΌ ΠΎΡΡΠ΅Π·ΠΊΠ΅ ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠ΅ΡΠ΅Π· ΡΠΎΡΠΊΠΈ ΠΈ ΠΏΡΠΎΠ²Π΅Π΄ΡΠΌ Π³ΡΠ°ΡΠΈΠΊΠΈ ΠΊΠ²Π°Π΄ΡΠ°ΡΠΈΡΠ½ΡΡ ΡΡΠ½ΠΊΡΠΈΠΉ. Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΠΏΠΎΠ»ΡΡΠΈΠ»ΠΎΡΡ, ΡΡΠΎ ΠΏΠ»ΠΎΡΠ°Π΄Ρ Π΄Π²ΡΡ ΡΠΎΡΠ΅Π΄Π½ΠΈΡ ΠΏΠΎΠ»ΠΎΡΠΎΠΊ, ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½Π½ΡΡ ΠΏΡΡΠΌΡΠΌΠΈ ΠΈ ΠΏΡΠΈΠ±Π»ΠΈΠΆΡΠ½Π½ΠΎ ΡΠ°Π²Π½Π° ΠΏΠ»ΠΎΡΠ°Π΄ΠΈ ΠΏΠΎΠ΄ ΠΏΠ°ΡΠ°Π±ΠΎΠ»ΠΎΠΉ, ΠΏΡΠΎΠ²Π΅Π΄ΡΠ½Π½ΠΎΠΉ ΡΠ΅ΡΠ΅Π· ΡΠΎΡΠΊΠΈ ΠΈ (ΡΠΌ. ΡΠΈΡ. 2).
Π ΠΈΡ. 2
ΠΡΡΠΈΡΠ»ΠΈΠΌ ΠΏΠ»ΠΎΡΠ°Π΄Ρ ΠΏΠΎΠ΄ ΠΏΠ°ΡΠ°Π±ΠΎΠ»ΠΎΠΉ, ΠΏΡΠΎΡ ΠΎΠ΄ΡΡΠ΅ΠΉ ΡΠ΅ΡΠ΅Π· ΡΠΎΡΠΊΠΈ ΠΈ. Π£ΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ ΠΏΠ°ΡΠ°Π±ΠΎΠ»Ρ ΠΈΠΌΠ΅Π΅Ρ ΠΎΠ±ΡΠΈΠΉ Π²ΠΈΠ΄. ΠΠ»ΠΎΡΠ°Π΄Ρ ΠΏΠΎΠ΄ ΠΏΠ°ΡΠ°Π±ΠΎΠ»ΠΎΠΉ:
(2).
ΠΠ°ΡΠ°Π±ΠΎΠ»Π° ΠΏΡΠΎΡ ΠΎΠ΄ΠΈΡ ΡΠ΅ΡΠ΅Π· ΡΡΠΈ ΡΠΎΡΠΊΠΈ, ΠΈ, Π³Π΄Π΅. Π Π΅ΡΠ°Ρ ΡΠΈΡΡΠ΅ΠΌΡ ΠΈΠ· ΡΡΡΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΉ, ΠΏΠΎΠ»ΡΡΠ°Π΅ΠΌ: .
ΠΠΎΠ΄ΡΡΠ°Π²Π»ΡΠ΅ΠΌ Π² ΡΠΎΡΠΌΡΠ»Ρ (2). ΠΡΡΡΠ΄Π° ΡΠ»Π΅Π΄ΡΠ΅Ρ, ΡΡΠΎ, Π³Π΄Π΅. Π Π°ΡΠΏΡΠΎΡΡΡΠ°Π½ΡΠ΅ΠΌ Π½Π° Π²Π΅ΡΡ ΠΎΡΡΠ΅Π·ΠΎΠΊ:
. ΠΠ°ΠΏΠΈΡΠ΅ΠΌ Ρ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ΠΌ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΡ ΠΎΠΏΠ΅ΡΠ°Π½Π΄ΠΎΠ²:
(3).
ΠΠ°Π½Π½Π°Ρ ΡΠΎΡΠΌΡΠ»Π° Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ ΡΠΎΡΠΌΡΠ»ΠΎΠΉ Π‘ΠΈΠΌΠΏΡΠΎΠ½Π°. ΠΡ ΡΠΎΡΠ½ΠΎΡΡΡ Π·Π°Π²ΠΈΡΠΈΡ ΠΎΡ. Π§Π΅ΠΌ Π±ΠΎΠ»ΡΡΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ°Π·Π±ΠΈΠ΅Π½ΠΈΠΉ ΠΎΡΡΠ΅Π·ΠΊΠ° ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ, ΡΠ΅ΠΌ Π²ΡΡΠ΅ ΡΠΎΡΠ½ΠΎΡΡΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠΉ.
Π€Π°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈ Π½Π°ΠΌ Π½Π°Π΄ΠΎ ΠΎΡΠΎΡΠΌΠΈΡΡ ΡΡΠ½ΠΊΡΠΈΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ Π·Π°Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π° Π½Π° Visual Basic 6.0 ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ Π‘ΠΈΠΌΠΏΡΠΎΠ½Π°. ΠΠ°Π·ΠΎΠ²ΡΠΌ ΡΡΠ½ΠΊΡΠΈΡ metod_Simpson. ΠΡΠΈ Π²ΡΠ·ΠΎΠ²Π΅ ΡΡΠ½ΠΊΡΠΈΠΈ Π·Π°Π΄Π°Π²Π°Π΅ΠΌΡΠΌΠΈ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ°ΠΌΠΈ Π±ΡΠ΄ΡΡ down_predel — Π½ΠΈΠΆΠ½ΠΈΠΉ ΠΏΡΠ΅Π΄Π΅Π» ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ, up_predel — Π²Π΅ΡΡ Π½ΠΈΠΉ ΠΏΡΠ΅Π΄Π΅Π» ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ, chislo_razb — ΡΠΈΡΠ»ΠΎ ΡΠ°Π·Π±ΠΈΠ΅Π½ΠΈΠΉ ΠΎΡΡΠ΅Π·ΠΊΠ° ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ ΠΊΠΎΠ΄ ΡΡΠ½ΠΊΡΠΈΠΈ Π±ΡΠ΄Π΅Ρ Π²ΡΠ³Π»ΡΠ΄Π΅ΡΡ ΡΠ°ΠΊ:
Public Function metod_Simpson (ByVal a1 As Single, ByVal b1 As Single, ByVal n As Long) As Double
Dim h As Single
Dim s As Double
Dim i As Long
Dim x As Single
h = (b1 — a1) / n
s = F (a1, Io) + F (b1, Io) + 4 * F (a1 + h, Io)
For i = 1 To Int (n / 2) — 1
x = a1 + 2 * h * i
s = s + 2 * F (x, Io) + 4 * F (x + h, Io)
Next i
metod_Simpson = s * h / 3
End Function
Π€Π°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ down_predel, up_predel, chislo_razb ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡ ΡΠΎΡΠΌΠ°Π»ΡΠ½ΡΠΌ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠ°ΠΌ a, b, n. Π ΠΎΡΠ½ΠΎΠ²Π΅ Π»Π΅ΠΆΠΈΡ ΡΠΎΡΠΌΡΠ»Π° Π‘ΠΈΠΌΠΏΡΠΎΠ½Π°. Π‘ΡΠΌΠΌΠ° ΠΏΠ΅ΡΠ²ΡΡ ΡΡΡΡ ΡΠ»Π°Π³Π°Π΅ΠΌΡΡ Π² ΡΡΠΎΠΉ ΡΠΎΡΠΌΡΠ»Π΅ ΡΠ²Π»ΡΠ΅ΡΡΡ Π½Π°ΡΠ°Π»ΡΠ½ΡΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ΠΌ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ. ΠΠ°Π»Π΅Π΅ ΠΏΡΠΎΠ±Π΅Π³Π°Π΅ΠΌ ΠΏΠΎ Π²ΡΠ΅ΠΌΡ ΠΎΡΡΠ΅Π·ΠΊΡ ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ, ΠΊΡΠΎΠΌΠ΅ ΠΊΠΎΠ½Π΅ΡΠ½ΡΡ ΠΏΠΎΠ»ΠΎΡΠΎΠΊ, ΠΈ Π½Π°ΠΊΠ°ΠΏΠ»ΠΈΠ²Π°Π΅ΠΌ ΡΡΠΌΠΌΡ. Π ΠΊΠΎΠ½ΡΠ΅ ΡΠΌΠ½ΠΎΠΆΠ°Π΅ΠΌ Π΅Ρ Π½Π°. Π Π΅Π·ΡΠ»ΡΡΠ°Ρ ΠΈ Π±ΡΠ΄Π΅Ρ ΠΈΡΠΊΠΎΠΌΡΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ΠΌ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π°. ΠΠ°Π»Π΅Π΅ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π΅ΠΌ ΠΈΠΌΠ΅Π½ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ .
Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΠΡΠΈ Π·Π°ΠΏΡΡΠΊΠ΅ Microsoft Visual Basic 6.0 Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ Π²ΡΡΠΊΠ°ΠΊΠΈΠ²Π°Π΅Ρ ΠΎΠΊΠ½ΠΎ Ρ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅ΠΌ ΡΠΎΠ·Π΄Π°ΡΡ Π½ΠΎΠ²ΡΠΉ ΠΏΡΠΎΠ΅ΠΊΡ Standard EXE. ΠΠ°ΠΆΠΈΠΌΠ°Π΅ΠΌ OK. ΠΠ°ΡΠ½ΡΠΌ ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ΅ΠΊΡΠ° Ρ ΡΠΈΡΡΠ»ΡΠ½ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ°. ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ Π² ΠΌΠ΅Π½Ρ Project Π²ΡΠ±Π΅ΡΠ΅ΠΌ ΠΊΠΎΠΌΠ°Π½Π΄Ρ Add Form. Π ΠΏΠΎΡΠ²ΠΈΠ²ΡΠ΅ΠΌΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠΌ ΠΎΠΊΠ½Π΅ Π²ΡΠ±Π΅ΡΠ΅ΠΌ Dialog ΠΈ Π½Π°ΠΆΠΌΠ΅ΠΌ OK. Π ΠΎΡΠΊΡΡΠ²ΡΠ΅ΠΉΡΡ ΡΠΎΡΠΌΠ΅ ΡΠ°ΡΡΡΠ°Π²ΠΈΠΌ ΠΎΠ±ΡΠ΅ΠΊΡΡ: Label1, Label2,…, Label8, ΠΊΠ°ΠΊ ΠΏΠΎΠΊΠ°Π·Π°Π½ΠΎ Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅ (ΡΠΌ. ΡΠΈΡ. 3).
Π ΠΈΡ. 3 Π’ΠΈΡΡΠ»ΡΠ½ΡΠΉ Π»ΠΈΡΡ Π°Π»Π³ΠΎΡΠΈΡΠΌ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠΉ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π» ΠΡΠΈΡΠ²ΠΎΠΈΠΌ ΡΠ²ΠΎΠΉΡΡΠ²Ρ Caption Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ «Π’ΠΈΡΡΠ»ΡΠ½ΡΠΉ Π»ΠΈΡΡ». ΠΠ° ΠΊΠ½ΠΎΠΏΠΊΡ ΠΡ ΠΎΠ΄ Π½Π°ΠΏΠΈΡΠ΅ΠΌ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ ΠΊΠΎΠ΄:
Private Sub OKButton_Click ()
Unload Dialog
Form1.Show
End Sub
ΠΡΠΈ ΡΠ΅Π»ΡΠΊΠ΅ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΠ΅ ΠΡ ΠΎΠ΄ ΠΈΠ· ΠΏΠ°ΠΌΡΡΠΈ Π²ΡΠ³ΡΡΠΆΠ°Π΅ΡΡΡ ΡΠΎΡΠΌΠ° Dialog ΠΈ Π·Π°Π³ΡΡΠΆΠ°Π΅ΡΡΡ Π±Π°Π·ΠΎΠ²Π°Ρ ΡΠΎΡΠΌΠ°, ΡΠ»ΡΠΆΠ°ΡΠ°Ρ Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠΉ ΡΠΎΡΠΊΠΎΠΉ Π΄Π»Ρ Π²ΡΠ΅Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΉ Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΎΠΉ, ΡΠΎΡΠΌΠ° Form1. ΠΠ»Ρ ΡΠΎΠ³ΠΎ, ΡΡΠΎΠ±Ρ ΡΠΎΠ·Π΄Π°ΡΡ ΡΠΎΡΠΌΡ Form1, Π² ΠΌΠ΅Π½Ρ Project Π²ΡΠΏΠΎΠ»Π½ΠΈΠΌ ΠΊΠΎΠΌΠ°Π½Π΄Ρ Add Form. Π ΠΏΠΎΡΠ²ΠΈΠ²ΡΠ΅ΠΌΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠΌ ΠΎΠΊΠ½Π΅ Π²ΡΠ±Π΅ΡΠ΅ΠΌ Form ΠΈ Π½Π°ΠΆΠΌΠ΅ΠΌ OK. Π©ΡΠ»ΠΊΠ½Π΅ΠΌ ΠΏΡΠ°Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΈ Π½Π° ΠΏΠ°Π½Π΅Π»ΠΈ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠ², Π²ΡΠ±Π΅ΡΠ΅ΠΌ Π²ΠΊΠ»Π°Π΄ΠΊΡ Components, Π·Π°Π³ΡΡΠ·ΠΈΠΌ Π½Π΅ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠ΅ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΡ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΏΠΎΠ½Π°Π΄ΠΎΠ±ΡΡΡΡ Π² Π±ΡΠ΄ΡΡΠ΅ΠΌ: Microsoft Windows Common Controls 6.0. ΠΡΠΈΡΠ²ΠΎΠΈΠΌ ΡΠ²ΠΎΠΉΡΡΠ²Ρ Caption ΡΠΎΡΠΌΡ Form1 Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ «ΠΡΡΡΠΎΠ²ΠΎΠΉ ΠΏΡΠΎΠ΅ΠΊΡ — Π’Π΅ΠΌΠ° 7 Π²Π°ΡΠΈΠ°Π½Ρ 9 (Π½Π°Ρ ΠΎΠΆΠ΄Π΅Π½ΠΈΠ΅ ΡΠΎΠ»ΡΠΈΠ½Ρ ΡΠ»ΠΎΡ)». Π‘ΠΎΠ·Π΄Π°Π΄ΠΈΠΌ ΠΌΠ΅Π½Ρ Π΄Π»Ρ ΠΏΡΠΎΠ΅ΠΊΡΠ°. ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ Π² ΠΌΠ΅Π½Ρ Tools Π²ΡΠΏΠΎΠ»Π½ΠΈΠΌ ΠΊΠΎΠΌΠ°Π½Π΄Ρ Menu Editor. Π ΠΏΠΎΡΠ²ΠΈΠ²ΡΠ΅ΠΌΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠΌ ΠΎΠΊΠ½Π΅ Π½Π°ΠΏΠΈΡΠ΅ΠΌ Π½Π°Π·Π²Π°Π½ΠΈΡ ΠΏΡΠ½ΠΊΡΠΎΠ² ΠΌΠ΅Π½Ρ ΠΈ Π½Π°Π·Π²Π°Π½ΠΈΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡ, ΠΊΠΎΡΠΎΡΡΠ΅ Π±ΡΠ΄ΡΡ Π·Π°ΠΏΡΡΠΊΠ°ΡΡΡΡ ΠΏΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ ΠΊΠΎΠΌΠ°Π½Π΄ ΠΌΠ΅Π½Ρ. Π Π΅Π΄Π°ΠΊΡΠΎΡ ΠΌΠ΅Π½Ρ Ρ Π²Π²Π΅Π΄ΡΠ½Π½ΡΠΌΠΈ ΠΈΠΌΠ΅Π½Π°ΠΌΠΈ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅ (ΡΠΌ. ΡΠΈΡ. 4).
Π ΠΈΡ. 4 Π Π΅Π΄Π°ΠΊΡΠΎΡ ΠΌΠ΅Π½Ρ ΠΠΏΠΈΡΠ΅ΠΌ, ΠΊΠ°ΠΊΠΈΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ Π² ΠΊΠ°ΠΆΠ΄ΠΎΠΌ ΠΏΡΠ½ΠΊΡΠ΅ ΠΌΠ΅Π½Ρ.
1. MnuFileExit — ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅Ρ Π²ΡΡ ΠΎΠ΄ ΠΈΠ· ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ.
Private Sub MnuFileExit_Click ()
End
End Sub
Π ΠΈΡ. 5
2. MnuFileSave_rez — ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅Ρ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ° ΡΠΊΡΠΏΠ΅ΡΠΈΠΌΠ΅Π½ΡΠ°. Π Π΅Π·ΡΠ»ΡΡΠ°Ρ ΡΠΎΡ ΡΠ°Π½ΡΠ΅ΡΡΡ Π² ΡΠ°ΠΉΠ»Π΅ log. txt, ΠΊΡΠ΄Π° Π·Π°ΠΏΠΈΡΡΠ²Π°Π΅ΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠΉ ΠΌΠ΅ΡΠΎΠ΄, Π½ΠΈΠΆΠ½ΠΈΠΉ ΠΏΡΠ΅Π΄Π΅Π» ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ, Π²Π΅ΡΡ Π½ΠΈΠΉ ΠΏΡΠ΅Π΄Π΅Π» ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ, ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ°Π·Π±ΠΈΠ΅Π½ΠΈΠΉ ΠΎΡΡΠ΅Π·ΠΊΠ° ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ, Π²ΡΡΠΈΡΠ»Π΅Π½Π½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π°, ΠΈΡΡΠΈΠ½Π½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π°, ΠΏΠΎΠ³ΡΠ΅ΡΠ½ΠΎΡΡΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠΉ.
Private Sub MnuFileSave_rez_Click ()
Dim metod As String
If Option1. Value Then
metod = «ΠΠ΅ΡΠΎΠ΄ ΡΡΠ°ΠΏΠ΅ΡΠΈΠΉ»
Else
metod = «ΠΠ΅ΡΠΎΠ΄ Π‘ΠΈΠΌΠΏΡΠΎΠ½Π°»
End If
Open «log.txt» For Output As #1
Print #1, «ΠΠ’Π§ΠΠ’ ΠΠ ΠΠ«ΠΠΠΠΠΠΠΠ«Π ΠΠ«Π§ΠΠ‘ΠΠΠΠΠ―Π»
Print #1, «ΠΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠΉ ΠΌΠ΅ΡΠΎΠ΄:», metod
Print #1, «ΠΡΠ΅ΠΌΡ Π½Π°Π±Π»ΡΠ΄Π΅Π½ΠΈΡ:», up_predel
Print #1, «ΠΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ°Π·Π±ΠΈΠ΅Π½ΠΈΠΉ ΠΎΡΡΠ΅Π·ΠΊΠ° ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ:», chislo_razb
Print #1, «ΠΡΡΠΈΡΠ»Π΅Π½Π½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π°:», znach_integrala
Print #1, «ΠΡΡΠΈΠ½Π½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π°:», istinnoe_znach_integrala (down_predel, up_predel)
Print #1, «ΠΠΎΠ³ΡΠ΅ΡΠ½ΠΎΡΡΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ:», Abs (istinnoe_znach_integrala (down_predel, up_predel) — znach_integrala)
Close #1
a = MsgBox («ΠΡΡΠ΅Ρ ΡΠΎΡ ΡΠ°Π½Π΅Π½ ΡΡΠΏΠ΅ΡΠ½ΠΎ!» & Chr (10) & Chr (13) & «Π΄Π»Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ° ΠΎΡΡΠ΅ΡΠ°: Π€Π°ΠΉΠ»>>ΠΡΠΎΡΠΌΠΎΡΡ ΠΎΡΡΠ΅ΡΠ°», «ΠΡΡΠ΅Ρ»)
End Sub
3. MnuFileLook_rez — ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅Ρ Π²ΡΠ²ΠΎΠ΄ Π½Π° ΡΠΊΡΠ°Π½ ΡΠ°Π½Π΅Π΅ ΡΠΎΡ ΡΠ°Π½ΡΠ½Π½ΠΎΠ³ΠΎ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ°, Π΅ΡΠ»ΠΈ ΠΏΡΠ΅Π΄Π²Π°ΡΠΈΡΠ΅Π»ΡΠ½ΠΎ Π΅Π³ΠΎ ΡΠΎΡ ΡΠ°Π½ΠΈΠ»ΠΈ.
Private Sub MnuFileOpen_rez_Click ()
Form3.Show 1, Form1
End Sub
ΠΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ ΡΡΠΎΠΉ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ Π·Π°Π³ΡΡΠΆΠ°Π΅ΡΡΡ ΡΠΎΡΠΌΠ° Form3, Π½Π° ΠΊΠΎΡΠΎΡΠΎΠΉ Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ ΠΎΠ±ΡΠ΅ΠΊΡ PictureBox1, Π² ΠΊΠΎΡΠΎΡΡΠΉ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ ΡΠΎΡ ΡΠ°Π½Π΅Π½Π½ΡΠΉ ΠΎΡΡΠ΅Ρ. ΠΠ»Ρ Π²ΡΠ²ΠΎΠ΄Π° ΠΎΡΡΠ΅ΡΠ° ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ ΠΊΠ½ΠΎΠΏΠΊΠ° «ΠΠ°Π³ΡΡΠ·ΠΈΡΡ ΠΎΡΡΠ΅Ρ». ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ ΠΊΠΎΠ΄ Form3:
Dim stroka As String
Private Sub cmdBack_Click ()
Unload Form3
End Sub
Private Sub cmdLoadLog_Click ()
On Error GoTo Err
Open «log.txt» For Input As #1
For i = 1 To 8
Line Input #1, stroka
Picture1.Print stroka
Next i
Close #1
Err:
If Err. Number = 53 Then
a = MsgBox («ΠΠ΅Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ Π·Π°Π³ΡΡΠ·ΠΈΡΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°Ρ, ΡΠ°Π½Π΅Π΅ Π½Π΅ Π±ΡΠ»ΠΎ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΎ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ²!», «ΠΡΠΈΠ±ΠΊΠ°»)
Unload Form3
End If
End Sub
Π ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ΅ cmdLoadLog_Click (), ΠΏΡΠΎΠ²Π΅ΡΡΠ΅ΡΡΡ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ Π»ΠΈ ΡΠ°ΠΉΠ» Ρ ΠΎΡΡΠ΅ΡΠΎΠΌ, Π΅ΡΠ»ΠΈ Π΄Π° ΡΠΎ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ ΠΎΡΠΊΡΡΡΠΈΠ΅ ΡΠΊΠ°Π·Π°Π½Π½ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π°, ΠΏΠΎΡΡΡΠΎΡΠ½ΠΎΠ΅ ΡΡΠΈΡΡΠ²Π°Π½ΠΈΠ΅ ΠΈΠ· Π½Π΅Π³ΠΎ ΠΈ Π²ΡΠ²ΠΎΠ΄ Π² ΠΎΠ±ΡΠ΅ΠΊΡ Picture1, Π΅ΡΠ»ΠΈ ΡΠ°ΠΊΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° Π½Π΅Ρ, ΡΠΎ ΠΎΠ± ΡΡΠΎΠΌ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΎΠ± ΡΡΠΎΠΌ ΡΠ²Π΅Π΄ΠΎΠΌΠ»ΡΡΡ. ΠΠΎΡΠΎΠ²Π°Ρ ΡΠΎΡΠΌΠ° Form3 ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½Π° Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅ (ΡΠΌ. ΡΠΈΡ. 6). ΠΡΠΈ ΡΠ΅Π»ΡΠΊΠ΅ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΠ΅ «ΠΠ°Π·Π°Π΄» (Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ΅ cmdBack) ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ Π²ΡΠ³ΡΡΠ·ΠΊΠ° ΡΠΎΡΠΌΡ Form3 ΠΈΠ· ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠ²Π½ΠΎΠΉ ΠΏΠ°ΠΌΡΡΠΈ.
Π ΠΈΡ. 6
4. MnuHelpAbout — Π²ΡΠ²ΠΎΠ΄ΠΈΡ Π½Π° ΡΠΊΡΠ°Π½ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅. ΠΡΠ²ΠΎΠ΄ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠΎΡΠΌΡ Dialog2.
Private Sub MnuHelpAbout_Click ()
Dialog2.Show 1, Form1
End Sub
ΠΡΠΈ ΡΠ΅Π»ΡΠΊΠ΅ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΠ΅ «OK» (ΠΎΠ±ΡΠ΅ΠΊΡ Command1) ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ Π²ΡΠ³ΡΡΠ·ΠΊΠ° ΡΠΎΡΠΌΡ Dialog2 ΠΈΠ· ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠ²Π½ΠΎΠΉ ΠΏΠ°ΠΌΡΡΠΈ. ΠΠΎΡΠΎΠ²Π°Ρ ΡΠΎΡΠΌΠ° Dialog2 ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½Π° Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅ (ΡΠΌ. ΡΠΈΡ. 7).
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ ΠΊΠΎΠ΄ ΡΠΎΡΠΌΡ Dialog2:
Private Sub OKButton_Click ()
Unload Dialog2
End Sub
5. MnuMatemFormula — Π²ΡΠ²ΠΎΠ΄ΠΈΡ Π½Π° ΡΠΊΡΠ°Π½ ΡΡΡΠ½ΠΎΠΉ Π²ΡΠ²ΠΎΠ΄ ΡΠΎΡΠΌΡΠ»Ρ Π·Π°Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π°. ΠΡΠ²ΠΎΠ΄ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠΎΡΠΌΡ Dialog1.
Private Sub MnuMatemFormula_click ()
Dialog1.Show 1, Form1
End Sub
6. MnuMatemGrafik_Pogreshn — Π²ΡΠ²ΠΎΠ΄ΠΈΡ Π½Π° ΡΠΊΡΠ°Π½ ΡΠΎΡΠΌΡ Form2. Π Π½Π΅ΠΉ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΡΡΡΠΎΠΈΡΡ Π³ΡΠ°ΡΠΈΠΊ Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΏΠΎΠ³ΡΠ΅ΡΠ½ΠΎΡΡΠΈ Π·Π°Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΠΌΠ΅ΡΠΎΠ΄Π° ΠΎΡ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Π° ΡΠ°Π·Π±ΠΈΠ΅Π½ΠΈΠΉ ΠΎΡΡΠ΅Π·ΠΊΠ° ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ.
Private Sub MnuMatemGrafik_Pogreshn_click ()
Form2.Show 1, Form1
End Sub
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ ΠΊΠΎΠ΄ ΡΠΎΡΠΌΡ Form2:
Dim i As Long
Dim a As Single, b As Single, n As Long
Public Io As Single
Public Function istinnoe_znach_integrala (a As Single, b As Single) As Double
a0 = 0.15: b0 = 0.1: po = 8600: faradey = 96 500: M = 64.5 * 10 ^ (-3)
istinnoe_znach_integrala = Io * M / (2 * 2 * faradey * po * a0 * b0) * (b ^ 3 / 3 — 3 / 2 * b ^ 2 + 9 * b — 27 * Log ((b + 3) / 3))
End Function
Public Function metod_trapec (ByVal a As Single, ByVal b As Single, ByVal n As Long) As Double
Dim h As Single
Dim s As Double
Dim i As Long
h = (b — a) / n
s = (F (a, Io) + F (b, Io)) * h / 2
For i = 1 To n — 1
s = s + F (a + i * h, Io) * h
Next i
metod_trapec = s
End Function
Public Function metod_Simpson (ByVal a1 As Single, ByVal b1 As Single, ByVal n As Long) As Double
Dim h As Single
Dim s As Double
Dim i As Long
Dim x As Single
h = (b1 — a1) / n
s = F (a1, Io) + F (b1, Io) + 4 * F (a1 + h, Io)
For i = 1 To Int (n / 2) — 1
x = a1 + 2 * h * i
s = s + 2 * F (x, Io) + 4 * F (x + h, Io)
Next i
metod_Simpson = s * h / 3
End Function
Private Sub Command1_Click ()
koeff = 2 * 10 ^ 9
Picture1.Cls
Io = Form1. Text2
a = 0
b = Val (Text3.Text)
N1 = Val (Text4.Text)
N2 = Val (Text5.Text)
save = Text1
If Check1. Value = vbChecked Then
Open save For Output As #1
Print #1, «ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ°Π·Π±ΠΈΠ΅Π½ΠΈΠΉ»; ««; «ΠΏΠΎΠ³ΡΠ΅ΡΠ½ΠΎΡΡΡ ΠΌΠ΅ΡΠΎΠ΄Π° ΡΡΠ°ΠΏΠ΅ΡΠΈΠΉ»; ««; «ΠΏΠΎΠ³ΡΠ΅ΡΠ½ΠΎΡΡΡ ΠΌΠ΅ΡΠΎΠ΄Π° Π‘ΠΈΠΌΠΏΡΠΎΠ½Π°»
Close #1
End If
s = istinnoe_znach_integrala (a, b)
X0 = N1
Y1 = 250 * koeff * Abs (metod_Simpson (a, b, 10) — s)
Y2 = koeff * Abs (metod_trapec (a, b, 10) — s)
Picture1.Scale (-20, 10)-(N2 + 10, -2)
For n = N1 To N2 Step 2
ss = metod_Simpson (a, b, n)
st = metod_trapec (a, b, n)
pogtr = Abs (s — st)
POGss = Abs (s — ss)
If Check1. Value = vbChecked Then
Open save For Append As #1
Print #1, ««; n, ««; pogtr, ««; POGss
Close #1
End If
Picture1.Line (X0, Y1)-(n, 250 * koeff * POGss), RGB (255, 0, 0)
Picture1.Line (X0, Y2)-(n, koeff * pogtr), RGB (0, 0, 255)
Picture1.Line (-50, 0)-((N2 + 50), 0)
Picture1.Line (0, -30)-(0, 20)
X0 = n
Y1 = 250 * koeff * POGss
Y2 = koeff * pogtr
If n <= 30 And n Mod 10 = 0 Then
Picture1.PSet (-16, koeff * pogtr)
Picture1.Print Format (pogtr, «#.##e-#»)
Picture1.Line (-20, koeff * pogtr)-(210, koeff * pogtr), RGB (0, 255, 0)
End If
Next n
For i = 10 To N2 + 50 Step 10
Picture1.PSet (i, 0)
Picture1.Print i
Picture1.Line (i, -10)-(i, N2), RGB (0, 255, 0)
Next i
End Sub
Private Sub Command2_Click ()
Unload Form2
End Sub
ΠΡΡΠΈΡΠ»ΡΠ΅ΠΌ ΠΏΠΎΠ³ΡΠ΅ΡΠ½ΠΎΡΡΡ, ΠΎΡΠ½ΠΈΠΌΠ°Ρ ΠΏΠΎΠ»ΡΡΠ΅Π½Π½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π° ΠΎΡ ΠΈΡΡΠΈΠ½Π½ΠΎΠ³ΠΎ, Π²ΡΡΠΈΡΠ»ΡΠ΅ΠΌΠΎΠ³ΠΎ ΡΡΠ½ΠΊΡΠΈΠ΅ΠΉ istinnoe_znach_integrala, Π½Π°Ρ ΠΎΠ΄ΡΡΠ΅ΠΉΡΡ Π² ΡΠΎΡΠΌΠ΅ Form1. ΠΠ°ΡΠ΅ΠΌ ΡΡΡΠΎΠΈΠΌ ΡΠΎΡΠΊΡ Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ΅ Picture1. ΠΡΠΈ ΡΠ΅Π»ΡΠΊΠ΅ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΠ΅ «ΠΠ°Π·Π°Π΄» (ΠΎΠ±ΡΠ΅ΠΊΡ Command2) ΡΠΎΡΠΌΠ° Form2 Π²ΡΠ³ΡΡΠΆΠ°Π΅ΡΡΡ ΠΈΠ· ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠ²Π½ΠΎΠΉ ΠΏΠ°ΠΌΡΡΠΈ. ΠΠΎΡΠΎΠ²Π°Ρ ΡΠΎΡΠΌΠ° Form2 ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½Π° Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅ (ΡΠΌ. ΡΠΈΡ. 8).
ΠΡ ΡΠ°ΡΡΠΌΠΎΡΡΠ΅Π»ΠΈ Π²ΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΈ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠ΅ Π² ΠΏΡΠΎΠ΅ΠΊΡΠ΅. Π’Π΅ΠΏΠ΅ΡΡ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ°ΡΡΠΌΠΎΡΡΠ΅ΡΡ ΡΠ°Π±ΠΎΡΡ ΡΠΎΡΠΌΡ Form1. ΠΡΠΈ ΡΠ΅Π»ΡΠΊΠ΅ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΠ΅ «ΠΡΠΎΠΈΠ·Π²Π΅ΡΡΠΈ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ» (ΠΎΠ±ΡΠ΅ΠΊΡ Command1) ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ ΡΡΠΈΡΡΠ²Π°Π½ΠΈΠ΅ ΠΈΠ· ΡΠ΅ΠΊΡΡΠΎΠ²ΡΡ ΠΏΠΎΠ»Π΅ΠΉ Π·Π°Π΄Π°Π½Π½ΡΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ²: Π²ΡΠ΅ΠΌΡ Π½Π°Π±Π»ΡΠ΄Π΅Π½ΠΈΡ, Π½Π°ΡΠ°Π»ΡΠ½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠΈΠ»Ρ ΡΠΎΠΊΠ°, ΡΠΈΡΠ»ΠΎ ΡΠ°Π·Π±ΠΈΠ΅Π½ΠΈΠΉ ΠΎΡΡΠ΅Π·ΠΊΠ° ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ. ΠΠ°Π»Π΅Π΅ ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΏΡΠΎΠ²Π΅ΡΠΊΠ° Π²Ρ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ . ΠΠ°Π»Π΅Π΅ ΠΈΠ΄Π΅Ρ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π° ΠΈ Π²ΡΠ²ΠΎΠ΄ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ°, Π° ΡΠ°ΠΊΠΆΠ΅ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΠ΅ Π³ΡΠ°ΡΠΈΠΊΠ° ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΡΠ΅ΠΌΠΎΠΉ Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΡΠΈΠ»Ρ ΡΠΎΠΊΠ° Π½Π° Π·Π°Π΄Π°Π½Π½ΠΎΠΌ ΡΡΠ°ΡΡΠΊΠ΅ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ. ΠΡΠ°ΡΠΈΠΊ ΡΡΡΠΎΠΈΡΡΡ ΡΠ°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΡΡΠΎ ΠΎΠ½ Π²ΡΠ΅Π³Π΄Π° Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ Π² ΡΠ΅Π½ΡΡΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Picture1. ΠΡΠΎ Π΄ΠΎΡΡΠΈΠ³Π°Π΅ΡΡΡ ΡΠ΅ΠΌ, ΡΡΠΎ ΡΠΈΡΡΠ΅ΠΌΠ° ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ Π²Π²ΠΎΠ΄ΠΈΡΡΡ ΠΈΡΡ ΠΎΠ΄Ρ ΠΈΠ· ΠΌΠ°ΠΊΡΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ³ΠΎ ΠΈ ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΠΎΠ³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΈ ΠΈΠ· Π²Π΅Π»ΠΈΡΠΈΠ½Ρ ΠΊΠΎΠ½ΡΠΎΠ² ΠΎΡΡΠ΅Π·ΠΊΠ° ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ. ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ ΠΌΡ ΠΈ ΠΈΡΠ΅ΠΌ y_max ΠΈ y_min. ΠΠ°Π»Π΅Π΅ ΡΡΠ°Π²ΠΈΠΌ ΠΏΠΎΠ΄ΠΏΠΈΡΠΈ Π½Π° ΠΊΠΎΠ½ΡΠ°Ρ ΠΎΡΡΠ΅Π·ΠΊΠ° ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ.
Π ΠΈΡ. 8
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΉ ΠΊΠΎΠ΄ ΡΠΎΡΠΌΡ Form1:
Dim down_predel As Single
Dim up_predel As Single
Dim znach_integrala As Double
Dim chislo_razb As Long
Dim i As Single
'Public Io As Single
Dim y_max As Single
Dim y_min As Single
'Π€ΡΠ½ΠΊΡΠΈΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΈΡΡΠΈΠ½Π½ΠΎΠ³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π° ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π΅ ΠΡΡΡΠΎΠ½Π°-ΠΠ΅ΠΉΠ±Π½ΠΈΡΠ°.
Public Function istinnoe_znach_integrala (a As Single, b As Single) As Double
a0 = 0.15: b0 = 0.1: po = 8600: faradey = 96 500: M = 64.5 * 10 ^ (-3)
istinnoe_znach_integrala = Io * M / (2 * 2 * faradey * po * a0 * b0) * (b ^ 3 / 3 — 3 / 2 * b ^ 2 + 9 * b — 27 * Log ((b + 3) / 3))
End Function
'Π€ΡΠ½ΠΊΡΠΈΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π° ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ ΡΡΠ°ΠΏΠ΅ΡΠΈΠΉ.
Public Function metod_trapec (a As Single, b As Single, n As Long) As Double
Dim h As Single
Dim s As Double
Dim i As Long
h = (b — a) / n
s = (F (a, Io) + F (b, Io)) * h / 2
For i = 1 To n — 1
s = s + F (a + i * h, Io) * h
Next i
metod_trapec = s
End Function
'Π€ΡΠ½ΠΊΡΠΈΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π° ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ Π‘ΠΈΠΌΠΏΡΠΎΠ½Π°.
Public Function metod_Simpson (a As Single, b As Single, n As Long) As Double
Dim h As Single
Dim s As Double
Dim i As Long
Dim x As Single
h = (b — a) / n
s = F (a, Io) + F (b, Io) + 4 * F (a + h, Io)
For i = 1 To Int (n / 2) — 1
x = a + 2 * h * i
s = s + 2 * F (x, Io) + 4 * F (x + h, Io)
Next i
metod_Simpson = s * h / 3
End Function
Private Sub Command1_Click ()
For i = 0 To 9
Picture3.Line (down_predel + i * (up_predel — down_predel) / 10, 0)-(down_predel + i * (up_predel — down_predel) / 10, F (down_predel + i * (up_predel — down_predel) / 10, Io))
Picture3.Line (down_predel + i * (up_predel — down_predel) / 10, F (down_predel + i * (up_predel — down_predel) / 10, Io))-(down_predel + (i + 1) * (up_predel — down_predel) / 10, F (down_predel + (i + 1) * (up_predel — down_predel) / 10, Io))
Picture3.Line (down_predel + (i + 1) * (up_predel — down_predel) / 10, F (down_predel + (i + 1) * (up_predel — down_predel) / 10, Io))-(down_predel + (i + 1) * (up_predel — down_predel) / 10, 0)
Next i
End Sub
'Π€ΡΠ½ΠΊΡΠΈΡ Π²ΡΡ ΠΎΠ΄Π° ΠΈΠ· ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
Private Sub MnuFileExit_Click ()
End
End Sub
Private Sub MnuFileOpen_rez_Click ()
Form3.Show 1, Form1
End Sub
'Π‘ΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ° Π² ΡΠ°ΠΉΠ» log. txt
Private Sub MnuFileSave_rez_Click ()
Dim metod As String
If Option1. Value Then
metod = «ΠΠ΅ΡΠΎΠ΄ ΡΡΠ°ΠΏΠ΅ΡΠΈΠΉ»
Else
metod = «ΠΠ΅ΡΠΎΠ΄ Π‘ΠΈΠΌΠΏΡΠΎΠ½Π°»
End If
Open «log.txt» For Output As #1
Print #1, «ΠΠ’Π§ΠΠ’ ΠΠ ΠΠ«ΠΠΠΠΠΠΠΠ«Π ΠΠ«Π§ΠΠ‘ΠΠΠΠΠ―Π»
Print #1, «ΠΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΠΉ ΠΌΠ΅ΡΠΎΠ΄:», metod
Print #1, «ΠΡΠ΅ΠΌΡ Π½Π°Π±Π»ΡΠ΄Π΅Π½ΠΈΡ:», up_predel
Print #1, «ΠΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ°Π·Π±ΠΈΠ΅Π½ΠΈΠΉ ΠΎΡΡΠ΅Π·ΠΊΠ° ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ:», chislo_razb
Print #1, «ΠΡΡΠΈΡΠ»Π΅Π½Π½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠΎΠ»ΡΠΈΠ½Ρ ΡΠ»ΠΎΡ:», znach_integrala
Print #1, «ΠΡΡΠΈΠ½Π½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠΎΠ»ΡΠΈΠ½Ρ ΡΠ»ΠΎΡ:», istinnoe_znach_integrala (down_predel, up_predel)
Print #1, «ΠΠΎΠ³ΡΠ΅ΡΠ½ΠΎΡΡΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ:», Abs (istinnoe_znach_integrala (down_predel, up_predel) — znach_integrala)
Close #1
a = MsgBox («ΠΡΡΠ΅Ρ ΡΠΎΡ ΡΠ°Π½Π΅Π½ ΡΡΠΏΠ΅ΡΠ½ΠΎ!» & Chr (10) & Chr (13) & «Π΄Π»Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ° ΠΎΡΡΠ΅ΡΠ°: Π€Π°ΠΉΠ»>>ΠΡΠΎΡΠΌΠΎΡΡ ΠΎΡΡΠ΅ΡΠ°», «ΠΡΡΠ΅Ρ»)
End Sub
Private Sub MnuHelpAbout_Click ()
Dialog2.Show 1, Form1
End Sub
Private Sub MnuMatemGrafik_Pogreshn_click ()
Form2.Show 1, Form1
End Sub
Private Sub cmd_chet_Click ()
down_predel = 0
up_predel = Val (Text1.Text)
Io = Val (Text2.Text)
chislo_razb = Val (Text3.Text)
Picture1.Cls
Picture2.Cls
If chislo_razb <= 0 Then
MsgBox «Π§ΠΈΡΠ»ΠΎ ΡΠ°Π·Π±ΠΈΠ΅Π½ΠΈΠΉ ΠΎΡΡΠ΅Π·ΠΊΠ° ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π΄ΠΎΠ»ΠΆΠ½ΠΎ Π±ΡΡΡ Π±ΠΎΠ»ΡΡΠ΅ Π½ΡΠ»Ρ.», vbCritical, «ΠΠ½ΠΈΠΌΠ°Π½ΠΈΠ΅!»
Exit Sub
End If
If up_predel < 0 Then
MsgBox «ΠΡΠ΅ΠΌΡ ΠΈΡΠΏΡΡΠ°Π½ΠΈΠΉ Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΎΡΡΠΈΡΠ°ΡΠ΅Π»ΡΠ½ΡΠΌ», vbCritical, «ΠΠ½ΠΈΠΌΠ°Π½ΠΈΠ΅!»
Exit Sub
End If
If Option1. Value Then
znach_integrala = metod_trapec (down_predel, up_predel, chislo_razb)
Else
znach_integrala = metod_Simpson (down_predel, up_predel, chislo_razb)
If chislo_razb Mod 2 = 1 Then
MsgBox «Π§ΠΈΡΠ»ΠΎ ΡΠ°Π·Π±ΠΈΠ΅Π½ΠΈΠΉ ΠΎΡΡΠ΅Π·ΠΊΠ° ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠΈ Π΄Π°Π½Π½ΠΎΠΌ ΠΌΠ΅ΡΠΎΠ΄Π΅ Π΄ΠΎΠ»ΠΆΠ½ΠΎ Π±ΡΡΡ ΡΠ΅ΡΠ½ΡΠΌ.», vbCritical, «ΠΠ½ΠΈΠΌΠ°Π½ΠΈΠ΅!»
Exit Sub
End If
End If
Frame3.Caption = «ΠΡΠ°ΡΠΈΠΊ Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΡΠΈΠ»Ρ ΡΠΎΠΊΠ° Π½Π° [» & down_predel & «;» & up_predel & «]»
Picture1.Print znach_integrala
Picture2.Print istinnoe_znach_integrala (down_predel, up_predel)
y_max = F (down_predel, Io)
y_min = F (down_predel, Io)
For i = down_predel To up_predel Step 0.001
If F (i, Io) < y_min Then
y_min = F (i, Io)
End If
If F (i, Io) > y_max Then
y_max = F (i, Io)
End If
Next i
Picture3.Cls
Picture3.DrawWidth = 1
Picture3.Scale (down_predel — (up_predel — down_predel) / 3, y_max + (y_max — y_min) / 3)-(up_predel + (up_predel — down_predel) / 3, y_min — (y_max — y_min) / 3)
'Π ΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΎΡΠ΅ΠΉ
Picture3.Line (down_predel — (up_predel — down_predel) / 3, 0)-(up_predel + (up_predel — down_predel) / 3, 0)
Picture3.Line (0, y_max + (y_max — y_min) / 3)-(0, y_min — (y_max — y_min) / 3)
'Π‘ΡΡΠ΅Π»ΠΊΠ° Π½Π° ΠΎΡΠΈ OX
Picture3.Line (up_predel + (up_predel — down_predel) / 3, 0)-(up_predel + (up_predel — down_predel) / 3 — (up_predel — down_predel) / 24, (y_max — y_min) / 50)
Picture3.Line (up_predel + (up_predel — down_predel) / 3, 0)-(up_predel + (up_predel — down_predel) / 3 — (up_predel — down_predel) / 24, -(y_max — y_min) / 50)
'Π‘ΡΡΠ΅Π»ΠΊΠ° Π½Π° ΠΎΡΠΈ OY
Picture3.Line (0, y_max + (y_max — y_min) / 3)-(-(up_predel — down_predel) / 100, y_max + (y_max — y_min) / 3 — (y_max — y_min) / 12)
Picture3.Line (0, y_max + (y_max — y_min) / 3)-((up_predel — down_predel) / 100, y_max + (y_max — y_min) / 3 — (y_max — y_min) / 12)
'ΠΠΎΡΡΡΠΎΠ΅Π½ΠΈΠ΅ Π³ΡΠ°ΡΠΈΠΊΠ°
Picture3.Line (down_predel, F (down_predel, Io))-(down_predel, 0), RGB (255, 0, 0)
Picture3.Line (up_predel, F (up_predel, Io))-(up_predel, 0), RGB (255, 0, 0)
For i = down_predel To up_predel Step 0.001
Picture3.PSet (i, F (i, Io)), RGB (0, 0, 255)
Next i
'ΠΠ΅Π²Π°Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΡ
Picture3.CurrentX = down_predel — (up_predel — down_predel) / 40
If F (down_predel, Io) > 0 Then
Picture3.CurrentY = -(y_max — y_min) / 25
Else
Picture3.CurrentY = (y_max — y_min) / 8
End If
Picture3.Print down_predel
'ΠΡΠ°Π²Π°Ρ ΠΏΠΎΠ΄ΠΏΠΈΡΡ
Picture3.CurrentX = up_predel — (up_predel — down_predel) / 40
If F (up_predel, Io) > 0 Then
Picture3.CurrentY = -(y_max — y_min) / 25
Else
Picture3.CurrentY = (y_max — y_min) / 8
End If
Picture3.Print up_predel
End Sub
ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
Π§Π°ΡΡΠΎ Π²ΠΎΠ·Π½ΠΈΠΊΠ°Π΅Ρ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΡ Π²ΡΡΠΈΡΠ»ΠΈΡΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΡΠΉ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π». ΠΡΠ»ΠΈ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π» Π±Π΅ΡΡΡΡΡ Π² Π°Π»Π³Π΅Π±ΡΠ°ΠΈΡΠ΅ΡΠΊΠΈΡ ΡΡΠ½ΠΊΡΠΈΡΡ , ΡΠΎ Π²ΡΡ Π² ΠΏΠΎΡΡΠ΄ΠΊΠ΅ ΠΈ Π²Π·ΡΡΡ Π΅Π³ΠΎ Π²ΡΡΡΠ½ΡΡ Π½Π΅ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΡΡΠ΄Π°. Π Π΅ΡΠ»ΠΈ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π» Π½Π΅ Π±Π΅ΡΡΡΡΡ Π² Π°Π»Π³Π΅Π±ΡΠ°ΠΈΡΠ΅ΡΠΊΠΈΡ ΡΡΠ½ΠΊΡΠΈΡΡ ΠΈΠ»ΠΈ ΠΏΡΠΎΡΡΠΎ ΠΈΡ ΠΎΡΠ΅Π½Ρ ΠΌΠ½ΠΎΠ³ΠΎ, ΡΠΎ ΠΏΡΠΈΡ ΠΎΠ΄ΠΈΡΡΡ ΠΏΡΠΈΠ±Π΅Π³Π°ΡΡ ΠΊ ΠΏΠΎΠΌΠΎΡΠΈ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΠΎΠΉ ΡΠ΅Ρ Π½ΠΈΠΊΠΈ. Π‘ΡΡΠ΅ΡΡΠ²ΡΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠΏΠΎΡΠΎΠ±ΠΎΠ² Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΡΡ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»ΠΎΠ² Π½Π° ΠΠΠ, ΠΏΡΠΈΡΠ΅ΠΌ Π°Π±ΡΠΎΠ»ΡΡΠ½ΠΎ Π²ΡΠ΅ ΡΡΠΈ ΡΠΏΠΎΡΠΎΠ±Ρ ΠΏΠΎΠ»ΡΡΠ°ΡΡ Π»ΠΈΡΡ ΠΏΡΠΈΠ±Π»ΠΈΠΆΡΠ½Π½ΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ. Π ΡΡΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ ΠΌΡ ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ Π΄Π²Π° ΠΌΠ΅ΡΠΎΠ΄Π° Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ: ΠΌΠ΅ΡΠΎΠ΄ ΡΡΠ°ΠΏΠ΅ΡΠΈΠΉ ΠΈ ΠΌΠ΅ΡΠΎΠ΄ Π‘ΠΈΠΌΠΏΡΠΎΠ½Π° (ΠΌΠ΅ΡΠΎΠ΄ ΠΏΠ°ΡΠ°Π±ΠΎΠ»).
1. ΠΠ°ΡΡΠ΅Ρ — Π‘Π°ΠΌΠΎΡΡΠΈΡΠ΅Π»Ρ ΠΏΠΎ Visual Basic 6.0 AlexSoft 2010 Π³.
2. ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠ°. ΠΡΡΡΠ°Ρ ΡΠΊΠΎΠ»Π°. ΠΡΡΡΠ΅ΠΉΠΊΠΎΠ²ΡΠΊΠΈΠΉ Π. Π. 2009 Π³.