Массивы

INTEGE R %целые числа в интервале от до LONG& целые числа в интервале от до SINGLE! числа с плавающей запятой в интервале от ±8,43* до ± 3,З7*1038 DOUBLE# числа с плавающей запятой в интервале от ±4,19* до ±1,67*10308 STRING$любые тексты с максимальной длиной знаков Стандартные типы данных.

Под массивом понимают объединение переменных одного типа в единую структуру. Обращение к отдельным элементам в массиве осуществляется по индексу. Допустим, в программе необходимо 20 переменных для запоминания стоимостей каких-то товаров. Переменные (Price) можно объявить следующим образом: Dim Price1!, Price2!,......Price10! Ввод данных выглядит так: INPUT Input price",Price1! INPUT Input price10",Price10!

Перечень подобных примеров можно продолжить (вывод наименований товаров, суммирование цен, стирание старых цен и т.п.). Значительно удобнее в подобных случаях вместо 10 отдельных полей данных использовать массив из 10 элементов и отдельный элемент идентифицировать с помощью числового индекса. Причем индекс может изменятся, например, как переменная цикла. Массив объявляется командой DIM: DIM [SHARED] Переменная [Размерность] В отличие от объявления простых переменных появляется новая спецификация размерность. В ней указывается максимальное значение индекса массива. DIM TOVAR$(1 T0 10) DIM CENA%(1 TO 10) '20 строковых элементов '6 Integer-элементов В программе для выбора элемента из массива используется индекс. PRINT CENA%(5) 'Выбор элемента массива с индексом 5

Пример: 'Упражнение с использованием массива DIM artpr!(1 TO 20) 'массив цен 'Ввод цен для 20 наименований товаров FOR i%-1 T0 20 PRINT "Ввести стоимость "; i%; "-го товара"; INPUT "",artpr(i%) NEXT i% 'Вывод 20 наименований

До сих пор мы рассматривали одномерные массивы. Но в QBASIC массив может иметь несколько индексов. Например, использование второго индекса позволяет обрабатывать двумерные таблицы. Трехмерный массив можно представить как куб. Можно описать массивы с четырьмя, пятью и более индексами. Максимально допустимое число индексов для одного массива 255. Пример: 'Использование трехмерных массивов DIM zahl%(1 TO 10, 4 ТО 16, 6 ТО 30) zahl%(1,5,23)=13 PRINTzahl%(1,523)

Вычисление суммы элементов массива в QBasic Пример: CLS N = 15 DIM M(N) SUM = 0 FOR I = 1 TO N M(I) = INT(RND*100) PRINT I; -; M(I) SUM = SUM + M(I) NEXT I PRINT ____________ PRINT SUMMA =; SUM