Билет 1

1)Дана целочисленная матрица А(m * n). Найти номер строки с минимальной суммой элементов.

Sub Main()

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

Dim M, k, N, SUM, MIN As Integer

k = A.GetUpperBound(0)

Console.WriteLine("Количество строк матрицы A равно K+1={0}", k+1)

M = A.GetUpperBound(1)

Console.WriteLine("Количество столбцов матрицы A равно M+1={0}”, M+1)

MIN = 0

N = 0

For i = 0 To k

SUM = 0

For j = 0 To M

SUM = SUM + A(i, j)

Next j

If (i = 0) Then

MIN = SUM

Else

If SUM < MIN Then

MIN = SUM

N = i

End If

End If

Next i

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

Console.ReadLine()

End Sub

2)Создать программу на VB. Найти значение функции f(x)=1\x, либо выведите на экан сообщение, что функция не определена

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

Dim x, y As Single

x = Val(TextBox1.Text)

y = 1 / x

If x = 0 Then

TextBox2.Text = "не существует"

Else

TextBox2.Text = CStr(y)

End If

End Sub

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

End

End Sub

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

TextBox1.Text = ""

TextBox2.Text = ""

End Sub

End Class

3) Данные и информация. Свойства информации.

Данные - это совокупность сведений, зафиксированных на определенном носителе в форме, пригодной для постоянного хранения, передачи и обработки. Преобразование и обработка данных позволяет получить информацию.

Информация - это результат преобразования и анализа данных. Отличие информации от данных состоит в том, что данные - это фиксированные сведения о событиях и явлениях, которые хранятся на определенных носителях, а информация появляется в результате обработки данных при решении конкретных задач. Например, в базах данных хранятся различные данные, а по определенному запросу система управления базой данных выдает требуемую информацию.

Информация обладает следующими свойствами:

• достоверность 

• полнота

• точность

• ценность

• своевременность

• понятность 

• доступность

• краткость

Билет 15

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

Sub Main()

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

Dim Y, N, M, MAX, MIN As Single

N = A.GetUpperBound(0)

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

M = A.GetUpperBound(1)

Console.WriteLine("Количество строк матрицы A, M={0}", M + 1)

MIN = 0

MAX = 0

For i = 0 To N

For j = 0 To M

If i = 0 And j = 0 Then

MIN = A(i, j)

MAX = A(i, j)

Else

If MIN > A(i, j) Then

MIN = A(i, j)

End If

If MAX < A(i, j) Then

MAX = A(i, j)

End If

End If

Next j

Next i

Y = MAX / MIN

Console.WriteLine("Y={0}", Y)

Console.ReadLine()

End Sub

2)Создать прогамму на VB. Вычислить число ПИ по формуле Гаусса:

Пи=

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

End

End Sub

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

TextBox1.Text = ""

End Sub

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

Dim pi As Single

pi = 48 * Math.Atan(1 / 18) + 32 * Math.Atan(1 / 57) - 20 * Math.Atan(1 / 239)

TextBox1.Text = CStr(pi)

End Sub

3) Язык программирования VB(организация циклов)

В Visual Basic применяются три конструкции операторов цикла:

• For ... Next

• While ... Wend

• Do ... Loop

Оператор цикла For...Next имеет формат:

For <счетчик> = <начало> То <конец> [Step <приращение>] <операторы тела цикла> Next [<счетчик>]

Перед выполнением цикла переменной счетчику цикла присваивается начальное значение. Операторы, перечисленные в цикле, выполняются до тех пор, пока значение счетчика цикла не превысит конечное значение. При каждом выполнении цикла значение счетчика увеличивается на шаг (приращение). По умолчанию шаг равен 1.

Оператор цикла WHILE...WEND используется для организации циклов с предусловием и имеет следующий формат:

While <условие продолжения цикла> <операторы тела цикла> Wend

Операторы, перечисленные в цикле, выполняются до гех пор, пока выполняется заданное условие продолжения цикла. При этом условие проверяется перед выполнением цикла, следовательно, цикл может не выполнятьcя ни разу, если условие нарушается в самом начале.

Оператор цикла DO...LOOP используется для орга-шзации циклов с неопределенным числом повторений с предусловием и с постусловием).

Этот оператор для организации цикла с предусловием может использоваться в двух модификациях:

а) Do While <условие продолжения цикла>

• <операторы тела цикла>

• Loop

б) Do Until <условие прекращения цикла>

• <операторы тела цикла>

• Loop

Операторы, перечисленные в цикле, выполняются до ех пор, пока выполняется заданное условие продолжения цикла, если задано предложение While, или до тех ор, пока нарушается условие прекращения цикла. Для организации цикла с постусловием оператор Do Loop также может быть использован в двух модификациях:

в) Do

• •<операторы тела цикла>

• Loop While <условие продолжения цикла>

г) Do

• <операторы тела цикла>

• Loop Until <условие прекращения цикла> Условие выполнения или прекращения цикла здесь проверяется в конце. Поэтому этот цикл обязательно выполняется хотя бы один раз.