Билет 17

1)Массив А заполнен случайным образом целыми числами. Найти произведение положительных элементов, сумму отрицательных элементов.

Sub Main()

Dim a(,) As Single = {{15, -18, 19}, {10, -14, 28}, {9, -2, 13}, {3, 17, -23}}

Dim N, M, min, max As Integer

N = a.GetUpperBound(0)

Console.WriteLine("N={0}", N + 1)

M = a.GetUpperBound(1)

Console.WriteLine("M={0}", M + 1)

min = 0

max = 0

For i = 0 To N

For J = 0 To M

If a(i, J) < 0 Then

min = min + a(i, J)

Else

max = max + a(i, J)

End If

Next J

Next i

Console.WriteLine("max={0}, min={1}", max, min)

Console.ReadLine()

End Sub

2) Создать программу в VB. Даны Х и У. Вычислить u, v , если

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

Dim x, y, u, v As Double

x = Val(TextBox1.Text)

y = Val(TextBox2.Text)

u = Math.Sqrt(Math.Exp(x + y))

v = (-Math.Log(Math.Exp(x + y)) + Math.Exp(1) - 1) / 2 * Math.Sqrt(Math.Exp(x + y))

TextBox3.Text = CStr(u)

TextBox4.Text = CStr(y)

End Sub

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

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

End Sub

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

End

End Sub

• Язык программирования VB(Двумерные массивы)

Двумерный массив – это совокупность однотипных элементов, каждый из которых имеет две координаты: номер строки и номер столбца. Как правило, двумерные массивы называют матрицами.

Обработка матриц проходит в двух вложенных циклах. Внешней задаёт номер текущей строки, вложенный - номер текущего столбца.

Билет 18

• Массим А заполнен целыми числасми случайным образом. Найти количество элементов больше заданного числа В.

Sub Main()

Dim A(,) As Single = {{15, 18, 19}, {10, 14, 28}, {9, 2, 13}, {3, 17, 23}}

Dim N, M, B, S As Integer

N = A.GetUpperBound(0)

Console.WriteLine("Количество строк N={0}", N + 1)

M = A.GetUpperBound(1)

Console.WriteLine("Количество столбцов M={0}", M + 1)

B = Val(Console.ReadLine())

S = 0

For i = 0 To N

For j = 0 To M

If A(i, j) > B Then

S = S + 1

End If

Next j

Next i

Console.WriteLine("s={0}", S)

Console.ReadLine()

End Sub

2)Создать программу в VB. Даны Х и У, z Вычислить u, v , если

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

End

End Sub

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

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

End Sub

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

Dim x, y, z, u, v As Single

x = Val(TextBox1.Text)

y = Val(TextBox2.Text)

z = Val(TextBox3.Text)

u = Math.Sin(Math.Abs(y - Math.Sqrt(Math.Abs(x)))) * (x - y / z ^ 2 + x ^ 2 / 4)

v = Math.Cos(z ^ 2 + x ^ 2 / 4)

TextBox4.Text = CStr(u)

TextBox5.Text = CStr(v)

End Sub

3)Локальные и глобальные сети