Введение 8 Этапы создания Windowsприложения 8
 Скачать 6.98 Mb.
|
7.1. Ввод массиваВвести массив – значит задать его размер и указать значения всех его элементов. Существует два основных способа заполнения массива. В первом случае значения элементов последовательно вводятся с клавиатуры. Во втором случае они задаются с помощью генератора случайных чисел. Разберем оба способа. Задание значений элементов массива с клавиатуры – это самый распространенный способ ввода массива. Он состоит из двух этапов. На первом шаге указывается количество элементов в массиве и соответствующим образом переопределяется размер массива. На втором шаге организуется цикл, на каждом шаге которого вводится значение одного элемента. Рассмотрим особенности программной реализации этого алгоритма. Сначала описывается целочисленный массив a(). Так как его размер заранее неизвестен, то массив описывается без указания верхней границы. Dim a() As Integer Для работы с массивом нам необходимо знать его размер. Он будет храниться в переменной n. Поскольку массивы всегда обрабатываются в цикле, то для организации цикла For нам потребуется счетчик i. Очевидно, что обе эти переменных всегда будут иметь целый тип. Dim n, i As Integer Задание массива начинается с определения его размера. Мы просим пользователя указать количество элементов в массиве. Так как количество элементов может быть только положительным, то при вводе этого значения необходима проверка, которую мы организуем с помощью цикла Do Loop Until. Do n = Val(InputBox("Введите количество элементов")) Loop Until n > 0 В Visual Basic 2005 нумерация элементов массива всегда начинается с нуля. Следовательно, номер последнего элемента будет на единицу меньше общего количества элементов массива. Поэтому уменьшаем значение переменной n на единицу. Теперь в ней хранится не количество элементов, а номер последнего элемента массива. n -= 1 Задаем размер массива a(), указывая в операторе ReDim номер последнего элемента массива. ReDim a(n) Организуем цикл для ввода значений элементов массива. Элементы массива последовательно пронумерованы от 0 до n. Следовательно, счетчик цикла должен изменяться в этом же диапазоне. Тогда на i-м шаге цикла мы будем вводить элемент массива с номером i. For i = 0 To n С помощью функции InputBox вводим значение i-го элемента массива. Так как вводимое значение является числом, то используем преобразование Val. a(i) = Val(InputBox("Введите " + Str(i) + _ "-й элемент массива")) Next Второй способ ввода массива – это заполнение случайными числами. В Visual Basic 2005 есть специальная функция, которая по определенным правилам генерирует рациональные случайные числа в диапазоне [0; 1). Она называется Rnd(). Используя эту функцию, можно заполнить массив случайными числами из любого диапазона. Рассмотрим задачу заполнения целочисленного массива случайными числами из некоторого диапазона. Начало и конец диапазона значений задается с клавиатуры. Сначала описывается целочисленный массив a(). Так как его размер заранее неизвестен, то массив описывается без указания верхней границы. Dim a() As Integer Для работы с массивом нам необходимо знать его размер. Он будет храниться в переменной n. Поскольку массивы всегда обрабатываются в цикле, то для организации цикла For нам потребуется счетчик i. Очевидно, что обе эти переменных всегда будут иметь целый тип. Dim n, i As Integer Также нам потребуются переменные для хранения начала и конца диапазона случайных чисел. Заведем соответствующие переменные start (начало диапазона) и fin (конец диапазона). Dim start, fin As Integer Задание массива начинается с определения его размера. Мы просим пользователя указать количество элементов в массиве. Так как количество элементов может быть только положительным, то при вводе этого значения необходима проверка, которую мы организуем с помощью цикла Do Loop Until. Do n = Val(InputBox("Введите количество элементов")) Loop Until n > 0 В Visual Basic 2005 нумерация элементов массива всегда начинается с нуля. Следовательно, номер последнего элемента будет на единицу меньше общего количества элементов массива. Поэтому уменьшаем значение переменной n на единицу. Теперь в ней хранится не количество элементов, а номер последнего элемента массива. n -= 1 Задаем размер массива a(), указывая в операторе ReDim номер последнего элемента массива. ReDim a(n) Вводим начало и конец диапазона случайных чисел. start = Val(InputBox("Введите начало отрезка")) fin = Val(InputBox("Введите конец отрезка")) Выполняем начальную настройку генератора случайных чисел. Для этого используется функция Randomize(). Randomize() Организуем цикл для ввода значений элементов массива. Элементы массива последовательно пронумерованы от 0 до n. Следовательно, счетчик цикла должен изменяться в этом же диапазоне. Тогда на i-м шаге цикла мы будем вводить элемент массива с номером i. For i = 0 To n На каждом шаге цикла вычисляем значение очередного элемента массива. Функция Rnd() возвращает рациональное случайное число в диапазоне [0; 1). Умножив это значение на разность между концом и началом желаемого диапазона, получим диапазон [0; fin - start). Так как в общем случае начало диапазона отличается от нуля, то полученный диапазон случайных чисел надо сдвинуть в требуемую точку. Для этого добавим к нашему числу величину равную началу диапазона. Получим [0 + start; fin – start + start) или [start; fin). Так как заполняемый массив является целочисленным, то полученное значение необходимо округлить. Функция Math.Round реализует процесс математического округления. В итоге мы получаем целое случайное число из диапазона [start; fin]. Описанный процесс реализуется следующим арифметическим выражением. a(i) = Math.Round(start + (fin - start) * Rnd()) Next Полный текст этой программы представлен в приложении 21. Пример работы программы приведен на рис. 36. Исходные данные для этого случая: n = 10, start = 10, fin = 10. |