ПРОГРАММНЫЙ КОД 4_5
.doc
ПРОГРАММНЫЙ КОД
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