4.1 Форма

5. Программный код

Option Strict On

Option Explicit On

Imports System.Math

Public Class Form4

Function vvod(ByVal T As TextBox) As Single

Return CSng(Val(T.Text))

End Function

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

Dim i As Integer

Dim max As Single

Dim y 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

If x1 > 6 Then

y = CSng(x1 ^ 1 / 3)

ElseIf x1 < 5 Then

y = CSng(2 * Sin(x1))

ElseIf x1 >= 5 And x1 <= 6 Then

y = CSng(Sqrt(x1 + 1))

If y > max Then max = y

End If

z1 = z1 + Format(i, "00") + Space(6) + "|" + Space(2)

z2 = z2 + Format(x1, "0.00") + Space(3) + "|" + Space(2)

z3 = z3 + Format(y, "0.00") + Space(3) + "|" + Space(2)

x1 = x1 + h1

z4 = z4 + "______________"

Next i

' L_B_1.Items.Add(z)

ListBox1.Items.Add(z4)

ListBox1.Items.Add(z1)

ListBox1.Items.Add(z4)

ListBox1.Items.Add(z)

ListBox1.Items.Add(z2)

ListBox1.Items.Add(z4)

ListBox1.Items.Add(z)

ListBox1.Items.Add(z3)

ListBox1.Items.Add(z4)

ListBox1.Items.Add(z)

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

vivod(max, TextBox4)

End Sub

Function wagi(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(W)

End Sub

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 = wagi(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

TextBox1.Clear()

TextBox2.Clear()

TextBox3.Clear()

ListBox1.Items.Clear()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Form0.Show()

Hide()

End Sub

End Class

Разработка схемы алгоритма

Начало

Конец

f_red(n,x,h)

X = a

n=f_zikl(a,b,h)

h=vvod(Textbox3)

b=vvod(Textbox2)

a=vvod(Textbox1)

F_red(n,x,h)

Max = -10^38

I=1,n

X>0 or x<5

нет да

Y = 5e^x

X>5?

нет да

Y = abs(x)

Y = 2sinx

Z1 = Z1 + Format(I, “000”)

Z2 = Z2 + Format(I, “000”)

Z3 = Z3 + Format(I, “000”)

X = x + h

Вывод Z1,Z2,Z3

Вывод max(y)

Конец