Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ Π½Π° Π‘, Pascal, Delphi
Π Π°ΡΡΠΌΠΎΡΡΠΈΠΌ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΡΠΎΠΉ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΈΠΈ. ΠΠΎ-ΠΏΠ΅ΡΠ²ΡΡ , ΡΡΠΎ ΡΡΠΈ Π·Π°ΡΠ΅Π·Π΅ΡΠ²ΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΡΠ»ΠΎΠ²Π°: case, of ΠΈ end. ΠΠ΅ΠΆΠ΄Ρ case ΠΈ of Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ expression, ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡΠ΅Π΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅, ΠΊΠΎΡΠΎΡΠΎΠ΅, Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ, ΠΈΠΌΠ΅Π΅ΡΡΡ Π² ΠΎΠ΄Π½ΠΎΠΌ ΠΈΠ· ΡΠΏΠΈΡΠΊΠΎΠ² Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ, Π½Π°Ρ ΠΎΠ΄ΡΡΠΈΡ ΡΡ ΡΠ»Π΅Π²Π° ΠΎΡ Π΄Π²ΠΎΠ΅ΡΠΎΡΠΈΠΉ. ΠΠ°Π½Π½ΠΎΠ΅ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ ΡΠ΅Π»Π΅ΠΊΡΠΎΡΠΎΠΌ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° case. ΠΠ°ΠΆΠ΄ΡΠΉ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ, ΠΈΠ΄ΡΡΠΈΠΉ Π·Π° Π΄Π²ΠΎΠ΅ΡΠΎΡΠΈΠ΅ΠΌ, ΠΎΡΠ΄Π΅Π»ΡΠ΅ΡΡΡ ΠΎΡ ΡΠ»Π΅Π΄ΡΡΡΠ΅Π³ΠΎ ΡΠΏΠΈΡΠΊΠ° Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΡΠΎΡΠΊΠΎΠΉ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ Π½Π° Π‘, Pascal, Delphi (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΡΡΡΠΎΠ²Π°Ρ ΡΠ°Π±ΠΎΡΠ°
Π’Π΅ΠΌΠ°: Π Π°Π·ΡΠ°Π±ΠΎΡΠΊΠ° ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠΉ Π½Π° Π‘, Pascal, Delphi
- ΠΠ³Π»Π°Π²Π»Π΅Π½ΠΈΠ΅
- ΠΠ²Π΅Π΄Π΅Π½ΠΈΠ΅
- ΠΠ»Π°Π²Π° 1. ΠΠ°Ρ ΠΎΠΆΠ΄Π΅Π½ΠΈΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π° Ρ Π·Π°Π΄Π°Π½Π½ΠΎΠΉ ΡΠΎΡΠ½ΠΎΡΡΡΡ
- 1.1 Π‘ΠΏΠΎΡΠΎΠ±Ρ Π½Π°Ρ ΠΎΠΆΠ΄Π΅Π½ΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π°
- 1.1.1 ΠΠ΅ΡΠΎΠ΄Ρ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠΎΠ²
- 1.1.2 ΠΠ΅ΡΠΎΠ΄ ΡΡΠ°ΠΏΠ΅ΡΠΈΠΉ
- 1.2 ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠ΅ ΡΡΠ΅Π΄ΡΡΠ²Π° ΡΠ·ΡΠΊΠ° C
- 1.2.1 ΠΡΠ½ΠΎΠ²Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ
- 1.2.2 Π€ΡΠ½ΠΊΡΠΈΠΈ Π² C++
- 1.3 ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠ΅ ΡΡΠ΅Π΄ΡΡΠ²Π° ΡΠ·ΡΠΊΠ° Pascal (Π²Π΅ΡΡΠΈΡ 7.0)
- 1.3.1 ΠΠ±ΡΠ΅ΠΊΡΡ Π² Pascal
- 1.3.2 ΠΠΏΠ΅ΡΠ°ΡΠΎΡ Π²ΡΠ±ΠΎΡΠ° Π² Pascal
- 1.4 ΠΠ»Π³ΠΎΡΠΈΡΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π°
- 1.5 Π’Π΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
- ΠΠ»Π°Π²Π° 2. ΠΠ±ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ² ΠΈΠ·ΠΌΠ΅ΡΠ΅Π½ΠΈΠΉ
- 2.1 Π’Π΅ΠΎΡΠ΅ΡΠΈΡΠ΅ΡΠΊΠ°Ρ ΡΠ°ΡΡΡ. ΠΠ΅ΡΠΎΠ΄ Π½Π°ΠΈΠΌΠ΅Π½ΡΡΠΈΡ ΠΊΠ²Π°Π΄ΡΠ°ΡΠΎΠ²
- 2.2 ΠΠ»Π³ΠΎΡΠΈΡΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ Π΄Π°Π½Π½ΡΡ
- 2.3 Π’Π΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
- ΠΠΈΡΡΠΈΠ½Π³ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ
- ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»ΠΎΠ² Π‘
- ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»ΠΎΠ² Pascal
- ΠΠ±ΡΠ°Π±ΠΎΡΠΊΠ° ΠΈΠ·ΠΌΠ΅ΡΠ΅Π½ΠΈΠΉ
- ΠΡΠ²ΠΎΠ΄Ρ
- Π‘ΠΏΠΈΡΠΎΠΊ Π»ΠΈΡΠ΅ΡΠ°ΡΡΡΡ
- ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅
- ΠΠ²Π΅Π΄Π΅Π½ΠΈΠ΅
- Π¦Π΅Π»ΡΡ Π½Π°ΠΏΠΈΡΠ°Π½ΠΈΡ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΠ±ΠΎΠ±ΡΠ΅Π½ΠΈΠ΅ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΡ Π·Π½Π°Π½ΠΈΠΉ, ΠΏΠΎΠ»ΡΡΠ΅Π½Π½ΡΡ ΠΏΠΎ ΠΊΡΡΡΡ «ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π½Π° ΡΠ·ΡΠΊΠ°Ρ Π²ΡΡΠΎΠΊΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ». ΠΠ½Π° ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΡ, ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠ»ΡΠΆΠ°Ρ Π΄Π»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΡ Π·Π°Π΄Π°Ρ Π² ΠΎΠ±Π»Π°ΡΡΠΈ Π²ΡΡΡΠ΅ΠΉ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΠΊΠΈ ΠΈ Ρ ΠΈΠΌΠΈΠΈ, Π½Π°ΠΏΠΈΡΠ°Π½Π½ΡΠ΅ Π½Π° ΡΠ·ΡΠΊΠ°Ρ , ΠΎΡΠ²ΠΎΠ΅Π½Π½ΡΡ ΠΌΠ½ΠΎΠΉ Π·Π° Π²ΡΠ΅ΠΌΡ ΡΡΠ΅Π½ΠΈΡ ΠΊΡΡΡΠ°: Π‘++, Borland Pascal 7.0, Delphi 7.0.
- Π Π΄Π°Π½Π½ΠΎΠΉ Π·Π°ΠΏΠΈΡΠΊΠ΅ Ρ ΠΏΠΎΡΡΠ½ΡΡ ΡΠ΅ΠΎΡΠ΅ΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΎΡΠ½ΠΎΠ²Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Π½ΡΡ Π² ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ ΡΠ·ΡΠΊΠΎΠ² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΈ Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ ΡΠ΅ΠΎΡΠ΅ΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΎΡΠ½ΠΎΠ²Ρ ΠΌΠ°ΡΠ΅ΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ³ΠΎ Π°Π½Π°Π»ΠΈΠ·Π° ΠΈ Ρ ΠΈΠΌΠΈΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΏΠΎΠ·Π²ΠΎΠ»ΠΈΠ»ΠΈ ΠΌΠ½Π΅ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°ΡΡ ΡΠΈΡΡΠ΅ΠΌΠ½ΡΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ.
- ΠΠ»Π°Π²Π° 1. ΠΠ°Ρ ΠΎΠΆΠ΄Π΅Π½ΠΈΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π° Ρ Π·Π°Π΄Π°Π½Π½ΠΎΠΉ ΡΠΎΡΠ½ΠΎΡΡΡΡ
1.1 Π‘ΠΏΠΎΡΠΎΠ±Ρ Π½Π°Ρ ΠΎΠΆΠ΄Π΅Π½ΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π°
Π§ΠΈΡΠ»Π΅Π½Π½ΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄Ρ ΠΎΡΠ½ΠΎΠ²Π°Π½Ρ Π½Π° Π·Π°ΠΌΠ΅Π½Π΅ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π°
I=
ΠΊΠΎΠ½Π΅ΡΠ½ΠΎΠΉ ΡΡΠΌΠΌΠΎΠΉ
=
Π³Π΄Π΅ — ΡΠΈΡΠ»ΠΎΠ²ΡΠ΅ ΠΊΠΎΡΡΡΠΈΡΠΈΠ΅Π½ΡΡ, — ΡΠΎΡΠΊΠΈ ΠΎΡΡΠ΅Π·ΠΊΠ° [a; b], k=0, 1, …, n. ΠΡΠΈΠ±Π»ΠΈΠΆΡΠ½Π½ΠΎΠ΅ ΡΠ°Π²Π΅Π½ΡΡΠ²ΠΎ ?, «Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ ΠΊΠ²Π°Π΄ΡΠ°ΡΡΡΠ½ΠΎΠΉ ΡΠΎΡΠΌΡΠ»ΠΎΠΉ, ΠΊΠΎΡΡΡΠΈΡΠΈΠ΅Π½ΡΡ — ΠΊΠΎΡΡΡΠΈΡΠΈΠ΅Π½ΡΠ°ΠΌΠΈ ΠΊΠ²Π°Π΄ΡΠ°ΡΡΡΠ½ΠΎΠΉ ΡΠΎΡΠΌΡΠ»Ρ, — ΡΠ·Π»Π°ΠΌΠΈ ΠΊΠ²Π°Π΄ΡΠ°ΡΡΡΠ½ΠΎΠΉ ΡΠΎΡΠΌΡΠ»Ρ». ΠΡΠΊΠ»ΠΎΠ½Π΅Π½ΠΈΠ΅ ΠΎΡ ΡΠΎΡΠ½ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π·Π°Π²ΠΈΡΠΈΡ ΠΎΡ ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΡΠ·Π»ΠΎΠ² ΡΠΎΡΠΌΡΠ»Ρ, Π²ΡΠ±ΠΎΡΠ° ΠΊΠΎΡΡΡΠΈΡΠΈΠ΅Π½ΡΠΎΠ² ΠΈ Ρ Π°ΡΠ°ΠΊΡΠ΅ΡΠ° ΡΡΠ½ΠΊΡΠΈΠΈ.
1.1.1 ΠΠ΅ΡΠΎΠ΄Ρ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠΎΠ²
ΠΠ΅ΡΠΎΠ΄Ρ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠΎΠ² ΠΎΡΠ½ΠΎΠ²Π°Π½Ρ Π½Π° ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΠΈ ΡΠΈΠ³ΡΡΡ ΠΏΠΎΠ΄ Π³ΡΠ°ΡΠΈΠΊΠΎΠΌ ΡΡΠ½ΠΊΡΠΈΠΈ Π² Π²ΠΈΠ΄Π΅ ΡΡΡΠΏΠ΅Π½ΡΠ°ΡΠΎΠΉ ΡΠΈΠ³ΡΡΡ, ΡΠΎΡΡΠΎΡΡΠ΅ΠΉ ΠΈΠ· ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠΎΠ². ΠΡΡΠ΅Π·ΠΎΠΊ ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ Π΄Π΅Π»ΠΈΡΡΡ ΡΠΎΡΠΊΠ°ΠΌΠΈ Π½Π° ΠΎΡΡΠ΅Π·ΠΊΠΈ Π΄Π»ΠΈΠ½ΠΎΠΉ =. ΠΠ°ΡΠ΅ΠΌ ΠΏΠΎΠ»ΡΡΠ°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΈ Π² ΡΠ·Π»Π°Ρ ΡΠΎΡΠΌΡΠ»Ρ: ΠΈ ΡΡΠΈΡΠ°ΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΡΠΌΠΌ (.
ΠΡΠ»ΠΈΡΠΈΠ΅ ΡΠΎΡΠΌΡΠ» Π½Π°Ρ ΠΎΠΆΠ΄Π΅Π½ΠΈΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π° ΠΏΠΎ ΠΌΠ΅ΡΠΎΠ΄Π°ΠΌ Π»Π΅Π²ΡΡ , ΠΏΡΠ°Π²ΡΡ ΠΈ ΡΡΠ΅Π΄Π½ΠΈΡ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠΎΠ² ΡΠΎΡΡΠΎΠΈΡ Π² ΡΠΎΠΌ, Π² ΠΊΠ°ΠΊΠΎΠΉ ΡΠ°ΡΡΠΈ ΠΎΡΡΠ΅Π·ΠΊΠ°; ] ΡΡΠΈΡΠ°Π΅ΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅: Π΅ΡΠ»ΠΈ Π² ΡΠΎΡΠΊΠ΅ ΠΌΠ΅ΡΠΎΠ΄ Π»Π΅Π²ΡΡ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠΎΠ², Π΅ΡΠ»ΠΈ Π² — ΠΌΠ΅ΡΠΎΠ΄ ΠΏΡΠ°Π²ΡΡ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠΎΠ², Π΅ΡΠ»ΠΈ Π² ΡΠ΅ΡΠ΅Π΄ΠΈΠ½Π΅ ΠΎΡΡΠ΅Π·ΠΊΠ° — ΠΌΠ΅ΡΠΎΠ΄ ΡΡΠ΅Π΄Π½ΠΈΡ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠΎΠ².
1.1.2 ΠΠ΅ΡΠΎΠ΄ ΡΡΠ°ΠΏΠ΅ΡΠΈΠΉ
ΠΠ°Π½Π½ΡΠΉ ΠΌΠ΅ΡΠΎΠ΄ ΡΠΎΡΡΠΎΠΈΡ Π² Π°ΠΏΠΏΡΠΎΠΊΡΠΈΠΌΠ°ΡΠΈΠΈ Π³ΡΠ°ΡΠΈΠΊΠ° ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΡΡΠΌΠΎΠΉ, ΠΏΡΠΎΡ ΠΎΠ΄ΡΡΠ΅ΠΉ ΡΠ΅ΡΠ΅Π· ΠΊΠΎΠ½Π΅ΡΠ½ΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ. ΠΠ»ΠΎΡΠ°Π΄Ρ ΡΡΠ°ΠΏΠ΅ΡΠΈΠΈ Π½Π° ΠΎΡΡΠ΅Π·ΠΊΠ΅; ] Π²ΡΡΠΈΡΠ»ΡΠ΅ΡΡΡ ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π΅
=()
Π’ΠΎΠ³Π΄Π° Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π° Π½Π° ΡΡΠΎΠΌ ΠΎΡΡΠ΅Π·ΠΊΠ΅ Π²ΡΡΠΈΡΠ»ΡΠ΅ΡΡΡ ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π΅
1.2 ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠ΅ ΡΡΠ΅Π΄ΡΡΠ²Π° ΡΠ·ΡΠΊΠ° C
1.2.1 ΠΡΠ½ΠΎΠ²Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ
Π ΡΠ·ΡΠΊΠ΅ Π‘++ ΠΊΠ»Π°ΡΡ — ΡΡΠΎ ΡΠΈΠΏ. «ΠΠ»Π°ΡΡ — ΡΡΠΎ ΡΠΎΠ±ΡΠ°Π½ΠΈΠ΅ ΡΠ²ΡΠ·Π°Π½Π½ΠΎΠΉ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ, ΠΊΠΎΡΠΎΡΠ°Ρ Π²ΠΊΠ»ΡΡΠ°Π΅Ρ Π² ΡΠ΅Π±Ρ Π΄Π°Π½Π½ΡΠ΅ ΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ (ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ Ρ Π΄Π°Π½Π½ΡΠΌΠΈ). ΠΡΠΈ ΡΡΠ½ΠΊΡΠΈΠΈ Π² ΠΊΠ°Π»Π°ΡΡΠ°Ρ Π½Π°Π·ΡΠ²Π°ΡΡΡΡ ΠΌΠ΅ΡΠΎΠ΄Π°ΠΌΠΈ. ΠΠ»Π°ΡΡ — ΡΡΠΎ Π΄Π°Π»ΡΠ½Π΅ΠΉΡΠ΅Π΅ ΡΠ°Π·Π²ΠΈΡΠΈΠ΅ ΡΡΡΡΠΊΡΡΡ: Π² Π½ΠΈΡ ΡΠ°ΠΊ ΠΆΠ΅ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½ΡΡΡΡΡ Π΄Π°Π½Π½ΡΠ΅ ΡΠ°Π·Π½ΡΡ ΡΠΈΠΏΠΎΠ². ΠΡΠΎ ΡΠ°ΠΊΠΎΠΉ ΠΆΠ΅ ΡΠ°Π±Π»ΠΎΠ½, ΠΏΠΎΠ΄ ΠΊΠΎΡΠΎΡΡΠΉ (ΠΊΠ°ΠΊ ΠΈ ΠΏΠΎΠ΄ ΡΡΡΡΠΊΡΡΡΡ) ΠΏΠ°ΠΌΡΡΡ Π²ΡΠ΄Π΅Π»ΡΠ΅ΡΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΡΠΎΠ³Π΄Π°, ΠΊΠΎΠ³Π΄Π° ΠΌΡ ΡΠΎΠ·Π΄Π°ΡΠΌ «ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΡΠΈΠΏΠ° ΡΡΠΎΠ³ΠΎ ΡΠ°Π±Π»ΠΎΠ½Π°». ΠΠ»Π°ΡΡ — ΡΡΠΎ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΈΡ, ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΈΡΠ΅ΡΠΊΠΈ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡΠ°Ρ Π½Π΅ΠΊΠΎΡΠΎΡΡΡ ΠΊΠ°ΡΠ΅Π³ΠΎΡΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ²"[3].
ΠΡΠ½ΠΎΠ²Π½ΡΠ΅ ΠΏΡΠΈΠ½ΡΠΈΠΏΡ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ ΠΊΠ»Π°ΡΡΠΎΠ² — ΠΈΠ½ΠΊΠ°ΠΏΡΡΠ»ΡΡΠΈΡ, Π½Π°ΡΠ»Π΅Π΄ΠΎΠ²Π°Π½ΠΈΠ΅, ΠΏΠΎΠ»ΠΈΠΌΠΎΡΡΠΈΠ·ΠΌ.
ΠΠ½ΠΊΠ°ΠΏΡΡΠ»ΡΡΠΈΡ — ΠΏΡΠΈΠ½ΡΠΈΠΏ ΠΎΠ±ΡΠ΅Π΄ΠΈΠ½Π΅Π½ΠΈΡ Π² Π΅Π΄ΠΈΠ½ΠΎΠΌ ΠΎΠ±ΡΠ΅ΠΊΡΠ΅ Π΄Π°Π½Π½ΡΡ ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ, ΠΎΠ±ΡΠ°Π±Π°ΡΡΠ²Π°ΡΡΠΈΡ ΠΈΡ . ΠΡΠΈ ΡΡΠΎΠΌ ΠΠ°Π½Π½ΡΠ΅ Π½Π°Π·ΡΠ²Π°ΡΡΡΡ Π΄Π°Π½Π½ΡΠΌΠΈ-ΡΠ»Π΅Π½Π°ΠΌΠΈ, Π° ΠΏΠΎΡΡΡΠΎΠ΅Π½Π½ΡΠ΅ Π² Π²ΠΈΠ΄Π΅ ΡΡΠ½ΠΊΡΠΈΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ, ΠΎΠ±ΡΠ°Π±Π°ΡΡΠ²Π°ΡΡΠΈΠ΅ ΠΈΡ , — ΡΠ»Π΅Π½Π°ΠΌΠΈ-ΡΡΠ½ΠΊΡΠΈΡΠΌΠΈ ΠΈΠ»ΠΈ ΠΌΠ΅ΡΠΎΠ΄Π°ΠΌΠΈ.
ΠΠ°ΡΠ»Π΅Π΄ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠ΅Π΄ΠΏΠΎΠ»Π°Π³Π°Π΅Ρ, ΡΡΠΎ Π²ΡΠ΅ Ρ Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΡΡΠΈΠΊΠΈ ΠΊΠ»Π°ΡΡΠ°-ΡΠΎΠ΄ΠΈΡΠ΅Π»Ρ ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°ΡΡΡΡ ΠΊΠ»Π°ΡΡΡ-ΠΏΠΎΡΠΎΠΌΠΊΡ. ΠΠ΅ΠΊΠΎΡΠΎΡΡΠ΅ ΠΈΠ· Π½ΠΈΡ ΠΌΠΎΠ³ΡΡ ΠΏΠ΅ΡΠ΅ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΡΡΡΡ. ΠΠΎΡΠ»Π΅ ΡΡΠΎΠ³ΠΎ ΠΏΠΎΡΠΎΠΌΠΊΡ Π΄ΠΎΠ±Π°Π²Π»ΡΡΡΡΡ Π½ΠΎΠ²ΡΠ΅ Ρ Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΡΡΠΈΠΊΠΈ.
ΠΠΎΠ»ΠΈΠΌΠΎΡΡΠΈΠ·ΠΌ ΠΏΠΎΠ½ΠΈΠΌΠ°Π΅Ρ ΠΏΠΎΠ΄ ΡΠΎΠ±ΠΎΠΉ ΡΠΎ, ΡΡΠΎ «ΡΠΎΠ΄ΡΡΠ²Π΅Π½Π½ΡΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΡ (ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΡΡΠΈΠ΅ ΠΎΡ ΡΠΎΠ΄ΠΈΡΠ΅Π»Ρ) ΠΌΠΎΠ³ΡΡ Π²Π΅ΡΡΠΈ ΡΠ΅Π±Ρ ΠΏΠΎ-ΡΠ°Π·Π½ΠΎΠΌΡ Π² Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ ΡΠΈΡΡΠ°ΡΠΈΠΈ, Π²ΠΎΠ·Π½ΠΈΠΊΠ°ΡΡΠ΅ΠΉ ΠΏΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. ΠΠΎΠ»ΠΈΠΌΠΎΡΡΠΈΠ·ΠΌ ΡΡΠ°Π½ΠΎΠ²ΠΈΡΡΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΡΠΌ ΠΏΠΎΡΠΎΠΌΡ, ΡΡΠΎ ΡΡΠ½ΠΊΡΠΈΡΠΌ ΠΊΠ»Π°ΡΡΠ°-ΡΠΎΠ΄ΠΈΡΠ΅Π»Ρ ΠΏΠΎΠ·Π²ΠΎΠ»Π΅Π½ΠΎ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ Π² ΠΊΠ»Π°ΡΡΠ΅-ΠΏΠΎΡΠΎΠΌΠΊΠ΅."[3]
Π‘ΡΡΡΠΊΡΡΡΠ° ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΡ ΠΊΠ»Π°ΡΡΠ°:
Class <οΏ½ΠΈΠΌΡ ΠΊΠ»Π°ΡΡΠ°>
{Private: /ΠΠΌΡ ΡΠ΅ΠΊΡΠΈΠΈ. ΠΠ°Π½Π½ΡΠ΅ ΠΈ ΠΌΠ΅ΡΠΎΠ΄Ρ, ΠΏΠΎΠΌΠ΅ΡΡΠ½Π½ΡΠ΅ Π² ΡΡΡ ΡΠ΅ΠΊΡΠΈΡ, Π±ΡΠ΄ΡΡ Π΄ΠΎΡΡΡΠΏΠ½Ρ ΡΠΎΠ»ΡΠΊΠΎ ΠΌΠ΅ΡΠΎΠ΄Π°ΠΌ ΡΡΠΎΠ³ΠΎ ΠΊΠ»Π°ΡΡΠ°. ΠΠΎΡΡΡΠΏ ΠΊ Π½ΠΈΠΌ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄Π½ΡΠΌ ΠΊΠ»Π°ΡΡΠ°ΠΌ Π·Π°ΠΏΡΠ΅ΡΡΠ½*/
<οΏ½ΠΡΠΈΠ²Π°ΡΠ½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅>
<οΏ½ΠΡΠΈΠ²Π°ΡΠ½ΡΠ΅ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΎΡΡ>
<οΏ½ΠΡΠΈΠ²Π°ΡΠ½ΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄Ρ>
Protected: /ΠΠΌΡ ΡΠ΅ΠΊΡΠΈΠΈ. ΠΠ°Π½Π½ΡΠ΅ ΠΈ ΠΌΠ΅ΡΠΎΠ΄Ρ, ΠΏΠΎΠΌΠ΅ΡΡΠ½Π½ΡΠ΅ Π² ΡΡΡ ΡΠ΅ΠΊΡΠΈΡ, Π±ΡΠ΄ΡΡ Π΄ΠΎΡΡΡΠΏΠ½Ρ ΠΌΠ΅ΡΠΎΠ΄Π°ΠΌ ΡΡΠΎΠ³ΠΎ ΠΊΠ»Π°ΡΡΠ° ΠΈ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄Π½ΡΠΌ ΠΎΡ Π½Π΅Π³ΠΎ*/
<οΏ½ΠΠ°ΡΠΈΡΡΠ½Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅>
< ΠΠ°ΡΠΈΡΡΠ½Π½ΡΠ΅ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΎΡΡ>
< ΠΠ°ΡΠΈΡΡΠ½Π½ΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄Ρ>
Public: /ΠΠΌΡ ΡΠ΅ΠΊΡΠΈΠΈ. ΠΠ°Π½Π½ΡΠ΅ ΠΈ ΠΌΠ΅ΡΠΎΠ΄Ρ, ΠΏΠΎΠΌΠ΅ΡΡΠ½Π½ΡΠ΅ Π² ΡΡΡ ΡΠ΅ΠΊΡΠΈΡ, Π±ΡΠ΄ΡΡ Π΄ΠΎΡΡΡΠΏΠ½Ρ ΠΌΠ΅ΡΠΎΠ΄Π°ΠΌ Π²ΡΠ΅Ρ ΠΊΠ»Π°ΡΡΠΎΠ²*/
< ΠΠ±ΡΠ΅Π΄ΠΎΡΡΡΠΏΠ½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅>
< ΠΠ±ΡΠ΅Π΄ΠΎΡΡΡΠΏΠ½ΡΠ΅ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΎΡΡ>
< ΠΠ±ΡΠ΅Π΄ΠΎΡΡΡΠΏΠ½ΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄Ρ>};
1.2.2 Π€ΡΠ½ΠΊΡΠΈΠΈ Π² C++
ΠΠ°ΠΊ Π±ΡΠ»ΠΎ Π½Π°ΠΏΠΈΡΠ°Π½ΠΎ Π²ΡΡΠ΅, ΠΌΠ΅ΡΠΎΠ΄Ρ ΠΊΠ»Π°ΡΡΠΎΠ² ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡ ΡΠΎΠ±ΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ. Π Π°ΡΡΠΌΠΎΡΡΠΈΠΌ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΉ Π² C++.
Π€ΡΠ½ΠΊΡΠΈΡ — Π½Π΅Π·Π°Π²ΠΈΡΠΈΠΌΠΎΠ΅ ΠΌΠ½ΠΎΠΆΠ΅ΡΡΠ²ΠΎ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠΎΠ² Π΄Π»Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Π½Π΅ΠΊΠΎΡΠΎΡΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ. Π‘ΡΡΡΠΊΡΡΡΠ° ΡΡΠ½ΠΊΡΠΈΠΉ Π² Π‘/Π‘++:
ΠΠ°Π³ΠΎΠ»ΠΎΠ²ΠΎΠΊ_ΡΡΠ½ΠΊΡΠΈΠΈ
{Π’Π΅Π»ΠΎ_ΡΡΠ½ΠΊΡΠΈΠΈ}
Π Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΡΠΊΠ°Π·ΡΠ²Π°ΡΡΡΡ ΠΎΠΏΠΈΡΠ°ΡΠ΅Π»Ρ ΡΠΈΠΏΠ°, ΠΈΠΌΡ, ΡΠΏΠΈΡΠΎΠΊ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ². ΠΠΏΠΈΡΠ°ΡΠ΅Π»Ρ ΡΠΈΠΏΠ° ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅Ρ ΡΠΈΠΏ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅ΠΌΠΎΠ³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π² Π²ΡΠ·ΡΠ²Π°Π΅ΠΌΡΡ ΡΡΠ½ΠΊΡΠΈΡ. ΠΡΠ»ΠΈ ΡΡΠ½ΠΊΡΠΈΡ Π½Π΅ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ Π½ΠΈΠΊΠ°ΠΊΠΎΠ³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ, ΡΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄Π½ΡΠΉ ΡΠΈΠΏ void. ΠΠΎ ΡΠΌΠΎΠ»ΡΠ°Π½ΠΈΡ ΠΏΡΠΈΠΌΠ΅Π½ΡΠ΅ΡΡΡ ΡΠΈΠΏ int.
«ΠΠΏΠΈΡΠ°ΡΠ΅Π»Ρ ΡΠΈΠΏΠ° Π² Π·Π°Π³ΠΎΠ»ΠΎΠ²ΠΊΠ΅ Π΄ΠΎΠ»ΠΆΠ΅Π½ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΎΠ²Π°ΡΡ ΠΎΠΏΠΈΡΠ°ΡΠ΅Π»Ρ ΡΠΈΠΏΠ°, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΠΎΠΌΡ ΠΏΡΠΈ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠΈ Π΄Π°Π½Π½ΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ.
ΠΠΌΡ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΠΎΠ±ΠΎΠΉ Π»ΡΠ±ΠΎΠΉ ΠΈΠ΄Π΅Π½ΡΠΈΡΠΈΠΊΠ°ΡΠΎΡ ΡΠ·ΡΠΊΠ° Π‘ΠΈ. ΠΠΎΡΠ»Π΅ ΠΈΠΌΠ΅Π½ΠΈ ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½Ρ ΠΊΡΡΠ³Π»ΡΠ΅ ΡΠΊΠΎΠ±ΠΊΠΈ, Π½Π΅Π·Π°Π²ΠΈΡΠΈΠΌΠΎ ΠΎΡ ΡΠΎΠ³ΠΎ, ΠΈΠΌΠ΅Π΅Ρ Π»ΠΈ ΡΡΠ½ΠΊΡΠΈΡ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ."[2]
Π‘ΠΏΠΈΡΠΎΠΊ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² — ΡΡΠΎ ΡΠΏΠΈΡΠΎΠΊ ΠΈΠΌΡΠ½ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ , ΠΊΠΎΡΠΎΡΡΠΌ Π±ΡΠ΄ΡΡ ΡΡΠ°Π²ΠΈΡΡΡΡ Π² ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΠΈΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠΎΠ² ΠΏΡΠΈ ΠΎΠ±ΡΠ°ΡΠ΅Π½ΠΈΠΈ ΠΊ ΡΡΠ½ΠΊΡΠΈΠΈ.
ΠΡΠΈΠΌΠ΅Ρ ΡΡΠ½ΠΊΡΠΈΠΈ:
float spf1(float x)
{return x*x;}
ΠΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΊ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΏΡΠΎΠΈΡΡ ΠΎΠ΄ΠΈΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ:
s=s+spf1(x)*h;
Π Π΄Π°Π½Π½ΠΎΠΌ ΡΠ°Π·Π΄Π΅Π»Π΅ ΠΌΠΎΠ΅ΠΉ ΠΏΠΎΡΡΠ½ΠΈΡΠ΅Π»ΡΠ½ΠΎ Π·Π°ΠΏΠΈΡΠΊΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Ρ Π΄Π°Π»Π΅ΠΊΠΎ Π½Π΅ Π²ΡΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠ΅ ΡΡΠ΅Π΄ΡΡΠ²Π° Π‘ ΠΈ Π‘++, Π° ΡΠΎΠ»ΡΠΊΠΎ ΡΠ°ΠΌΡΠ΅ Π½ΠΎΠ²ΡΠ΅ ΠΈ Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ ΡΠ»ΠΎΠΆΠ½ΡΠ΅ Π½Π° ΠΌΠΎΠΉ Π²Π·Π³Π»ΡΠ΄.
1.3 ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠ΅ ΡΡΠ΅Π΄ΡΡΠ²Π° ΡΠ·ΡΠΊΠ° Pascal (Π²Π΅ΡΡΠΈΡ 7.0)
1.3.1 ΠΠ±ΡΠ΅ΠΊΡΡ Π² Pascal
ΠΡΠΈΠ½ΡΠΈΠΏΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΈ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² ΠΠΠ ΡΡ ΠΎΠΆΠΈ Ρ ΡΠ°Π·Π½ΡΡ ΡΠ·ΡΠΊΠΎΠ². Π Pascal, ΠΊΠ°ΠΊ ΠΈ Π² Π‘. ΠΡΠΎ Π½Π°ΡΠ»Π΅Π΄ΠΎΠ²Π°Π½ΠΈΠ΅, ΠΈΠ½ΠΊΠ°ΠΏΡΡΠ»ΡΡΠΈΡ ΠΈ ΠΏΠΎΠ»ΠΈΠΌΠΎΡΡΠΈΠ·ΠΌ. ΠΠΎΡΡΠΎΠΌΡ Ρ ΠΎΠΏΠΈΡΡ ΡΠΎΠ»ΡΠΊΠΎ ΡΡΡΡΠΊΡΡΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ°, ΠΊΠΎΡΠΎΡΡΠΉ ΡΠ²Π»ΡΠ΅ΡΡΡ Π°Π½Π°Π»ΠΎΠ³ΠΎΠΌ ΠΊΠ»Π°ΡΡΠ° Π² Π‘.
ΠΠ»Ρ ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ° ΡΠ»ΡΠΆΠΈΡ Π·Π°ΡΠ΅Π·Π΅ΡΠ²ΠΈΡΠΎΠ²Π°Π½Π½ΠΎΠ΅ ΡΠ»ΠΎΠ²ΠΎ object. ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ Π² ΡΠ°Π·Π΄Π΅Π»Π΅ ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ ΡΠΈΠΏΠΎΠ².
type
LevPr = object
Private
{ΡΠΊΠ·Π΅ΠΌΠΏΠ»ΡΡΡ ΡΠΊΡΡΡΡ ΠΎΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ}
Public
{ΡΠΊΠ·Π΅ΠΌΠΏΠ»ΡΡΡ Π΄ΠΎΡΡΡΠΏΠ½Ρ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ}
end;
ΠΠ°ΠΊ ΠΌΠΎΠΆΠ½ΠΎ Π·Π°ΠΌΠ΅ΡΠΈΡΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² Π² Pascal ΠΎΡΠ΅Π½Ρ ΠΏΠΎΡ ΠΎΠΆΠ΅ Π½Π° ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΊΠ»Π°ΡΡΠΎΠ² Π² Π‘.
1.3.2 ΠΠΏΠ΅ΡΠ°ΡΠΎΡ Π²ΡΠ±ΠΎΡΠ° Π² Pascal
ΠΡΠ»ΠΈ ΠΏΡΠ΅Π΄ΡΡΠΎΠΈΡ Π²ΡΠ±ΠΎΡ ΠΈΠ· Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΈΡ (ΡΡΡΡ ΠΈ Π±ΠΎΠ»Π΅Π΅ ΡΠ»ΡΡΠ°Π΅Π²) ΡΠ΄ΠΎΠ±Π½ΠΎ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π½Π΅ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΡ if, Π° ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ Π²ΡΠ±ΠΎΡΠ° case. ΠΠΏΠ΅ΡΠ°ΡΠΎΡ ΠΈΠΌΠ΅Π΅Ρ Π²ΠΈΠ΄
case expression of
values_l: statement_l;
values2: statement2;
…
values_n: statement_n;
else
statement;
end;
Π Π°ΡΡΠΌΠΎΡΡΠΈΠΌ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΡΠΎΠΉ ΠΊΠΎΠ½ΡΡΡΡΠΊΡΠΈΠΈ. ΠΠΎ-ΠΏΠ΅ΡΠ²ΡΡ , ΡΡΠΎ ΡΡΠΈ Π·Π°ΡΠ΅Π·Π΅ΡΠ²ΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΡΠ»ΠΎΠ²Π°: case, of ΠΈ end. ΠΠ΅ΠΆΠ΄Ρ case ΠΈ of Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ expression, ΠΏΡΠΈΠ½ΠΈΠΌΠ°ΡΡΠ΅Π΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅, ΠΊΠΎΡΠΎΡΠΎΠ΅, Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ, ΠΈΠΌΠ΅Π΅ΡΡΡ Π² ΠΎΠ΄Π½ΠΎΠΌ ΠΈΠ· ΡΠΏΠΈΡΠΊΠΎΠ² Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ, Π½Π°Ρ ΠΎΠ΄ΡΡΠΈΡ ΡΡ ΡΠ»Π΅Π²Π° ΠΎΡ Π΄Π²ΠΎΠ΅ΡΠΎΡΠΈΠΉ. ΠΠ°Π½Π½ΠΎΠ΅ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅ Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ ΡΠ΅Π»Π΅ΠΊΡΠΎΡΠΎΠΌ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° case. ΠΠ°ΠΆΠ΄ΡΠΉ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ, ΠΈΠ΄ΡΡΠΈΠΉ Π·Π° Π΄Π²ΠΎΠ΅ΡΠΎΡΠΈΠ΅ΠΌ, ΠΎΡΠ΄Π΅Π»ΡΠ΅ΡΡΡ ΠΎΡ ΡΠ»Π΅Π΄ΡΡΡΠ΅Π³ΠΎ ΡΠΏΠΈΡΠΊΠ° Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΡΠΎΡΠΊΠΎΠΉ Ρ Π·Π°ΠΏΡΡΠΎΠΉ. ΠΠ΅ΡΠ²Ρ else, ΠΎΡΠ²Π΅ΡΠ°ΡΡΠ°Ρ Π²ΡΠ΅ΠΌ Π½Π΅ ΠΏΠ΅ΡΠ΅ΡΠΈΡΠ»Π΅Π½Π½ΡΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΡΠΌ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΡ expression, Π½Π΅ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½Π°. ΠΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° Π²Π½Π°ΡΠ°Π»Π΅ Π²ΡΡΠΈΡΠ»ΡΠ΅ΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠ΅Π»Π΅ΠΊΡΠΎΡΠ°. ΠΠ°ΡΠ΅ΠΌ Π²ΡΠ±ΠΈΡΠ°Π΅ΡΡΡ ΡΠΎΡ ΡΠΏΠΈΡΠΎΠΊ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ, ΠΊΠΎΡΠΎΡΠΎΠΌΡ ΠΏΡΠΈΠ½Π°Π΄Π»Π΅ΠΆΠΈΡ ΠΏΠΎΠ»ΡΡΠ΅Π½Π½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅, ΠΈ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠΉ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ.
Π ΡΠΏΠΈΡΠΊΠ°Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° case Π΄ΠΎΠΏΡΡΡΠΈΠΌΡΠΌΠΈ ΡΠ²Π»ΡΡΡΡΡ ΡΠΈΠΏΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ , Π½Π°Π·ΡΠ²Π°Π΅ΠΌΡΠ΅ ΡΠΊΠ°Π»ΡΡΠ½ΡΠΌΠΈ, Π²ΠΊΠ»ΡΡΠ°Ρ ΡΠ΅Π»ΡΠ΅ ΠΈ ΠΈΡΠΊΠ»ΡΡΠ°Ρ Π²Π΅ΡΠ΅ΡΡΠ²Π΅Π½Π½ΡΠ΅ ΡΠΈΠΏΡ. ΠΡΠ±ΠΎΠ΅ Π·Π°Π΄Π°Π½Π½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠ΅Π»Π΅ΠΊΡΠΎΡΠ° ΠΌΠΎΠΆΠ΅Ρ Π²Ρ ΠΎΠ΄ΠΈΡΡ Π² ΡΠΏΠΈΡΠΎΠΊ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ Π½Π΅ΠΎΠ΄Π½ΠΎΠΊΡΠ°ΡΠ½ΠΎ, Π½ΠΎ Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ Π±ΡΠ΄Π΅Ρ Π»ΠΈΡΡ ΠΏΠ΅ΡΠ²Π°Ρ ΠΏΠΎΠ΄Ρ ΠΎΠ΄ΡΡΠ°Ρ Π²Π΅ΡΠ²Ρ. ΠΡΠ»ΠΈ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΡΠ΅Π»Π΅ΠΊΡΠΎΡΠ° ΠΎΡΡΡΡΡΡΠ²ΡΠ΅Ρ Π² ΡΠΏΠΈΡΠΊΠ°Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ, Π½ΠΈ ΠΎΠ΄Π½Π° ΠΈΠ· Π°Π»ΡΡΠ΅ΡΠ½Π°ΡΠΈΠ² Π²ΡΠΏΠΎΠ»Π½ΡΡΡΡΡ Π½Π΅ Π±ΡΠ΄Π΅Ρ. Π ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ Π²ΡΠΏΠΎΠ»Π½ΡΠ΅ΡΡΡ Π²Π΅ΡΠ²Ρ else ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡΠ° case ΠΈΠ»ΠΈ (Π΅ΡΠ»ΠΈ ΡΡΠ° Π²Π΅ΡΠ²Ρ ΠΎΡΡΡΡΡΡΠ²ΡΠ΅Ρ) ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ Π·Π° case ΠΎΠΏΠ΅ΡΠ°ΡΠΎΡ. 4]
1.4 ΠΠ»Π³ΠΎΡΠΈΡΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π°
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 1 Π€ΡΠ½ΠΊΡΠΈΡ lpf1 ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 2 Π€ΡΠ½ΠΊΡΠΈΡ lpf2
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 4 Π€ΡΠ½ΠΊΡΠΈΡ lpintegra1
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 5 Π€ΡΠ½ΠΊΡΠΈΡ lpintegralf2
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 6. Π€ΡΠ½ΠΊΡΠΈΡ lp2
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 8 Π€ΡΠ½ΠΊΡΠΈΡ ppf1 ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 7 Π€ΡΠ½ΠΊΡΠΈΡ ppf2
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 6 Π€ΡΠ½ΠΊΡΠΈΡ ppintegralf1
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 10 Π€ΡΠ½ΠΊΡΠΈΡ ppintegralf2
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 10 Π€ΡΠ½ΠΊΡΠΈΡ pp1
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 9 Π€ΡΠ½ΠΊΡΠΈΡ pp2
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 11 Π€ΡΠ½ΠΊΡΠΈΡ spf1 ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 13 Π€ΡΠ½ΠΊΡΠΈΡ spf2
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 14 Π€ΡΠ½ΠΊΡΠΈΡ spintegralf1
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 12 Π€ΡΠ½ΠΊΡΠΈΡ spintegralf2
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 15 Π€ΡΠ½ΠΊΡΠΈΡ sp1
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 16 Π€ΡΠ½ΠΊΡΠΈΡ sp2
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 20 Π€ΡΠ½ΠΊΡΠΈΡ trf1 ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 17 Π€ΡΠ½ΠΊΡΠΈΡ trf2
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 18 Π€ΡΠ½ΠΊΡΠΈΡ trintegralf1
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 19 Π€ΡΠ½ΠΊΡΠΈΡ trintegralf2
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 22 Π€ΡΠ½ΠΊΡΠΈΡ tr1
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 21 Π€ΡΠ½ΠΊΡΠΈΡ tr2
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 23 ΠΠ»Π°Π²Π½Π°Ρ ΡΡΠ½ΠΊΡΠΈΡ
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 24 ΠΠ»Π°Π²Π½Π°Ρ ΡΡΠ½ΠΊΡΠΈΡ
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 25 ΠΠ»Π°Π²Π½Π°Ρ ΡΡΠ½ΠΊΡΠΈΡ
1.5 Π’Π΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
ΠΠ»Ρ ΡΠ΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠΎΠ²Π΅Π΄ΡΠΌ ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΎΠ±Π΅ΠΈΡ ΡΡΠ½ΠΊΡΠΈΠΉ Π²ΡΠ΅ΠΌΠΈ ΡΠ΅ΡΡΡΡΠΌΡ ΠΌΠ΅ΡΠΎΠ΄Π°ΠΌΠΈ ΠΈ ΡΠ°ΡΡΠΌΠΎΡΡΠΈ ΠΈΠ½ΡΠ΅ΡΡΠ΅ΠΉΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΡΠΈ ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½ΠΈΠΈ ΠΎΠ΄Π½ΠΎΠΉ ΠΈΠ· ΡΡΠ½ΠΊΡΠΈΠΉ ΠΎΠ΄Π½ΠΈΠΌ ΠΈΠ· 4 ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ².
ΠΡΠΈ Π·Π°ΠΏΡΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π·Π°Π΄Π°ΡΡ Π²ΠΎΠΏΡΠΎΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ, ΠΎΡΠΊΡΠ΄Π° Π²Π·ΡΡΡ ΠΎΠ±ΡΠ°Π±Π°ΡΡΠ²Π°Π΅ΠΌΡΠ΅ Π΄Π°Π½Π½ΡΠ΅:
Π ΠΈΡΡΠ½ΠΎΠΊ 1 ΠΠ°ΠΏΡΠΎΡ ΠΈΡΡΠΎΡΠ½ΠΈΠΊΠ° Π΄Π°Π½Π½ΡΡ
ΠΠΎΠ³Π΄Π° ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π²ΡΠ±Π΅ΡΠ΅Ρ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΡΠΉ ΠΈΡΡΠΎΡΠ½ΠΈΠΊ, Π΅ΠΌΡ Π±ΡΠ΄Π΅Ρ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΎ Π²ΡΠ±ΡΠ°ΡΡ ΡΠΏΠΎΡΠΎΠ± ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ:
Π ΠΈΡΡΠ½ΠΎΠΊ 2 ΠΠ°ΠΏΡΠΎΡ ΠΌΠ΅ΡΠΎΠ΄Π° ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ
ΠΠΎΠ³Π΄Π° Π²ΡΠ±ΡΠ°Π½ ΠΌΠ΅ΡΠΎΠ΄ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π°, Π²ΡΠ΄Π°ΡΡΡΡ Π·Π°ΠΏΡΠΎΡ ΠΎ ΡΡΠ½ΠΊΡΠΈΠΈ, ΠΊΠΎΡΠΎΡΡΡ ΡΠ»Π΅Π΄ΡΠ΅Ρ ΠΏΡΠΎΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°ΡΡ:
Π ΠΈΡΡΠ½ΠΎΠΊ 3 ΠΠ°ΠΏΡΠΎΡ ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΡΠ΅ΠΌΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ
Π ΠΈΡΡΠ½ΠΎΠΊ 4 ΠΠ°ΠΏΡΠΎΡ Π½Π° ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΠ΅ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ² Π² ΡΠ°ΠΉΠ»
ΠΠΎΡΠ»Π΅ ΡΡΠΎΠ³ΠΎ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π±ΡΠ΄Π΅Ρ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΎ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΡ Π² ΡΠ°ΠΉΠ». Π ΡΠ°ΠΌΠΎΠΌ ΠΊΠΎΠ½ΡΠ΅ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π±ΡΠ΄Π΅Ρ Π·Π°Π΄Π°Π½ Π²ΠΎΠΏΡΠΎΡ, ΠΏΡΠΎΠ΄ΠΎΠ»ΠΆΠΈΡΡ Π»ΠΈ ΡΠ°Π±ΠΎΡΡ. ΠΡΠ»ΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΡΠΎΠ³Π»Π°ΡΠΈΡΡΡ, ΡΠΎ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π²Π΅ΡΠ½ΡΡΡΡ ΠΊ Π½Π°ΡΠ°Π»Ρ — Π²ΠΎΠΏΡΠΎΡΡ ΠΎΠ± ΠΈΡΡΠΎΡΠ½ΠΈΠΊΠ΅ Π΄Π°Π½Π½ΡΡ , Π΅ΡΠ»ΠΈ Π½Π΅Ρ, ΡΠΎ Π·Π°Π²Π΅ΡΡΠΈΡ ΡΠ²ΠΎΡ ΡΠ°Π±ΠΎΡΡ.
ΠΠ»Π°Π²Π° 2. ΠΠ±ΡΠ°Π±ΠΎΡΠΊΠ° ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ² ΠΈΠ·ΠΌΠ΅ΡΠ΅Π½ΠΈΠΉ
2.1 Π’Π΅ΠΎΡΠ΅ΡΠΈΡΠ΅ΡΠΊΠ°Ρ ΡΠ°ΡΡΡ. ΠΠ΅ΡΠΎΠ΄ Π½Π°ΠΈΠΌΠ΅Π½ΡΡΠΈΡ ΠΊΠ²Π°Π΄ΡΠ°ΡΠΎΠ²
Π Π°ΡΡΠΌΠΎΡΡΠΈΠΌ ΡΠ»ΡΡΠ°ΠΉ Π»ΠΈΠ½Π΅ΠΉΠ½ΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ ΠΎΠ΄Π½ΠΎΠ³ΠΎ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠ°. ΠΡΡΡΡ ΠΈΠ· ΠΎΠΏΡΡΠ° ΠΏΠΎΠ»ΡΡΠ΅Π½Ρ ΡΠΎΡΠΊΠΈ:
(1)
Π’ΡΠ΅Π±ΡΠ΅ΡΡΡ Π½Π°ΠΉΡΠΈ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ ΠΏΡΡΠΌΠΎΠΉ y=ax+b (2), Π½Π°ΠΈΠ»ΡΡΡΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ ΡΠΎΠ³Π»Π°ΡΡΡΡΠ΅ΠΉΡΡ Ρ ΠΎΠΏΡΡΠ½ΡΠΌΠΈ ΡΠΎΡΠΊΠ°ΠΌΠΈ. ΠΡΡΡΡ ΠΌΡ Π½Π°ΡΠ»ΠΈ ΡΠ°ΠΊΡΡ ΠΏΡΡΠΌΡΡ. ΠΠ±ΠΎΠ·Π½Π°ΡΠΈΠΌ ΡΠ΅ΡΠ΅Π· ΡΠ°ΡΡΡΠΎΡΠ½ΠΈΠ΅ ΠΎΠΏΡΡΠ½ΠΎΠΉ ΡΠΎΡΠΊΠΈ ΠΎΡ ΡΡΠΎΠΉ ΠΏΡΡΠΌΠΎΠΉ (ΠΈΠ·ΠΌΠ΅ΡΠ΅Π½Π½ΠΎΠ΅ ΠΏΠ°ΡΠ°Π»Π»Π΅Π»ΡΠ½ΠΎ ΠΎΡΠΈ y). ΠΠ· ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ (2) ΡΠ»Π΅Π΄ΡΠ΅Ρ, ΡΡΠΎ (3) Π§Π΅ΠΌ ΠΌΠ΅Π½ΡΡΠ΅ ΡΠΈΡΠ»Π°, ΡΠ΅ΠΌ Π»ΡΡΡΠ΅ ΠΏΠΎΠ΄ΠΎΠ±ΡΠ°Π½Π° ΠΏΡΡΠΌΠ°Ρ. Π₯Π°ΡΠ°ΠΊΡΠ΅ΡΠΈΡΡΠΈΠΊΠΎΠΉ ΡΠΎΡΠ½ΠΎΡΡΠΈ ΠΏΠΎΠ΄Π±ΠΎΡΠ° ΠΌΠΎΠΆΠ΅Ρ ΡΠ»ΡΠΆΠΈΡΡ ΡΡΠΌΠΌΠ° ΠΊΠ²Π°Π΄ΡΠ°ΡΠΎΠ² ΡΡΠΈΡ ΡΠ°ΡΡΡΠΎΡΠ½ΠΈΠΉ .(4). ΠΠΎΠΊΠ°ΠΆΠ΅ΠΌ, ΠΊΠ°ΠΊ ΠΌΠΎΠΆΠ½ΠΎ ΠΏΠΎΠ΄ΠΎΠ±ΡΠ°ΡΡ ΠΏΡΡΠΌΡΡ (2) ΡΠ°ΠΊ, ΡΡΠΎΠ±Ρ ΡΡΠΌΠΌΠ° ΠΊΠ²Π°Π΄ΡΠ°ΡΠΎΠ² S Π±ΡΠ»Π° ΠΌΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΠΎΠΉ. ΠΠ· ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΉ (3) ΠΈ (4) ΠΏΠΎΠ»ΡΡΠ°Π΅ΠΌ: S= (5)
Π£ΡΠ»ΠΎΠ²ΠΈΡ ΠΌΠΈΠ½ΠΈΠΌΡΠΌΠ°:
=0 (6)
(7)
Π£ΡΠ°Π²Π½Π΅Π½ΠΈΡ (6) ΠΈ (7) ΠΌΠΎΠΆΠ½ΠΎ Π·Π°ΠΏΠΈΡΠ°ΡΡ Π² Π²ΠΈΠ΄Π΅ (8) ΠΈ (9):
(8)
+n (9)
ΠΠ· ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΉ (8) ΠΈ (9) Π»Π΅Π³ΠΊΠΎ Π½Π°ΠΉΡΠΈ a ΠΈ b ΠΏΠΎ ΠΎΠΏΡΡΠ½ΡΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΡΠΌ ΠΈ. ΠΡΡΠΌΠ°Ρ (2), ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅ΠΌΠ°Ρ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡΠΌΠΈ (8) ΠΈ (9), Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ ΠΏΡΡΠΌΠΎΠΉ, ΠΏΠΎΠ»ΡΡΠ΅Π½Π½ΠΎΠΉ ΠΏΠΎ ΠΌΠ΅ΡΠΎΠ΄Ρ Π½Π°ΠΈΠΌΠ΅Π½ΡΡΠΈΡ ΠΊΠ²Π°Π΄ΡΠ°ΡΠΎΠ² (ΡΡΠΈΠΌ Π½Π°Π·Π²Π°Π½ΠΈΠ΅ΠΌ ΠΏΠΎΠ΄ΡΠ΅ΡΠΊΠΈΠ²Π°Π΅ΡΡΡ ΡΠΎ, ΡΡΠΎ ΡΡΠΌΠΌΠ° ΠΊΠ²Π°Π΄ΡΠ°ΡΠΎΠ² S ΠΈΠΌΠ΅Π΅Ρ ΠΌΠΈΠ½ΠΈΠΌΡΠΌ). Π£ΡΠ°Π²Π½Π΅Π½ΠΈΡ (8) ΠΈ (9), ΠΈΠ· ΠΊΠΎΡΠΎΡΡΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ΅ΡΡΡ ΠΏΡΡΠΌΠ°Ρ (2), Π½Π°Π·ΡΠ²Π°ΡΡΡΡ Π½ΠΎΡΠΌΠ°Π»ΡΠ½ΡΠΌΠΈ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡΠΌΠΈ.
ΠΠΎΠΆΠ½ΠΎ ΡΠΊΠ°Π·Π°ΡΡ ΠΏΡΠΎΡΡΠΎΠΉ ΠΈ ΠΎΠ±ΡΠΈΠΉ ΡΠΏΠΎΡΠΎΠ± ΡΠΎΡΡΠ°Π²Π»Π΅Π½ΠΈΡ Π½ΠΎΡΠΌΠ°Π»ΡΠ½ΡΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΉ. ΠΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΎΠΏΡΡΠ½ΡΠ΅ ΡΠΎΡΠΊΠΈ (1) ΠΈ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ (2), ΠΌΠΎΠΆΠ½ΠΎ Π·Π°ΠΏΠΈΡΠ°ΡΡ ΡΠΈΡΡΠ΅ΠΌΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΉ Π΄Π»Ρ a ΠΈ b:
(10)
Π£ΠΌΠ½ΠΎΠΆΠΈΠΌ Π»Π΅Π²ΡΡ ΠΈ ΠΏΡΠ°Π²ΡΡ ΡΠ°ΡΡΠΈ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΠΈΠ· ΡΡΠΈΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΉ Π½Π° ΠΊΠΎΡΡΡΠΈΡΠΈΠ΅Π½Ρ ΠΏΡΠΈ ΠΏΠ΅ΡΠ²ΠΎΠΉ Π½Π΅ΠΈΠ·Π²Π΅ΡΡΠ½ΠΎΠΉ a (Ρ.Π΅. Π½Π°, … ,) ΠΈ ΡΠ»ΠΎΠΆΠΈΠΌ ΠΏΠΎΠ»ΡΡΠ΅Π½Π½ΡΠ΅ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ, Π² ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΠΏΠΎΠ»ΡΡΠΈΡΡΡ ΠΏΠ΅ΡΠ²ΠΎΠ΅ Π½ΠΎΡΠΌΠ°Π»ΡΠ½ΠΎΠ΅ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ (8). Π£ΠΌΠ½ΠΎΠΆΠΈΠΌ Π»Π΅Π²ΡΡ ΠΈ ΠΏΡΠ°Π²ΡΡ ΡΠ°ΡΡΠΈ ΠΊΠ°ΠΆΠ΄ΠΎΠ³ΠΎ ΠΈΠ· ΡΡΠΈΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΉ Π½Π° ΠΊΠΎΡΡΡΠΈΡΠΈΠ΅Π½Ρ ΠΏΡΠΈ Π²ΡΠΎΡΠΎΠΉ Π½Π΅ΠΈΠ·Π²Π΅ΡΡΠ½ΠΎΠΉ b, Ρ. Π΅. Π½Π° 1, ΠΈ ΡΠ»ΠΎΠΆΠΈΠΌ ΠΏΠΎΠ»ΡΡΠ΅Π½Π½ΡΠ΅ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ, Π² ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΠΏΠΎΠ»ΡΡΠΈΡΡΡ Π²ΡΠΎΡΠΎΠ΅ Π½ΠΎΡΠΌΠ°Π»ΡΠ½ΠΎΠ΅ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ (9). Π Π΅ΡΠ°Ρ Π΅Π³ΠΎ, ΠΏΠΎΠ»ΡΡΠΈΠΌ ΠΊΠΎΡΡΡΠΈΡΠΈΠ΅Π½ΡΡ ΠΈΡΠΊΠΎΠΌΠΎΠΉ ΠΏΡΡΠΌΠΎΠΉ a, b.
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 28 Π€ΡΠ½ΠΊΡΠΈΡ fa0 ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 29 Π€ΡΠ½ΠΊΡΠΈΡ fb
2.2 ΠΠ»Π³ΠΎΡΠΈΡΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ Π΄Π°Π½Π½ΡΡ
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 31 ΠΡΠΎΡΠ΅Π΄ΡΡΠ° TForm1. Help1Click
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 32 ΠΡΠΎΡΠ΅Π΄ΡΡΠ° TForm1. Exit1Click
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 33 ΠΡΠΎΡΠ΅Π΄ΡΡΠ° TForm1. Button1Click
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ°34 ΠΡΠΎΡΠ΅Π΄ΡΡΠ° TForm1. Print1Click
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 35 ΠΡΠΎΡΠ΅Π΄ΡΡΠ° TForm1. PrintSetup1Click
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 36 ΠΡΠΎΡΠ΅Π΄ΡΡΠ° TForm1. Button2Click
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 37 ΠΡΠΎΡΠ΅Π΄ΡΡΠ° TForm1. Button3Click
2.3 Π’Π΅ΡΡΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° 38 ΠΡΠΎΡΠ΅Π΄ΡΡΠ° TForm1. Save1Click
ΠΡΠΈ Π·Π°ΠΏΡΡΠΊΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π° ΡΠΊΡΠ°Π½Π΅ ΠΏΠΎΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠΎΡΠΌΠ°:
Π ΠΈΡΡΠ½ΠΎΠΊ 5 Π€ΠΎΡΠΌΠ° Π·Π°ΠΏΡΡΠΊΠ°
ΠΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ Menu, ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ ΠΏΠΎΠ»ΡΡΠ°Π΅Ρ Π΄ΠΎΡΡΡΠΏ ΠΊ Π³Π»Π°Π²Π½ΠΎΠΌΡ ΠΌΠ΅Π½Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ:
ΠΠ°Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ Π΅Π³ΠΎ ΠΏΡΠ½ΠΊΡΠΎΠ² ΠΈ ΠΎΠ±ΡΠΈΠ΅ ΠΏΡΠΈΠ½ΡΠΈΠΏΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΎΠΉ ΠΎΠΏΠΈΡΠ°Π½Ρ Π² ΠΎΠΊΠ½Π΅, Π²ΡΠΏΠ°Π΄Π°ΡΡΠ΅ΠΌ ΠΏΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ ΠΊΠ½ΠΎΠΏΠΊΠΈ Help.
Π ΠΈΡΡΠ½ΠΎΠΊ 6 ΠΠ»Π°Π²Π½ΠΎΠ΅ ΠΌΠ΅Π½Ρ
Π ΠΈΡΡΠ½ΠΎΠΊ 7 ΠΠΊΠ½ΠΎ Help
ΠΡΠ»ΠΈ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π²ΡΠ±Π΅ΡΠ΅Ρ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ² Π΄Π»Ρ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΈ ΡΠΏΠΎΡΠΎΠ± ΠΈΡ Π²Π²Π΅Π΄Π΅Π½ΠΈΡ, ΡΠΎ Π½Π° ΡΠΊΡΠ°Π½Π΅ ΠΏΠΎΡΠ²ΠΈΡΡΡ ΡΠ°Π±Π»ΠΈΡΠ° ΠΈΠ·ΠΌΠ΅ΡΠ΅Π½ΠΈΠΉ. ΠΠ»Ρ ΠΏΡΠΎΠ²Π΅Π΄Π΅Π½ΠΈΡ ΡΠ°ΡΡΠ΅ΡΠΎΠ² ΡΠ»Π΅Π΄ΡΠ΅Ρ Π½Π°ΠΆΠ°ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ Π Π°ΡΡΡΠΈΡΠ°ΡΡ. ΠΠ»Ρ ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΡ Π½Π°Π³Π»ΡΠ΄Π½ΠΎΠ³ΠΎ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ ΡΠ»Π΅Π΄ΡΠ΅Ρ Π½Π°ΠΆΠ°ΡΡ ΠΎΠ΄Π½Ρ ΠΈΠ· ΠΊΠ½ΠΎΠΏΠΎΠΊ y=f (x) ΠΈΠ»ΠΈ Yp=f1(x). ΠΠΎΡΡΡΠΎΠ΅Π½Π½ΡΠ΅ Π³ΡΠ°ΡΠΈΠΊΠΈ Π±ΡΠ»ΠΈ ΠΏΡΠΎΠ²Π΅ΡΠ΅Π½Ρ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ Microsoft Excel 2007.
Π ΠΈΡΡΠ½ΠΎΠΊ 8 Π’Π°Π±Π»ΠΈΡΠ° ΠΈΠ·ΠΌΠ΅ΡΠ΅Π½ΠΈΠΉ
Π ΠΈΡΡΠ½ΠΎΠΊ 9 Π‘ΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ Π³ΡΠ°ΡΠΈΠΊΠΎΠ² Ρ=f (x)
Π ΠΈΡΡΠ½ΠΎΠΊ 10 Π‘ΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ Π³ΡΠ°ΡΠΈΠΊΠΎΠ² Yp=f1(x)
ΠΠΎΡΠ»Π΅ Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΡ ΡΠ°ΡΡΠ΅ΡΠΎΠ² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΡ Π² ΡΠ°ΠΉΠ», ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ Π³Π»Π°Π²Π½ΠΎΠ³ΠΎ ΠΌΠ΅Π½Ρ.
ΠΠΈΡΡΠΈΠ½Π³ΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ
ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»ΠΎΠ² Π‘
(Π³Π»Π°Π²Π½Π°Ρ ΡΡΠ½ΠΊΡΠΈΡ main)
void main ()
{/*opisanie peremennyh*/
float x, a, b, h, y, integral, eps;
int n;
char vop, vop1;
LevPr lp;
PravPr pp;
SrPr sp;
Trapeciy tr;
FILE *in;
FILE *out;
int i, j, menu, menu1, w;
vop='n';
in=fopen («in.txt» ," rt");
out=fopen («out.txt» ," w");
do
{clrscr ();
/*zapros, schitat' li dannye iz faila*/
printf («n vyberite sposob vvoda dannyh: 1 — ruchnoi, 2 — iz faila «);
scanf («%d», &w);
switch (w)
{case 1:
{/*vvod dannyh v ruchuju*/
printf («n Vvedite nijniy predel a= «);
scanf («%f», &a);
printf («n Vvedite verhniy predel b= «);
scanf («%f», &b);
printf («n Vvedite tocnost «);
scanf («%f», &eps);
printf («n Vvedite kolichestvo otrezkov n= «);
scanf («%d», &n);
break;}
case 2:
{/*schityvanie dannyh iz faila*/
fscanf (in, «%f» ,&a);
printf («n Nijniy predel a=%f», a);
fscanf (in, «%f» ,&b);
printf («n Verhniy predel b=%f», b);
fscanf (in, «%f» ,&eps);
printf («n Tochnost eps= %f», eps);
fscanf (in, «%d» ,&n);
printf («n kolichestvo otrezkov n=%d», n);
break;}
}
/*zapros u polzovatelia metoda vychislenija*/
printf («n Viberite deystvie: n1 — Sposob Levyh pryamougolnikovn2 — Sposob pravyh pryamougolnifovn3 — Sposob sredhih pryamougolnikovn4 — Sposob trapeciyn»);
scanf («%d», &menu);
switch (menu)
{case 1:
{/*zapros, kakuju funkciju obrabotat'*/
printf («n Viberite deystvie: n1 — Integral (x*x)n2 — Integral (sqr (x)*sin (x)/(exp (1./3.*ln (cos (x)))))n»);
scanf («%d», &menu1);
switch (menu1)
{case 1:
{integral=lp.lp1(a, b, eps, n);
break;}
case 2:
{integral=lp.lp2(a, b, eps, n);
break;}
}
break;}
case 2:
{
printf («n Viberite deystvie: n1 — Integral (x*x)n2 — Integral (sqr (x)*sin (x)/(exp (1./3.*ln (cos (x)))))n»);
scanf («%d», &menu1);
switch (menu1)
{
case 1:
{
integral=pp.pp1(a, b, eps, n);
break;
}
case 2:
{
integral=pp.pp2(a, b, eps, n);
break;
}
}
break;}
case 3:
{printf («n Viberite deystvie: n1 — Integral (x*x)n2 — Integral (sqr (x)*sin (x)/(exp (1./3.*ln (cos (x)))))n»);
scanf («%d», &menu1);
switch (menu1)
{
case 1:
{
integral=sp.sp1(a, b, eps, n);
break;
}
case 2:
{
integral=sp.sp2(a, b, eps, n);
break;
}
}
break;}
case 4:
{
printf («n Viberite deystvie: n1 — Integral (x*x)n2 — Integral (sqr (x)*sin (x)/(exp (1./3.*ln (cos (x)))))n»);
scanf («%d», &menu1);
switch (menu1)
{
case 1:
{
integral=tr.tr1(a, b, eps, n);
break;
}
case 2:
{
integral=tr.tr2(a, b, eps, n);
break;
}
}
break;
}
}
/*zapros na sohranenie resultatov v fail*/
printf («n Hotite zapisat' resultaty v fail? y/n»);
vop1=getch ();
if (vop1=='y')
{
/*zapis' v fail*/
fputs («n Nijniy predel «, out);
fprintf (out, «%f», a);
fputs («n Verhniy predel «, out);
fprintf (out, «%f», b);
fputs («n Tochnost' «, out);
fprintf (out, «%f», eps);
fputs («n kolichestvo otrezkov «, out);
fprintf (out, «%d», n);
fputs («n Integral», out);
fprintf (out, «%f», integral);
fclose (out);
fclose (in);
}
/*vyvod resultatov na ekran*/
printf («n Znachenie integrala = %f», integral);
/*zapros polzovatelu, zavershit' li rabotu programmy*/
printf («n Hotite zavershit' zadachy?»);
vop=getch ();
} while (vop≠'y');
printf («vypolnila studentka 895 gruppy Araztaganova Alina»);
}
ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»ΠΎΠ² Pascal
(ΠΏΡΠΈΠΌΠ΅ΡΡ ΠΎΠΏΠΈΡΠ°Π½ΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ°)
type LevPr = object {opredelenie klassa, kotoriy realizuet metod levyh pryamougolnikov}
Public
function f1(x:real):real;
function f2(x:real):real;
function integralf1(a:real; b: real; h: real):real;
function integralf2(a:real; b: real; h: real):real;
function levprf1(a:real; b: real; eps: real; n: integer):real;
function levprf2(a:real; b: real; eps: real; n: integer):real;
end;
type PravPr = object {opredelenie klassa, kotoriy realizuet metod pravyh pryamougolnikov}
Public
function f1(x:real):real;
function f2(x:real):real;
function integralf1(a:real; b: real; h: real):real;
function integralf2(a:real; b: real; h: real):real;
function Pravprf1(a:real; b: real; eps: real; n: integer):real;
function Pravprf2(a:real; b: real; eps: real; n: integer):real;
end;
type SRPr = object {opredelenie klassa, kotoriy realizuet metod srednih pryamougolnikov}
Public
function f1(x:real):real;
function f2(x:real):real;
function integralf1(a:real; b: real; h: real):real;
function integralf2(a:real; b: real; h: real):real;
function Srprf1(a:real; b: real; eps: real; n: integer):real;
function Srprf2(a:real; b: real; eps: real; n: integer):real;
end;
type Trap = object {opredelenie klassa, kotoriy realizuet metod trapeciy}
Public
function f1(x:real):real;
function f2(x:real):real;
function integralf1(a:real; b: real; h: real):real;
function integralf2(a:real; b: real; h: real):real;
function Trapf1(a:real; b: real; eps: real; n: integer):real;
function Trapf2(a:real; b: real; eps: real; n: integer):real;
end;
{opisaniya motodov klassov}
function LevPr. f1(x: real):real;
begin
f1:=sqr (x);
end;
function LevPr. f2(x: real):real;
begin
f2:=sqr (x)*sin (x)/(exp (0.3*ln (abs (cos (x)))));
end;
function LevPr. integralf1(a:real; b: real; h: real):real;
var s, x: real;
begin
x:=a;
s:=0;
while x
s:=s+LevPr.f1(x)*h;
x:= x+h;
end;
integralf1:=s;
end;
function LevPr. integralf2(a:real; b: real; h: real):real;
var s, x: real;
begin
x:=a;
s:=0;
while x
s:=s+LevPr.f2(x)*h;
x:= x+h;
end;
integralf2:=s;
end;
function LevPr. levprf1(a:real; b: real;eps: real; n: integer):real;
label l1;
var
i: integer;
x, y, h, y1: real;
begin
h:=(b-a)/n;
y1:=LevPr.integralf1(a, b, h);
l1: n:=n*2;
h:=(b-a)/n;
y:=LevPr.integralf1(a, b, h);
if (abs (y-y1)>eps) then begin y1:=y; goto l1; end;
levprf1:=y1;
end;
function LevPr. levprf2(a:real; b: real; eps: real; n: integer):real;
label l1;
var
i: integer;
x, y, h, y1: real;
begin
h:=(b-a)/n;
y1:=LevPr.integralf2(a, b, h);
l1: n:=n*2;
h:=(b-a)/n;
y:=LevPr.integralf2(a, b, h);
if (abs (y-y1)>eps) then begin y1:=y; goto l1; end;
levprf2:=y1;
end;
ΠΠ±ΡΠ°Π±ΠΎΡΠΊΠ° ΠΈΠ·ΠΌΠ΅ΡΠ΅Π½ΠΈΠΉ
(ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ°, ΠΏΠΎΠ΄ΡΡΠΈΡΡΠ²Π°ΡΡΠ°Ρ ΠΊΠΎΡΡΡΠΈΡΠΈΠ΅Π½ΡΡ)
begin
label1.visible:=true;
label4.visible:=true;
n:=strtoint (edit1.Text);
k:=0; l:=0; m:=0;
v:=0; w:=0; r:=0;
for i:=1 to n do begin
x[i]: =strtofloat (t1.cells[0,i]);
y[i]:=strtofloat (t1.cells[1,i]);
k:=k+ln (x[i]);
l:=l+ln (y[i]);
m:=m+ln (x[i])*ln (y[i]);
v:=v+sqr (ln (x[i]));
w:=w+ln (sqr (x[i]));
a:=fa0(i, k, l, m, v, w);
b:=fb (i, k, l);
yp[i]:=b*exp (ln (x[i])*a);
r:=r+yp[i];
t1.cells[2,i]:=floattostr (a);
t1.cells[3,i]:=floattostr (b);
t1.cells[4,i]:=floattostr (yp[i]);
end;
min:=yp[1];
max:=yp[1];
for i:=1 to n do begin
d:=abs ((r/n-yp[i])/yp[i]);
t1.cells[5,i]: =floattostr (d);
if d
if d>max then max:=d;
end;
label1.Caption:= label1. Caption+' '+floattostr (min);
label4.Caption:= label4. Caption+' '+floattostr (max);
button3.enabled:=true;
button4.enabled:=true;
end;
ΠΡΠ²ΠΎΠ΄Ρ
ΠΠΎΠΌΠΏΡΡΡΠ΅ΡΡ ΡΡΠ°Π»ΠΈ Π½Π΅ΠΎΡΡΠ΅ΠΌΠ»Π΅ΠΌΠΎΠΉ ΡΠ°ΡΡΡΡ Π½Π°ΡΠ΅ΠΉ ΠΆΠΈΠ·Π½ΠΈ. ΠΠΎ Π±Π΅Π· Ρ ΠΎΡΠΎΡΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ ΠΊΠΎΠΌΠΏΡΡΡΠ΅Ρ — ΡΡΠΎ ΠΏΡΠΎΡΡΠΎ Π³ΡΡΠ΄Π° ΠΆΠ΅Π»Π΅Π·Π°. ΠΠΎΡΡΠΎΠΌΡ ΡΠ°ΠΊ Π²Π°ΠΆΠ½ΠΎ ΠΎΡΠ²Π°ΠΈΠ²Π°ΡΡ ΡΠ·ΡΠΊΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ, ΡΡΠΎΠ±Ρ Π½Π΅ ΠΎΠΊΠ°Π·Π°ΡΡΡΡ Π·Π° Π±ΠΎΡΡΠΎΠΌ ΠΆΠΈΠ·Π½ΠΈ ΠΈ ΡΠΈΠ²ΠΈΠ»ΠΈΠ·Π°ΡΠΈΠΈ.
ΠΠ°Π½Π½Π°Ρ ΠΊΡΡΡΠΎΠ²Π°Ρ ΡΠ°Π±ΠΎΡΠ° ΡΠ²Π»ΡΠ΅ΡΡΡ Π·Π°Π²Π΅ΡΡΠ°ΡΡΠΈΠΌ ΡΡΠ°ΠΏΠΎΠΌ ΡΠ°Π±ΠΎΡΡ ΠΏΠΎ ΠΏΡΠ΅Π΄ΠΌΠ΅ΡΡ «ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π½Π° ΡΠ·ΡΠΊΠ°Ρ Π²ΡΡΠΎΠΊΠΎΠ³ΠΎ ΡΡΠΎΠ²Π½Ρ». ΠΠ½Π° ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΏΡΠ΅ΠΊΡΠ°ΡΠ½ΠΎΠΉ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡΡ Π·Π°ΠΊΡΠ΅ΠΏΠΈΡΡ ΡΠ²ΠΎΠΈ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ Π·Π½Π°Π½ΠΈΡ ΠΏΠΎ ΠΏΡΠ΅Π΄ΠΌΠ΅ΡΡ, Π° ΡΠ°ΠΊΠΆΠ΅ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π½ΠΎΠ²ΡΠ΅, ΠΊΠΎΡΠΎΡΡΠ΅ Π½Π΅ Π²Ρ ΠΎΠ΄ΠΈΠ»ΠΈ Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΊΡΡΡΠ°.
ΠΠ°Π½Π½Π°Ρ ΡΠ°Π±ΠΎΡΠ° ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· Π΄Π²ΡΡ ΡΠ°ΡΡΠ΅ΠΉ. Π ΠΏΠ΅ΡΠ²ΠΎΠΉ Π±ΡΠ»ΠΎ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ ΡΠ°Π·ΡΠ°Π±ΠΎΡΠ°ΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Π½Π° ΡΠ·ΡΠΊΠ°Ρ Pascal ΠΈ Π‘++ Π΄Π»Ρ Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΡ ΡΠΈΡΠ»Π΅Π½Π½ΠΎΠ³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΡΠ½Π½ΠΎΠ³ΠΎ ΠΈΠ½ΡΠ΅Π³ΡΠ°Π»Π° Ρ Π·Π°Π΄Π°Π½Π½ΠΎΠΉ ΡΡΠ΅ΠΏΠ΅Π½ΡΡ ΡΠΎΡΠ½ΠΎΡΡΠΈ. ΠΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ Π·Π°Π΄Π°ΡΠΈ ΠΏΠΎΠ»ΡΡΠΈΠ»ΠΎΡΡ Π½Π΅ ΡΡΠ°Π·Ρ, Π½ΠΎ ΠΏΠΎΡΠ»Π΅ Π½Π΅ΠΊΠΎΡΠΎΡΠΎΠ³ΠΎ Π²ΡΠ΅ΠΌΠ΅Π½ΠΈ, ΠΏΠΎΡΡΠ°ΡΠ΅Π½Π½ΠΎΠ³ΠΎ Π½Π° ΡΠ°Π±ΠΎΡΡ Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΡΠΌΠΈ ΠΊΠΎΠ΄Π°ΠΌΠΈ ΠΈ ΠΈΡ ΠΈΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΠ΅, ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΡΡΠ°Π»ΠΈ ΡΠ°Π±ΠΎΡΠ°ΡΡ.
ΠΡΠΎΡΠ°Ρ ΡΠ°ΡΡΡ ΡΡΠ΅Π±ΠΎΠ²Π°Π»Π° ΡΠΎΡΡΠ°Π²ΠΈΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΏΠΎΠ»ΡΡΠ΅Π½Π½ΡΡ ΠΏΡΡΠΌΡΡ ΠΈΠ·ΠΌΠ΅ΡΠ΅Π½ΠΈΠΉ, ΠΎΡΠ½ΠΎΠ²Π°Π½Π½ΡΡ Π½Π° ΠΌΠ΅ΡΠΎΠ΄Π΅ Π½Π°ΠΈΠΌΠ΅Π½ΡΡΠΈΡ ΠΊΠ²Π°Π΄ΡΠ°ΡΠΎΠ². Π‘Π»Π΅Π΄ΡΠ΅Ρ ΠΎΡΠΌΠ΅ΡΠΈΡΡ ΠΏΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΡΡ ΠΏΠΎΠ»ΡΠ·Ρ ΡΠ°ΠΊΠΎΠΉ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ. ΠΠ½Π° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π½Π΅ ΡΠΎΠ»ΡΠΊΠΎ Π½Π°ΠΉΡΠΈ Π°ΠΏΠΏΡΠΎΠΊΡΠΈΠΌΠΈΡΠΎΠ²Π°Π½Π½ΡΡ ΠΏΡΡΠΌΡΡ, Π½Π°ΠΈΠ±ΠΎΠ»Π΅Π΅ Π±Π»ΠΈΠ·ΠΊΠΎ ΠΏΠΎΠ΄Ρ ΠΎΠ΄ΡΡΡΡ ΠΊ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ°ΠΌ, Π½ΠΎ ΠΈ ΡΠ²ΠΈΠ΄Π΅ΡΡ Π΅Π΅ Π³ΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΠΈΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅.
Π’Π°ΠΊΠΈΠΌ ΠΎΠ±ΡΠ°Π·ΠΎΠΌ, ΠΏΠΎΡΠ»Π΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΡΡ Π·Π°Π΄Π°Ρ Ρ Π·Π°Π²Π΅ΡΡΠ°Ρ ΡΠ²ΠΎΡ ΡΠ°Π±ΠΎΡΡ.
1. ΠΠ°Π»ΠΈΡΠΊΠΈ Π. Π. Π§ΠΈΡΠ»Π΅Π½Π½ΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄Ρ: Π£ΡΠ΅Π±. ΠΏΠΎΡΠΎΠ±ΠΈΠ΅ Π΄Π»Ρ Π²ΡΠ·ΠΎΠ². — Π.: ΠΠ°ΡΠΊΠ°., 1978 Π³. — 512 Ρ.
2. ΠΠΎΡΠ»ΠΈΠ½ΡΠΊΠ°Ρ Π. Π., ΠΠ°Π»ΠΈΠ½ΠΎΠ²ΡΠΊΠΈΠΉ Π. Π. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π½Π° ΡΠ·ΡΠΊΠ΅ Π‘ΠΈ: Π‘ΠΏΡΠ°Π²ΠΎΡΠ½ΠΎΠ΅ ΠΏΠΎΡΠΎΠ±ΠΈΠ΅. — ΠΠΈΠ½ΡΠΊ.: ΠΡΡΡΠ°Ρ ΡΠΊΠΎΠ»Π°., 1991. — 156 Ρ.
3. ΠΠ°Ρ ΠΎΠΌΠΎΠ² Π. Π. C/C++ ΠΈ MS Visual C++ 2005 Π΄Π»Ρ Π½Π°ΡΠΈΠ½Π°ΡΡΠΈΡ : ΠΠΎΡΠΎΠ±ΠΈΠ΅ Π΄Π»Ρ Π½Π°ΡΠΈΠ½Π°ΡΡΠΈΡ . — Π‘ΠΠ±.: ΠΠ₯Π — ΠΠ΅ΡΠ΅ΡΠ±ΡΡΠ³, 2007. — 464 Ρ.
4. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π£ΡΠ΅Π±Π½ΠΈΠΊ Turbo Pascal [ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½ΡΠΉ ΡΠ΅ΡΡΡΡ] ΠΠΏΠ΅ΡΠ°ΡΠΎΡ case… of…end 22.05.2010
5. Π‘Π°ΠΌΠ°ΡΡΠΊΠΈΠΉ Π. Π., ΠΡΠ»ΠΈΠ½ Π. Π. Π§ΠΈΡΠ»Π΅Π½Π½ΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄Ρ: Π£ΡΠ΅Π±. ΠΏΠΎΡΠΎΠ±ΠΈΠ΅ Π΄Π»Ρ Π²ΡΠ·ΠΎΠ². — Π.: ΠΠ°ΡΠΊΠ°. ΠΠ». ΡΠ΅Π΄. ΡΠΈΠ·-ΠΌΠ°Ρ. Π»ΠΈΡ., 1989. — 432 Ρ.
ΠΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ
ΠΠ»Π»ΡΡΡΡΠ°ΡΠΈΠΈ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ² ΠΈΠ½ΡΠ΅Π³ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ
Π ΠΈΡΡΠ½ΠΎΠΊ 10 ΠΠ΅ΡΠΎΠ΄ Π»Π΅Π²ΡΡ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠΎΠ²
Π ΠΈΡΡΠ½ΠΎΠΊ 11 ΠΠ΅ΡΠΎΠ΄ ΠΏΡΠ°Π²ΡΡ ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠΎΠ²
Π ΠΈΡΡΠ½ΠΎΠΊ 12 ΠΠ΅ΡΠΎΠ΄ ΡΡΠ΅Π΄Π½ΠΈΡ Π ΠΈΡΡΠ½ΠΎΠΊ 13 ΠΠ΅ΡΠΎΠ΄ ΡΡΠ°ΠΏΠ΅ΡΠΈΠΉ
ΠΏΡΡΠΌΠΎΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠΎΠ²