ПРОГРАММНЫЙ КОД 4_5

ПРОГРАММНЫЙ КОД

Option Strict On

Option Explicit On

Imports System.Math

Public Class Form1

'//////////////////////////////////////////

Sub f_reg(ByVal n1 As Integer, ByVal x1 As Single, ByVal h1 As Single)

'локальные переменные процедуры

Dim i As Integer

Dim y As Single

Dim max 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 = "___________________"

max = -10 ^ 38

For i = 1 To n1

y = CSng((x1 ^ 3) * Sqrt(Abs(x1 - 1)))

If y > max Then max = 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(z)

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)

' TextBox4.Text = Format(max, "0.0000000000")

vivod(max, 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 выполняет Вывод переменой в TextBox

Sub vivod(ByVal W As Single, ByRef T As TextBox)

T.Text = CStr(W)

End Sub

'////////////////////////////////////////////////////////////////////

' Процедура- Function выполняет Ввод переменной в TextBox

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

Application.Exit()

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

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()

TextBox3.Clear()

L_B_1.Items.Clear()

End Sub

End Class

4