Π Π΅ΡΠ΅Π½ΠΈΠ΅ ΡΠΈΡΡΠ΅ΠΌ Π»ΠΈΠ½Π΅ΠΉΠ½ΡΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΉ Π½Π° Visual Basic ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ ΠΡΠ°ΠΌΠ΅ΡΠ°
Π Π°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½Π°Ρ Π½Π° Visual Basic ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π½Π°Ρ ΠΎΠ΄ΠΈΡ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ Π΄Π»Ρ ΡΠΈΡΡΠ΅ΠΌΡ Π»ΠΈΠ½Π΅ΠΉΠ½ΡΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΉ. ΠΠΎΠΈΡΠΊ ΡΠ΅ΡΠ΅Π½ΠΈΠΉ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠ΅ΡΠΎΠ΄Π° ΠΡΠ°ΠΌΠ΅ΡΠ°. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΡΡΠΎΠΈΡΡ Π³ΡΠ°ΡΠΈΠΊ, Ρ. Π΅. Π²ΠΈΠ·ΡΠ°Π»ΠΈΠ·ΠΈΡΡΠ΅Ρ ΡΠΏΠΎΡΠΎΠ±, Π΅ΡΠ»ΠΈ ΡΠΈΡΡΠ΅ΠΌΠ° ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· Π΄Π²ΡΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΉ. Π Textbox1 Π²Π²ΠΎΠ΄ΡΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΠΈΡΡΠ΅ΠΌΡ Ρ Π»Π΅Π²ΠΎΠ³ΠΎ Π²Π΅ΡΡ Π½Π΅Π³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π² ΠΏΡΠ°Π²ΠΎ. Π PictureBox1 ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ ΠΌΠ°ΡΡΠΈΡΠ° A — Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΠΈΠΌΠ΅ΡΡΠΈΠ΅ Π½Π΅ΠΈΠ·Π²Π΅ΡΡΠ½ΡΠ΅ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΡ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
Π Π΅ΡΠ΅Π½ΠΈΠ΅ ΡΠΈΡΡΠ΅ΠΌ Π»ΠΈΠ½Π΅ΠΉΠ½ΡΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΉ Π½Π° Visual Basic ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ ΠΡΠ°ΠΌΠ΅ΡΠ° (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
ΠΠΠ£ ΠΠΠ Π£ΡΠΈΠΌΡΠΊΠΈΠΉ Π³ΠΎΡΡΠ΄Π°ΡΡΡΠ²Π΅Π½Π½ΡΠΉ Π°Π²ΠΈΠ°ΡΠΈΠΎΠ½Π½ΡΠΉ ΡΠ΅Ρ Π½ΠΈΡΠ΅ΡΠΊΠΈΠΉ ΡΠ½ΠΈΠ²Π΅ΡΡΠΈΡΠ΅Ρ ΠΠ°ΡΠ΅Π΄ΡΠ° ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠΈ Π Π΅ΡΠ΅Π½ΠΈΠ΅ ΡΠΈΡΡΠ΅ΠΌ Π»ΠΈΠ½Π΅ΠΉΠ½ΡΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΉ Π½Π° Visual Basic ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ ΠΡΠ°ΠΌΠ΅ΡΠ° ΠΠΠ―Π‘ΠΠΠ’ΠΠΠ¬ΠΠΠ― ΠΠΠΠΠ‘ΠΠ ΠΊ ΠΊΡΡΡΠΎΠ²ΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ ΠΏΠΎ «ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠ°»
Π£ΡΠ° 2011 Π³.
1. ΠΠ΅ΡΠΎΠ΄ ΠΡΠ°ΠΌΠ΅ΡΠ°.
1.1 ΠΠΎΡΡΠ½Π΅Π½ΠΈΠ΅ ΠΌΠ΅ΡΠΎΠ΄Π°.
2. Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ
2.1 Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΡΠΈΡΡΠ»ΡΠ½ΠΎΠΉ ΡΠΎΡΠΌΡ
2.2 Π€ΠΎΡΠΌΠ° Π²Π²ΠΎΠ΄Π° ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΠΈ ΡΠΈΡΡΠ΅ΠΌ
2.3 ΠΡΠ½ΠΎΠ²Π½Π°Ρ ΡΠΎΡΠΌΠ°
2.4 Π€ΠΎΡΠΌΠ° Π³ΡΠ°ΡΠΈΠΊΠ° ΡΠΈΡΡΠ΅ΠΌΡ Π»ΠΈΠ½Π΅ΠΉΠ½ΠΎΠ³ΠΎ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ 2 ΡΡΠ΄Π°
2.5 ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΠ΅ ΡΠΎΡΠΌΡ
3. Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ
3.1 ΠΠ²ΠΎΠ΄ Π΄Π°Π½Π½ΡΡ .
3.2 ΠΡΠ½ΠΎΠ²Π½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°.
3.3 ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ Π³ΡΠ°ΡΠΈΠΊΠ°.
3.4 ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΡ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ.
3.5 ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄Π° ΠΌΠ΅ΠΆΠ΄Ρ ΡΠΎΡΠΌΠ°ΠΌΠΈ.
ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
ΠΠ° ΠΏΡΠ°ΠΊΡΠΈΠΊΠ΅ ΡΠ°ΡΡΠΎ Π²ΠΎΠ·Π½ΠΈΠΊΠ°Π΅Ρ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎΡΡΡ ΡΠ΅ΡΠΈΡΡ ΡΠΈΡΡΠ΅ΠΌΡ Π»ΠΈΠ½Π΅ΠΉΠ½ΡΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΉ. ΠΡΠ»ΠΈ ΠΌΠ°Π»Π΅Π½ΡΠΊΠΎΠ³ΠΎ ΠΏΠΎΡΡΠ΄ΠΊΠ°, ΡΠΎ Π²ΡΡ Π² ΠΏΠΎΡΡΠ΄ΠΊΠ΅ ΠΈ ΠΏΠΎΠ΄ΡΡΠΈΡΠ°ΡΡ Π²ΡΡΡΠ½ΡΡ Π½Π΅ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΠ΅Ρ ΡΡΡΠ΄Π°. Π Π΅ΡΠ»ΠΈ ΡΠΈΡΡΠ΅ΠΌΠ° ΠΈΠΌΠ΅Π΅Ρ Π²ΡΡΠΎΠΊΠΈΠΉ ΠΏΠΎΡΡΠ΄ΠΎΠΊ ΠΈΠ»ΠΈ ΠΏΡΠΎΡΡΠΎ ΠΈΡ ΠΎΡΠ΅Π½Ρ ΠΌΠ½ΠΎΠ³ΠΎ, ΡΠΎ ΠΏΡΠΈΡ ΠΎΠ΄ΠΈΡΡΡ ΠΏΡΠΈΠ±Π΅Π³Π°ΡΡ ΠΊ ΠΏΠΎΠΌΠΎΡΠΈ ΠΊΠΎΠΌΠΏΡΡΡΠ΅ΡΠ½ΠΎΠΉ ΡΠ΅Ρ Π½ΠΈΠΊΠΈ. Π‘ΡΡΠ΅ΡΡΠ²ΡΡΡ Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΠΏΠΎΡΠΎΠ±ΠΎΠ² ΡΠ΅ΡΠ΅Π½ΠΈΡ ΡΠΈΡΡΠ΅ΠΌΡ Π»ΠΈΠ½Π΅ΠΉΠ½ΡΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΉ Π½Π° ΠΠΠ, ΠΏΡΠΈΡΠ΅ΠΌ Π²ΡΠ΅ ΡΠΏΠΎΡΠΎΠ±Ρ ΡΠ°Π²Π½ΠΎΡΠ΅Π½Π½Ρ. Π ΡΡΠΎΠΉ ΡΠ°Π±ΠΎΡΠ΅ ΠΌΡ ΡΠ°ΡΡΠΌΠΎΡΡΠΈΠΌ ΠΌΠ΅ΡΠΎΠ΄ ΠΡΠ°ΠΌΠ΅ΡΠ°.
1. ΠΠ΅ΡΠΎΠ΄ ΠΡΠ°ΠΌΠ΅ΡΠ°
1.1 ΠΠΎΡΡΠ½Π΅Π½ΠΈΠ΅ ΠΌΠ΅ΡΠΎΠ΄Π°
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΡΠ΅ΡΠ°Π΅Ρ Π½Π΅ΠΎΠ΄Π½ΠΎΡΠΎΠ΄Π½ΡΡ ΡΠΈΡΡΠ΅ΠΌΡ n Π»ΠΈΠ½Π΅ΠΉΠ½ΡΡ Π°Π»Π³Π΅Π±ΡΠ°ΠΈΡΠ΅ΡΠΊΠΈΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΉ Ρ n Π½Π΅ΠΈΠ·Π²Π΅ΡΡΠ½ΡΠΌΠΈ:
a1,1×1 +a1,2×2 + … +a1,n xn = a1, n+1
a2,1×1 +a2,2×2 + … +a2,n xn = a2, n+1
…
an, 1×1 +an, 2×2 + … +an, n xn =an, n+1
ΠΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π½Π°ΠΉΡΠΈ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅, Π΅ΡΠ»ΠΈ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΠ΅Π»Ρ ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΠΌΠ°ΡΡΠΈΡΡ A=(aij) Π½Π΅ ΡΠ°Π²Π΅Π½ Π½ΡΠ»Ρ. ΠΠ»Ρ Π½Π°Ρ ΠΎΠΆΠ΄Π΅Π½ΠΈΡ i-ΠΎΠΉ ΠΊΠΎΠΌΠΏΠΎΠ½Π΅Π½ΡΡ ΠΊΠΎΡΠ½Ρ ΠΈΡΠ΅ΠΌ ΠΎΠΏΡΠ΅Π΄Π΅Π»ΠΈΡΠ΅Π»Ρ:
Π΄Π»Ρ Π²ΡΠ΅Ρ i = 1.n. Π’ΠΎΠ³Π΄Π°
2. Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ
2.1 Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΡΠΈΡΡΠ»ΡΠ½ΠΎΠΉ ΡΠΎΡΠΌΡ
ΠΡΠΈ Π·Π°ΠΏΡΡΠΊΠ΅ Microsoft Visual Basic 6.0 Π°Π²ΡΠΎΠΌΠ°ΡΠΈΡΠ΅ΡΠΊΠΈ ΠΎΡΠΊΡΡΠ²Π°Π΅ΡΡΡ ΠΎΠΊΠ½ΠΎ Ρ ΠΏΡΠ΅Π΄Π»ΠΎΠΆΠ΅Π½ΠΈΠ΅ΠΌ ΡΠΎΠ·Π΄Π°ΡΡ Π½ΠΎΠ²ΡΠΉ ΠΏΡΠΎΠ΅ΠΊΡ Standard EXE. ΠΠ°ΠΆΠΈΠΌΠ°Π΅ΠΌ OK.
ΠΠ°ΡΠ½ΡΠΌ ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΡΠΈΡΡΠ»ΡΠ½ΠΎΠ³ΠΎ Π»ΠΈΡΡΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ. Π ΠΎΡΠΊΡΡΠ²ΡΠ΅ΠΉΡΡ ΡΠΎΡΠΌΠ΅ (Form1) ΡΠ°ΡΡΡΠ°Π²ΠΈΠΌ ΠΎΠ±ΡΠ΅ΠΊΡΡ: Label1, Label2, Label3, PictureBox1, PictureBox2.
ΠΡΠΈΡΠ²ΠΎΠΈΠΌ ΡΠ²ΠΎΠΉΡΡΠ²Ρ Caption ΠΎΠ±ΡΠ΅ΠΊΡΠ° Label1 Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ «Π£ΠΠΠ’Π£-2011». Π’Π°ΠΊ ΠΆΠ΅ Label2 — «Π Π΅ΡΠ΅Π½ΠΈΠ΅ ΡΠΈΡΡΠ΅ΠΌ Π»ΠΈΠ½Π΅ΠΉΠ½ΡΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΉ», ΠΈ Label3 — «ΠΌΠ΅ΡΠΎΠ΄ ΠΡΠ°ΠΌΠ΅ΡΠ°». Π ΡΠ²ΠΎΠΉΡΡΠ²Π΅ Picture ΠΎΠ±ΡΠ΅ΠΊΡΠ° Picture1 ΠΈ Picture2 Π²ΡΠ±Π΅ΡΠ΅ΠΌ ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ΅Π½ΠΈΠ΅.
Π‘ΠΎΠ·Π΄Π°Π΄ΠΈΠΌ ΠΌΠ΅Π½Ρ Π΄Π»Ρ Π΄Π°Π½Π½ΠΎΠΉ ΡΠΎΡΠΌΡ. ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ Π² ΠΌΠ΅Π½Ρ Tools Π²ΡΠΏΠΎΠ»Π½ΠΈΠΌ ΠΊΠΎΠΌΠ°Π½Π΄Ρ Menu Editor. Π ΠΏΠΎΡΠ²ΠΈΠ²ΡΠ΅ΠΌΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠΌ ΠΎΠΊΠ½Π΅ Π½Π°ΠΏΠΈΡΠ΅ΠΌ Π½Π°Π·Π²Π°Π½ΠΈΡ ΠΏΡΠ½ΠΊΡΠΎΠ² ΠΌΠ΅Π½Ρ ΠΈ Π½Π°Π·Π²Π°Π½ΠΈΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡ, ΠΊΠΎΡΠΎΡΡΠ΅ Π±ΡΠ΄ΡΡ Π·Π°ΠΏΡΡΠΊΠ°ΡΡΡΡ ΠΏΡΠΈ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΠΈ ΠΊΠΎΠΌΠ°Π½Π΄ ΠΌΠ΅Π½Ρ. Π Π΅Π΄Π°ΠΊΡΠΎΡ ΠΌΠ΅Π½Ρ Ρ Π²Π²Π΅Π΄ΡΠ½Π½ΡΠΌΠΈ ΠΈΠΌΠ΅Π½Π°ΠΌΠΈ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»Π΅Π½ Π½Π° ΡΠΈΡΡΠ½ΠΊΠ΅.
2.2 Π€ΠΎΡΠΌΠ° Π²Π²ΠΎΠ΄Π° ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΠΈ ΡΠΈΡΡΠ΅ΠΌΡ
ΠΡΠΈ Π²ΡΠ±ΠΎΡΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ «Π Π΅ΡΠΈΡΡ Π‘ΠΠΠ£» Π² ΠΌΠ΅Π½Ρ ΡΠΈΡΡΠ»ΡΠ½ΠΎΠΉ ΡΠΎΡΠΌΡ «Π€Π°ΠΉΠ» > Π Π΅ΡΠΈΡΡ Π‘ΠΠΠ£» ΠΎΡΠΊΡΠΎΠ΅ΡΡΡ Π³Π»Π°Π²Π½Π°Ρ ΡΠΎΡΠΌΠ° (Form2).
ΠΡΠΎΡΠ΅ΡΡ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Form2:
ΠΠ° Form2 ΠΌΡ ΠΏΠΎΠΌΠ΅ΡΡΠΈΠ»ΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΡ Label1, TextBox1, TextBox2.
Π TextBox1 ΠΈ TextBox2 Π²Π²ΠΎΠ΄ΠΈΡΡΡ ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΡ ΡΠΈΡΡΠ΅ΠΌΡ. ΠΠ°ΠΆΠ°Π² «ENTER» Π½Π° ΠΊΠ»Π°Π²ΠΈΠ°ΡΡΡΠ΅, ΠΏΠΎΡΠ»Π΅ Π²Π²ΠΎΠ΄Π°, ΠΎΡΠΊΡΡΠ²Π°Π΅ΡΡΡ ΠΎΡΠ½ΠΎΠ²Π½Π°Ρ ΡΠΎΡΠΌΠ°.
2.3 ΠΡΠ½ΠΎΠ²Π½Π°Ρ ΡΠΎΡΠΌΠ°
ΠΡΠΎΡΠ΅ΡΡ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ Form3:
ΠΠ° Form3 ΠΌΡ ΠΏΠΎΠΌΠ΅ΡΡΠΈΠ»ΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΡ Frame1, Frame2, Frame3, Command Button1, Command Button2, Label1, TextBox1, PictureBox1, PictureBox2, PictureBox3.
Π Textbox1 Π²Π²ΠΎΠ΄ΡΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΡΠΈΡΡΠ΅ΠΌΡ Ρ Π»Π΅Π²ΠΎΠ³ΠΎ Π²Π΅ΡΡ Π½Π΅Π³ΠΎ Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π² ΠΏΡΠ°Π²ΠΎ. Π PictureBox1 ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ ΠΌΠ°ΡΡΠΈΡΠ° A — Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ ΠΈΠΌΠ΅ΡΡΠΈΠ΅ Π½Π΅ΠΈΠ·Π²Π΅ΡΡΠ½ΡΠ΅ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΡ Π₯ij. Π PictureBox2 ΠΈΠ·ΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ ΠΎΠ΄Π½ΠΎΠΌΠ΅ΡΠ½Π°Ρ ΠΌΠ°ΡΡΠΈΡΠ° B, Π·Π½Π°ΡΠ΅Π½ΠΈΡ Π½Π΅ ΠΈΠΌΠ΅ΡΡΠΈΠ΅ Π½Π΅ΠΈΠ·Π²Π΅ΡΡΠ½ΡΠ΅ Π°ΡΠ³ΡΠΌΠ΅Π½ΡΡ.
ΠΠ΅Π½Ρ Π΄Π°Π½Π½ΠΎΠΉ ΡΠΎΡΠΌΡ ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· ΡΠ°Π·Π΄Π΅Π»Π° ΠΌΠ΅Π½Ρ Π€Π°ΠΉΠ» ΠΈ Π‘ΠΏΡΠ°Π²ΠΊΠ°. Π Π°Π·Π΄Π΅Π» Π€Π°ΠΉΠ» ΠΈΠΌΠ΅Π΅Ρ ΠΏΠΎΠ΄ΠΌΠ΅Π½Ρ ΠΠ° Π³Π»Π°Π²Π½ΠΎΠ΅, ΠΠ²Π΅ΡΡΠΈ ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΡ, ΠΡΡ ΠΎΠ΄. ΠΡΠΈ Π²ΡΠ±ΠΎΡΠ΅ Π€Π°ΠΉΠ» > ΠΠ° Π³Π»Π°Π²Π½ΠΎΠ΅ ΠΎΡΠΊΡΡΠ²Π°Π΅ΡΡΡ ΡΠΈΡΡΠ»ΡΠ½Π°Ρ ΡΠΎΡΠΌΠ°, Π° ΠΎΡΠ½ΠΎΠ²Π½Π°Ρ ΡΠΎΡΠΌΠ° Π·Π°ΠΊΡΡΠ²Π°Π΅ΡΡΡ. ΠΡΠΈ Π²ΡΠ±ΠΎΡΠ΅ Π€Π°ΠΉΠ» > ΠΠ²Π΅ΡΡΠΈ ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΡ ΠΎΡΠΊΡΡΠ²Π°Π΅ΡΡΡ ΡΠΎΡΠΌΠ° Π²Π²ΠΎΠ΄Π° ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΠΈ ΡΠΈΡΡΠ΅ΠΌΡ, Π° ΠΎΡΠ½ΠΎΠ²Π½Π°Ρ — Π·Π°ΠΊΡΡΠ²Π°Π΅ΡΡΡ. Π Π°Π·Π΄Π΅Π» Π‘ΠΏΡΠ°Π²ΠΊΠ° ΠΈΠΌΠ΅Π΅Ρ ΠΏΠΎΠ΄ΡΠΈΡΡΠ΅ΠΌΡ Π ΡΠΎΠ·Π΄Π°ΡΠ΅Π»Π΅, Π ΠΌΠ΅ΡΠΎΠ΄Π΅. ΠΡΠΈ Π²ΡΠ±ΠΎΡΠ΅ Π‘ΠΏΡΠ°Π²ΠΊΠ° > Π ΡΠΎΠ·Π΄Π°ΡΠ΅Π»Π΅ ΠΎΡΠΊΡΡΠ²Π°Π΅ΡΡΡ ΡΠΎΡΠΌΠ°, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ ΡΠΎΠ·Π΄Π°ΡΠ΅Π»Π΅, ΠΏΡΠΈ ΠΊΠΎΠΌΠ°Π½Π΄Π΅ Π‘ΠΏΡΠ°Π²ΠΊΠ° > Π ΠΌΠ΅ΡΠΎΠ΄Π΅ ΠΎΡΠΊΡΡΠ²Π°Π΅ΡΡΡ ΡΠΎΡΠΌΠ°, Π² ΠΊΠΎΡΠΎΡΠΎΠΌ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ ΠΌΠ΅ΡΠΎΠ΄Π΅.
ΠΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠ΅ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ «Π Π΅ΡΠΈΡΡ» Π½Π°ΡΠ½Π΅Ρ ΡΠ°Π±ΠΎΡΡ Π½Π°ΠΏΠΈΡΠ°Π½Π½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°, ΠΊΠΎΡΠΎΡΠ°Ρ ΡΠ΅ΡΠ°Π΅Ρ ΡΠΈΡΡΠ΅ΠΌΡ Π»ΠΈΠ½Π΅ΠΉΠ½ΡΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠ΅. ΠΠ½ΠΎΠΏΠΊΠ° «Π Π΅ΡΠΈΡΡ» Π½Π° ΡΠ°ΠΌΠΊΠ΅ «ΠΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅» ΠΎΡΠΊΡΡΠ²Π°Π΅Ρ ΡΠΎΡΠΌΡ ΠΡΠ°ΡΠΈΠΊΠ° ΡΠΈΡΡΠ΅ΠΌΡ ΠΈ Π·Π°ΠΏΡΡΠΊΠ°Π΅Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ Π³ΡΠ°ΡΠΈΠΊΠ° ΡΠ΅ΡΠ΅Π½ΠΈΡ, Π΅ΡΠ»ΠΈ ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΡ ΡΠΈΡΡΠ΅ΠΌΡ ΡΠ°Π²Π½Π° 2, ΠΈΠ½Π°ΡΠ΅ Π΄Π°Π½Π½Π°Ρ ΠΊΠ½ΠΎΠΏΠΊΠ° Π½Π΅ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ.
2.4 Π€ΠΎΡΠΌΠ° Π³ΡΠ°ΡΠΈΠΊΠ° ΡΠΈΡΡΠ΅ΠΌΡ Π»ΠΈΠ½Π΅ΠΉΠ½ΠΎΠ³ΠΎ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ 2 ΡΡΠ΄Π°
ΠΠ½ΠΎΠΏΠΊΠ° «Π Π΅ΡΠΈΡΡ» Π½Π° ΡΠ°ΠΌΠΊΠ΅ «ΠΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅» ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΡΠΎΡΠΌΡ ΠΎΡΠΊΡΡΠ²Π°Π΅Ρ ΡΠΎΡΠΌΡ ΠΡΠ°ΡΠΈΠΊ (Form4) ΡΠΈΡΡΠ΅ΠΌΡ ΠΈ Π·Π°ΠΏΡΡΠΊΠ°Π΅Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ Π³ΡΠ°ΡΠΈΠΊΠ° ΡΠ΅ΡΠ΅Π½ΠΈΡ, Π΅ΡΠ»ΠΈ ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΡ ΡΠΈΡΡΠ΅ΠΌΡ ΡΠ°Π²Π½Π° 2, ΠΈΠ½Π°ΡΠ΅ Π΄Π°Π½Π½Π°Ρ ΠΊΠ½ΠΎΠΏΠΊΠ° Π½Π΅ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°Π΅ΡΡΡ.
ΠΠ° Π΄Π°Π½Π½ΡΡ ΡΠΎΡΠΌΡ ΠΏΠΎΠΌΠ΅ΡΠ΅Π½Ρ PictureBox1, Label1, Label2, TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6.
Π‘ ΠΏΠΎΠΌΠΎΡΡΡ TextBox ΠΈ Label ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡΡΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ ΠΏΡΡΠΌΡΡ . Π PictureBox1 Π²ΡΠ²ΠΎΠ΄ΠΈΡΡΡ Π³ΡΠ°ΡΠΈΠΊ Π΄Π°Π½Π½ΡΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΉ.
ΠΠ΅Π½Ρ Π΄Π°Π½Π½ΠΎΠΉ ΡΠΎΡΠΌΡ ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· ΡΠ°Π·Π΄Π΅Π»Π° ΠΌΠ΅Π½Ρ Π€Π°ΠΉΠ» ΠΈ Π‘ΠΏΡΠ°Π²ΠΊΠ°. Π Π°Π·Π΄Π΅Π» Π€Π°ΠΉΠ» ΠΈΠΌΠ΅Π΅Ρ ΠΏΠΎΠ΄ΠΌΠ΅Π½Ρ: ΠΠ° Π³Π»Π°Π²Π½ΠΎΠ΅, Π Π΅ΡΠΈΡΡ Π‘ΠΠΠ£ ΠΈ ΠΡΡ ΠΎΠ΄. Π Π°Π·Π΄Π΅Π» Π‘ΠΏΡΠ°Π²ΠΊΠ° ΠΈΠΌΠ΅Π΅Ρ ΠΎΠ΄Π½ΠΎ ΠΏΠΎΠ΄ΠΌΠ΅Π½Ρ — Π ΡΠΎΠ·Π΄Π°ΡΠ΅Π»Π΅.
2.5 ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΠ΅ ΡΠΎΡΠΌΡ
Form4 ΠΈ Form6 Π½Π΅ΡΡΡ ΡΠΎΠ±ΠΎΠΉ ΡΠΎΠ»ΡΠΊΠΎ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½ΡΠΉ ΡΠΌΡΡΠ»: Π² Form6 (ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ ΡΠΎΠ·Π΄Π°ΡΠ΅Π»Π΅) Π½Π°Ρ ΠΎΠ΄ΠΈΡΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ ΡΠΎΠ·Π΄Π°ΡΠ΅Π»Π΅ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ, Π² Form5 (ΠΠ΅ΡΠΎΠ΄ ΠΡΠ°ΠΌΠ΅ΡΠ°) Π²ΠΊΡΠ°ΡΡΠ΅ Π½Π°ΠΏΠΈΡΠ°Π½ΠΎ ΠΎ ΠΌΠ΅ΡΠΎΠ΄Π΅ ΠΡΠ°ΠΌΠ΅ΡΠ°.
ΠΠ°ΠΆΠ΄ΡΠΉ ΠΈΠ· Π΄Π°Π½Π½ΡΡ ΡΠΎΡΠΌΡ ΠΈΠΌΠ΅Π΅Ρ ΡΠΎΠ»ΡΠΊΠΎ ΠΎΠ΄ΠΈΠ½ ΠΎΠ±ΡΠ΅ΠΊΡ — OLE1, Π² ΠΊΠΎΡΠΎΡΡΡ Π²ΠΊΠ»ΡΡΠ΅Π½ ΡΠ°ΠΉΠ» MS Word.
ΠΠ΅Π½Ρ ΡΠΎΡΠΌΡ Form6 (ΠΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ ΡΠΎΠ·Π΄Π°ΡΠ΅Π»Π΅) ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· ΡΠ°Π·Π΄Π΅Π»Π° ΠΌΠ΅Π½Ρ Π€Π°ΠΉΠ» (ΠΏΠΎΠ΄ΠΌΠ΅Π½Ρ ΠΠ° Π³Π»Π°Π²Π½ΠΎΠ΅, Π Π΅ΡΠΈΡΡ Π‘ΠΠΠ£ ΠΈ ΠΡΡ ΠΎΠ΄) ΠΈ Π‘ΠΏΡΠ°Π²ΠΊΠ° (ΠΏΠΎΠ΄ΠΌΠ΅Π½Ρ Π ΠΌΠ΅ΡΠΎΠ΄Π΅). ΠΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠ΅ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ «ΠΠ° Π³Π»Π°Π²Π½ΠΎΠ΅» ΠΎΡΠΊΡΠΎΠ΅ΡΡΡ ΡΠΈΡΡΠ»ΡΠ½Π°Ρ ΡΠΎΡΠΌΠ°, Π° ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Π½Π°Ρ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΎΠ½Π½Π°Ρ ΡΠΎΡΠΌΠ° Π·Π°ΠΊΡΠΎΠ΅ΡΡΡ, ΠΏΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠ΅ Π½Π° ΠΊΠ½ΠΎΠΏΠΊΡ «Π Π΅ΡΠΈΡΡ Π‘ΠΠΠ£» — ΡΠΎΡΠΌΠ° Π²Π²ΠΎΠ΄Π° ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΠΈ ΡΠΈΡΡΠ΅ΠΌΡ.
ΠΡΠ·Π²Π°ΡΡ Π΄Π°Π½Π½ΡΠ΅ ΡΠΎΡΠΌΡ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎ ΠΈΠ· ΠΌΠ΅Π½Ρ Π‘ΠΏΡΠ°Π²ΠΊΠ° Π»ΡΠ±ΠΎΠΉ ΡΠΎΡΠΌΡ, ΠΊΡΠΎΠΌΠ΅ ΡΠΎΡΠΌΡ Π²Π²ΠΎΠ΄Π° ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΠΈ ΡΠΈΡΡΠ΅ΠΌΡ:
Π‘ΠΏΡΠ°Π²ΠΊΠ° > Π ΡΠΎΠ·Π΄Π°ΡΠ΅Π»Π΅.
ΠΠ΅Π½Ρ ΡΠΎΡΠΌΡ Form5 (ΠΠ΅ΡΠΎΠ΄ ΠΡΠ°ΠΌΠ΅ΡΠ°) ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· ΡΠ°Π·Π΄Π΅Π»Π° ΠΌΠ΅Π½Ρ Π€Π°ΠΉΠ», ΠΈΠΌΠ΅ΡΡΠΈΠΉ ΠΏΠΎΠ΄ΠΌΠ΅Π½Ρ ΠΠ° Π³Π»Π°Π²Π½ΠΎΠ΅, Π Π΅ΡΠΈΡΡ Π‘ΠΠΠ£ ΠΈ ΠΡΡ ΠΎΠ΄, ΠΊΠΎΡΠΎΡΡΠ΅ Π²ΡΠΏΠΎΠ»Π½ΡΡΡ ΠΏΡΠΎΡΠ΅ΡΡΡ, ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠ΅ ΡΠΎΡΠΌΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΎ ΡΠΎΠ·Π΄Π°ΡΠ΅Π»Π΅.
3. Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ
3.1 ΠΠ²ΠΎΠ΄ Π΄Π°Π½Π½ΡΡ
ΠΠ°Π½Π½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π·Π°ΠΏΡΡΠΊΠ°ΡΡΡΡ ΠΏΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ ΠΊΠ½ΠΎΠΏΠΊΠΈ «ENTER» Π½Π° ΠΊΠ»Π°Π²ΠΈΠ°ΡΡΡΠ΅, ΠΏΡΠΈ ΠΊΠΎΡΠΎΡΠΎΠΌ Π±ΡΠ΄Π΅Ρ Π²Π²ΠΎΠ΄ΠΈΡΡΡΡ Π΄Π°Π½Π½ΡΠ΅ ΠΈΠ· TextBox1, ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½Π½ΠΎΠΉ Π½Π° ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΡΠΎΡΠΌΠ΅ (Form3). ΠΡΠΈ Π°ΠΊΡΠΈΠ²Π°ΡΠΈΠΈ Form3 ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠΌ i ΠΈ j ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°ΡΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ 1.
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ:
Π’Π΅ΠΊΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ:
Private Sub Text1_KeyDown (KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
If (i <= n) And (j <= n + 1) Then
If j = n + 1 Then
b (i) = Val (Text1.Text)
Picture2.Print Format (b (i), «##0»)
Picture1.Print
Else
a (i, j) = Val (Text1.Text)
Picture1.Print Format (a (i, j), «##0 «);
End If
Text1.Text = ««
If j = n + 1 Then
j = 0
i = i + 1
End If
j = j + 1
End If
End If
End Sub
3.2 ΠΡΠ½ΠΎΠ²Π½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°
ΠΠ°Π½Π½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π·Π°ΠΏΡΡΠΊΠ°ΡΡΡΡ ΠΏΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ ΠΊΠ½ΠΎΠΏΠΊΠΈ «Π Π΅ΡΠΈΡΡ», ΡΠ°ΡΠΏΠΎΠ»ΠΎΠΆΠ΅Π½Π½ΠΎΠΉ Π½Π° ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΡΠΎΡΠΌΠ΅ (Form3). ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΈΠΌΠ΅Π΅Ρ Π²Ρ ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ (ΠΌΠ°ΡΡΠΈΡΠ° Ρ Π½Π΅ΠΈΠ·Π²Π΅ΡΡΠ½ΡΠΌΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠΌΠΈ ΠΈ ΠΌΠ°ΡΡΠΈΡΠ°, Π½Π΅ ΠΈΠΌΠ΅ΡΡΠΈΠΉ Π½Π΅ΠΈΠ·Π²Π΅ΡΡΠ½ΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅), ΠΏΡΠΎΠΌΠ΅ΠΆΡΡΠΎΡΠ½ΡΠ΅ ΠΈ ΠΊΠΎΠ½Π΅ΡΠ½ΠΎΠ΅ Π²ΡΡ ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅. ΠΡΠΈ Π°ΠΊΡΠΈΠ²Π°ΡΠΈΠΈ Form3 ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ n ΠΏΡΠΈΡΠ²Π°ΠΈΠ²Π°Π΅ΡΡΡ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΎΡ 2 Π΄ΠΎ 10.
ΠΠ»ΠΎΠΊ-ΡΡ Π΅ΠΌΠ° ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ:
Π’Π΅ΠΊΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ:
Private Sub Command1_Click ()
Picture3.Cls
For k = 1 To n
d (k) = 1
For i = 1 To n
For j = 1 To n
If j = k Then
c (i, j) = b (i)
Else
c (i, j) = a (i, j)
End If
'Picture2.Print Format (c (i, j), «##0.0##»),
Next
'Picture2.Print
Next
m1 = c (n — 1, n — 1) * c (n, n) — c (n — 1, n) * c (n, n — 1)
Do
If m1 = 0 Then
For j = 1 To n
t = a (n, j)
c (n, j) = c (i, j)
c (i, j) = t
Next
End If
Loop While m1 = 0
For j = 1 To n — 2
z = j + 1
If c (j, j) = 0 Then
If c (z, j) <> 0 Then
For z1 = j To n
w = c (j, z1)
c (j, z1) = c (z, z1)
c (z, z1) = w
Next
End If
End If
For i = j + 1 To n
h1 = c (i, j) / c (j, j)
For r = j To n
'Picture2.Print h1
c (i, r) = c (i, r) — c (j, r) * h1
Next
Next
d (k) = (-1)*d (k) * c (j, j)
Next
m1 = c (n — 1, n — 1) * c (n, n) — c (n — 1, n) * c (n, n — 1)
d (k) = d (k) * m1
'Picture2.Print d (k)
Next
'—————————————-;
m = 1
m1 = a (n — 1, n — 1) * a (n, n) — a (n — 1, n) * a (n, n — 1)
Do
If m1 = 0 Then
For j = 1 To n
t = a (n, j)
a (n, j) = a (i, j)
a (i, j) = t
Next
End If
Loop While m1 = 0
For j = 1 To n — 2
z = j + 1
If a (j, j) = 0 Then
If a (z, j) <> 0 Then
For z1 = j To n
w = a (j, z1)
a (j, z1) = a (z, z1)
a (z, z1) = w
Next
End If
End If
For i = j + 1 To n
h = a (i, j) / a (j, j)
For k = j To n
'Picture1.Print h
a (i, k) = a (i, k) — a (j, k) * h
Next
Next
m = m * a (j, j)
Next
m1 = a (n — 1, n — 1) * a (n, n) — a (n — 1, n) * a (n, n — 1)
m = m * m1
'Picture4.Print m
For x = 1 To n
d (x) = d (x) / m
Picture3.Print Format (d (x), «#0.0##»)
Next
End Sub
3.3 ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΡ Π³ΡΠ°ΡΠΈΠΊΠ°
ΠΠ°Π½Π½Π°Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π·Π°ΠΏΡΡΠΊΠ°ΡΡΡΡ ΠΏΡΠΈ Π°ΠΊΡΠΈΠ²Π°ΡΠΈΠΈ Form4, ΠΊΠΎΡΠΎΡΡΡ ΠΌΠΎΠΆΠ½ΠΎ Π°ΠΊΡΠΈΠ²ΠΈΡΠΎΠ²Π°ΡΡ Ρ ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΡΠΎΡΠΌΡ (Form3) ΠΏΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ ΠΊΠ½ΠΎΠΏΠΊΠΈ «Π Π΅ΡΠΈΡΡ» Π½Π° ΡΠ°ΠΌΠΊΠ΅ «ΠΡΠ°ΡΠΈΡΠ΅ΡΠΊΠΎΠ΅ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅». ΠΡΠ»ΠΈ ΡΠΈΡΠ»ΠΎ Π΄Π°Π½Π½ΡΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΉ Π½Π΅ Π±ΡΠ΄Π΅Ρ ΡΠ°Π²Π΅Π½ Π΄Π²ΡΠΌ, ΡΠΎ ΠΊΠ½ΠΎΠΏΠΊΠ° Π°ΠΊΡΠΈΠ²Π°ΡΠΈΠΈ Form4 Π½Π΅ Π±ΡΠ΄Π΅Ρ ΠΎΡΠΎΠ±ΡΠ°ΠΆΠ°ΡΡΡΡ Π½Π° ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΡΠΎΡΠΌΠ΅.
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΌΠΎΠΆΠ½ΠΎ ΡΠ°Π·Π±ΠΈΡΡ Π½Π° Π½Π΅ΡΠΊΠΎΠ»ΡΠΊΠΎ ΡΡΠ°ΠΏΠΎΠ²:
1. ΠΡΡΠΈΡΠ»Π΅Π½ΠΈΠ΅ ΡΠ°Π³Π° ΠΈ ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΠ΅ ΠΎΡΠ΅ΠΉ ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ;
2. ΠΠΎΡΡΡΠΎΠΉΠΊΠ° Π³ΡΠ°ΡΠΈΠΊΠ°.
Π’Π΅ΠΊΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ:
Private Sub Form_Activate ()
a (1, 1) = Val (Text1.Text)
a (1, 2) = Val (Text2.Text)
a (1, 3) = Val (Text3.Text)
a (2, 1) = Val (Text4.Text)
a (2, 2) = Val (Text5.Text)
a (2, 3) = Val (Text6.Text)
'ΡΠ°Π·ΠΌΠ΅Ρ picture
l = Picture1. Width
p = Picture1. Height
'ΡΠΎΡΠΊΠ° ΠΏΠ΅ΡΠ΅ΡΠ΅ΡΠ΅Π½ΠΈΡ
X2 = (a (2, 3) * a (1, 1) — a (1, 3) * a (2, 1)) / (a (2, 2) * a (1, 1) — a (1, 2) * a (2, 1))
X1 = (a (1, 3) — a (1, 2) * X2) / a (1, 1)
'ΡΠ°Π³
h1 = Int ((l — 500) / (Abs (X1) + 2))
h2 = Int ((p — 500) / (Abs (X2) + 2))
If h1 > h2 Then h = h2 Else h = h1
'Π½Π°ΡΠ°Π»Π° ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°Ρ
If X1 > 0 Then
If X2 > 0 Then
x0 = 500
y0 = p — 500
Else
x0 = 500
y0 = 500
End If
Else
If X2 > 0 Then
x0 = l — 500
y0 = p — 500
Else
x0 = l — 500
y0 = 500
End If
End If
'ΠΊΠΎΠΎΡΠ΄ΠΈΠ½Π°ΡΠ½ΡΠ΅ ΠΎΡΠΈ
Picture1.Line (x0, 0)-(x0, p)
Picture1.Line (0, y0)-(l, y0)
'ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΠ΅ Π³Π°ΡΠΈΠΊΠ°
r = Int ((l — x0) / h) + 1
k = (Int (x0 / h) + 1) * (-1)
f1 = (a (1, 3) — a (1, 1) * k) / a (1, 2)
f2 = (a (2, 3) — a (2, 1) * k) / a (2, 2)
i0 = k * h
'Picture1.Line (0, 0)-(0, 100)
'Picture1.Print r, k, f1, f2, i1
For i = k To r Step 0.1
i1 = i * h
fx1 = h * (a (1, 3) — a (1, 1) * i) / a (1, 2)
fx2 = h * (a (2, 3) — a (2, 1) * i) / a (2, 2)
Picture1.Line (x0 + i0, y0 — f1)-(x0 + i1, y0 — fx1), RGB (0, 0, 200)
Picture1.Line (x0 + i0, y0 — f2)-(x0 + i1, y0 — fx2), RGB (0, 200, 0)
f1 = fx1
f2 = fx2
i0 = i1
Next
'ΡΠΈΡΡΡ
Picture1.Line (x0, y0)-(x0 — 175, y0)
Picture1.Print 0
If Abs (k) > r Then z = k Else z = (-1) * r
For i = z To (-1) * z
If i <> 0 Then
Picture1.Line (x0, y0 — i * h)-(x0 + 100, y0 — i * h)
Picture1.Print i
Picture1.Line (x0 — i * h, y0)-(x0 — i * h, y0 + 100)
Picture1.Printi
End If
Next
Picture1.Line (x0 + X1 * h, y0)-(x0 + X1 * h, y0 — X2 * h), RGB (200, 0, 0)
Picture1.Line (x0, y0 — X2 * h)-(x0 + X1 * h, y0 — X2 * h), RGB (200, 0, 0)
End Sub
3.4 ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΡ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ
ΠΡΠΈ Π²ΡΠ±ΠΎΡΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ ΠΌΠ΅Π½Ρ Π€Π°ΠΉΠ» > ΠΡΡ ΠΎΠ΄ Π½Π° Π»ΡΠ±ΠΎΠΉ ΡΠΎΡΠΌΠ΅ Π΄Π°Π½Π½ΠΎΠ³ΠΎ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ Π·Π°ΠΏΡΡΠΊΠ°Π΅ΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°, Π·Π°Π²Π΅ΡΡΠ°ΡΡΠ°Ρ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ. ΠΠΎΡΠ»Π΅ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΠΉ Π΄Π»Ρ Π·Π°ΠΏΡΡΠΊΠ° Π΄Π°Π½Π½ΠΎΠΉ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠΎΡΠ²Π»ΡΠ΅ΡΡΡ Π΄ΠΈΠ°Π»ΠΎΠ³ΠΎΠ²ΠΎΠ΅ ΠΎΠΊΠ½ΠΎ Ρ ΠΏΠΎΠ΄ΡΠ²Π΅ΡΠΆΠ΄Π΅Π½ΠΈΠ΅ΠΌ Π·Π°Π²Π΅ΡΡΠ΅Π½ΠΈΡ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ ΠΈΠ»ΠΈ ΠΎΡΠΊΠ»ΠΎΠ½Π΅Π½ΠΈΠ΅ΠΌ.
Π’Π΅ΠΊΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ:
Private Sub exit_Click ()
If MsgBox («ΠΡ Π΄Π΅ΠΉΡΡΠ²ΠΈΡΠ΅Π»ΡΠ½ΠΎ Ρ ΠΎΡΠΈΡΠ΅ Π·Π°ΠΊΡΡΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΠ΅?», vbYesNo+ vbQuestion, «Exit System…») = vbNo Then
Exit Sub
End If
End
End Sub
3.5 ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄Π° ΠΌΠ΅ΠΆΠ΄Ρ ΡΠΎΡΠΌΠ°ΠΌΠΈ
Π»ΠΈΠ½Π΅ΠΉΠ½ΡΠΉ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠ΅ ΠΌΠ΅ΡΠΎΠ΄ ΠΊΡΠ°ΠΌΠ΅Ρ
ΠΡΠΈ Π²ΡΠ±ΠΎΡΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ Π² ΠΌΠ΅Π½Ρ ΡΠΎΡΠΌ ΠΈΠ»ΠΈ Π½Π°ΠΆΠ°ΡΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ «ΠΏΠΎΡΡΡΠΎΠΈΡΡ Π³ΡΠ°ΡΠΈΠΊ» Π½Π° ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΡΠΎΡΠΌΠ΅ (Form2), «ΠΡΠΌΠ΅Π½ΠΈΡΡ» Π² ΡΠΎΡΠΌΠ΅ ΡΠΎΡ ΡΠ°Π½Π΅Π½ΠΈΡ (Form5) ΠΎΡΠΊΡΡΠ²Π°Π΅ΡΡΡ ΡΠΎΡΠΌΠ°, ΠΊΠΎΡΠΎΡΠ°Ρ ΡΡΠ΅Π±ΡΠ΅ΡΡΡ Π΄Π»Ρ Π΄Π°Π»ΡΠ½Π΅ΠΉΡΠ΅ΠΉ ΡΠ°Π±ΠΎΡΡ ΠΏΡΠΈΠ»ΠΎΠΆΠ΅Π½ΠΈΡ.
Π’Π΅ΠΊΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄Π° ΡΠΈΡΡΠ»ΡΠ½ΠΎΠΉ ΡΠΎΡΠΌΡ (Form1):
Private Sub metod1_Click ()
Form5.Show
End Sub
Private Sub prog1_Click ()
Form2.Show
Form1.Hide
End Sub
Private Sub sozd1_Click ()
Form6.Show
End Sub
Π’Π΅ΠΊΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄Π° ΡΠΎΡΠΌΡ Π²Π²ΠΎΠ΄Π° ΡΠ°Π·ΠΌΠ΅ΡΠ½ΠΎΡΡΠΈ ΡΠΈΡΡΠ΅ΠΌΡ (Form2):
Private Sub Text2_KeyDown (KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Form3.Show
Form3.Picture1.Cls
Form3.Picture2.Cls
Form3.Picture3.Cls
Form2.Hide
End If
End Sub
Π’Π΅ΠΊΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄Π° ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΡΠΎΡΠΌΡ (Form3):
Private Sub Command2_Click ()
Form4.Show
End Sub
Private Sub glav3_Click ()
Form1.Show
Form3.Hide
End Sub
Private Sub metod3_Click ()
Form6.Show
Form3.Hide
End Sub
Private Sub sozd3_Click ()
Form5.Show
Form3.Hide
End Sub
Private Sub vrazm3_Click ()
Form2.Show
Form3.Hide
End Sub
Π’Π΅ΠΊΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄Π° ΡΠΎΡΠΌΡ ΠΡΠ°ΡΠΈΠΊΠ° (Form4):
Private Sub glav4_Click ()
Form1.Show
Form4.Hide
End Sub
Private Sub prog4_Click ()
Form2.Show
Form4.Hide
End Sub
Private Sub sozd4_Click ()
Form6.Show
Form4.Hide
End Sub
Π’Π΅ΠΊΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄Π° ΡΠΎΡΠΌΡ Π ΠΌΠ΅ΡΠΎΠ΄Π΅ (Form5):
Private Sub glav5_Click ()
Form1.Show
Form5.Hide
End Sub
Π’Π΅ΠΊΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ ΠΏΠ΅ΡΠ΅Ρ ΠΎΠ΄Π° ΡΠΎΡΠΌΡ Π ΡΠΎΠ·Π΄Π°ΡΠ΅Π»Π΅ (Form6):
Private Sub glav6_Click ()
Form1.Show
Form6.Hide
End Sub
Private Sub metod6_Click ()
Form5.Show
Form6.Hide
End Sub
Private Sub Prog6_Click ()
Form2.Show
Form6.Hide
End SubΡ
ΠΠ°ΠΊΠ»ΡΡΠ΅Π½ΠΈΠ΅
ΠΠ΅ΡΠΎΠ΄ ΠΡΠ°ΠΌΠ΅ΡΠ° Π² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎΠΉ ΡΡΠ΅Π΄Π΅ Π΄Π»Ρ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΡΠΈΡΡΠ΅ΠΌΡ Π»ΠΈΠ½Π΅ΠΉΠ½ΡΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΉ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠ°ΡΡΠΎ ΠΈ ΡΠ²Π»ΡΠ΅ΡΡΡ ΠΎΠ΄Π½ΠΈΠΌ ΠΈΠ· ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΡΡ ΡΠΏΠΎΡΠΎΠ±ΠΎΠ².
Π Π°Π·ΡΠ°Π±ΠΎΡΠ°Π½Π½Π°Ρ Π½Π° Visual Basic ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° Π½Π°Ρ ΠΎΠ΄ΠΈΡ ΡΠ΅ΡΠ΅Π½ΠΈΠ΅ Π΄Π»Ρ ΡΠΈΡΡΠ΅ΠΌΡ Π»ΠΈΠ½Π΅ΠΉΠ½ΡΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΉ. ΠΠΎΠΈΡΠΊ ΡΠ΅ΡΠ΅Π½ΠΈΠΉ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ΄ΠΈΡΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΌΠ΅ΡΠΎΠ΄Π° ΠΡΠ°ΠΌΠ΅ΡΠ°. ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠ° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΡΡΡΠΎΠΈΡΡ Π³ΡΠ°ΡΠΈΠΊ, Ρ. Π΅. Π²ΠΈΠ·ΡΠ°Π»ΠΈΠ·ΠΈΡΡΠ΅Ρ ΡΠΏΠΎΡΠΎΠ±, Π΅ΡΠ»ΠΈ ΡΠΈΡΡΠ΅ΠΌΠ° ΡΠΎΡΡΠΎΠΈΡ ΠΈΠ· Π΄Π²ΡΡ ΡΡΠ°Π²Π½Π΅Π½ΠΈΠΉ.
ΠΡΠΎΠ²Π΅ΡΠΊΠ° ΠΏΡΠ°Π²ΠΈΠ»ΡΠ½ΠΎΠ³ΠΎ ΡΠ΅ΡΠ΅Π½ΠΈΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π±ΡΠ»Π° ΠΎΡΡΡΠ΅ΡΡΠ²Π»Π΅Π½Π° Ρ ΠΏΠΎΠΌΠΎΡΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ MS Excel. Π Π΅Π·ΡΠ»ΡΡΠ°ΡΡ ΠΏΠΎΠ»Π½ΠΎΡΡΡΡ ΡΠΎΠ²ΠΏΠ°Π΄Π°ΡΡ.
Π‘ΠΏΠΈΡΠΎΠΊ Π»ΠΈΡΠ΅ΡΠ°ΡΡΡΡ
1. ΠΠΠ‘Π’ 19.701−90 Π‘Ρ Π΅ΠΌΡ Π°Π»Π³ΠΎΡΠΈΡΠΌΠΎΠ² ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌ, Π΄Π°Π½Π½ΡΡ ΠΈ ΡΠΈΡΡΠ΅ΠΌ. Π., 1992. 22 Ρ.
2. ΠΠΠ‘Π’ 2.105−95. ΠΠ±ΡΠΈΠ΅ ΡΡΠ΅Π±ΠΎΠ²Π°Π½ΠΈΡ ΠΊ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΌ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°ΠΌ. Π., 1996. 31 Ρ.
3. ΠΠ΅ΡΠΈΡΠ±ΠΈΡΠΊΠΈΠΉ Π. Π. Π§ΠΈΡΠ»Π΅Π½Π½ΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄Ρ. ΠΠΈΠ½Π΅ΠΉΠ½Π°Ρ Π°Π»Π³Π΅Π±ΡΠ° ΠΈ Π½Π΅Π»ΠΈΠ½Π΅ΠΉΠ½ΡΠ΅ ΡΡΠ°Π²Π½Π΅Π½ΠΈΡ. — Π.: ΠΡΡΡΠ°Ρ ΡΠΊΠΎΠ»Π°, 2000
4. ΠΡΠ°ΡΠ½ Π‘., Visual Basic 6. Π£ΡΠ΅Π±Π½ΡΠΉ ΠΊΡΡΡ.- Π‘ΠΠ±.: ΠΠΈΡΠ΅Ρ, 2005.-574 Ρ.: ΠΈΠ».
5. informatic.ugatu.ac.ru — ΠΎΡΠΈΡΠΈΠ°Π»ΡΠ½ΡΠΉ ΡΠ°ΠΉΡ ΠΊΠ°ΡΠ΅Π΄ΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΊΠΈ Π£ΠΠΠ’Π£, ΠΎΡΠ΄Π΅Π» Π΄ΠΈΡΡΠ°Π½ΡΠΈΠΎΠ½Π½ΠΎΠΉ ΠΏΠΎΠΌΠΎΡΠΈ ΡΡΡΠ΄Π΅Π½ΡΠ°ΠΌ ΠΏΠΎ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΊΡΡΡΠΎΠ²ΡΡ ΡΠ°Π±ΠΎΡ.