Как заполнить массив и вывести его на экран в QBasic
Начнем с того, что массив надо объявить. Если размеры массива заданы, например а(20) или a(5,6), первой командой программы пишем объявление массива. Легче всего это сделать просто добавив впереди слово DIM. Для первого примера
Код Basic4GL
1
DIM a(20)
для второго
Код Basic4GL
1
DIM a(5,6)
Если размеры массива в условии не заданы, вводим их с клавиатуры, а потом уже объявляем. Для одномерного массива:
Код Basic4GL
1
2
INPUT"vvedite kolichestvo elementov N ",n
DIM a(n)
Для двумерного:
Код Basic4GL
1
2
3
INPUT"vvedite kolichestvo strok M ",m
INPUT"vvedite kolichestvo stolbcov N ",n
DIM a(m,n)
Теперь, когда массив объявлен, надо его заполнить. Есть 3 основных варианта заполнения массива: 1. Ручной ввод с клавиатуры 2. Чтение данных из списка 3. Заполнение случайными числами Есть и другие способы, но они применяются редко, и мы о них пока не будем говорить. Разберём самый популярный способ Ручной ввод. Для одномерного массива мы пишем команду цикла FOR и в цикле заполняем массив командой INPUT Для нашего примера это будет выглядеть так:
Код Basic4GL
1
2
3
FOR i=1to N
input"vvedite element ",a(i)next
или, если количество элементов известно, скажем, 20, то
Код Basic4GL
1
2
3
FOR i=1to20input"vvedite element ",a(i)next
Для двумерного массива циклов FOR будет 2 - для строк и для столбцов, поэтому заполнение будет выглядеть так:
Код Basic4GL
1
2
3
4
5
FOR i=1to m
FOR j=1to n
input"vvedite element ",a(i,j)nextnext
Массив заполнен. Выводим его на экран теми же командами цикла Одномерный:
Код Basic4GL
1
2
3
FOR i=1to N
print a(i);next
Двумерный:
Код Basic4GL
1
2
3
4
5
6
FOR i=1to m
FOR j=1to n
print a(i,j);nextprintnext
Команда PRINT во второй раз пишется для перехода на следующую строку.
Итак, мы объявили, заполнили и вывели массив. С этого начинаются все программы на массивы. Соберём всё в одну программу. Программа заполнения и вывода одномерного массива:
Код Basic4GL
1
2
3
4
5
6
7
8
9
INPUT"vvedite kolichestvo elementov N ",n
DIM a(n)FOR i=1to N
input"vvedite element ",a(i)nextprint"massiv"FOR i=1to N
print a(i);next
Программа заполнения и вывода двумерного массива:
Код Basic4GL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
INPUT"vvedite kolichestvo strok M ",m
INPUT"vvedite kolichestvo stolbcov N ",n
DIM a(m,n)FOR i=1to m
FOR j=1to n
input"vvedite element ",a(i,j)nextnextprint"matrica "FOR i=1to m
FOR j=1to n
print a(i,j);nextprintnext
Если вы запомните, как это делается, считайте, что половину задачи вы уже решили. А это уже много.
Источник статьи: http://www.cyberforum.ru/post687912.html
