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
Федеральное государственное образовательное бюджетное
учреждение высшего профессионального образования
Московский технический университет связи и информатики
КАФЕДРА ИНФОРМАТИКИ
ЛАБОРАТОРНАЯ РАБОТА 4.6.
ПО ТЕМЕ
Программирование алгоритмов итеративных циклических структур.
Выполнил:
студент группы
БАП 1651
Рыжков Даниил
МОСКВА 2016 г.
Графический интерфейс пользователя:
Блок-схема алгоритма
Код программы:
Option Strict On
Option Explicit On
Imports System.Math
Public Class Form5
Public Sub Reshenie(ByRef x As Double, ByVal eps As Double, ByRef n As Integer)
Dim z As String
Dim z1 As String
Dim elem As Double
Dim ListIndex As Integer
z = " "
z1 = "|"
ListIndex = 1
elem = x
L_1.Items.Add(z)
Do Until Abs(elem) < eps
z = " "
z1 = "|"
z = z + Space(5) + z1 + Space(6) + Format(n, "0000") + Space(6) + z1 + Space(6) + Format(elem, "0.000000")
L_1.Items.Add(z)
elem = (x ^ (2 * n + 3)) / (4 * (n ^ 2) + (8 * n) + 3)
n = n + 1
Loop
End Sub
Sub vivod(ByVal W As Double, ByRef T As TextBox)
T.Text = CStr(W)
End Sub
Function vvod_int(ByVal K As TextBox) As Integer
Return CInt(Val(K.Text))
End Function
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)
Application.Exit()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim x As Double
Dim eps As Double
Dim n As Integer
x = vvod(TextBox2)
eps = vvod(TextBox1)
Reshenie(x, eps, n)
End Sub
Private Sub L_1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles L_1.SelectedIndexChanged
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
L_1.Items.Clear()
TextBox1.Clear()
TextBox2.Clear()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Form1.Show()
Me.Hide()
End Sub
End Class