Программирование алгоритмов разветвляющихся структур

 
 
 
 
 
 
 
 
 
 

Лабораторная работа №3

Тема:«Программирование алгоритмов разветвляющихся структур»

Цель:состоит в получении навыков разработки проектов, использующих алгоритмы разветвляющихся структур 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Задание на разработку проекта  и вариант задания:

Вычислить значение условной  функции q=f(a,x,b):

 

Запись  арифметических выражений,  соответствующих   заданным  математическим формулам, по правилам VB:

Q={

Разработка  схемы алгоритма, решаемой задачи: 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Написание программного кода: 

Option Strict On

Option Explicit On

Imports System.Math 

Public Class labwork3

    'Функция ввода в ТехтВох

    'if-оператор ветвления многозадачности выбора

    'сase-оператор множественного ветвления-позволяет заместить несколько операторов ветвления и

    'решение осущ незав от логического условия

    Function vvod(ByVal T As TextBox) As Double

        Return Val(T.Text)

    End Function

    'Процедура вывода результата в поле TextBox

    Sub vivod(ByVal Z As Double, ByVal T As TextBox)

        T.Text = CStr(Z)

    End Sub

    'функция вычисления значения ветвящийся задачи

    Function Vetvl(ByVal a As Double, ByVal x As Double, ByVal b As Double) As Double

        Dim q, q1, q2 As Double

        If (0 < x) And (x <= 1) Then

            q1 = x - a / x

            q2 = Sqrt(a) + x

            q = Sin(x)

            If q1 < q Then q = q1

            If q2 < q Then q = q2

            MsgBox("левая ветвь")

        Else

            If (x > 1) Then

                q1 = Sqrt(a)

                q2 = a * x

                If q1 > q2 Then q = q1 Else q = q2

                MsgBox("правая ветвь")

            Else

                q = (a * x) + b

            End If

        End If

        Return q

    End Function 

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

        Dim a As Double, x As Double, b As Double

        a = vvod(TextBox1)

        x = vvod(TextBox2)

        b = vvod(TextBox3)

        vivod(Vetvl(a, x, b), TextBox4)

    End Sub

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

        End

    End Sub

End Class 
 
 
 
 
 
 
 

Результаты  выполнения проекта: