Работа с массивами. 
Одномерные (однопараметрические) массивы

Массивом («array» по-английски) называют упорядоченное множество однородных данных. Тот параметр (или несколько параметров), который упорядочивает массив, называют его параметром (или параметрами). Количество данных, входящий в массив, называют его размером, а количество параметров, определяющих характер массива, называют его размерностью. Например, данные метеорологических ежедневных четырехкратных наблюдений температуры воздуха за пять лет представляют собой одномерный массив, определяющим параметром которого является время (или номер) наблюдения. Нетрудно подсчитать, что данных в таком массиве будет чуть больше 7300 (нужно правильно учесть високосные годы!), т. е. именно таков его размер.

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

А если к тому же записываются еще и давление, влажность, оценка облачности, количество осадков, скорость ветра и его направление, да еще и фамилия наблюдателя?

А если эти данные нужно обработать по 80 точкам наблюдений? А если нужно заодно и провести научный статистический (факторный, групповой, латентно-контекстный) анализ результатов? А если обрабатывать данные нужно для территории и быстро получать результаты для точного суточного прогноза?

Для облегчения обработки результатов и достижения большей точности и достоверности вычислений нужно прибегнуть к естественному и совершенно незаменимому помощнику — компьютеру. Именно компьютеры позволяют не только записать введенные массивы и точно обработать их, но и сохранить данные или их наращивания и последующей обработки, или же для более глубокого их анализа, построения новых моделей и т. д.

Например, чем плоха идея о том, что характер погоды за год определяется тем, на какое время выпадает празднование Пасхи или Науруза (другими словами, характер лунного обращения вокруг Земли и поэтому распределения по временам года лунного притяжения и приливов вполне может сказаться на характере погоды!)? Говорят же, что год был засушливым или дождливым, а зима снежной и/или теплой, или, наоборот, суровой. Для проверки такой гипотезы нужно «перелопатить» огромное количество данных метеорологических наблюдений, распределить или перераспределить выборки тем или иным образом, провести строгий статистический анализ и т. д. и т. п.

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

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

Для этого просто используется цикл с оператором input, который всякий раз запрашивает у вас ввод числового (или символьного) значения и присваивает введенное значение параметрической переменной при пробегаемом в данный момент цикла значении параметра.

Задача. Ввести числовой одномерный массив размера N и найти его среднее значение Решение.

`vvod massiva i nakhozhdenie srednego.

input «vvedi razmer odnoparametricheskogo massiva, N»; n%.

dim a (n%) as double.

for i%=1 to n%.

print «a (»;i%;")=":input a (i%).

next i%.

for i%=1 to n%.

sum=sum+a (i%).

next i%.

srd=sum/n%.

print «srednee massiva ravno»; srd.

end.

Более элегантное решение с одновременной проверкой вводимых величин можно записать в виде:

cls 'vvod massiva i nakhozhdenie srednego.

input «vvedi razmer N odnomernogo massiva «; n%.

dim a (n%) as double.

for i% = 1 to n%.

20 print «a (»; i%; «)=»;: input a (i%).

print «Vy vveli a («; i%; «)=»; a (i%);

print «Pravil'no? Enter (y/n)» ;

40 input resp$.

if len (resp$)> 1 then ` ogrnichitel dliny vvoda.

print «po-vimatelnee! <> ili <>?»: goto 40.

if lcase$(resp$) = «n» then.

print «vvedem zanovo…»: GOTO 20.

elseif lcase$(resp$) «y» then.

print «otvechaite po-vnimatel'nee…»: goto 40.

end if.

sum = sum + a (i%).

next i%.

print «vvod zavershen, spasibo!».

srd = sum / n%.

print «srednee massiva ravno»; srd.

end.

Две новые функции, использованные в данной программе достаточно просты и понятны. Функция len (variable$) возвращает длину символьной строки (стринга) variable$, поэтому в строчке с комментарием срабатывает ограничение «не больше одного символа», а функция lcase$(variable$) указывает на нижний регистр введенного символа.