По расположению, количество, минимум 3 страница

Чем отличается многомерный массив от одномерного массива, объявленные следующим образом:Dim A(1 to 20) As Integer, Dim A(1 to 5, 1 to 4) As Integer- количеством индексов

Определить количество элементов в массиве, который описан следующим образом Dim F(15) As Integer- 16

Определить количество элементов в массиве, который описан следующим образом Option Base 1 Dim D(12) As Integer- 12

Определить способ создания одномерного массива. For i = 1 To 12 A(i) = Val (InputBox(“ введите элемент массива ”)) Next I - вводятся с клавиатуры с помощью диалогового окна

Обращение к элементу одномерного массива состоит:- из имени массива и индекса

Индекс элемента одномерного массива показывает:- порядковый номер элемента в массиве

Определить количество элементов в массиве, который объявлен в программе следующим образом: Option Base 1 Dim D(18) As Integer- 18

Определить правильное обращение к шестому элементу массива C, состоящего из 20 элементов.- C (6)

Определить правильное обращение к третьему элементу массива C, состоящего из 6 элементов.- C (3)

Определить количество элементов в массиве, который описан следующим образом Dim F(26) As Integer- 27

Определить правильное обращение к пятому элементу массива C, состоящего из 15 элементов.- C (5)

Чем отличается многомерный массив от одномерного массива, объявленные следующим образом: Dim A(1 to 20) As Integer Dim A(1 to 5, 1 to 4) As Single- типом элементов

Чем отличается многомерный массив от одномерного массива, объявленные следующим образом: Dim B(1 to 20) As Integer Dim A(1 to 5, 1 to 4) As Integer-- именем массива

Чем отличается многомерный массив от одномерного массива, объявленные следующим образом: Dim A(1 to 20) As Integer Dim A(1 to 4, 1 to 4) As Integer -Количеством элементов

Чем отличается многомерный массив от одномерного массива, объявленные следующим образом:Private A(1 to 20) As Integer Dim A(1 to 5, 1 to 4) As Integer- областью видимости

Определить количество элементов в массиве, который объявлен в программе следующим образом: О ption Base 1 Dim D(17) As Integer- 17

Определить количество элементов в массиве, который объявлен в программе следующим образом: Dim D(1 To 19) As Integer- 19

Определить количество элементов в массиве, который объявлен в программе следующим образом: Dim D(19) As Integer- 20

Определить количество элементов в массиве, который объявлен в программе следующим образом: Public D(1 To 18) As Integer- глобальный

Определить количество элементов в массиве, который объявлен в программе следующим образом: Option Base 1 Private D(18) As Integer- уровня формы

Определить область видимости массива, который объявлен в программе следующим образом: Dim D(1 To 19) As Integer- локальный

Определить правильный вариант блока программы, объявления и формирования одномерного массива А(11) вводом с помощью диалогового окна.= ОТВЕТ 2

1) Dim i As byte Dim A(1 to 11) As Single For i = 1 To 11 A(i)=Val(aa1.Text) Next i	2) Dim A(1 to 11) As Single Dim i As byte For i = 1 To 11 A(i)=Val(InputBox(“ввестиА(i)”)) Next i	3) Dim i As byte Dim A(1 to 11) As Single For i = 1 To 11 A(i)= Int(Rnd*20) Next i
4) Dim A(1 to11) As Single Dim i As byte A(i)=Val(InputBox(“А(i)”)) Next i	5) Dim A(11) As Single, i As byte For i = 1 To 11 A(i)=Str(InputBox(“ввестиА(i)”)) Next i

Определить правильный вариант блока программы, объявления и формирования одномерного массива А(11) случайным образом из положительных и отрицательных значений.= ОВТЕТ 2

1)Dim A(1 to 11) As Integer Dim i As byte For i = 1 To 11 A(i)=Str(aa1.Text) Next i	2) Dim i As byte Dim A(1 to 11) As Integer For i = 1 To 11 A(i)= Int(Rnd*40)-20 Next i	3) Dim i As byte Dim A(1 to 11) As Integer For i = 1 To 11 A(i)= Int(Rnd*20) Next i
4) Dim A(1 to11) As Integer Dim i As byte A(i)= Int(Rnd*40)-20	5) Dim i As byte For i = 1 To 11 A(i)= Int(Rnd*20)-10

Определить правильный вариант блока программы, объявления и формирования одномерного

массива А(11), из значений вещественного типа, которые рассчитываются по формуле. ОВТЕТ 1

1) Dim A(1 to 11) As Single Dim i As byte For i = 1 To 11 A(i) = Sqr (Cos(i) + i*i) Next i	2) Dim A(1 to 11) As Integer Dim i As byte For i = 1 To 11 A(i)= Int(Rnd*40)-20 Next i	3) Dim A(1 to 11) As Integer Dim i As byte For i = 1 To 11 A(i) = Sqr (Cos(i) + i*i)
4) Dim A(1 to11) As Integer Dim i As byte A(i)=Val(InputBox(“ввестиА(i)”))	5) Dim i As byte For i = 1 To 11 A(i) = Sqr (Cos(i) + i*i) Next i

Определить правильный вариант блока программы, объявления и формирования одномерного массива А(21) случайным образом из положительных значений.= ОТВЕТ 3

1) Dim A(1 to 21) As Integer Dim i As byte For i = 1 To 21 A(i)= - (Rnd*20) Next i	2) Dim A(1 to 21) As Single Dim i As byte For i = 1 To 21 A(i)= Int(Rnd*40)-20 Next i	3) Dim A(1 to 21) As Integer Dim i As byte For i = 1 To 21 A(i)= Int(Rnd*20) Next i
4) Dim A(1 to21) As Integer Dim i As byte A(i)=Val(InputBox(“ввестиА(i)”))	5) Dim i As byte For i = 1 To 21 A(i)= Str(aa1.Text) Next i

Определить правильный вариант блока программы, вычисляющий произведение элементов

массива А(12) больших значения его второго элемента.= ОТВЕТ 2

1) P = 1 For k = 1 To 12 If A(k) > 2 Then P = P* A(k) End If Next k	2) P = 1 For k = 1 To 12 If A(k) > A(2) Then P = P* A(k) End If Next k	3) P = 1 For k = 1 To 12 If A(k) > A(2) Then P = P* A(k) Next k
4) P = 0 If A(k) > A(2) Then P = P* A(k) End If	5) For k = 1 To 12 If A(k) > 2 Then P = P* A(k) Next k

Определить правильный вариант блока программы, вычисляющий сумму элементов равных 5 в массиве А(20).= ОТВЕТ 3

1) S = 0 For k = 1 To 20 If A(k) = 5 Then S = S+ 1 End If Next k	2) S = 1 For k = 1 To 20 If A(k) = 5 Then S = S+ A(k) Next k	3) S = 0 For k = 1 To 20 If A(k) = 5 Then S= S+ A(k) End If Next k
4) S = 0 If A(k) = 5 Then S = S+ 1 End If	5) For k = 1 To 20 If A(k) = 5 Then S = S* A(k) End If Next k

Определить правильный вариант блока программы, вычисляющий сумму всех элементов массива А(20). Значение суммы выдать на форму.= ОТВЕТ 5

1) S = 0 For k = 1 To 20 S = S+ A(k) Print “сумма = ” & s Next k	2) S = 1 For k = 1 To 20 S = S+ A(k) Next k Print “сумма = ” & s	3) S = 0 For k = 1 To 20 S= S+ A(20) Next k Print “сумма = ” & s
4) S = 1 For k = 1 To 20 S = S+ A(k) Print “сумма = ” & s	5) S = 0 For k = 1 To 20 S = S + A(k) Next k Print “сумма = ” & s

Определить правильный вариант блока программы, определяющий количество элементов равных 3 в

массиве А(20), и выдающий его значение на форму.= ОТВЕТ 3

1) m = 0 For k = 1 To 20 If A(k) =3 Then m = m+A(k) End If Next k MsgBox “ Кол-во =” & m	2) m = 1 For k = 1 To 20 If A(k) = 3 Then m = m + 1 Print “ Кол-во =” & m Next k	3) m = 0 For k = 1 To 20 If A(k) = 3 Then m = m + 1 End If Next k Print “ Кол-во = ” & m
4) m= 1 If A(k) < 3 Then m = m + 1 End If aa1.Text = Str(m)	5) For k = 1 To 20 If A(k) = 3 Then m = m + 1 Next k End If Print “ Кол-во =” & m

Определить правИльный вариант блока программы, определяющий максимальный элемент массива А(20),

и выдающий его значение в поле ввода на форме.= ОТВЕТ 2

1) max = 0 For k = 1 To 20 If A(k) < max Then max = A(k) End If Next k mm1.Text = Str(max)	2) max = A(1) For k = 1 To 20 If A(k) > max Then max = A(k) End If Next k mm1.Text = Str(max)	3) max = A(k) For k = 1 To 20 If A(k) > max Then max = A(k) Next k End If mm1.Text = Str(max)
4) max = A(1) For k = 1 To 20 If A(k) > max Then max = A(k) End If Print “ Max =” & max	5) max = A(1) For k = 1 To 20 If A(k) > max Then A(k) = max End If Next k MsgBox “ Max =” & max

Определить правильный вариант блока программы, вычисляющий количество элементов массива А(20)

меньших 10 и выдающий это значение с помощью диалогового окна. = ОТВЕТ 1

1) kol = 0 For k = 1 To 20 If A(k) < 10 Then kol = kol + 1 End If Next k MsgBox “kol =” & kol	2) kol = 1 For k = 1 To 20 If A(k) > 10 Then kol = kol + 1 Next k Print “kol =” & kol	3) kol = 0 For k = 1 To 20 If A(k) < 10 Then kol = kol + A(k) Next k End If MsgBox “kol =” & kol
4) kol = 0 For k = 1 To 20 A(k) > 10 kol = kol + A(k) Next k Print “kol =” & kol	5) For k = 1 To 20 If A(k) < 10 Then kol = kol + A(k) End If Next k mm1.Text = Str(kol)

Определить правильный вариант блока программы, определяющий минимальный элемент массива А(20),

и выдающий его значение в диалоговом окне.= ОВТЕТ 3

1) min = A(k) For k = 1 To 20 If A(k) < min Then min = A(1) End If Next k MsgBox “ Min =” & min	2) min = 1 For k = 1 To 20 If A(k) > min Then min = A(k) MsgBox “ Min =” & min Next k	3) min = A(1) For k = 1 To 20 If A(k) < min Then min = A(k) End If Next k MsgBox “Min =” & min
4) min = 0 If A(k) < min Then min = A(k) End If Min	5) For k = 1 To 20 If A(k) < min Then min = A(k) Next k:End If Print “ Min =” & min

Определить правильный вариант блока программы, объявления и формирования одномерного массива А(11)

случайным образом из отрицательных значений.= ОТВЕТ 3

1) Dim A(1 to 11) As Integer Dim i As byte For i = 1 To 11 A(i)=Str(aa1.Text) Next i	2) Dim i As byte Dim A(1 to 11) As Integer For i = 1 To 11 A(i)= Int(Rnd*40)-20 Next i	3) Dim i As byte Dim A(1 to 11) As Integer For i = 1 To 11 A(i)= - Int(Rnd*20) Next i
4) Dim A(1 to11) As Integer Dim i As byte For i = 1 To 11 A(i)=Val(InputBox(“ввестиА(i)”)) Next i	5) Dim i As byte For i = 1 To 11 A(i)= Int(Rnd*20)-10 Next i

Определить правильный вариант блока программы, вычисляющий произведение тех элементов массива А(12),

значение которых больших 2.= ОТВЕТ 3

1) P = 1 For k = 1 To 12 If A(k) > A(2) Then P = P* A(k) End If Next k	2) P = 0 For k = 1 To 12 If A(k) > 2 Then P = P* A(k) End If Next k	3) P = 1 For k = 1 To 12 If A(k) > 2 Then P = P* A(k) End if Next k
4) P = 0 If A(k) > A(2) Then P = P* A(k) End If	5) For k = 1 To 12 If A(k) > 2 Then P = P* 2 End If Next k

Определить правильный вариант блока программы, вычисляющий сумму положительных элементов массива А(20).= ОТВЕТ 2

1) S = 0 For k = 1 To 20 If A(k) < 0 Then S = S+ A(k) End If Next k	2) S = 0 For k = 1 To 20 If A(k) > 0 Then S = S+ A(k) End If Next k	3) S = 0 For k = 1 To 20 If A(k) > 0 Then S= S+ A(k) Next k End If
4) S = 0 If A(k) > 0 Then S = S+ A(k) End If	5) For k = 1 To 20 If A(k) < 0 Then S = S* A(k) End If Next k

Определить правильный вариант блока программы, определяющий максимальный элемент массива А(20),

и выдающий его значение в поле ввода на форме.= ОТВЕТ 3

1) max = 0 For k = 1 To 20 If A(k) < max Then max = A(k) End If Next k mm1.Text = Str(max)	2) For k = 1 To 20 If A(k) > max Then max = A(k) End If Next k mm1.Text = Str(max)	3) max = A(1) For k = 1 To 20 If A(k) > max Then max = A(k) End If Next k mm1.Text = Str(max)
4) max = A(1) For k = 1 To 20 If A(k) > max Then max = A(k) End If Print “ Max =” & max	5) max = A(1) For k = 1 To 20 If A(k) > max Then A(k) = max End If Next k MsgBox “ Max =” & max

Что является результатом приведенного блока программы:

For k = 1 To 20

Print “ A(” & k & “) = ” & A(k)

Next k = вывод элементов массива на форму

Что является результатом приведенного блока программы:

mm = 1

For k = 1 To 20

If A(k) < 0 Then

mm = mm * A(k)

End If

Next k = произведение отрицательных элементов массива

Что является результатом приведенного блока программы:

mm = 1

For k = 1 To 20

If A(k) > 0 Then

mm = mm * A(k)

End If

Next k = произведение положительных элементов массива

Что является результатом приведенного блока программы:

mm = 0

For k = 1 To 20

If A(k) > 0 Then

mm = mm + A(k)

End If

Next k = сумма положительных элементов массива

Что является результатом приведенного блока программы:

mm = 0

For k = 1 To 20

If A(k) < 0 Then

mm = mm + A(k)

End If

Next k = сумма отрицательных элементов массива

Что является результатом приведенного блока программы:

m = 1

For k = 1 To 20

m = m * A(k)

Next k = произведение всех элементов массива

Что является результатом приведенного блока программы:

m = 0

For k = 1 To 20

m = m + A(k)

Next k

Sr = m / 20 средне=е значение всех элементов массива

Что является результатом приведенного блока программы:

m = 0

For k = 1 To 20

m = m + A(k)

Next k = сумма всех элементов массива

Что является результатом приведенного блока программы:

mm = A(1)

For k = 1 To 20

If A(k) < mm Then

mm = A(k)

End If

Next k = значение минимального элемента массива

Что является результатом приведенного блока программы:

max = A(1)

For k = 1 To 20

If A(k) > max Then

max = A(k)

End If

Next k = значение максимального элемента массива

Какого типа могут быть переменные, являющиеся индексами элемента многомерного массива?- Byte;

Определить правильный формат описания всех переменных при объявлении многомерного массива.- Dim B(1 to 6, 1 to 5) As Single, i As Byte, j As Byte

Для чего используется в программе команда Option Base 1?- для определения начального значения индексов массива

Что определяют индексы элемента многомерного массива?- местоположение элемента

Сумма, каких значений элементов массива вычислена в приведенном блоке программы?

For i = 1 To 4

S = 0

For j = 1 To 6

S = S + C(i,j)

Next j: Print S

Next i = сумма элементов строк

Определить, какое значение вычислено в приведенном блоке программы?

m = C(1,1)

For j = 1 To 6

If C(j,j) < m Then

m = C(j,j)

Дата добавления: 2014-12-27