Ввод одномерного массива

Лабораторная работа №3

Пример

Использование функций LBOUND и UBOUND.

Эти функции возвращают нижнее LBOUND и верхнее UBOUND значение границ определению измерения массива.

Синтаксис этих функций:

LBOUND (массив [, размерность %)

UBOUND (массив [, размерность %)

где массив - имя массива;

Размерность % - номер измерения массива, для которого эти функции возвращают значение нижней и верхней границы. Для определения индекса первого измерения используется 1, для второго - 2 и т.д. Если номер размерности не указан, по умолчанию подразумевается 1.

CLS

REM объявление двухмерного массива

DIM a(-5 TO 10, 2 TO 7)

REM вывод границ массива

PRINT

PRINT LBOUND(a, 1);

PRINT UBOUND(a, 1)

PRINT LBOUND(a, 2);

PRINT UBOUND(a, 2)

END

В результате будет напечатано

-5 10

2 7

Эти функции целесообразно использовать в том случае, если число задействованных элементов массива изменяется внутри программы или если необходимо использовать минимальное и максимальное значения индексов для определения области изменения счетчика цикла.

При решении задач с использованием массивов условно можно выделить следующие модули:

Ввод массива → Операции с массивом → Вывод массива

Одномерные массивы

Пример: Ввести одномерный массив действительных чисел, состоящий из n элементов.

А)

Рис.2

cls option base 1 input n dim a(n) for i=l to n input a(i) next i

При выполнении этой программы элементы массива вводятся с клавиатуры.

Б) При выполнении этой программы элементы массива вводятся из блока данных

dim a (1 to n) for i=l to n read a (i) next i data 3.5,4.6,7.3		В операторе data должно быть указано n значений. Этот вариант ввода удобен, когда число элементов массива известно заранее иначе, оператор data необходимо обновлять.
В)
cls input n dim a (1 to n) for i=l to n a(i)= rnd (i) next i		В данном случае элементы массива генерируются с помощью функции RND.

Если необходимо ввести два или несколько одномерных массивов, то программа может быть:

print "введите массивы а и b"

for i=l to n

input a (i), b(i)

next i.

Дата добавления: 2014-11-16