 |
Учреждение высшего профессионального образования
|
|
|
|
Московский технический университет связи и информатики
КАФЕДРА ИНФОРМАТИКИ
ЛАБОРАТОРНАЯ РАБОТА 4.4.
ПО ТЕМЕ
Программирование алгоритмов разветвляющихся циклических структур.
Выполнил:
Студент группы
БАП 1651
Рыжков Даниил
МОСКВА 2016 г.
Графический интерфейс пользователя:
Блок-схема алгоритма:
Код программы проекта:
Option Explicit On
Option Strict On
Imports System.Math
Public Class Form6
Sub f_1(ByVal x As Double, ByVal a As Double, ByVal b As Double, ByRef s As Double)
s = a * Sin(x) + b * Cos(x)
End Sub
Sub f_2(ByVal x As Double, ByVal a As Double, ByVal b As Double, ByRef s As Double)
Dim max As Double
max = CDbl(x ^ 3)
If Exp(x) > max Then max = CDbl(Exp(x))
If 10 ^ 3 > max Then max = CDbl(10 ^ 3)
s = max
End Sub
Sub f_3(ByVal x As Double, ByVal a As Double, ByVal b As Double, ByRef s As Double)
Dim min As Double
Dim max As Double
max = CDbl(x ^ 3)
If a ^ x < max Then max = CDbl(a ^ x)
min = max
If ((Sin(x)) / x) < min Then min = (Sin(x)) / x
If (x * (Log10(x) ^ 2)) < min Then min = (x * (Log10(x) ^ 2))
s = min
End Sub
Sub vivod(ByVal W As Double, ByRef T As TextBox)
T.Text = CStr(W)
End Sub
Function vvod(ByVal T As TextBox) As Double
Return CDbl(Val(T.Text))
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As Double
Dim a As Double
Dim b As Double
Dim s As Double
x = vvod(TextBox1)
a = vvod(TextBox2)
b = vvod(TextBox3)
If x < 2 Then
f_1(x, a, b, s)
vivod(s, TextBox4)
MsgBox(" расчет прошел по условию x < 2 ")
ElseIf x > 3 Then
f_2(x, a, b, s)
vivod(s, TextBox4)
MsgBox(" расчет прошел по условию x > 2 ")
ElseIf x = 2 Then
f_3(x, a, b, s)
vivod(s, TextBox4)
MsgBox(" Расчет прошел по условию в противном случае")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form1.Show()
Me.Hide()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
End Sub
End Class
Федеральное государственное образовательное бюджетное
Учреждение высшего профессионального образования
|
|
|
Московский технический университет связи и информатики
КАФЕДРА ИНФОРМАТИКИ
ЛАБОРАТОРНАЯ РАБОТА 4.5.
ПО ТЕМЕ
Программирование алгоритмов регулярных циклических структур.
Выполнил:
Студент группы
БАП1651
Рыжков Даниил
МОСКВА 2016 г.
Графический интерфейс пользователя:
Блок-схема
Код программы:
Option Strict On
Option Explicit On
Imports System.Math
Public Class Form3
Sub f_reg(ByVal n1 As Integer, ByVal x1 As Single, ByVal h1 As Single)
Dim i As Integer
Dim y As Single
Dim min As Single
Dim z1 As String = " N | "
Dim z2 As String = " X | "
Dim z3 As String = " Y | "
Dim z As String = " "
Dim z4 As String = "___________________"
min = Single.MaxValue
For i = 1 To n1
y = CSng(x1 + 1 / x1)
If y < min Then min = y
z1 = z1 + Format(i, "000") + Space(6) + "|" + Space(2)
z2 = z2 + Format(x1, "0.000") + Space(3) + "|" + Space(2)
z3 = z3 + Format(y, "0.000") + Space(3) + "|" + Space(2)
x1 = x1 + h1
z4 = z4 + "______________"
Next i
L_B_1.Items.Add(z4)
L_B_1.Items.Add(z1)
L_B_1.Items.Add(z4)
L_B_1.Items.Add(z)
L_B_1.Items.Add(z2)
L_B_1.Items.Add(z4)
L_B_1.Items.Add(z)
L_B_1.Items.Add(z3)
L_B_1.Items.Add(z4)
L_B_1.Items.Add(z)
vivod(min, TextBox4)
End Sub
Function f_zikl(ByVal a As Single, ByVal b As Single, ByVal h As Single) As Integer
Return CInt(Fix((b - a) / h) + 1)
End Function
Sub vivod(ByVal W As Single, ByRef T As TextBox)
T.Text = CStr(Format(W, "0.000"))
End Sub
Function vvod(ByVal T As TextBox) As Single
Return CSng(Val(T.Text))
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As Single
Dim b As Single
Dim h As Single
Dim x As Single
Dim n As Integer
a = vvod(TextBox1)
b = vvod(TextBox2)
h = vvod(TextBox3)
n = f_zikl(a, b, h)
x = a
f_reg(n, x, h)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form1.Show()
Me.Hide()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
L_B_1.Items.Clear()
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
|
|
|
