3.3.3. Схемы алгоритмов процедур:
На рис.2, рис.3,рис.4, рис.5 представлены схемы алгоритмов процедур
рис.2-схема алгоритма процедуры-функции Func(x;y)
Рис.2-схема алгоритма процедуры-функции Proc(x;y;c)
Рис.3 – схема процедуры-функции Proc2()
Рис.5-схема алгоритма событийной процедуры
3.3.4. Программный код трех проектов
Программный код первого проекта
Option Explicit On
Option Strict On
Imports System.Math 'подключение математического модуля'
Public Class Form1
Function func(ByVal x As Double, ByVal y As Double)
Dim c As Double
с=((((y*x^2)-1)^2)/2)*((cos(y))^2-(sin(x^2))))
Return c
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x, y, c, j, q As Double, p As Single, i As Integer, S1, S2 As String
x = CDbl(TextBox1.Text)
y = CDbl(TextBox2.Text)
c = ((((y * (x ^ 2)) - 1) ^ 2) / 2) * ((Cos(y)) ^ 2 - (Sin((x ^ 2))))
TextBox3.Text = CStr(c)
i = CInt(c)
TextBox4.Text = CStr(i)
j = Fix(c)
TextBox5.Text = CStr(j)
q = Int(c)
TextBox6.Text = CStr(q)
p = CSng(c)
TextBox7.Text = CStr(p)
TextBox8.Text = CStr(p + c)
S1 = CStr(c)
S2 = CStr(p)
TextBox9.Text = S1 + S2
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
End Class
Программный код второго проекта:
Option Explicit On
Option Strict On
Imports System.Math 'подключение математического модуля'
Public Class Form1
Sub proc1(ByVal x As Double, ByVal y As Double, ByRef c As Double)
с=((((y*x^2)-1)^2)/2)*((cos(y))^2-(sin(x^2))))
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x, y, c, j, q As Double, p As Single, i As Integer, S1, S2 As String
x = CDbl(TextBox1.Text)
y = CDbl(TextBox2.Text)
c = ((((y * (x ^ 2)) - 1) ^ 2) / 2) * ((Cos(y)) ^ 2 - (Sin((x ^ 2))))
TextBox3.Text = CStr(c)
i = CInt(c)
TextBox4.Text = CStr(i)
j = Fix(c)
TextBox5.Text = CStr(j)
q = Int(c)
TextBox6.Text = CStr(q)
p = CSng(c)
TextBox7.Text = CStr(p)
TextBox8.Text = CStr(p + c)
S1 = CStr(c)
S2 = CStr(p)
TextBox9.Text = S1 + S2
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class
Программный код третьего проекта:
Option Explicit On
Option Strict On
Imports System.Math 'подключение математического модуля'
Public Class Form1
Dim x As Double, y As Double, c As Double
Sub proc2()
с=((((y*x^2)-1)^2)/2)*((cos(y))^2-(sin(x^2))))
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x, y, c, j, q As Double, p As Single, i As Integer, S1, S2 As String
x = CDbl(TextBox1.Text)
y = CDbl(TextBox2.Text)
c = ((((y * (x ^ 2)) - 1) ^ 2) / 2) * ((Cos(y)) ^ 2 - (Sin((x ^ 2))))
TextBox3.Text = CStr(c)
i = CInt(c)
TextBox4.Text = CStr(i)
j = Fix(c)
TextBox5.Text = CStr(j)
q = Int(c)
TextBox6.Text = CStr(q)
p = CSng(c)
TextBox7.Text = CStr(p)
TextBox8.Text = CStr(p + c)
S1 = CStr(c)
S2 = CStr(p)
TextBox9.Text = S1 + S2
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class