ΠΠ΅ΡΠΎΠ΄ ΠΠΎΠ»ΠΎΡΠΎΠ³ΠΎ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π½Π° Delphi
Π¦Π΅Π»ΡΡ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ ΡΠ²Π»ΡΠ΅ΡΡΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΠΏΡΠΈΠ±Π»ΠΈΠΆΠ΅Π½Π½ΠΎΠ³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π° ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ Π‘ΠΈΠΌΠΏΡΠΎΠ½Π°, ΠΏΡΡΠ΅ΠΌ Π²Π²ΠΎΠ΄Π° ΡΡΠ½ΠΊΡΠΈΠΈ, ΠΎΡΡΠ΅Π·ΠΊΠ° ΠΈ ΡΠ°Π³Π° dx. ΠΡΡΠΎΡΠΈΡ ΠΏΠΎΡΠ²Π»Π΅Π½ΠΈΡ ΠΈ ΡΠ°Π·Π²ΠΈΡΠΈΡ ΠΏΠ΅ΡΡΠΎΠ½Π°Π»ΡΠ½ΡΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠΎΠ² ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΠ΄Π½ΠΈΠΌ ΠΈΠ· Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ Π²ΠΏΠ΅ΡΠ°ΡΠ»ΡΡΡΠΈΡ ΡΠ²Π»Π΅Π½ΠΈΠΉ Π½Π°ΡΠ΅Π³ΠΎ Π²Π΅ΠΊΠ°. Π‘ ΠΌΠΎΠΌΠ΅Π½ΡΠ° ΠΏΠΎΡΠ²Π»Π΅Π½ΠΈΡ ΠΏΠ΅ΡΠ²ΡΡ ΠΎΠ±ΡΠ°Π·ΡΠΎΠ² ΠΏΠ΅ΡΡΠΎΠ½Π°Π»ΡΠ½ΡΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠΎΠ² ΠΏΡΠΎΡΠ»ΠΎ ΠΌΠ΅Π½ΡΡΠ΅ 25 Π»Π΅Ρ, Π½ΠΎ ΡΠ΅ΠΉΡΠ°Ρ Π±Π΅Π· Π½ΠΈΡ ΡΠΆΠ΅ Π½Π΅ΠΌΡΡΠ»ΠΈΠΌΠΎ ΠΎΠ³ΡΠΎΠΌΠ½ΠΎΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΎΠ±Π»Π°ΡΡΠ΅ΠΉ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
ΠΠ΅ΡΠΎΠ΄ ΠΠΎΠ»ΠΎΡΠΎΠ³ΠΎ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π½Π° Delphi (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
1. ΠΠ²Π΅Π΄Π΅Π½ΠΈΠ΅
2. Π₯Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΡΡΠΈΠΊΠ° ΠΎΠ±ΡΠ΅ΠΊΡΠ° Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ
3. ΠΡΠΎΠ΅ΠΊΡΠ½Π°Ρ ΡΠ°ΡΡΡ ΠΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π±Π»ΠΎΠΊ-ΡΡ Π΅ΠΌΡ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΠ±ΠΎΡΠ½ΠΎΠ²Π°Π½ΠΈΠ΅ Π²ΡΠ±ΠΎΡΠ° ΡΠ·ΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π’Π΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΠ½ΡΡΡΡΠΊΡΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ
4. ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
5. ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅
1 ΠΠ²Π΅Π΄Π΅Π½ΠΈΠ΅
Π¦Π΅Π»ΡΡ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ ΡΠ²Π»ΡΠ΅ΡΡΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΠΏΡΠΈΠ±Π»ΠΈΠΆΠ΅Π½Π½ΠΎΠ³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π° ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ Π‘ΠΈΠΌΠΏΡΠΎΠ½Π°, ΠΏΡΡΠ΅ΠΌ Π²Π²ΠΎΠ΄Π° ΡΡΠ½ΠΊΡΠΈΠΈ, ΠΎΡΡΠ΅Π·ΠΊΠ° ΠΈ ΡΠ°Π³Π° dx. ΠΡΡΠΎΡΠΈΡ ΠΏΠΎΡΠ²Π»Π΅Π½ΠΈΡ ΠΈ ΡΠ°Π·Π²ΠΈΡΠΈΡ ΠΏΠ΅ΡΡΠΎΠ½Π°Π»ΡΠ½ΡΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠΎΠ² ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΠ΄Π½ΠΈΠΌ ΠΈΠ· Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ Π²ΠΏΠ΅ΡΠ°ΡΠ»ΡΡΡΠΈΡ ΡΠ²Π»Π΅Π½ΠΈΠΉ Π½Π°ΡΠ΅Π³ΠΎ Π²Π΅ΠΊΠ°. Π‘ ΠΌΠΎΠΌΠ΅Π½ΡΠ° ΠΏΠΎΡΠ²Π»Π΅Π½ΠΈΡ ΠΏΠ΅ΡΠ²ΡΡ ΠΎΠ±ΡΠ°Π·ΡΠΎΠ² ΠΏΠ΅ΡΡΠΎΠ½Π°Π»ΡΠ½ΡΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠΎΠ² ΠΏΡΠΎΡΠ»ΠΎ ΠΌΠ΅Π½ΡΡΠ΅ 25 Π»Π΅Ρ, Π½ΠΎ ΡΠ΅ΠΉΡΠ°Ρ Π±Π΅Π· Π½ΠΈΡ ΡΠΆΠ΅ Π½Π΅ΠΌΡΡΠ»ΠΈΠΌΠΎ ΠΎΠ³ΡΠΎΠΌΠ½ΠΎΠ΅ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΎΠ±Π»Π°ΡΡΠ΅ΠΉ ΡΠ΅Π»ΠΎΠ²Π΅ΡΠ΅ΡΠΊΠΎΠΉ Π΄Π΅ΡΡΠ΅Π»ΡΠ½ΠΎΡΡΠΈ — ΡΠΊΠΎΠ½ΠΎΠΌΠΈΠΊΠ°, ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅, Π½Π°ΡΠΊΠ°, ΠΈΠ½ΠΆΠ΅Π½Π΅ΡΠ½ΠΎΠ΅ Π΄Π΅Π»ΠΎ, ΠΈΠ·Π΄Π°ΡΠ΅Π»ΡΡΠΊΠΎΠ΅ Π΄Π΅Π»ΠΎ, ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΠ΅, ΠΊΡΠ»ΡΡΡΡΠ° ΠΈ Ρ. Π΄. ΠΠ½ΡΠ΅ΡΠ΅Ρ ΠΊ ΠΏΠ΅ΡΡΠΎΠ½Π°Π»ΡΠ½ΡΠΌ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ°ΠΌ ΠΏΠΎΡΡΠΎΡΠ½Π½ΠΎ ΡΠ°ΡΡΠ΅Ρ, Π° ΠΊΡΡΠ³ ΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΉ Π½Π΅ΠΏΡΠ΅ΡΡΠ²Π½ΠΎ ΡΠ°ΡΡΠΈΡΡΠ΅ΡΡΡ. Π ΡΠΈΡΠ»ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Π΅ΠΉ ΠΠΠΠ Π²ΠΎΠ²Π»Π΅ΠΊΠ°ΡΡΡΡ ΠΊΠ°ΠΊ Π½ΠΎΠ²ΠΈΡΠΊΠΈ Π² ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΠΎΠΌ Π΄Π΅Π»Π΅, ΡΠ°ΠΊ ΠΈ ΡΠΏΠ΅ΡΠΈΠ°Π»ΠΈΡΡΡ ΠΏΠΎ Π΄ΡΡΠ³ΠΈΠΌ ΠΊΠ»Π°ΡΡΠ°ΠΌ ΠΠΠ. ΠΠ»Π°Π³ΠΎΠ΄Π°ΡΡ Π½ΠΎΠ²Π΅ΠΉΡΠΈΠΌ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΡΠΌ Π² ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΠΎΠΉ ΡΡΠ΅ΡΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΈΠ½ΠΆΠ΅Π½Π΅ΡΠ½ΡΡ , ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΡ , ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈΡ ΠΈ ΠΊΠΎΠΌΠΌΠ΅ΡΡΠ΅ΡΠΊΠΈΡ Π·Π°Π΄Π°Ρ ΠΏΠΎΠΌΠΎΠ³Π°Π΅Ρ Π±ΡΡΡΡΠΎ ΠΈ ΡΠΎΡΠ½ΠΎ ΡΠ΅ΡΠΈΡΡ ΡΡ ΠΈΠ»ΠΈ ΠΈΠ½ΡΡ Π·Π°Π΄Π°ΡΡ. ΠΠΊΡΡΠ°Π»ΡΠ½ΠΎΡΡΡ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π·Π°Π΄Π°ΡΠΈ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ Π‘ΠΈΠΌΠΏΡΠΎΠ½Π° Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΠΠΠ Π΄Π»Ρ ΡΡΠ΅Π±Π½ΡΡ Π·Π°Π²Π΅Π΄Π΅Π½ΠΈΠΉ — ΡΠ²Π»ΡΠ΅ΡΡΡ Π±ΡΡΡΡΠΎΡΠ° ΠΈ ΡΠΎΡΠ½ΠΎΡΡΡ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π» ΠΎΡ ΡΡΠ½ΠΊΡΠΈΠΈ, ΠΈΠΌΠ΅ΡΡΠ΅ΠΉ Π½Π΅ΡΠ»Π΅ΠΌΠ΅Π½ΡΠ°ΡΠ½ΡΡ ΠΏΠ΅ΡΠ²ΠΎΠΎΠ±ΡΠ°Π·Π½ΡΡ.
2 Π₯Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΡΡΠΈΠΊΠ° ΠΎΠ±ΡΠ΅ΠΊΡΠ° Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ
ΠΠ±ΡΠ΅ΠΊΡΠ°ΠΌΠΈ Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ ΡΠ²Π»ΡΡΡΡΡ ΡΡΠ΅Π±Π½ΡΠ΅ Π·Π°Π²Π΅Π΄Π΅Π½ΠΈΡ, ΠΎΡΠ½Π°ΡΠ΅Π½Π½ΡΠ΅ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠΈΠ·ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠΉ Π°ΡΠ΄ΠΈΡΠΎΡΠΈΠ΅ΠΉ. ΠΠ²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΡ ΡΡΠ΅Π±Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΡΠ΅ΡΡΠ° Π΄Π»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ Π·Π°Π΄Π°Ρ ΠΏΠΎ ΠΏΡΠ΅Π΄ΠΌΠ΅ΡΡ — ΡΠΈΡΠ»Π΅Π½Π½ΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄Ρ.
Π’Π΅ΠΌΠΏΡ Π½Π°ΡΡΠ½ΠΎ — ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ΅ΡΡΠ°, ΡΡΠΈΠ»Π΅Π½ΠΈΠ΅ ΡΠΎΠ»ΠΈ Π½Π°ΡΠΊΠΈ Π² Π·Π½Π°ΡΠΈΡΠ΅Π»ΡΠ½ΠΎΠΉ ΡΡΠ΅ΠΏΠ΅Π½ΠΈ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡΡΡ ΠΊΠ°ΡΠ΅ΡΡΠ²ΠΎΠΌ ΠΈ Π½ΠΎΠΌΠ΅Π½ΠΊΠ»Π°ΡΡΡΠΎΠΉ ΡΡΠ΅Π΄ΡΡΠ² Π²ΡΡΠΈΡΠ»ΠΈΡΠ΅Π»ΡΠ½ΠΎΠΉ ΡΠ΅Ρ Π½ΠΈΠΊΠΈ ΠΈ ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΌ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅ΠΌ. ΠΠΌΠ΅Π½Π½ΠΎ ΡΠ°Π·Π²ΠΈΡΠΈΠ΅ ΡΡΠΈΡ ΡΡΠ΅Π΄ΡΡΠ² ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅Ρ ΡΡΠΏΠ΅Ρ ΠΈ Π² Π°Π²ΡΠΎΠΌΠ°ΡΠΈΠ·Π°ΡΠΈΠΈ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΡΡΠ²Π΅Π½Π½ΡΡ ΠΏΡΠΎΡΠ΅ΡΡΠΎΠ², Π² ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ΅ Π½ΠΎΠ²ΡΡ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΉ, Π² ΠΏΠΎΠ²ΡΡΠ΅Π½ΠΈΠΈ ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΠΎΡΡΠΈ ΡΡΡΠ΄Π° ΠΈ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ, Π² ΡΠΎΠ²Π΅ΡΡΠ΅Π½ΡΡΠ²ΠΎΠ²Π°Π½ΠΈΠΈ ΡΠΈΡΡΠ΅ΠΌΡ ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΡ ΠΈ Π² ΡΡΠΊΠΎΡΠ΅Π½ΠΈΠΈ ΠΏΠΎΠ΄Π³ΠΎΡΠΎΠ²ΠΊΠΈ ΠΊΠ°Π΄ΡΠΎΠ². ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ° Π² ΠΏΡΠΎΡΠ΅ΡΡΠ΅ ΠΎΠ±ΡΡΠ΅Π½ΠΈΡ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΠΊΠΈ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠ΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ Π½ΠΎΠ²Π΅ΠΉΡΠΈΡ ΠΏΠ΅Π΄Π°Π³ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΈΡ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΉ Π»ΠΈΡΠ½ΠΎΡΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΠΎΠ±ΡΡΠ΅Π½ΠΈΡ. ΠΠ»Π°Π³ΠΎΠ΄Π°ΡΡ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠΌΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΠΎΡΠ²ΠΈΠ»Π°ΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΡΠ°ΡΡΠΈΡΠΈΡΡ ΡΡΠ΅Π±Π½ΡΠΉ ΠΏΠ»Π°Π½ Π±Π»Π°Π³ΠΎΠ΄Π°ΡΡ Π±ΡΡΡΡΠΎΠΌΡ ΠΈ ΠΊΠ°ΡΠ΅ΡΡΠ²Π΅Π½Π½ΠΎΠΌΡ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΡ Π·Π°Π΄Π°Ρ Π½Π° ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ΅.
Π Π΅ΡΠ°Ρ ΠΏΡΠΎΠ±Π»Π΅ΠΌΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ° Π² ΠΏΡΠΎΡΠ΅ΡΡΠ΅ ΠΎΠ±ΡΡΠ΅Π½ΠΈΡ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΠΊΠΈ, ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΈΡΡ ΠΎΠ΄ΠΈΡΡ Π½Π΅ ΡΡΠΎΠ»ΡΠΊΠΎ ΠΈΠ· ΡΡΠ½ΠΊΡΠΈΠΎΠ½Π°Π»ΡΠ½ΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠ΅ΠΉ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ° ΠΈ ΠΆΠ΅Π»Π°Π½ΠΈΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π΅Π³ΠΎ Π² ΡΡΠ΅Π±Π½ΠΎΠΌ ΠΏΡΠΎΡΠ΅ΡΡΠ΅, ΡΠΊΠΎΠ»ΡΠΊΠΎ ΠΈΠ· ΠΌΠ΅ΡΠΎΠ΄ΠΈΡΠ΅ΡΠΊΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ ΠΎΠ±ΡΡΠ΅Π½ΠΈΡ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΠΊΠΈ, Π°Π½Π°Π»ΠΈΠ· ΠΊΠΎΡΠΎΡΠΎΠΉ Π΄ΠΎΠ»ΠΆΠ΅Π½ ΠΏΠΎΠΊΠ°Π·Π°ΡΡ, ΠΊΠ°ΠΊΠΈΠ΅ ΡΡΠ΅Π±Π½ΡΠ΅ Π·Π°Π΄Π°ΡΠΈ ΠΌΠΎΠ³ΡΡ Π±ΡΡΡ ΡΠ΅ΡΠ΅Π½Ρ ΡΠΎΠ»ΡΠΊΠΎ ΡΡΠ΅Π΄ΡΡΠ²Π°ΠΌΠΈ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ°, ΠΈΠ±ΠΎ Π΄ΡΡΠ³ΠΈΠ΅ Π΄ΠΈΠ΄Π°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΡΡΠ΅Π΄ΡΡΠ²Π° ΠΌΠ΅Π½Π΅Π΅ ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½Ρ ΠΈΠ»ΠΈ Π²ΠΎΠΎΠ±ΡΠ΅ Π½Π΅ ΠΏΡΠΈΠΌΠ΅Π½ΠΈΠΌΡ.
ΠΠ±ΡΡΠ΅Π½ΠΈΠ΅ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΠΎΠΉ ΡΠ΅Ρ Π½ΠΈΠΊΠΈ Π½ΠΎΡΠΈΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΡΠΉ Ρ Π°ΡΠ°ΠΊΡΠ΅Ρ, ΠΏΡΠΈ ΠΊΠΎΡΠΎΡΠΎΠΌ ΡΡΠΈΡΠ΅Π»Ρ Π² Π»ΡΠ±ΠΎΠΉ ΠΌΠΎΠΌΠ΅Π½Ρ ΠΌΠΎΠΆΠ΅Ρ Π²Π½Π΅ΡΡΠΈ ΠΊΠΎΡΡΠ΅ΠΊΡΠΈΠ²Ρ. ΠΠ° Π·Π°Π½ΡΡΠΈΡΡ Ρ ΠΎΡΠΎΡΠΎ ΡΠΎΡΠ΅ΡΠ°ΡΡΡΡ ΠΈΠ½Π΄ΠΈΠ²ΠΈΠ΄ΡΠ°Π»ΡΠ½Π°Ρ ΠΈ Π³ΡΡΠΏΠΏΠΎΠ²Π°Ρ ΡΠΎΡΠΌΠ° ΡΠ°Π±ΠΎΡΡ. Π£ΡΠ΅Π½ΠΈΠΊΠΈ Π½Π°Ρ ΠΎΠ΄ΡΡΡΡ Π² ΡΠΎΡΡΠΎΡΠ½ΠΈΠΈ ΠΊΠΎΠΌΡΠΎΡΡΠ° ΠΏΡΠΈ ΡΠ°Π±ΠΎΡΠ΅ Π½Π° ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ΅.
ΠΠΎΠΌΠΏΡΡΡΠ΅Ρ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ Π½Π° ΡΠ°ΠΌΡΡ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ ΡΡΠ°ΠΏΠ°Ρ ΠΎΠ±ΡΡΠ΅Π½ΠΈΡ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΠΊΠΈ, ΠΈ ΡΡΠΎ ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΠΎΡΠ½ΠΎΠ²Π°Π½ΠΎ, ΠΏΡΠ΅ΠΆΠ΄Π΅ Π²ΡΠ΅Π³ΠΎ, Π½Π° Π΅Π³ΠΎ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡΡ . ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎ-ΠΎΠ±ΡΡΠ°ΡΡΠ΅ΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ «Π£ΡΠΎΠΊΠΈ Π°Π»Π³Π΅Π±ΡΡ ΠΈ Π³Π΅ΠΎΠΌΠ΅ΡΡΠΈΠΈ» ΠΠΈΡΠΈΠ»Π»Π° ΠΈ ΠΠ΅ΡΠΎΠ΄ΠΈΡ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡ ΠΌΠΎΠ΄Π΅Π»ΠΈΡΠΎΠ²Π°ΡΡ ΠΈ Π½Π°Π³Π»ΡΠ΄Π½ΠΎ Π΄Π΅ΠΌΠΎΠ½ΡΡΡΠΈΡΠΎΠ²Π°ΡΡ ΡΠΎΠ΄Π΅ΡΠΆΠ°Π½ΠΈΠ΅ ΠΈΠ·ΡΡΠ°Π΅ΠΌΡΡ ΡΠ΅ΠΌ. Π’Π°Π±Π»ΠΈΡΠ½ΡΠΉ ΠΏΡΠΎΡΠ΅ΡΡΠΎΡ Excel ΠΈ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΠΉ ΠΏΠ°ΠΊΠ΅Ρ Mathcad ΡΠ²Π»ΡΡΡΡΡ ΡΠ΄ΠΎΠ±Π½ΡΠΌ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½ΡΠΎΠΌ Π΄Π»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈΡ Π·Π°Π΄Π°Ρ.
ΠΠ΅ΠΎΡΠ΅Π½ΠΈΠΌ ΠΊΠΎΠΌΠΏΡΡΡΠ΅Ρ ΠΈ ΠΏΡΠΈ ΠΊΠΎΠΌΠΏΠ»Π΅ΠΊΡΠ½ΠΎΠΌ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠΈ. ΠΠΎΠΆΠ½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π»ΡΠ±ΡΠ΅ ΠΎΠ±ΡΡΠ°ΡΡΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΈΠ»ΠΈ ΠΊΠΎΠ½ΡΡΠΎΠ»ΠΈΡΡΡΡΠΈΠ΅ ΡΠΏΡΠ°ΠΆΠ½Π΅Π½ΠΈΡ. ΠΡΠ΅Π³Π΄Π° Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΡΠ°ΡΠ΅Π»ΡΠ½ΠΎ ΠΏΠΎΠ΄Π±ΠΈΡΠ°ΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠ΅ ΡΠΏΡΠ°ΠΆΠ½Π΅Π½ΠΈΡ, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΠΎΠ½ΠΈ Π΄ΠΎΠ»ΠΆΠ½Ρ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΎΠ²Π°ΡΡ ΡΠ΅Π»ΡΠΌ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ. ΠΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ ΡΠ΅ΡΡΠΈΡΡΡΡΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΡΠΈΡΠ΅Π»Ρ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΈΠ²Π½ΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ Π²Π»Π°Π΄Π΅Π½ΠΈΠΈ ΡΡΠ°ΡΠΈΠΌΠΈΡΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΡΠΌ Π½Π°Π±ΠΎΡΠΎΠΌ Π·Π½Π°Π½ΠΈΠΉ, ΡΠΌΠ΅Π½ΠΈΠΉ ΠΈ Π½Π°Π²ΡΠΊΠΎΠ² Π΄Π»Ρ ΠΏΡΠΎΠ΄ΠΎΠ»ΠΆΠ΅Π½ΠΈΡ ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΡ, Π° ΡΠ°ΠΊΠΆΠ΅ ΠΎΠ± ΡΡΠΎΠ²Π½Π΅ ΡΡΠΈΡ Π·Π½Π°Π½ΠΈΠΉ.
Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΠΏΡΠΈΠΌΠ΅Π½Π΅Π½ΠΈΠ΅ Π½ΠΎΠ²ΡΡ ΡΠ΅Ρ Π½ΠΎΠ»ΠΎΠ³ΠΈΠΉ Π² ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΠΈ Π΄ΠΎΠ»ΠΆΠ½ΠΎ ΡΠ°ΡΡΠΌΠ°ΡΡΠΈΠ²Π°ΡΡΡΡ ΠΊΠ°ΠΊ ΡΡΡΠ°ΡΠ΅Π³ΠΈΡΠ΅ΡΠΊΠΎΠ΅, ΡΠΏΡΠ°Π²Π»Π΅Π½ΡΠ΅ΡΠΊΠΎΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅, ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ΅ Π½Π° ΡΠΎΡΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈ ΡΠ°Π·Π²ΠΈΡΠΈΠ΅ Π½ΠΎΠ²ΠΎΠΉ ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ, Π½Π°ΠΏΡΠ°Π²Π»Π΅Π½Π½ΠΎΠΉ Π½Π° ΠΏΠΎΠ²ΡΡΠ΅Π½ΠΈΠ΅ ΠΊΠ°ΡΠ΅ΡΡΠ²Π° ΠΎΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΡ, ΠΏΠΎΠ²ΡΡΠ°ΡΡ ΠΌΠΎΡΠΈΠ²Π°ΡΠΈΡ ΠΎΠ±ΡΡΠ΅Π½ΠΈΡ, ΡΠΏΠΎΡΠΎΠ±ΡΡΠ²ΠΎΠ²Π°ΡΡ ΡΠ³Π»ΡΠ±Π»Π΅Π½ΠΈΡ ΠΌΠ΅ΠΆΠΏΡΠ΅Π΄ΠΌΠ΅ΡΠ½ΡΡ ΡΠ²ΡΠ·Π΅ΠΉ.
3 ΠΡΠΎΠ΅ΠΊΡΠ½Π°Ρ ΡΠ°ΡΡΡ
ΠΠΎΡΡΠ°Π½ΠΎΠ²ΠΊΠ° Π·Π°Π΄Π°ΡΠΈ
3.1 ΠΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅. Π€ΠΎΡΠΌΡΠ»Π° Π‘ΠΈΠΌΠΏΡΠΎΠ½Π°
ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π° Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ Π‘ΠΈΠΌΠΏΡΠΎΠ½Π° (ΠΏΠ°ΡΠ°Π±ΠΎΠ»). ΠΡΡΠ΅Π·ΠΎΠΊ [a, b] ΡΠ°Π·Π±ΠΈΠ²Π°Π΅ΡΡΡ Π½Π° n=2m ΡΠ°ΡΡΠ΅ΠΉ x0 =a, x1 =a+h, …, xn =b Ρ ΡΠ°Π³ΠΎΠΌ h=(b-a)/n. ΠΡΡΠΈΡΠ»ΡΡΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ yi = F (xi ) ΡΡΠ½ΠΊΡΠΈΠΈ Π² ΡΠΎΡΠΊΠ°Ρ xi ΠΈ Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π° ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π΅ Π‘ΠΈΠΌΠΏΡΠΎΠ½Π°:
ΠΠ°ΡΠ΅ΠΌ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠΎΡΠ΅ΠΊ ΡΠ°Π·Π±ΠΈΠ΅Π½ΠΈΡ ΡΠ΄Π²Π°ΠΈΠ²Π°Π΅ΡΡΡ ΠΈ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ ΠΎΡΠ΅Π½ΠΊΠ° ΡΠΎΡΠ½ΠΎΡΡΠΈ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠΉ ΠΡΠ»ΠΈ Rn > e, ΡΠΎ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠΎΡΠ΅ΠΊ ΡΠ°Π·Π±ΠΈΠ΅Π½ΠΈΡ ΡΠ΄Π²Π°ΠΈΠ²Π°Π΅ΡΡΡ. ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΡΠΌΠΌΡ 2(y1 +y2 +…+y2m-1 ) ΡΠΎΡ ΡΠ°Π½ΡΠ΅ΡΡΡ, ΠΏΠΎΡΡΠΎΠΌΡ Π΄Π»Ρ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π° ΠΏΡΠΈ ΡΠ΄Π²ΠΎΠ΅Π½ΠΈΠΈ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Π° ΡΠΎΡΠ΅ΠΊ ΡΠ°Π·Π±ΠΈΠ΅Π½ΠΈΡ ΡΡΠ΅Π±ΡΠ΅ΡΡΡ Π²ΡΡΠΈΡΠ»ΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ yi Π»ΠΈΡΡ Π² Π½ΠΎΠ²ΡΡ ΡΠΎΡΠΊΠ°Ρ ΡΠ°Π·Π±ΠΈΠ΅Π½ΠΈΡ.
3.2 ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π±Π»ΠΎΠΊ-ΡΡ Π΅ΠΌΡ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
1. ΠΠ²ΠΎΠ΄ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ a, b, dx ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ f (x);
2. ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ Xi Π½Π° ΠΎΡΡΠ΅Π·ΠΊΠ΅ a, b Ρ ΡΠ°Π³ΠΎΠΌ h. ΠΡΠΎΠ΄ΠΎΠ»ΠΆΠ΅Π½ΠΈΠ΅ ΡΠΈΠΊΠ»Π° Π΄ΠΎ ΠΊΠΎΠ½ΡΠ° ΠΎΡΡΠ΅Π·ΠΊΠ° Π°, b
3. ΠΡΠ²ΠΎΠ΄ Π²ΡΠ΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ F (xi) Π² ΠΌΠ°ΡΡΠΈΠ²;
4. ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ F (xi) ΠΈ Π²ΡΠ²ΠΎΠ΄ Π² ΠΌΠ°ΡΡΠΈΠ²;
5. ΠΡΠΎΠ²Π΅ΡΠΊΠ° Π½Π° Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π½Π°ΡΡΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ Π»ΠΎΠ³Π°ΡΠΈΡΠΌΠ°;
6. ΠΡΠΎΠ²Π΅ΡΠΊΠ° Π½Π° Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΊΠΎΡΠΈΠ½ΡΡΠ°;
7. ΠΡΠΎΠ²Π΅ΡΠΊΠ° Π½Π° Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠΈΠ½ΡΡΠ° ΠΈΠ»ΠΈ ΠΊΠΎΡΠ½Ρ;
8. ΠΡΠΎΠ²Π΅ΡΠΊΠ° Π½Π° Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠΈΡΡΡ;
9. ΠΠ·ΡΡΡ ΡΠΎΡΠΌΡΠ»Ρ Π² ΠΌΠ°ΡΡΠΈΠ²Π΅ Π² ΡΠΊΠΎΠ±ΠΊΠΈ;
10. ΠΡΠΈΡΠ²ΠΎΠ΅Π½ΠΈΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Ρ — Π·Π½Π°ΡΠ΅Π½ΠΈΡ xi Π² ΠΌΠ°ΡΡΠΈΠ²Π΅;
11. Π‘ΡΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ F (x2,x4.xn-1);
12. Π‘ΡΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ F (x1,x3.xn);
13. ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ F (x);
14. ΠΡΠ²ΠΎΠ΄ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ°.
3.3 ΠΠ±ΠΎΡΠ½ΠΎΠ²Π°Π½ΠΈΠ΅ Π²ΡΠ±ΠΎΡΠ° ΡΠ·ΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ
ΠΠ»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΊΡΡΡΠΎΠ²ΠΎΠ³ΠΎ ΠΏΡΠΎΠ΅ΠΊΡΠ° Ρ Π²ΡΠ±ΡΠ°Π» ΡΠ·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ — Delphi. Delphi — ΡΡΠΎ ΡΠ·ΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ, ΠΊΠΎΡΠΎΡΡΠΉ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΡΠ°Π·Π½ΠΎΠΎΠ±ΡΠ°Π·Π½ΡΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΎΠ² ΠΠ. ΠΠΎ Π½Π΅Π΄Π°Π²Π½Π΅Π³ΠΎ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ ΠΎΠ½ ΠΈΠΌΠ΅Π» Π΄ΡΡΠ³ΠΎΠ΅ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ — Object Pascal. Delphi ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΏΡΠ΅Π΄ΠΏΠΎΠ»Π°Π³Π°Π΅Ρ ΡΡΡΠ΅ΡΡΠ²ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠΉ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎΠΉ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ ΠΈΠ»ΠΈ ΡΠ°ΠΊ Π½Π°Π·ΡΠ²Π°Π΅ΠΌΠΎΠΉ Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠΈ ΠΏΡΠΎΡΠΎΡΠΈΠΏΠΎΠ², ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΊΠΎΡΠΎΡΠΎΠΉ Π±ΠΎΠ»ΡΡΠ΅ Π½Π΅ Ρ Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΠ·ΡΠ΅Ρ ΠΏΡΠΎΡΠ΅ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΊΠ°ΠΊ Π³ΡΠΎΠΌΠΎΠ·Π΄ΠΊΠΎΠ΅ ΠΈ ΡΠ»ΠΎΠΆΠ½ΠΎΠ΅ ΠΌΠ΅ΡΠΎΠΏΡΠΈΡΡΠΈΠ΅.
ΠΠ±ΡΠ°Π·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½Π½ΠΎΠ³ΠΎ ΡΡΠ΅Π΄ΡΡΠ²Π° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΠ»ΠΎ Π² ΡΠ°ΠΌΠΊΠ°Ρ ΠΊΠΎΠΌΠΏΠ°Π½ΠΈΠΈ Borland, ΠΊΠΎΡΠΎΡΠ°Ρ ΡΠ΅ΠΉΡΠ°Ρ Π·Π°Π½ΠΈΠΌΠ°Π΅ΡΡΡ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ ΠΆΠΈΠ·Π½Π΅Π½Π½ΡΠΌ ΡΠΈΠΊΠ»ΠΎΠΌ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ.
Π‘ΠΏΠ΅ΡΠΈΡΠΈΡΠ΅ΡΠΊΠΎΠΉ ΠΎΡΠΎΠ±Π΅Π½Π½ΠΎΡΡΡΡ ΠΈ Π²ΠΌΠ΅ΡΡΠ΅ Ρ ΡΠ΅ΠΌ Π½Π΅Π΄ΠΎΡΡΠ°ΡΠΊΠΎΠΌ Delphi ΡΠ²Π»ΡΠ»ΠΎΡΡ ΡΠΎ, ΡΡΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΠΎΠ΄ΠΎΠ±Π½ΠΎΠ³ΠΎ ΡΠ·ΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π½Π° ΠΏΠ΅ΡΠ²ΡΡ ΠΏΠΎΡΠ°Ρ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ Π±ΡΠ»ΠΎ ΡΠΎΠ»ΡΠΊΠΎ Π² ΡΠ°ΠΌΠΊΠ°Ρ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ Microsoft Windows. Π‘Π΅ΠΉΡΠ°Ρ ΠΆΠ΅ ΡΠ°Π±ΠΎΡΠ° Ρ Delphi ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΠΈ Π½Π° ΡΠ°ΠΊΠΈΡ ΠΏΠ»Π°ΡΡΠΎΡΠΌΠ°Ρ , ΠΊΠ°ΠΊ GNU/Linux, Mac OS X ΠΈ Windows CE.
ΠΠΎ ΠΌΠ½ΠΎΠ³ΠΎΠΌ Delphi ΡΡΠ°Π» ΠΎΡΠ½ΠΎΠ²ΠΎΠΉ Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΡΠ°ΠΊΠΎΠ³ΠΎ ΡΠ·ΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΊΠ°ΠΊ Π‘#.
Π Π°ΡΠΏΡΠΎΡΡΡΠ°Π½Π΅Π½ΠΎ ΡΠ°ΠΊΠΆΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ Delphi ΠΏΡΠΈ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΠΎΠ² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ. ΠΡΠΈΠΌΠ΅ΡΠΎΠΌ ΠΊΠ°ΡΠ΅Π³ΠΎΡΠΈΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΡ ΠΏΡΠΎΠ΄ΡΠΊΡΠΎΠ² ΠΌΠΎΠ³ΡΡ Π±ΡΡΡ: ΡΡΠΈΠ»ΠΈΡΡ, ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅ Π² ΠΠ½ΡΠ΅ΡΠ½Π΅ΡΠ΅, Π²Π΅Π±-ΠΏΡΠΎΠ΅ΠΊΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅, ΠΌΡΠ·ΡΠΊΠ°Π»ΡΠ½ΠΎΠ΅ ΠΎΡΠΎΡΠΌΠ»Π΅Π½ΠΈΠ΅, ΠΈΠ½ΠΆΠ΅Π½Π΅ΡΠ½ΠΎΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅, ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ Π±Π°Π· Π΄Π°Π½Π½ΡΡ ΠΈ Π΄Ρ.
Delphi ΠΈΠΌΠ΅Π΅Ρ ΠΎΡΠΎΠ±Π΅Π½Π½ΠΎΡΡΡ ΠΏΠΎΡΡΠΎΡΠ½Π½ΠΎ ΠΌΠΎΠ΄Π΅ΡΠ½ΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡΡΡ, ΠΎ ΡΠ΅ΠΌ ΡΠ²ΠΈΠ΄Π΅ΡΠ΅Π»ΡΡΡΠ²ΡΠ΅Ρ ΠΏΠ΅ΡΠΈΠΎΠ΄ΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΠ΅ Π² Π²ΠΈΠ΄Π΅ ΠΏΠΎΡΠ²Π»Π΅Π½ΠΈΡ Π½ΠΎΠ²ΡΡ Π²Π΅ΡΡΠΈΠΉ. ΠΠ° ΡΠ΅Π³ΠΎΠ΄Π½ΡΡΠ½ΠΈΠΉ Π΄Π΅Π½Ρ, ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅ΠΉ, 12 Π²Π΅ΡΡΠΈΠ΅ΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΡΡΠ΅Π΄ΡΡΠ²Π° ΡΠ²Π»ΡΠ΅ΡΡΡ Delphi 2009, ΠΊΠΎΡΠΎΡΠ°Ρ ΠΏΠΎΠ΄ΡΠ°Π·ΡΠΌΠ΅Π²Π°Π΅Ρ Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠΎΠ²Π΅ΡΡΠ΅Π½ΡΡΠ²ΠΎΠ²Π°Π½ΠΈΡ Π² ΡΠΈΡΡΠ΅ΠΌΠ΅ ΡΠ·ΡΠΊΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ. ΠΠΎ-ΠΏΠ΅ΡΠ²ΡΡ , ΠΌΠΎΠ΄Π΅ΡΠ½ΠΈΠ·Π°ΡΠΈΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² Delphi ΠΊΠ°ΡΠ°Π΅ΡΡΡ ΡΠ½ΠΈΠΊΠΎΠ΄Π°, Π° ΠΈΠΌΠ΅Π½Π½ΠΎ, ΠΏΡΠ΅Π΄ΠΏΠΎΠ»Π°Π³Π°Π΅ΡΡΡ ΠΏΠΎΠ»Π½Π°Ρ Π΅Π³ΠΎ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΊΠ°. ΠΠΎ-Π²ΡΠΎΡΡΡ , Π½Π°Π»ΠΈΡΠΈΠ΅ ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠ² Π΄Π»Ρ ΠΎΡΡΡΠ΅ΡΡΠ²Π»Π΅Π½ΠΈΡ ΠΎΠ±ΠΎΠ±ΡΠ΅Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ, ΠΊΠΎΡΠΎΡΠΎΠ΅ ΠΏΠΎΠ΄ΡΠ°Π·ΡΠΌΠ΅Π²Π°Π΅Ρ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΡ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΎΠ², ΠΏΡΠΈΠΌΠ΅Π½ΠΈΠΌΡΡ ΠΊ ΡΠ°Π·Π½ΡΠΌ ΡΠΈΠΏΠ°ΠΌ Π΄Π°Π½Π½ΡΡ . Π-ΡΡΠ΅ΡΡΠΈΡ , ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ Π±Π΅Π·ΡΠΌΡΠ½Π½ΡΡ ΡΡΠ½ΠΊΡΠΈΠΉ, ΠΊΠΎΡΠΎΡΡΠ΅ Π½Π΅ ΠΏΡΠ΅Π΄ΠΏΠΎΠ»Π°Π³Π°ΡΡ Π»Π΅ΠΊΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ ΡΠΎΠΊΠ΅Π½Π°, Π° ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΡΡΠ½ΠΎΡΡΠ΅ΠΉ Π΄Π΅Π»Π°Π΅Ρ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΡΠΌ ΡΡΡΠ»ΠΊΠΈ Π½Π° Π½ΠΈΡ , ΠΊΠΎΡΠΎΡΡΠ΅ ΠΌΠΎΠ³ΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡΡΡ ΠΏΠΎΠ·ΠΆΠ΅.
3.4. Π’Π΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅
ΠΠΏΠΏΠ°ΡΠ°ΡΠ½ΠΎΠ΅, ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ΅ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΠ΅, Π½Π° ΠΊΠΎΡΠΎΡΠΎΠΌ ΠΏΡΠΎΠ²ΠΎΠ΄ΠΈΠ»ΠΎΡΡ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅:
ΠΠ°Π½Π½ΡΠ΅ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ°:
ΠΡΠΎΡΠ΅ΡΡΠΎΡ — Celeron 1.7;
ΠΠΠ£ — 256 ΠΠ±;
ΠΠΈΠ΄Π΅ΠΎ — 64 ΠΠ±;
HDD — 20 Gb;
ΠΡΠΈΠ²ΠΎΠ΄ CD-Rw
ΠΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½Π°Ρ ΡΠΈΡΡΠ΅ΠΌΠ°:
Windows Xp.
Π Π΅ΡΠ΅Π½ΠΈΠ΅ Π·Π°Π΄Π°ΡΠΈ ΠΡΠΈΠ²Π΅Π΄Π΅ΠΌ ΠΏΡΠΈΠΌΠ΅Ρ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ Π·Π°Π΄Π°ΡΠΈ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ Π‘ΠΈΠΌΠΏΡΠΎΠ½Π° ΠΡΡΠΈΡΠ»ΠΈΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π°
Π Π΅ΡΠ΅Π½ΠΈΠ΅ Π·Π°Π΄Π°ΡΠΈ Π±Π΅Π· ΠΏΠΎΠΌΠΎΡΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠ³ΠΎ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠ΅Π½ΠΈΡ:
n=10 [0,1] h=0,1 fx=xcosx | xi | F (xi) | |
0.1 | 0.995 004 | ||
0.2 | 0.196 013 | ||
0.3 | 0.286 601 | ||
0.4 | 0.368 424 | ||
0.5 | 0.438 791 | ||
0.6 | 0.495 201 | ||
0.7 | 0.5 353 895 | ||
0.8 | 0.557 365 | ||
0.9 | 0.559 449 | ||
0.540 302 | |||
Π Π΅ΡΠ΅Π½ΠΈΠ΅ Π·Π°Π΄Π°ΡΠΈ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΠ΅ΡΠΎΠ΄ Π‘ΠΈΠΌΠΏΡΠΎΠ½Π°. exe:
ΠΠ°Π½Π½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠ°Π±ΠΎΡΠ°Π΅Ρ ΠΊΠΎΡΡΠ΅ΠΊΡΠ½ΠΎ, Ρ.ΠΊ. ΠΎΡΠ²Π΅ΡΡ ΡΠΎΠ²ΠΏΠ°Π΄Π°ΡΡ.
3.5 ΠΠ½ΡΡΡΡΠΊΡΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ
ΠΠ°Π½Π½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· 1 ΠΎΡΠΊΠΎΠΌΠΏΠΈΠ»ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ exe ΡΠ°ΠΉΠ»Π° — ΠΠ΅ΡΠΎΠ΄ Π‘ΠΈΠΌΠΏΡΠΎΠ½Π°. exe ΠΈ rar-Π°ΡΡ ΠΈΠ²Π° ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠ΅Π³ΠΎ Π²ΡΠ΅ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π°ΠΏΠΈΡΠ°Π½Π½ΡΡ Π½Π° ΡΠ·ΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ — Delphi 7.0.
1. ΠΠ°ΠΏΡΡΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΎΡΡΡΠ΅ΡΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΡΡΠ΅ΠΌ ΠΎΡΠΊΡΡΡΠΈΡ ΡΠ°ΠΉΠ»Π° ΠΠ΅ΡΠΎΠ΄ Π‘ΠΈΠΌΠΏΡΠΎΠ½Π° .exe.
2.
ΠΠ²ΠΎΠ΄ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ:
ΠΠ²ΠΎΠ΄ ΡΡΠ½ΠΊΡΠΈΠΈ f (x) — Π² Π΄Π°Π½Π½ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ Π²Π²ΠΎΠ΄ ΡΠΎΡΠΌΡΠ»Ρ ΠΏΡΠ΅Π΄Π½Π°Π·Π½Π°ΡΠ΅Π½Π½ΠΎΠΉ Π΄Π»Ρ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π°. ΠΠ»Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ° ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΡ Π°ΡΠΈΡΠΌΠ΅ΡΠΈΡΠ΅ΡΠΊΠΈΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ ΠΏΡΠΈ Π²Π²ΠΎΠ΄Π΅ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π½Π°ΠΆΠ°ΡΡ Π»Π΅Π²ΠΎΠΉ ΠΊΠ½ΠΎΠΏΠΊΠΎΠΉ ΠΌΡΡΠΊΠΈ Π½Π°, ΠΏΠΎΡΠ»Π΅ ΡΠ΅Π³ΠΎ Π½Π° ΡΠΊΡΠ°Π½ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠ΅Π΅ ΠΎΠΊΠ½ΠΎ (ΡΠΌ. ΡΠΈΡ. 3).
ΠΠ²ΠΎΠ΄ ΠΎΡΡΠ΅Π·ΠΊΠ° [a, b] ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ ΠΏΡΡΠ΅ΠΌ Π²Π²ΠΎΠ΄Π° — ΡΠΎΡΠΊΠ°, Π° (Π½Π°ΡΠ°Π»ΡΠ½Π°Ρ ΡΠΎΡΠΊΠ°), — ΡΠΎΡΠΊΠ° b (ΠΊΠΎΠ½Π΅ΡΠ½Π°Ρ ΡΠΎΡΠΊΠ° ΠΎΡΡΠ΅Π·ΠΊΠ°).
Π¨Π°Π³ h ΠΈΠ»ΠΈ dx — Π²Π²ΠΎΠ΄ Π² .
3. ΠΠΎΡΠ»Π΅ Π²Π²ΠΎΠ΄Π° Π²ΡΠ΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π° Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π½Π°ΠΆΠ°ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ (ΡΠΌ. ΡΠΈΡ.4).
Π³Π΄Π΅ — ΡΠ°Π±Π»ΠΈΡΠ° Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ Xi b F (xi);
— ΠΏΡΠΈΠ±Π»ΠΈΠΆΠ΅Π½Π½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π°.
4. ΠΠ»Ρ Π²ΡΠ²ΠΎΠ΄ ΡΠΏΡΠ°Π²ΠΎΡΠ½ΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΎΠΉ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π½Π°ΠΆΠ°ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ, ΠΏΠΎΡΠ»Π΅ ΡΠ΅Π³ΠΎ Π½Π° ΡΠΊΡΠ°Π½ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠ΅Π΅ ΠΎΠΊΠ½ΠΎ (ΡΠΌ. ΡΠΈΡ.7)
4. ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
ΠΠ°Π½Π½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π±ΡΠ»Π° Π½Π°ΠΏΠΈΡΠ°Π½Π° Π½Π° ΡΠ·ΡΠΊΠ΅ Delphi 7.0. ΠΡΠΈ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π±ΡΠ»ΠΈ ΡΡΡΠ΅Π½Ρ Π²ΡΠ΅ ΡΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ ΠΊ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½Ρ Π² ΠΏΠΎΠ»Π½ΠΎΠΉ ΠΌΠ΅ΡΠ΅.
ΠΡΠΈ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ΅ Π΄Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π― Π·Π°ΠΊΡΠ΅ΠΏΠΈΠ» Π·Π½Π°Π½ΠΈΡ ΠΏΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π² ΡΡΠ΅Π΄Π΅ Delphi 7.0, ΡΠ°ΠΊΠΆΠ΅ ΠΏΠΎΠ»ΡΡΠΈΠ» Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ Π½ΠΎΠ²ΡΠ΅ Π·Π½Π°Π½ΠΈΡ ΠΏΡΠΈ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠΊΠ΅ ΡΡΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅
ΠΠΈΡΡΠΈΠ½Π³ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, ExtCtrls;
type
TForm1 = class (TForm)
Edit_F: TEdit;
Button_Itogo: TButton;
Edit_A: TEdit;
Label1: TLabel;
Label4: TLabel;
Edit_B: TEdit;
SS: TStringGrid;
Edit_Int: TEdit;
Label3: TLabel;
Image1: TImage;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label5: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Button1: TButton;
procedure Button_ItogoClick (Sender: TObject);
procedure Label5Click (Sender: TObject);
procedure Button1Click (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit_help, Unit_h;
{$R *.dfm}
procedure Formula (Var Vivod: string; Var Gl_massiv: Array of string);
Var
Sk_massiv: Array [0.100] of string;
Tmp_st, st: integer; // ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΡΡΠ΅ΠΏΠ΅Π½ΠΈ
i_sk:integer; //ΠΠΎΠΌΠ΅Ρ ΡΡΠ΅ΠΉΠΊΠΈ c Π½Π°ΡΠ°Π»Π° ΠΌΠ°ΡΡΠΈΠ²Π° ΡΠΊΠΎΠ±ΠΊΠΈ
j_sk:integer;// ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΠΏΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΠΎ ΠΌΠ°ΡΡΠΈΠ²Ρ ΡΠΊΠΎΠ±ΠΊΠΈ
z:integer; //ΠΠΎΠΌΠ΅Ρ ΡΡΠ΅ΠΉΠΊΠΈ ΠΎΡ ΠΊΠΎΠ½ΡΠ° Π³Π». ΠΌΠ°ΡΡΠΈΠ²Π°
i:integer; //ΠΠΎΠΌΠ΅Ρ ΡΡΠ΅ΠΉΠΊΠΈ c Π½Π°ΡΠ°Π»Π° Π³Π». ΠΌΠ°ΡΡΠΈΠ²Π°
j:integer; // ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ ΠΏΠΎ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΠΎ Π³Π». ΠΌΠ°ΡΡΠΈΠ²Ρ
// ΠΡΠ»Π΅Π²ΡΠ΅ ΡΠΈΠΏΡ (Π»ΠΎΠΆΡ) ΠΈΠ»ΠΈ (ΠΡΡΠΈΠ½Π°) Π΄Π»Ρ Π³Π». ΠΌΠ°ΡΠΈΠΈΠ²Π° ΠΈ ΡΠΊΠΎΠ±ΠΊΠΈ
Y, Ysk: Boolean;
ch:Real; // Π§ΠΈΡΠ»ΠΎ
Itog:Real; //ΠΠ΅ΡΠ΅ΠΌΠ΅Π½Π½Π°Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠΉ
begin // ΠΠ°ΡΠ°Π»ΠΎ
{—— ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ Π² ΡΠΊΠΎΠ±ΠΊΠ°Ρ ——-}
For z:=1 to 100 do //Π§ΡΠ΅Π½ΠΈΠ΅ ΡΠΎ ΠΊΠΎΠ½ΡΠ° Π³Π». ΠΌΠ°ΡΡΠΈΠ²Π°
Begin
// ΠΡΠ»ΠΈ Π»Π΅Π²Π°Ρ ΡΠΊΠΎΠ±ΠΊΠ° Π½Π°ΠΉΠ΄Π΅Π½Π°
if Gl_massiv [100-z] = '(' then
Begin
i:= 100-z; j:= 0; Y:= False;
Repeat
Begin
if Gl_massiv[i+1] <> ')' then //ΠΠ°ΠΉΠ΄Π΅Π½Π° ΡΠ»Π΅Π΄. Π·Π°ΠΊΡΡΠ²Π°ΡΡΠ°Ρ ΡΠΊΠΎΠ±ΠΊΠ°
Begin
Sk_massiv[j]: = Gl_massiv[i+1];
// Π‘ΠΊΡΡΠ²Π°Π΅ΠΌ ΡΠΈΠ»ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Π½ΠΎΠ΅ Π΄Π»Ρ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ
Gl_massiv[i+1]: = '#';
j:=j+1;
i:=i+1;
end
else Begin Gl_massiv[i+1]: = '#'; Y:= True; end;
end;
Until Y=True;
Y:= False;
{————- ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ Π² ΡΠΊΠΎΠ±ΠΊΠ°Ρ ———————-}
For i_sk:=0 to 100 do
Begin
Ysk:= False;
{——————— ΠΠΎΡΠΈΠ½ΡΡ———————-}
if Sk_massiv [i_sk]= 'cos' then
Begin j_sk:=1; Ysk:= False;
repeat
if Sk_massiv[i_sk+j_sk] <> '#' then
begin
itog:= cos (Strtofloat (Sk_massiv[i_sk+j_sk]));
Sk_massiv[i_sk]: = Floattostr (itog);
Sk_massiv[i_sk+j_sk]: = '#'; Ysk:= True;
end else j_sk:= j_sk+1;
until Ysk=True;
Ysk:= False;
end;
{——————— Π‘ΠΈΠ½ΡΡ ———————-}
if Sk_massiv[i_sk]= 'sin' then
Begin j_sk:=1; Ysk:= False;
repeat
if Sk_massiv[i_sk+j_sk] <> '#' then
begin
itog:= sin (Strtofloat (Sk_massiv[i_sk+j_sk]));
Sk_massiv[i_sk]: = Floattostr (itog);
Sk_massiv[i_sk+j_sk]: = '#'; Ysk:= True;
end else j_sk:= j_sk+1;
until Ysk=True;
Ysk:= False;
end;
end;
{——————— ^ ΠΊΠ²Π°Π΄ΡΠ°Ρ ———————-}
For i_sk:=0 to 100 do
Begin
Ysk:= False;
if Sk_massiv[i_sk]= '^' then
Begin j_sk:=1; Ysk:= False;
repeat
if Sk_massiv[i_sk-j_sk] <> '#' then begin
itog:= Strtofloat (Sk_massiv[i_sk-j_sk]);
Sk_massiv[i_sk-j_sk]: = '#'; Ysk:= True;
end else j_sk:= j_sk+1;
until Ysk=True;
Tmp_st:= StrToInt (Sk_massiv[i_sk+1]);
ch:=itog;
For st:=2 to Tmp_st do
begin
itog:= itog*ch;
end;
Sk_massiv[i_sk]: = Floattostr (itog);
end;
end;
{——————— Π£ΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΠ΅ / ΠΠ΅Π»Π΅Π½ΠΈΠ΅ ———————-}
For i_sk:=0 to 100 do
Begin
Ysk:= False;
{——————— Π£ΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΠ΅———————-}
if Sk_massiv[i_sk]= '*' then
Begin j_sk:=1; Ysk:= False;
repeat
if Sk_massiv[i_sk-j_sk] <> '#' then begin
itog:= Strtofloat (Sk_massiv[i_sk-j_sk]);
Sk_massiv[i_sk-j_sk]: = '#'; Ysk:= True;
end else j_sk:= j_sk+1;
until Ysk=True;
j_sk:=1; Ysk:= False;
repeat
if Sk_massiv[i_sk+j_sk] <> '#' then begin
itog:= itog* Strtofloat (Sk_massiv[i_sk+j_sk]);
Sk_massiv[i_sk]: = Floattostr (itog);
Sk_massiv[i_sk+j_sk]: = '#'; Ysk:= True;
end else j_sk:= j_sk+1;
until Ysk=True;
end; Ysk:= False;
{——————————- ΠΠ΅Π»Π΅Π½ΠΈΠ΅ ————————}
if Sk_massiv[i_sk]= '/' then
Begin j_sk:=1; Ysk:= False;
repeat
if Sk_massiv[i_sk-j_sk] <> '#' then begin
itog:= Strtofloat (Sk_massiv[i_sk-j_sk]);
Sk_massiv[i_sk-j_sk]: = '#'; Ysk:= True;
end else j_sk:= j_sk+1;
until Ysk=True;
j_sk:=1; Ysk:= False;
repeat
if Sk_massiv[i_sk+j_sk] <> '#' then begin
itog:= itog/Strtofloat (Sk_massiv[i_sk+j_sk]);
Sk_massiv[i_sk]: = Floattostr (itog);
Sk_massiv[i_sk+j_sk]: = '#'; Ysk:= True;
end else j_sk:= j_sk+1;
until Ysk=True;
end; Ysk:= False;
end;
{——————— cΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅/Π²ΡΡΠΈΡΠ°Π½ΠΈΠ΅ ————————-}
For i_sk:= 0 to 100 do
Begin
Ysk:= False;
{——————— ΡΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅———————-}
if Sk_massiv[i_sk]= '+' then
Begin j_sk:=1; Ysk:= False;
repeat
if Sk_massiv[i_sk-j_sk] <> '#' then begin
itog:= Strtofloat (Sk_massiv[i_sk-j_sk]);
Sk_massiv[i_sk-j_sk]: = '#'; Ysk:= True;
end else j_sk:= j_sk+1;
until Ysk=True;
j_sk:=1; Ysk:= False;
repeat
if Sk_massiv[i_sk+j_sk] <> '#' then begin
itog:= itog+ Strtofloat (Sk_massiv[i_sk+j_sk]);
Sk_massiv[i_sk]: = Floattostr (itog);
Sk_massiv[i_sk+j_sk]: = '#'; Ysk:= True;
end else j_sk:= j_sk+1;
until Ysk=True;
end; Ysk:= False;
{—————————- ΠΡΡΠΈΡΠ°Π½ΠΈΠ΅ ————————}
if Sk_massiv[i_sk]= '-' then
Begin j_sk:=1; Ysk:= False;
repeat
if Sk_massiv[i_sk-j_sk] <> '#' then begin
itog:= Strtofloat (Sk_massiv[i_sk-j_sk]);
Sk_massiv[i_sk-j_sk]: = '#'; Ysk:= True;
end else j_sk:= j_sk+1;
until Ysk=True;
j_sk:=1; Ysk:= False;
repeat
if Sk_massiv[i_sk+j_sk] <> '#' then begin
itog:= itog-Strtofloat (Sk_massiv[i_sk+j_sk]);
Sk_massiv[i_sk]: = Floattostr (itog);
Sk_massiv[i_sk+j_sk]: = '#'; Ysk:= True;
end else j_sk:= j_sk+1;
until Ysk=True;
end; Ysk:= False;
end;
For i_sk:=0 to 100 do
Begin
Ysk:= False;
{——————— ΠΠ°ΡΡΡΠ°Π»ΡΠ½ΡΠΉ Π»ΠΎΠ³Π°ΡΠΈΡΠΌ ———————}
if Sk_massiv[i_sk]= 'ln' then
Begin j_sk:=1; Ysk:= False;
repeat
if Sk_massiv[i_sk+j_sk] <> '#' then
begin
ch:= Strtofloat (Sk_massiv[i_sk+j_sk]);
If ch > 0 then
Begin
itog:= ln (Strtofloat (Sk_massiv[i_sk+j_sk]));
Sk_massiv[i_sk]: = Floattostr (itog);
Sk_massiv[i_sk+j_sk]: = '#'; Ysk:= True;
end else Begin
Showmessage ('ΠΠ°ΡΡΡΠ°Π»ΡΠ½ΡΠΉ Π»ΠΎΠ³Π°ΡΠΈΡΠΌ ΠΌΠ΅Π½ΡΡΠ΅ Π½ΡΠ»Ρ');
Sk_massiv[i_sk]: ='0';
Ysk:= True;
end;
end else j_sk:= j_sk+1;
until Ysk=True;
Ysk:= False;
end;
{——————— ΠΠΎΡΠ΅Π½Ρ ΠΊΠ².———————}
if Sk_massiv[i_sk]= 'sqrt' then
Begin j_sk:=1; Ysk:= False;
repeat
if Sk_massiv[i_sk+j_sk] <> '#' then
begin
ch:= Strtofloat (Sk_massiv[i_sk+j_sk]);
If ch > 0 then
Begin
itog:= sqrt (Strtofloat (Sk_massiv[i_sk+j_sk]));
Sk_massiv[i_sk]: = Floattostr (itog);
Sk_massiv[i_sk+j_sk]: = '#'; Ysk:= True;
end else Begin
Showmessage ('ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΊΠ²Π°Π΄ΡΠ°ΡΠ½ΠΎΠ³ΠΎ ΠΊΠΎΡΠ½Ρ ΠΌΠ΅Π½ΡΡΠ΅ Π½ΡΠ»Ρ');
Sk_massiv[i_sk]: ='0';
Ysk:= True;
end;
end else j_sk:= j_sk+1;
until Ysk=True;
Ysk:= False;
end;
end; Ysk:= False;
j_sk:=0;
Repeat
Begin
if Sk_massiv[0+j_sk] <> '#' then Begin
// ΠΠ°ΠΏΠΈΡΡ Π² Π³Π». ΠΌΠ°ΡΡΠΈΠ² Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠΊΠΎΠ±ΠΊΠΈ
Gl_massiv[100-z]: = Sk_massiv[0+j_sk];
Ysk:= true; end
else j_sk:=j_sk+1;
end;
Until Ysk = true;
end;
end;
{——- ΠΡΡΠΈΠ»Π΅Π½ΠΈΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π² ΡΠΊΠΎΠ±ΠΊΠ°Ρ Π·Π°ΠΊΠΎΠ½ΡΠ΅Π½ΠΎ ——-}
//showmessage (Gl_massiv[0]);
Vivod:= Gl_massiv[0];
end; // ΠΠΎΠ½Π΅Ρ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ
{————————————————————————————}
procedure TForm1. Button_ItogoClick (Sender: TObject);
Var
a, b, h:real; //ΠΡΡΠ΅Π·ΠΎΠΊ Π°, b ΠΈ ΡΠ°Π³ h
Fx, Fa, Fb: Real; //Π Π΅Π·ΡΠ»ΡΡΠ°Ρ ΠΈ ΡΡΠΌΠΌΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ F (xi)
My_vivod:string;//ΠΠ½Π°ΡΠ΅Π½ΠΈΠ΅ F (xi)
mas, z, j:integer; //ΠΠΎΠΌΠ΅Ρ ΡΡΠ΅ΠΉΠΊΠΈ ΠΌΠ°ΡΡΠΈΠ²Π°
i:integer; //ΠΠΎΠΌΠ΅Ρ ΡΠΈΠΌΠ²ΠΎΠ»Π° Π² ΡΡΡΠΎΠΊΠ΅ ΡΠΎΡΠΌΡΠ»
s, st, ch: string; //Π‘ΠΈΠΌΠ²ΠΎΠ»
// ΠΡΠ»Π΅Π²ΡΠΉ ΡΠΈΠΏ (Π»ΠΎΠΆΡ) ΠΈΠ»ΠΈ (ΠΡΡΠΈΠ½Π°) Π΄Π»Ρ Π²ΡΡ ΠΎΠ΄Π° ΠΈΠ· ΡΠΈΠΊΠ»Π° ΠΏΠΎΠ΄ΡΡΠ΅ΡΠ° ΡΠΈΡΡ
Bool:Boolean;
//ΠΠ°ΡΡΠΈΠ² ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² ΡΠΎΡΠΌΡΠ»Ρ
My_massiv:Array [0.100] of string;
begin
//ΠΡΠΈΡΠ²ΠΎΠ΅Π½ΠΈΠ΅ ΠΊ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΠΎΡΡΠ΅Π·ΠΊΠ° Π°, b ΠΈ ΡΠ°Π³Π° h
a:= StrToFloat (Edit_A.Text);
b:= StrToFloat (Edit_B.Text);
h:=StrToFloat (Edit_Int.Text);
z:=0;
// ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ Xi Π½Π° ΠΎΡΡΠ΅Π·ΠΊΠ΅ a, b Ρ ΡΠ°Π³ΠΎΠΌ h
Repeat
Begin //ΠΠ°ΡΠ°Π»ΠΎ ΡΠΈΠΊΠ»Π°
//ΠΡΠ²ΠΎΠ΄ Π² ΠΌΠ°ΡΡΠΈΠ² Π·Π½Π°ΡΠ΅Π½ΠΈΡ Xi
SS.Cells[0,z]: = FloatToStr (a);
z:=z+1; //ΠΠ΅ΡΠ΅Ρ ΠΎΠ΄ Π½Π° ΡΡΠ΅ΠΉΠΊΡ Π½ΠΈΠΆΠ΅
a:=a+h; //Π¨Π°Π³
end;
Until a > b; //ΠΡΠΎΠ΄ΠΎΠ»ΠΆΠ΅Π½ΠΈΠ΅ ΡΠΈΠΊΠ»Π° Π΄ΠΎ ΠΊΠΎΠ½ΡΠ° ΠΎΡΡΠ΅Π·ΠΊΠ° Π°, b
mas:=0;
//ΠΡΠ²ΠΎΠ΄ Π²ΡΠ΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ F (xi) Π² ΠΌΠ°ΡΡΠΈΠ²
Repeat
begin
i:=1; j:=1;
Repeat
//ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ F (xi) ΠΈ Π²ΡΠ²ΠΎΠ΄ Π² ΠΌΠ°ΡΡΠΈΠ²
Begin
s:= Copy (Edit_F.text, i,1); //ΠΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ i-ΠΉ ΡΠΈΠΌΠ²ΠΎΠ» Π² ΡΡΡΠΎΠΊΠ΅ ΡΠΎΡΠΌΡΠ»
//ΠΡΠΎΠ²Π΅ΡΠΊΠ° Π½Π° Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π½Π°ΡΡΡΠ°Π»ΡΠ½ΠΎΠ³ΠΎ Π»ΠΎΠ³Π°ΡΠΈΡΠΌΠ°
if s='l' then Begin
s:='ln'; i:= i+1; end;
//ΠΡΠΎΠ²Π΅ΡΠΊΠ° Π½Π° Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΊΠΎΡΠΈΠ½ΡΡΠ°
if s='c' then Begin
s:='cos'; i:= i+2; end;
//ΠΡΠΎΠ²Π΅ΡΠΊΠ° Π½Π° Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠΈΠ½ΡΡΠ° ΠΈΠ»ΠΈ ΠΊΠΎΡΠ½Ρ
if s='s' then Begin
i:= i+1; st:= Copy (Edit_F.text, i,1);
if st='i' then begin
s:='sin'; i:=i+1; end
else begin s:='sqrt'; i:=i+2; end; end;
//ΠΡΠΎΠ²Π΅ΡΠΊΠ° Π½Π° Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠΈΡΡΡ
if (s='0') or (s='1') or (s='2')or (s='3')or (s='4')
or (s='5')or (s='6')or (s='7')or (s='8')or (s='9') then
Begin
ch:=s; Bool:=False;
Repeat
Begin
i:=i+1; // ΠΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅ ΠΊ ΡΠ»Π΅Π΄. ΡΠΈΠΌΠ²ΠΎΠ»Ρ
s:= Copy (Edit_F.text, i,1); //ΠΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ i-ΠΉ ΡΠΈΠΌΠ²ΠΎΠ» Π² ΡΡΡΠΎΠΊΠ΅ ΡΠΎΡΠΌΡΠ»
//ΠΡΠΎΠ²Π΅ΡΠΊΠ° Π½Π° Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠΈΡΡΡ
if (s='0') or (s='1') or (s='2')or (s='3')or (s='4')
or (s='5')or (s='6')or (s='7')or (s='8')or (s='9')or (s=',') then
Begin //ΠΡΠ»ΠΈ ΠΠ°
//ΠΠ±ΡΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΠ΅ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ ΡΠΈΡΡ ΠΏΠΎΠ΄ΡΡΡ
ch:= ch+s;
end
else Bool:=True; //ΠΡΠ»ΠΈ Π½Π΅Ρ Bool — ΠΡΡΠΈΠ½Π°
end;
Until Bool=True; //ΠΡΡ ΠΎΠ΄, Π΅ΡΠ»ΠΈ Bool — ΠΡΡΠΈΠ½Π°
My_massiv[j]: = ch; j:=j+1 //ΠΠ°ΠΏΠΈΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΡΠΈΡΡ Π² ΠΌΠ°ΡΡΠΈΠ²
//ΠΡΠ»ΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π½Π΅ ΡΠΈΡΡΠ° — Π·Π°ΠΏΠΈΡΡ Π² ΠΌΠ°ΡΡΠΈΠ² ΡΠ΅ΠΊΡΡΠ΅Π³ΠΎ ΡΠΈΠΌΠ²ΠΎΠ»Π°
end else Begin My_massiv[j]: =s; j:=j+1; i:=i+1; end;
end;
//ΠΡΠΎΠ΄ΠΎΠ»ΠΆΠ΅Π½ΠΈΠ΅ ΡΠΈΠΊΠ»Π° Π΄ΠΎ ΠΊΠΎΠ½ΡΠ° ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Π° ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² Π² ΡΡΡΠΎΠΊΠ΅ ΡΠΎΡΠΌΡΠ»
Until i > Length (Edit_F.Text);
// ΠΠ·ΡΡΡ ΡΠΎΡΠΌΡΠ»Ρ Π² ΠΌΠ°ΡΡΠΈΠ²Π΅ Π² ΡΠΊΠΎΠ±ΠΊΠΈ
My_massiv[0]: ='(';
My_massiv[Length (Edit_F.Text)+1]: =')';
// ΠΡΠΈΡΠ²ΠΎΠ΅Π½ΠΈΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Ρ — Π·Π½Π°ΡΠ΅Π½ΠΈΡ xi Π² ΠΌΠ°ΡΡΠΈΠ²Π΅
For i:= 0 to 100 do begin
if My_massiv[i]= 'x' then
My_massiv[i]: = SS. Cells[0,mas];
end;
Formula (My_vivod, My_massiv[0]);
SS.Cells[1,mas]: = My_vivod; //ΠΡΠ²ΠΎΠ΄ F (xi) Π² ΠΌΠ°ΡΡΠΈΠ²
mas:=mas+1; //ΠΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅ Π² ΠΌΠ°ΡΡΠΈΠ²Π΅ Π½Π° ΡΡΡΠΎΠΊΡ Π½ΠΈΠΆΠ΅
end;
//ΠΡΠΎΠ΄ΠΎΠ»ΠΆΠ΅Π½ΠΈΠ΅ ΡΠΈΠΊΠ»Π° Π΄ΠΎ ΠΏΠΎΡΠ»Π΅Π΄Π½Π΅Π³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ xi
Until mas>z-1;
Fa:=0; i:=0; //ΠΠ±Π½ΡΠ»Π΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ
//Π‘ΡΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ F (x2,x4.xn-1)
Repeat
Begin
Fa:=Fa+StrtoFloat (SS.Cells[1,i]);
i:=i+2;
end;
Until i>=z;
i:=0;
//Π‘ΡΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ F (x1,x3.xn)
Repeat
Begin
Fb:=Fb+StrtoFloat (SS.Cells[1,i+1]);
i:=i+2;
end;
Until i>=z-1;
//ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ F (x)
Fx:=(h/3)*(StrToFloat (SS.Cells[1,0])+(4*Fb)+(2*Fa));
//ΠΡΠ²ΠΎΠ΄ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ°
Label3.Caption:= FloatToStr (h)+'/3 * ('+SS.Cells[1,0]+
' * 4*('+FloattoStr (Fb)+')+ 2*('+FloattoStr (Fa)+') = ';
Label13.Caption:=FloatToStr (Fx);
end;
procedure TForm1. Label5Click (Sender: TObject);
begin
Form2.showmodal;
end;
procedure TForm1. Button1Click (Sender: TObject);
begin
Form_help.ShowModal;
end;
end.