3)Процедура-подпрограмма vivod()

4)Основная

4.3.4. программный код проекта

Option Strict On

Option Explicit On

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 S As Single, ByVal T As TextBox)

T.Text = CStr(S)

End Sub

Public Function labc(ByVal x1 As Double, ByVal y1 As Double, ByVal x2 As Double, ByVal y2 As Double, ByVal x3 As Double, ByVal y3 As Double) As Double

Return CDbl(1 / 2 * (Abs((x2 - x1) * (y3 - y1) - (x3 - x1) * (y2 - y1))))

End Function

Sub PS(ByVal x1 As Double, ByVal y1 As Double, ByVal x2 As Double, ByVal y2 As Double, ByVal x3 As Double, ByVal y3 As Double, ByVal x4 As Double, ByVal y4 As Double, ByVal x5 As Double, ByVal y5 As Double, ByRef S1 As Double, ByRef S2 As Double, ByRef S3 As Double, ByRef S As Double)

S1 = labc(x1, y1, x2, y2, x5, y5)

S2 = labc(x2, y2, x3, y3, x5, y5)

S3 = labc(x5, y5, x3, y3, x4, y4)

S = S1 + S2 + S3

End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

End

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim x1, y1, x2, y2, x3, y3, x4, y4, x5, y5, S1, S2, S3, S As Double

x1 = vvod(TextBox1)

y1 = vvod(TextBox2)

x2 = vvod(TextBox3)

y2 = vvod(TextBox4)

x3 = vvod(TextBox5)

y3 = vvod(TextBox6)

x4 = vvod(TextBox7)

y4 = vvod(TextBox8)

x5 = vvod(TextBox9)

y5 = vvod(TextBox10)

PS(x1, y1, x2, y2, x3, y3, x4, y4, x5, y5, S1, S2, S3, S)

vivod(CSng(S), TextBox11)

End Sub

End Class

4.4. Результаты выполнения 2-го задания: