Массивы.
Массив — это набор элементов определенного типа, каждый из которых имеет свой порядковый номер, называемый индексом.
Различают статические и динамические массивы.
Границы статического массива устанавливаются на этапе разработки и могут изменяться только в новой версии программы.
Динамические массивы изменяют свои границы в ходе выполнения программы.
Элементы массива располагаются в последовательных ячейках памяти, обозначаются именем массива и индексом.
Каждое из значений, составляющих массив, называется его компонентой (или элементом массива).
Массиву присваивается имя, посредством которого можно ссылаться как на массив данных в целом, так и на любую из его компонент.
Переменные, представляющие компоненты массивов, называются переменными с индексами в отличие от простых переменных,
представляющих в программе элементарные данные. Индекс в обозначении компонент массивов может быть константой,
переменной или выражением порядкового типа (целочисленный, логический, символьный, перечислимый, диапазон).
Если за каждым элементом массива закреплен только один его порядковый номер, то такой массив называется линейным.
Количество индексов элементов массива определяет размерность массива.
По этом признаку массивы делятся на:
- одномерные - линейные , т.е. содержат либо только один столбец, либо только одну строку),
- двумерные - таблицы,
- трёхмерные - журналы,
- т.д.
Описание массива с помощью оператора Dim
Dim X(0 to 19) As Long
Dim X(20) As Long
Расчет множества значений функции для заданного интервала значений аргумента.
Найти Y = X2 + 2X - 5 для -10 < Х < 10 с шагом 1
Результаты отобразить в табличной форме.
На заданном интервале значений аргумента (Х) при шаге 1 рассчитывается 21 значение функции {Y}
Создадим на форме множество текстовых окон Text1(i) для вывода значений X (21 окно) и Text2(i) для вывода значений Y (21 окно).
|
Private Sub Command1_Click()
|
‘начать процедуру кликом по командной кнопке 1’
|
|
Dim X(21), Y(0, 21) As Double
|
‘описать переменные, как десятичные числа двойной точности’
|
|
Dim I As Byte
|
‘описать переменную, как байтовую’
|
|
For I = 0 to 20
|
‘начало цикла ’
|
|
X(I) = -10 + I
|
‘значения Х ’
|
|
Text1(I).Text = Str(X(I))
|
‘вывод значений аргумента Х в текстовые окна’
|
|
Y(I) = X(I)^2 + 2*X(I) - 5
|
‘значения Y ’
|
|
Text2(I).Text = Str(Y(I))
|
‘вывод значений функции Y в текстовые окна’
|
|
Next I
|
‘конец цикла’
|
|
End Sub
|
‘конец процедуры’
|
|
|
