http://laska-samp.biz/informatika/articles/qbsk/odnomas
Информатика :: Теория, задания, программирование :: QBasic

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

При работе с большим числом данных одного типа очень удобно использовать массивы.
Массив - это набор переменных, имеющих одинаковое имя (идентификатор), но различающихся порядковыми номерами (индексами).
Для того чтобы использовать массив его надо сначала объявить в программе. Для этого используют оператор DIM. По умолчанию (если нет оператора DIM в программе) считается заданным массив из 10 элементов.
Пример:
DIM a(100) AS INTEGER
Это массив из ста элементов, каждый из которых может быть целым числом.
DIM name(30) AS STRING
DIM mas(20)
DIM mas1(10) AS INTEGER
ПРИМЕР. Следующая программа, поставит каждому учащемуся случайную оценку от 3 до 5.
REM ‘Выставление оценок
CLS
DIM m(30) AS INTEGER
FOR I=0 TO 29
m(I)=3+INT(RND*3)
NEXT
END
m
 3
3
5
3
4
5
5
3
...
4
0
1
2
3
4
5
6
7
...
29
Пример: Вывести количество отрицательных элементов массива.
REM Вывести количество отрицательных элементов
INPUT "Введите число элементов массива", n
DIM mas(n) AS INTEGER
FOR I=0 TO n-1
INPUT "Введите элемент массива", mas(I)
NEXT
CLS
PRINT "Вывод массива"
FOR I=0 TO n-1
PRINT mas(I);
NEXT
FOR I=0 TO n-1
IF mas(I)<0 THEN k=k+1
NEXT
PRINT
PRINT "Число отрицательных элементов: ",k
END
Подсчет количества отрицательных элементов массива происходит в цикле:
FOR I=0 TO n-1
IF mas(I)<0 THEN k=k+1
NEXT



Опубликовано 20 December 2015