Блок-схема алгоритма 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