ТЕМА № 1. Массивы

Задание: разработайте приложение, которое вычисляет сумму 10 целых чисел от 0 до 100 и их среднее арифметическое.

Ход работы

1   Создайте новый проект. Расположите элементы управления на новой форме, как показано на рис. 38.

 

Рис. 38. Конструктор формы

2   Для решения данной задачи необходимо запрограммировать кнопку Вычислить так, чтобы в текстовое окно выводились элементы массива, их сумма, а затем их среднее арифметическое. Сначала задайте свойство MultiLine для текстового окна txtMaccив равным True для того, чтобы в текстовом окне можно было выводить текст в несколько строк.

3   Сначала в процедуре, описывающей событие щелчка мыши по кнопке Вычислить, опишем переменные, которые мы будем использовать при решении поставленной задачи:

Dim Массив(1 To 10) As Integer

Dim i As Integer

Dim Сумма As Integer

 

4   Для того чтобы задать значения элементам массива, воспользуемся циклом:

 

Randomize Timer

For i = 1 To 10

            Массив(i) = 100 * Rnd - 50

Next i

 

5   Теперь задайте начальное значение для Суммы, равное 0.

6   С помощью следующего цикла вычислим сумму элементов массива:

 

For i = 1 To 10

            Сумма = Сумма + Массив(i)

Next i

 

7   Теперь осталось вывести элементы массива, сумму и среднее арифметическое в текстовое окно, как показано на рис. 39.

8   Сначала выведите фразу Массив:

 

txtМассив = "Массив: "

 

9   Теперь в цикле необходимо вывести элементы массива:

 

For i = 1 To 10

            txtМассив = txtМассив + Str$(Массив(i)) + " "

Next i

 

Рис. 39

10   Для того, чтобы выводить текст с новой строки добавьте символ перехода на новую строку, ASCII-код которого равен Chr (10)+Chr (13), или значение встроенной константы VB vbCrLf, т.е.

 

txtМассив = txtМассив + vbCrLf + "Сумма: " + Str$(Сумма)

 

11   Самостоятельно добавьте вывод в текстовое окно среднего арифметического.

12   Запустите и отладьте программу. Сохраните проект.

 

Дополнительное задание

Сократите текст получившейся программы, путем замены трех циклов на один.

 

Контрольные задания

Разработать приложение, которое вычисляет:

1) ;

2) ;

3) ;

4) максимальное (минимальное) число из 15 заданных целых чисел;

5) ;

6) ;

7) количество элементов массива из 35-ти целых чисел от –100 до 100, которые по своему абсолютному значению превосходят число 49;

8) сколько элементов в массиве из 25 целых чисел больше своих «соседей», т.е. предыдущего и последующего элементов;

9) сколько раз в массиве из 30 элементов меняется знак (например, в массиве 1, –34, 8, 14, –5 знак меняется 3 раза).

 

Вопросы для самоконтроля:

1   Что такое массив?

2   Сколько элементов будет содержать массив, который описан с помощью следующего оператора:

 

Dim Девять(9) as Integer ?

 

3   Для чего необходимо применять массивы?

4   С помощью какого оператора можно описать массив, который будет доступен всем модулям Вашего приложения?

5   С помощью какого оператора можно описать массив целых чисел с индексами от 4 до 26 для использования в какой-нибудь процедуре?

6   Что такое динамический массив?

7   Как описываются динамические массивы?

8   С помощью какого оператора можно изменить размер динамического массива?

Скачано с www.znanio.ru