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


9538495088377071.html
9538568240214404.html
    PR.RU™