4 лаба

Федеральное агентство связи

Ордена Трудового Красного Знамени

федеральное бюджетное образовательное учреждение высшего образования

«Московский Технический Университет Связи и Информатики»

(МТУСИ)

Кафедра Информатики

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

Тема:

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

Вариант 00

Выполнил:

Великий студент

----

Москва 0000

3) Задание на разработку проекта:

4) Формализация и уточнение задания

Не требуется

5.1) Форма проекта

5) Схема

5) Код программы 4 лабораторной работы

Option Strict On

Option Explicit On

Imports System.Math

Public Class Form1

Sub vvod(ByRef a As Double, ByVal t As TextBox)

a = Val(t.Text)

End Sub

Sub vivod(ByVal a As Double, ByRef t As TextBox)

t.Text = CStr(a)

End Sub

Sub proc(ByVal x As Double, ByVal z As Double, ByRef n As Integer, ByRef z1 As Double)

Dim max As Double = Double.MinValue

Dim min As Double = Double.MaxValue

n = 3

z1 = x + z

If (x < 0) And (z < 0) Then

n = 1

If z > x Then

z1 = x

Else

z1 = z

End If

ElseIf (x > 0) And (z > 0) Then

n = 2

max = x

If max < (x + z) ^ (1 / 3) Then

max = (x + z) ^ (1 / 3)

End If

If max < Cos(x * z) Then

max = Cos(x * z)

End If

z1 = max

End If

End Sub

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

Dim x, z, z1 As Double

Dim n As Integer

vvod(x, TextBox1)

vvod(z, TextBox2)

proc(x, z, n, z1)

vivod(z1, TextBox3)

vivod(n, TextBox4)

End Sub

End Class

6) результат

ПУТЬ 1 N=1

ПУТЬ 2 N=2

ПУТЬ 3 N=3

7) Результат был проверен на калькуляторе