Блок-схема алгоритма 4_3_7_2 FUNCTION
Лабораторная работа 4_3_7_2
Код программы 4_3_7_2
Option Strict On
Option Explicit On
Imports System.Math
Public Class Form1
'Создание глобальных переменных для выполнения задания 4.3.7
Dim xx As Double
Dim yy As Double
Dim b_glob As Double
'ВЫЧИСЛЕНИЕ ПЕРЕМЕННОЙ b_glob С ИСПОЛЬЗОВАНИЕМ ГЛОБАЛЬНЫХ ПАРАМЕТРОВ
Sub glo_sub()
b_glob = CDbl((0.9 + 283 * Sin(xx ^ 2) + Exp(xx))) / (682.16 * Sin(-yy))
End Sub
'ВЫЧИСЛЕНИЕ ПЕРЕМЕННОЙ b_sub С ИСПОЛЬЗОВАНИЕМ процедуры-SUB
Sub subb(ByVal x As Double, ByVal y As Double, ByRef b_sub As Double)
b_sub = CDbl((0.9 + 283 * Sin(x ^ 2) + Exp(x))) / (682.16 * Sin(-y))
End Sub
'ВЫЧИСЛЕНИЕ ПЕРЕМЕННОЙ b_fun С ИСПОЛЬЗОВАНИЕМ процедуры-FUNCTION
Function func1(ByVal x As Double, ByVal y As Double) As Double
Return CDbl((0.9 + 283 * Sin(x ^ 2) + Exp(x))) / (682.16 * Sin(-y))
End Function
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'Задание типов данных
Dim k As Integer
Dim l As Integer
'переменная для получения результата при использовании процедуры-FUNCTION
Dim b_fun As Double
'переменная для получения результата при использовании процедуры-SUB
Dim b_sub As Double
Dim y As Double
Dim x As Double
Dim p As Single
Dim k2 As Integer
Dim s1 As String
Dim s2 As String
'ВИД ЯВНЫХ ПРЕОБРАЗОВАНИЙ
'Преобразование значений текстовых полей в числовые данные
x = CDbl(Val(TextBox1.Text))
y = CDbl(Val(TextBox2.Text))
'/////////////////////////////////////////////////////////////////////////////////
' Переприсвоение значений X и Y глобальным переменным xx и yy
xx = x
yy = y
'//////////////////////////////////////////////////////////////////////////////////
'//////////////////////////////////////////////////////////////////////////////////
'Вычисление значения b c использованием процедуры-FUNCTION
b_fun = func1(x, y)
'Вычисление значения b c использованием процедуры-SUB
subb(x, y, b_sub)
'Вычисление значения b c использованием глобальных параметров
glo_sub()
'//////////////////////////////////////////////////////////////////////////////////////
'преобразование типа Double в тип Single
p = CSng(b_fun)
'преобразование типа Double в тип Integer
k2 = CInt(b_fun)
' преобразование значения b к целочисленным типам по заданию:
l = CInt(Fix(b_fun))
k = CInt(Int(b_fun))
'преобразования числовых типов в тип String
s1 = CStr(b_fun)
s2 = CStr(p)
' Вввод полученных значений на экран
TextBox3.Text = CStr(b_fun)
TextBox4.Text = CStr(k2)
TextBox5.Text = CStr(l)
TextBox6.Text = CStr(k)
TextBox7.Text = CStr(p)
TextBox8.Text = CStr(b_fun + p)
TextBox9.Text = s1 & " + " & s2
'ВЫВОД ЗНАЧЕНИЙ АРИФМЕТИЧЕСКОГО ВЫРАЖЕНИЯ, ПОЛУЧЕННОГО С ИСПОЛЬЗОВАНИЕМ процедуры-FUNCTION, процедуры-SUB и глобальных параметров
TextBox10.Text = CStr(b_fun)
TextBox11.Text = CStr(b_sub)
TextBox12.Text = CStr(b_glob)
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
'очистка всех TextBox
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
TextBox8.Clear()
TextBox9.Clear()
TextBox10.Clear()
TextBox11.Clear()
TextBox12.Clear()
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
Application.Exit()
End Sub
End Class
Блок-схема алгоритма 4_3_7_2 FUNCTION