, ( , ). , .
9) , , ( ). .
10) (. 4.3.7-8).
. 4.3.7 -8. 3.1.1
3.5. :
Microsoft Excel, , , , .
4) 2- :
.
4.1) :
3.4, : x1, y1; x2, y2; x3, y4.3.
.. : S
.
: >0, >0, C>0, +>, +C>, +C>
.
4.2) :
:
= + + ;
S= 
( );
A = 
; B = 
;
C = 
.
= /2 ; A, B, C .
, :
- Function (), ;
- Sub PS(), ;
- Function vvod() TextBox;
- Sub vivod() TextBox.
(Function Sub) . - Function . - Function - , , , Return. , () vvod() Function.
(PS()), , (vivod()), - Sub.
4.3) , :
4.3.1) :
.
. 4.3.7-9.
|
|
|
. 4.3.7-9. 3.4
4.3.2) :
( . 4.2.8-2);
4.3.3) 3.4
PS()
() . 4.2.8-10,
. 4.2.8-11.
. 4.3.7-10. () PS() 3.4
. 4.3.7-11.
3.4
4.3.4) 3.4
(. 4.3.7-9).
| Imports System.Math Public Class Form1 ' TextBox Function vvod(ByVal T As TextBox) As Single Return CSng(Val(T.Text)) End Function ' TextBox Sub vivod(ByVal Z As Single, ByVal T As TextBox) T.Text = CStr(Z) End Sub ' Public Function (ByVal x1 As Single, _ ByVal y1 As Single, ByVal x2 As Single, _ ByVal y2 As Single) As Single Return CSng(Sqrt((x2 - x1) ^ 2 + (y2 - y1) ^ 2)) End Function ' Sub PS(ByVal x1 As Single, ByVal y1 As Single, ByVal x2 As_ Single, ByVal y2 As Single, ByVal x3 As Single,_ ByVal y3 As Single, ByRef P As Single, ByRef S As Single) Dim A, B, C, Pp As Single A = (x1, y1, x2, y2) ' - - .. B = (x2, y2, x3, y3) C = (x3, y3, x1, y1) P = (A + B + C) Pp = P / 2 S = CSng(Sqrt(Pp * (Pp - A) * (Pp - B) * (Pp - C))) End Sub Private Sub Button1_Click(sender As Object, _ e As EventArgs) Handles Button1.Click Dim x1, x2, x3, y1, y2, y3, , As Single x1 = vvod(TextBox1): y1 = vvod(TextBox2) x2 = vvod(TextBox3): y2 = vvod(TextBox4) x3 = vvod(TextBox5): y3 = vvod(TextBox6) PS(x1, y1, x2, y2, x3, y3, , ) vivod(, TextBox7): vivod(, TextBox8) End Sub Private Sub Button2_Click(sender As Object, _ e As EventArgs) Handles Button2.Click End End Sub End Class |
. 4.3.7-9. 3.4
4.4) 3.4:
. 4.3.7-10:
. 4.3.7-10. 3.4
4.5) :
A = 
= 2.82843 B = 
= 2
C = = 2 = + + = 6.828427
= /2 = 3.414213 S= = 2
1) ?
2) ?
3) ?
4) , (, ) ?
5) ?
6) ?
7) .
8) ?
9) ?
10) ?
|
|
|
11) ?
12) ?
13) ?
14) ?
15) , ?
16) VB?
17) ?
18) ?
19) : , , ?
20) ?
21) ?
22) ?
23) ?
24) ?
25) ?
26) ?
27) ?
28) , ?
29) ?
30) ?
31) , - ?
32) , - ?
33) - ?
34) ?
35) ?
36) ?
37) , Public?
38) Private?
39) ?
40) () ?
41) ?
42) ?
43) ?
44) VB.NET?
45) Sub-, ?
