Программный код 2-го проекта

Imports System.Math

Public Class Form1

Function func(ByVal x As Double, ByVal y As Double) As Double

Return x ^ 4 + y - 10 * x ^ 2 - 30 * x - 25

End Function

 

Sub vivodlist(ByVal z As Double, ByRef LB As ListBox)

LB.Items.Add(Format(z, "0.00"))

End Sub

Sub vyvod(ByVal Z As Single, ByVal T As TextBox)

T.Text = Format(Z, "0.000")

End Sub

Function func(ByVal x As Double) As Double

Return 1 / (x + 2 * PI) - Sin(x)

End Function

 

Sub cikl(ByVal a As Double, ByVal b As Double, ByVal h1 As Double, ByVal d As Double, ByVal c As Double, ByVal h2 As Double, ByRef p As Double, ByRef kolv As Double)

Dim k1, k2, i, j As Integer

Dim x, y, z As Double

k1 = CInt((b - a) / h1 + 1)

k2 = CInt((d - c) / h2 + 1)

p = 1

kolv = 0

x = a

For i = 1 To k1

y = c

For j = 1 To k2

z = func(x, y)

If z > 0 Then

p = p * z

kolv = kolv + 1

End If

vivodlist(x, ListBox1)

vivodlist(y, ListBox2)

vivodlist(z, ListBox3)

y = y + h2

Next

x = x + h1

Next

vivodint(p, textbox7)

 

End Sub

 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim a, b, c, d, h1, h2, p, kolv As Double

kolv = 0

p = 1

a = 0

b = 10

h1 = 0.5

c = -2

d = 2

h2 = 0.2

cikl(a, b, h1, d, c, h2, p, kolv)

vyvod(p, TextBox1)

vyvod(kolv, TextBox2)

End Sub

 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

End

End Sub

End Class

Результат выполнения 2-го проекта

На рис. 7 представлен результат выполнения 2-го проекта

Рис. 7 Результат выполнения 2-го проекта