ΠΡΠ½ΠΎΠ²Ρ ΡΠ°Π±ΠΎΡΡ Ρ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ°ΠΌΠΈ MS Word, MS Excel ΠΈ Visual Basic
Π‘ ΡΡΡΡΠΎΠΌ ΡΠΎΠ³ΠΎ, ΡΡΠΎ ΠΈΠ·Π²Π΅ΡΡΠ½Ρ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠ΅ΠΉ (ΠΊΠΎΡΡΡΠΈΡΠΈΠ΅Π½ΡΡ), ΠΏΠΎΠ»ΡΡΠΈΠΌ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ Π²ΠΈΠ΄ ΡΠΎΡΠΌΡΠ»Ρ: ΠΠ°ΠΉΡΠΈ ΠΊΠΎΡΠ½ΠΈ ΠΊΠ²Π°Π΄ΡΠ°ΡΠ½ΠΎΠ³ΠΎ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ ΠΡ 2 + ΠΡ + Π‘ = 0 ΠΏΠΎ ΡΠΎΠΎΡΠ½ΠΎΡΠ΅Π½ΠΈΡΠΌ X1 = (-B+D)/A/2; X2 = — (B+D)/A/2, Π³Π΄Π΅ D=(B2 -4AC)0.5. Label10. Caption = Str (Abs ((D1 / C1 — D2 / C2) * (A1 * B2 — A2 * B1)) / ((B1 * C2 — B2 * C1) ^ 2 + (A1 * C2 — A2 * C1) ^ 2 + (A1 * B2 — A2 * B1) ^ 2) ^ 0.5). ΠΠ°ΠΊΡΠ΅ΠΏΠΈΡΠ΅ Π΅Π³ΠΎ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
ΠΡΠ½ΠΎΠ²Ρ ΡΠ°Π±ΠΎΡΡ Ρ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ°ΠΌΠΈ MS Word, MS Excel ΠΈ Visual Basic (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠ°Π΄Π°ΡΠ° 1
ΠΠ°ΠΉΡΠΈ ΠΊΠΎΡΠ½ΠΈ ΠΊΠ²Π°Π΄ΡΠ°ΡΠ½ΠΎΠ³ΠΎ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ ΠΡ 2 + ΠΡ + Π‘ = 0 ΠΏΠΎ ΡΠΎΠΎΡΠ½ΠΎΡΠ΅Π½ΠΈΡΠΌ X1 = (-B+D)/A/2; X2 = - (B+D)/A/2, Π³Π΄Π΅ D=(B2 -4AC)0.5
ΠΠΈΡΡ Excel:
Π’Π°Π±Π»ΠΈΡΠ° word (ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΠΌΠ°ΠΊΡΠΎΡΠΎΠ²):
ΠΠΎΡΡΡΠΈΡΠΈΠ΅Π½Ρ Π= | ||
ΠΠΎΡΡΡΠΈΡΠΈΠ΅Π½Ρ Π= | ||
ΠΠΎΡΡΡΠΈΡΠΈΠ΅Π½Ρ Π‘= | — 3 | |
ΠΠΈΡΠΊΡΠΈΠΌΠΈΠ½Π°Π½Ρ D= | ||
ΠΠΎΡΠ΅Π½Ρ Π₯1= | ||
ΠΠΎΡΠ΅Π½Ρ Π₯2= | ||
Π’Π°Π±Π»ΠΈΡΠ° Word (ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΌΠ΅Π½Ρ Π’Π°Π±Π»ΠΈΡΠ° Π€ΠΎΡΠΌΡΠ»Π°, ΠΏΡΠΈ ΠΈΠ·ΠΌΠ΅Π½Π΅Π½ΠΈΠΈ Π²Ρ ΠΎΠ΄Π½ΡΡ Π΄Π°Π½Π½ΡΡ Π΄Π»Ρ ΠΎΠ±Π½ΠΎΠ²Π»Π΅Π½ΠΈΡ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ² Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ Π² ΠΊΠΎΠ½ΡΠ΅ΠΊΡΡΠ½ΠΎΠΌ ΠΌΠ΅Π½Ρ ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠΎΠ² Π²ΡΠ±ΡΠ°ΡΡ ΡΡΡΠΎΠΊΡ ΠΠ±Π½ΠΎΠ²ΠΈΡΡ ΠΏΠΎΠ»Π΅)
ΠΠΎΡΡΡΠΈΡΠΈΠ΅Π½Ρ Π= | ||
ΠΠΎΡΡΡΠΈΡΠΈΠ΅Π½Ρ Π= | ||
ΠΠΎΡΡΡΠΈΡΠΈΠ΅Π½Ρ Π‘= | — 4−3 | |
ΠΠΈΡΠΊΡΠΈΠΌΠΈΠ½Π°Π½Ρ D= | ||
ΠΠΎΡΠ΅Π½Ρ Π₯1= | — 2,342 | |
ΠΠΎΡΠ΅Π½Ρ Π₯2= | 0,342 | |
Π€ΠΎΡΠΌΡΠ»Ρ ΡΠΎΠΊΡΠ°ΡΠ΅Π½Π½ΠΎΠ³ΠΎ ΡΠΌΠ½ΠΎΠΆΠ΅Π½ΠΈΡ:
ΠΠΈΠΏΠ΅ΡΡΡΡΠ»ΠΊΠΈ Π½Π° ΡΠ°ΠΉΠ», ΠΌΠ΅ΡΡΠΎ Π² Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ΅, ΡΠ»Π΅ΠΊΡΡΠΎΠ½Π½ΡΡ ΠΏΠΎΡΡΡ.
ΠΠ°Π΄Π°ΡΠ° — ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΠΎΠ² ΡΡΠ΅ΡΠ³ΠΎΠ»ΡΠ½ΠΈΠΊΠ°
ΠΡΡ ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅: | ||
Π‘ΡΠΎΡΠΎΠ½Π° Π= | ||
Π‘ΡΠΎΡΠΎΠ½Π° B= | ||
Π‘ΡΠΎΡΠΎΠ½Π° C= | ||
Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ: | 1!Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠ°Ρ ΠΎΡΠΈΠ±ΠΊΠ°, AND | |
ΠΠΎΡΠΈΠ½ΡΡ ΡΠ³Π»Π° | 0,75 | |
ΠΠΎΡΠΈΠ½ΡΡ ΡΠ³Π»Π° | 0,12 | |
ΠΠΎΡΠΈΠ½ΡΡ ΡΠ³Π»Π° | 0,56 | |
ΠΠ΅ΡΠΈΠΌΠ΅ΡΡ | ||
ΠΠ»ΠΎΡΠ°Π΄Ρ | 9,922 | |
ΠΠ°Π΄Π°ΡΠ° 2
Π‘ΠΎΠ·Π΄Π°ΠΉΡΠ΅ Π²Π΅Π΄ΠΎΠΌΠΎΡΡΡ Π»ΡΠ±ΠΎΠ³ΠΎ ΡΠΎΠ΄Π΅ΡΠΆΠ°Π½ΠΈΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΡΠ°Π±Π»ΠΈΡ ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ° Word. (Π²Π΅Π΄ΠΎΠΌΠΎΡΡΡ Π½Π° Π²ΡΠ΄Π°ΡΡ Π·Π°ΡΠ°Π±ΠΎΡΠ½ΠΎΠΉ ΠΏΠ»Π°ΡΡ.)
ΠΠΈΠ½ΠΈΠΌΠ°Π»ΡΠ½ΡΠΉ ΠΎΠΊΠ»Π°Π΄ | ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΡ Π² ΡΠΎΠ½Π΄Ρ | ΠΠΎΠ΄ΠΎΡ ΠΎΠ΄Π½ΡΠΉ Π½Π°Π»ΠΎΠ³ | |||||
Π€Π°ΠΌΠΈΠ»ΠΈΡ | ΠΠΎΠ΄ ΡΠΎΠΆΠ΄Π΅Π½. | Π Π°Π·ΡΡΠ΄ | ΠΠ°ΡΠΈΡΠ»ΠΈΡΡ | Π ΡΠΎΠ½Π΄Ρ | ΠΠ°Π»ΠΎΠ³ΠΈ | Π Π²ΡΠ΄Π°ΡΠ΅ | |
Π Π΅ΠΏΠΊΠ° | 15,84 | 205,92 | 1362,24 | ||||
ΠΠ°Π±ΠΊΠ° | 14,52 | 188,76 | 1248,72 | ||||
ΠΠ΅Π΄ΠΊΠ° | 22,44 | 291,72 | 1929,84 | ||||
ΠΠ½ΡΡΠΊΠ° | 19,8 | 257,4 | 1702,8 | ||||
ΠΡΡΠΊΠ° | 10,56 | 15,84 | 1029,6 | ||||
ΠΡΡΠΊΠ° | 3,96 | 51,48 | 340,56 | ||||
ΠΠ°Π΄Π°ΡΠ° 3
ΠΠ°ΠΏΠΈΡΠΈΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡΠ΅ΠΊΠΎΡΠ΄Π΅ΡΠΎΠΌ ΠΊΠΎΠ΄ Π»ΡΠ±ΠΎΠΉ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΈ ΡΠΎΡΠΌΠ°ΡΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠ°.
ΠΈΠ»ΠΈ ΠΌΠ΅Π½Ρ Π‘Π΅ΡΠ²ΠΈΡ ΠΠ°ΠΊΡΠΎΡ… ΠΠ°ΠΊΡΠΎΡΡ ΠΠ°ΠΊΡΠΎΡ1 ΠΡΠΏΠΎΠ»Π½ΠΈΡΡ.
ΠΠ°Π΄Π°ΡΠ° 4
ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΡΠ°ΡΡΡΠΎΡΠ½ΠΈΠΉ ΠΎΡ ΡΠΎΡΠΊΠΈ ΠΏΡΡΠΌΠΎΠΉ Π»ΠΈΠ½ΠΈΠΈ Π΄ΠΎ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ; Π²ΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΡΠ°ΡΡΡΠΎΡΠ½ΠΈΡ ΠΌΠ΅ΠΆΠ΄Ρ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΡΠΌΠΈ.
Π Π°ΡΡΡΠΎΡΠ½ΠΈΠ΅ΠΌ ΠΎΡ ΡΠΎΡΠΊΠΈ Π΄ΠΎ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ Π½Π°Π·ΡΠ²Π°Π΅ΡΡΡ Π΄Π»ΠΈΠ½Π° ΠΏΠ΅ΡΠΏΠ΅Π½Π΄ΠΈΠΊΡΠ»ΡΡΠ°, ΠΎΠΏΡΡΠ΅Π½Π½ΠΎΠ³ΠΎ ΠΈΠ· ΡΠΎΡΠΊΠΈ Π½Π° ΠΏΠ»ΠΎΡΠΊΠΎΡΡΡ. Π Π°ΡΡΡΠΎΡΠ½ΠΈΠ΅ ΠΎΡ ΡΠΎΡΠΊΠΈ Π (Ρ 1, y1, z1) Π΄ΠΎ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ Ax + By + Cz + D = 0 Π²ΡΡΠΈΡΠ»ΡΠ΅ΡΡΡ ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π΅
Π Π°ΡΡΡΠΎΡΠ½ΠΈΠ΅ ΠΌΠ΅ΠΆΠ΄Ρ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΡΠΌΠΈ ΠΈ ΠΌΠΎΠΆΠ½ΠΎ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΡ ΠΊΠ°ΠΊ ΡΠ°ΡΡΡΠΎΡΠ½ΠΈΠ΅ ΠΌΠ΅ΠΆΠ΄Ρ ΠΏΡΡΠΌΡΠΌΠΈ, Π»Π΅ΠΆΠ°ΡΠΈΠΌΠΈ Π² ΡΡΠΈΡ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΡΡ ΠΈ Π·Π°Π΄Π°Π½Π½ΡΠΌΠΈ ΡΠ²ΠΎΠΈΠΌΠΈ Π½Π°ΠΏΡΠ°Π²Π»ΡΡΡΠΈΠΌΠΈ Π²Π΅ΠΊΡΠΎΡΠ°ΠΌΠΈ, ΠΈ ΡΠΎΡΠΊΠ°ΠΌΠΈ, ΡΠ΅ΡΠ΅Π· ΠΊΠΎΡΠΎΡΡΠ΅ ΠΎΠ½ΠΈ ΠΏΡΠΎΡ ΠΎΠ΄ΡΡ, ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²Π΅Π½Π½ΠΎ. ΠΠ·Π²Π΅ΡΡΠ½ΠΎ, ΡΡΠΎ ΠΏΡΡΠΌΠ°Ρ Π»Π΅ΠΆΠΈΡ Π½Π° ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ ΡΠΎΠ³Π΄Π° ΠΈ ΡΠΎΠ»ΡΠΊΠΎ ΡΠΎΠ³Π΄Π°, ΠΊΠΎΠ³Π΄Π°
.
ΠΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΡΠΎΡΠ΅ΠΊ ΠΌΠΎΠΆΠ½ΠΎ Π²Π·ΡΡΡ ΡΠ°ΠΊΠΈΠΌΠΈ:
.
Π Π°ΡΡΡΠΎΡΠ½ΠΈΠ΅ ΠΌΠ΅ΠΆΠ΄Ρ ΠΏΡΡΠΌΡΠΌΠΈ Π½Π°Ρ ΠΎΠ΄ΡΡ ΠΏΠΎ ΡΠΎΡΠΌΡΠ»Π΅
.
Π‘ ΡΡΡΡΠΎΠΌ ΡΠΎΠ³ΠΎ, ΡΡΠΎ ΠΈΠ·Π²Π΅ΡΡΠ½Ρ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠ΅ΠΉ (ΠΊΠΎΡΡΡΠΈΡΠΈΠ΅Π½ΡΡ), ΠΏΠΎΠ»ΡΡΠΈΠΌ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ Π²ΠΈΠ΄ ΡΠΎΡΠΌΡΠ»Ρ:
Π Π΅ΡΠΈΠΌ ΠΏΠΎΡΡΠ°Π²Π»Π΅Π½Π½ΡΡ Π·Π°Π΄Π°ΡΡ.
Π ΡΠ°Π±Π»ΠΈΡΠ°Ρ Word.
ΠΡΡ ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅: | |||||
ΠΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΡ ΡΠΎΡΠΊΠΈ Π: | x | y | z | ||
1,5 | |||||
ΠΠΎΡΡΡΠΈΡΠΈΠ΅Π½ΡΡ Π² ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΈ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ Ρ: | A | B | C | D | |
ΠΠΎΡΡΡΠΈΡΠΈΠ΅Π½ΡΡ Π² ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΈ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ Ρ1: | — 3 | ||||
ΠΠΎΡΡΡΠΈΡΠΈΠ΅Π½ΡΡ Π² ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΈ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ Ρ2: | — 2 | ||||
Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ: | |||||
Π Π°ΡΡΡΠΎΡΠ½ΠΈΠ΅ ΠΎΡ ΡΠΎΡΠΊΠΈ Π Π΄ΠΎ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΠΈ Ρ: | 3,16 | ||||
Π Π°ΡΡΡΠΎΡΠ½ΠΈΠ΅ ΠΌΠ΅ΠΆΠ΄Ρ ΠΏΠ»ΠΎΡΠΊΠΎΡΡΡΠΌΠΈ Ρ1 ΠΈ Ρ2: | 0,41 | ||||
Π ΡΠ°Π±Π»ΠΈΡΠ°Ρ Excel.
Π‘ΠΎΠ·Π΄Π°ΠΉΡΠ΅ ΡΡΠ½ΠΊΡΠΈΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ Π΄Π»Ρ ΠΠ°ΡΡΠ΅ΡΠ° Π€ΡΠ½ΠΊΡΠΈΠΉ
Π ΡΠ΅Π΄Π°ΠΊΡΠΎΡΠ΅ Visual Basic ΡΠΎΠ·Π΄Π°Π΄ΠΈΠΌ ΠΌΠΎΠ΄ΡΠ»Ρ Ρ ΡΡΠ½ΠΊΡΠΈΡΠΌΠΈ:
Dim m (3), p (4), p1(4), p2(4) As Double
Function RastMPi (m, p) As Double
RastMPi = Abs (p (1) * m (1) + p (2) * m (2) + p (3) * m (3) + p (4)) / ((p (1)) ^ 2 + (p (2)) ^ 2 + (p (3)) ^ 2) ^ 0.5
End Function
Function RastP1P2(p1, p2) As Double
RastP1P2 = Abs ((p1(4) / p1(3) — p2(4) / p2(3)) * (p1(1) * p2(2) — p2(1) * p1(2))) / ((p1(2) * p2(3) — p2(2) * p1(3)) ^ 2 + (p1(1) * p2(3) — p2(1) * p1(3)) ^ 2 + (p1(1) * p2(2) — p2(1) * p1(2)) ^ 2) ^ 0.5
End Function
1. ΠΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΌΠ°ΠΊΡΠΎΡΠ΅ΠΊΠΎΡΠ΄Π΅Ρ, ΡΠΎΠ·Π΄Π°ΠΉΡΠ΅ ΠΌΠ°ΠΊΡΠΎΡ Π΄Π»Ρ Π·Π°Π΄Π°ΡΠΈ.
2. ΠΠ°ΠΊΡΠ΅ΠΏΠΈΡΠ΅ Π΅Π³ΠΎ Π·Π° ΡΠ»Π΅ΠΌΠ΅Π½ΡΠΎΠΌ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Π² ΡΠ΅ΠΊΡΡΠ΅ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ° ΠΈΠ»ΠΈ ΡΠ°Π±ΠΎΡΠ΅ΠΉ ΠΊΠ½ΠΈΠ³ΠΈ.
Π ΡΡΠ΅Π΄Π΅ VBA ΡΠΎΠ·Π΄Π°Π΄ΠΈΠΌ ΡΠΎΡΠΌΡ Π²ΠΈΠ΄Π°:
ΠΠ° Π½Π°ΠΆΠ°ΡΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ Π Π°ΡΡΡΠΈΡΠ°ΡΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΠΌ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ:
Private Sub CommandButton1_Click ()
Dim x, y, z, A, B, C, D, A1, B1, C1, D1, A2, B2, C2, D2 As Double
x = Int (TextBox1.Text)
y = Int (TextBox2.Text)
z = Int (TextBox3.Text)
A = Int (TextBox4.Text)
B = Int (TextBox5.Text)
C = Int (TextBox6.Text)
D = Int (TextBox7.Text)
A1 = Int (TextBox11.Text)
B1 = Int (TextBox10.Text)
C1 = Int (TextBox9.Text)
D1 = Int (TextBox8.Text)
A2 = Int (TextBox15.Text)
B2 = Int (TextBox14.Text)
C2 = Int (TextBox13.Text)
D2 = Int (TextBox12.Text)
Label9.Caption = Str (Abs (A * x + B * y + C * z + D) / (A ^ 2 + B ^ 2 + C ^ 2) ^ 0.5)
Label10.Caption = Str (Abs ((D1 / C1 — D2 / C2) * (A1 * B2 — A2 * B1)) / ((B1 * C2 — B2 * C1) ^ 2 + (A1 * C2 — A2 * C1) ^ 2 + (A1 * B2 — A2 * B1) ^ 2) ^ 0.5)
End Sub
Π ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΠΏΠΎΠ»ΡΡΠΈΠΌ ΡΠ»Π΅Π΄ΡΡΡΠ΅Π΅ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅:
ΠΠ°Π΄Π°ΡΠ° 5
ΠΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΡ Π½Π°Π»ΠΈΡΠΈΠ΅ ΠΊΠΎΡΠ½Ρ ΡΡΠ½ΠΊΡΠΈΠΈ Π½Π° ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»Π΅ [x1,x2] ΠΈ ΠΏΠΎΡΡΡΠΎΠΈΡΡ Π΅Ρ Π³ΡΠ°ΡΠΈΠΊ. ΠΠ°ΠΉΡΠΈ ΡΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΊΠΎΡΡΡΠΈΡΠΈΠ΅Π½ΡΠΎΠ² Π, Π ΠΏΡΠΈ ΠΊΠΎΡΠΎΡΠΎΠΌ Π½Π° Π·Π°Π΄Π°Π½Π½ΠΎΠΌ ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»Π΅ Π΅ΡΡΡ ΠΊΠΎΡΠ΅Π½Ρ. ΠΡΠΈ Π·Π°Π΄Π°Π½Π½ΠΎΠΌ Π·Π½Π°ΡΠ΅Π½ΠΈΠΈ ΠΊΠΎΡΡΡΠΈΡΠΈΠ΅Π½ΡΠΎΠ² Π, Π ΠΏΠΎΠ΄ΠΎΠ±ΡΠ°ΡΡ ΠΈΠ½ΡΠ΅ΡΠ²Π°Π», ΡΠΎΠ΄Π΅ΡΠΆΠ°ΡΠΈΠΉ ΠΊΠΎΡΠ΅Π½Ρ ΡΡΠ½ΠΊΡΠΈΠΈ.
ΠΠ»Ρ Π½Π°Ρ ΠΎΠΆΠ΄Π΅Π½ΠΈΡ ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»Π° ΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΡ ΡΡΠ΅Π΄ΡΡΠ²Π°ΠΌΠΈ ΠΠΎΠΈΡΠΊΠ° ΡΠ΅ΡΠ΅Π½ΠΈΡ, ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ (Π΄ΠΎΠΏΠΎΠ»Π½ΠΈΡΠ΅Π»ΡΠ½ΠΎΠ΅ ΠΎΠ³ΡΠ°Π½ΠΈΡΠ΅Π½ΠΈΠ΅ Π½Π° ΠΈΠ½ΡΠ΅ΡΠ²Π°Π»:, Ρ.ΠΊ. ΡΡΠ½ΠΊΡΠΈΡ ΠΈΠΌΠ΅Π΅Ρ ΠΈΠΌΠ΅Π½Π½ΠΎ ΡΠ°ΠΊΡΡ ΠΎΠ±Π»Π°ΡΡΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½ΠΈΡ):
ΠΠ»Ρ Π½Π°Ρ ΠΎΠΆΠ΄Π΅Π½ΠΈΡ ΠΊΠΎΡΡΡΠΈΡΠΈΠ΅Π½ΡΠΎΠ² ΡΠ°ΠΊΠΆΠ΅ ΠΏΠΎΠ»ΡΠ·ΡΠ΅ΠΌΡΡ ΡΡΠ΅Π΄ΡΡΠ²Π°ΠΌΠΈ ΠΠΎΠΈΡΠΊΠ° ΡΠ΅ΡΠ΅Π½ΠΈΡ, ΡΡΡΠ°Π½Π°Π²Π»ΠΈΠ²Π°Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ:
Π ΠΎΠ±ΠΎΠΈΡ ΡΠ»ΡΡΠ°ΡΡ ΠΏΠΎΡΠ»Π΅ Π½Π°ΠΆΠ°ΡΠΈΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ ΠΡΠΏΠΎΠ»Π½ΠΈΡΡ, ΠΏΠΎΡΠ²Π»ΡΠ΅ΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠ΅Π΅ ΠΎΠΊΠ½ΠΎ, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ Π½ΡΠΆΠ½ΠΎ ΡΠΎΠ»ΡΠΊΠΎ Π½Π°ΠΆΠ°ΡΡ ΠΊΠ½ΠΎΠΏΠΊΡ ΠΠ:
ΠΠ°ΠΉΠ΄ΡΠΌ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ Π΄Π°Π½Π½ΠΎΠΉ Π·Π°Π΄Π°ΡΠΈ Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ΠΌ ΡΠΎΡΠΌΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ.
ΠΠ°Π΄Π°ΡΠ° 6
Π Π΅Π°Π»ΠΈΠ·ΠΎΠ²Π°ΡΡ Π·Π°Π΄Π°ΡΡ ΡΠ²ΠΎΠ΅Π³ΠΎ Π²Π°ΡΠΈΠ°Π½ΡΠ° ΡΡΠ΅Π΄ΡΡΠ²Π°ΠΌΠΈ VBA Π»ΡΠ±ΠΎΠ³ΠΎ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΡΡΠ°Π½Π΄Π°ΡΡΠ½ΡΠΉ ΠΌΠΎΠ΄ΡΠ»Ρ, ΡΠΎΡΠΌΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ, ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ Π² Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ΅, ΠΊΠ½ΠΈΠ³Π΅.
ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΡΠΈΡΠ»Π° ΡΠΎΡΠ΅ΡΠ°Π½ΠΈΠΉ, ΡΠ°Π·ΠΌΠ΅ΡΠ΅Π½ΠΈΠΉ, ΠΏΠ΅ΡΠ΅ΡΡΠ°Π½ΠΎΠ²ΠΎΠΊ.
ΠΡΠΏΠΎΠ»ΡΠ·ΡΡ ΡΠ»Π΅ΠΌΠ΅Π½ΡΡ ΡΠΏΡΠ°Π²Π»Π΅Π½ΠΈΡ:
ΠΡΡ ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅: | ||
m= | ||
n= | ||
Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ: | ||
Π§ΠΈΡΠ»ΠΎ ΡΠΎΡΠ΅ΡΠ°Π½ΠΈΠΉ | ||
Π§ΠΈΡΠ»ΠΎ ΡΠ°Π·ΠΌΠ΅ΡΠ΅Π½ΠΈΠΉ | ||
Π§ΠΈΡΠ»ΠΎ ΠΏΠ΅ΡΠ΅ΡΡΠ°Π½ΠΎΠ²ΠΎΠΊ | ||
ΠΡΠΏΠΎΠ»ΡΠ·ΡΡ ΡΠΎΡΠΌΡ ΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΠ΅Π»Ρ:
Π‘ΠΎΠ·Π΄Π°Π΄ΠΈΠΌ ΡΠΎΡΠΌΡ Π²ΠΈΠ΄Π°:
ΠΠ° Π½Π°ΠΆΠ°ΡΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ Π Π°ΡΡΡΠΈΡΠ°ΡΡ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΠΌ ΡΠ»Π΅Π΄ΡΡΡΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ:
Private Sub CommandButton1_Click ()
m = TextBox1. Text
n = TextBox2. Text
If m < n Then
Label6.Caption = Fact (n) / (Fact (m) * Fact (n — m))
Label7.Caption = Fact (n) / Fact (n — m)
Label8.Caption = Fact (n)
Else
response = MsgBox («ΠΠ²Π΅Π΄ΠΈΡΠ΅ n > m», vbOKOnly, «ΠΡΠΈΠ±ΠΊΠ° Π²Π²ΠΎΠ΄Π° Π΄Π°Π½Π½ΡΡ »)
Label6.Caption = «»
Label7.Caption = «»
Label8.Caption = «»
End If
End Sub
Π ΡΠ΅ΠΊΡΡΠ΅ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ Π²ΡΠΏΠΎΠΌΠΎΠ³Π°ΡΠ΅Π»ΡΠ½Π°Ρ ΡΡΠ½ΠΊΡΠΈΡ, ΠΏΠΎΠ΄ΡΡΠΈΡΡΠ²Π°ΡΡΠ°Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ n! ΠΡΠΈΠ²Π΅Π΄ΡΠΌ ΡΠ΅ΠΊΡΡ Π΄Π°Π½Π½ΠΎΠΉ ΡΡΠ½ΠΊΡΠΈΠΈ:
Function Fact (n) As Long
If n = 0 Then
Fact = 1
Else
Fact = Fact (n — 1) * n
End If
End Function