2014-02-02
847
Заполнение массива
Пример статического заполнения и печати двумерного массива.
DATA Настя,Ульяна,Женя
DATA Щербакова,Евланова,Клочко
DIM A$(2,3)
FOR I=1 TO 2 ' Заполнение массива
FOR J=1 TO 3
READ A$(I,J)
NEXT J,I
FOR I=1 TO 2
FOR J=1 TO 3 ' Печать значений массива по строкам
PRINT A$(I,J);
NEXT J
NEXT I
Пример динамического заполнения и печати двумерного массива.
DIM A(5,4)
FOR I=1 TO 5 ' Заполнение массива
FOR J=1 TO 4
INPUT A(I,J)
NEXT J,I
FOR I=1 TO 5 ' Печать значений массива по строкам
FOR J=1 TO 4
PRINT A(I,J);
NEXT J
NEXT I
Пример заполнения массива с помощью стандартной функции RND.
DIM M(2,8)
FOR I=1 TO 2
FOR J=1 TO 8
M(I,J)=INT(RND(1)*10) ' Заполнение массива случайными
PRINT M(I,J); ' числами и печать значений массива
NEXT J ' по строкам
NEXT I
Пример 1. Задана матрица U(7,3). Отрицательные элементы матрицы заменить на 0. Измененный массив вывести на экран.
DIM U(7,3)
FOR I=1 TO 7 ' Заполнение массива отрицательными и
FOR J=1 TO 3 ' положительными числами
U(I,J)=INT(RND*20-10)
PRINT U(I,J);
NEXT J
NEXT I: PRINT
FOR I=1 TO 7
FOR J=1 TO 3
IF U(I,J)<0 THEN U(I,J)=0
PRINT U(I,J);
NEXT J
NEXT I
END
Пример 2. Найти сумму положительных элементов четных строк матрицы C(5,3).
|
|
|
DIM С(5,3)
FOR I=1 TO 5
FOR J=1 TO 3
С(I,J)=INT(RND(1)*20)
PRINT С(I,J);
NEXT J
NEXT I: PRINT
S=0
FOR I=2 TO 5 STEP 2
FOR J=1 TO 3
S=S+C(I,J)
NEXT J
NEXT I
END
Пример 3. Дана матрица U(7,3). Получить массив Q(7), элементами которого являются количество отрицательных элементов соответствующих строк матрицы U(7,3).
DIM U(7,3),Q(7)
FOR I=1 TO 7 ' Заполнение массива отрицательными и
FOR J=1 TO 3 ' положительными числами
U(I,J)=INT(RND(1)*20-10)
PRINT U(I,J);
NEXT J
NEXT I: PRINT
FOR I=1 TO 7
K=0
FOR J=1 TO 3
IF U(I,J)<0 THEN K=K+1
NEXT J
Q(I)=K: PRINT Q(I);
NEXT I
END
Пример 4. Задан массив C(5,3). В массив К(5) записать суммы элементов соответствующих строк массива C(5,3). Вывести на экран значения элементов массива K(5).
DIM С(5,3),K(5)
FOR I=1 TO 5
FOR J=1 TO 3
С(I,J)=INT(RND(1)*20)
PRINT С(I,J);
NEXT J
NEXT I: PRINT
FOR I=1 TO 5
S=0
FOR J=1 TO 3
S=S+C(I,J)
NEXT J
K(I)=S: PRINT K(I); ' Формирование и печать массива К
NEXT I
END
Пример 5. Задана матрица М(6,3), подсчитать количество строк, в которых первый элемент строки меньше нуля.
DIM M(6,3)
FOR I=1 TO 6
FOR J=1 TO 3
U(I,J)=INT(RND(1)*20-10)
PRINT M(I,J);
NEXT J
NEXT I: PRINT
FOR I=1 TO 6
IF M(I,1)<0 THEN K=K+1 ' Подсчет количеств строк
NEXT I
PRINT " Количество строк=";K
Пример 6. В заданной матрице N(4,6) поменять местами строки L и K. Измененную матрицу вывести на экран.
DIM N(4,6)
FOR I=1 TO 4
FOR J=1 TO 6
N(I,J)=INT(RND(1)*20)
PRINT N(I,J);
NEXT J
NEXT I
INPUT " Введите строки, которые необходимо поменять местами ";L,K
FOR J=1 TO 6
SWAP N(L,J),N(K,J) ' Меняются местами строки
NEXT J
FOR I=1 TO 4 ' Печать измененного массива
FOR J=1 TO 6
PRINT N(I,J);
NEXT J
NEXT I
Объявление размерности массива бывает переменным, т.е. размерность выясняется в процессе работы программы.
Пример 7. Задана матрица A(n,m), получить массив B(n), элементами которого являются сумма наименьшего и наибольшего элементов соответственной строки матрицы A(n,m).
|
|
|
INPUT " Введите количество строк и столбцов матрицы A "; N,M
DIM A(n,m),B(n)
FOR I=1 TO N ' Динамическое заполнение
FOR J=1 TO M ' массива
INPUT A(I,J)
NEXT J,I
FOR I=1 TO N ' Печать элементов массива A
FOR J=1 TO M
PRINT A(I,J);
NEXT J
NEXT I: PRINT
FOR I=1 TO N
MI=A(I,1): MA=A(I,1) ' Первый элемент каждой строки
FOR J=2 TO M ' запоминается в переменных MI,MA
IF A(I,J) < MI THEN MI=A(I,J)
IF A(I,J) > MA THEN MA=A(I,J)
NEXT J
B(I)=MI+MA: PRINT B(I); ' Формирование массива В
NEXT I
END
Матрица, у которой количество строк равно количеству столбцов, называется квадратной.
Пример 8. Задана квадратная матрица A порядка N. Получить массив B(n), элементами которого являются первый положительный элемент соответствующей строки квадратной матрицы A.
INPUT " Введите количество строк и столбцов матрицы A "; N
DIM A(n,n),B(n)
FOR I=1 TO N
FOR J=1 TO N
INPUT A(I,J)
NEXT J,I
FOR I=1 TO N
FOR J=1 TO N
PRINT A(I,J);
NEXT J
NEXT I: PRINT
FOR I=1 TO N
FOR J=1 TO N
IF A(I,J)>0 THEN B(I)=A(I,J):J=N ' Формирование массива В
NEXT J
PRINT B(I);
NEXT I
END
Элементы квадратной матрицы, у которых номер строки совпадает с номером столбца, располагаются на главной диагонали матрицы.
В квадратной матрице B(4,4)
B(1,1), B(1,2), B(1,3), B(1,4)
B(2,1), B(2,2), B(2,3), B(2,4)
B(3,1), B(3,2), B(3,3), B(3,4)
B(4,1), B(4,2), B(4,3), B(4,4)
элементы B(1,1), B(2,2), B(3,3), B(4,4) располагаются на главной диагонали матрицы.
Пример 9. Дана квадратная матрица A порядка 5. Заменить нулями все элементы матрицы, расположенные на главной диагонали. На экран вывести измененную матрицу в виде таблицы.
DIM A(5,5)
FOR I=1 TO 5
FOR J=1 TO 5
A(I,J)=INT(RND(1)*20)
PRINT A(I,J);
NEXT J
NEXT I: PRINT
FOR I=1 TO 5 ' Замена нулями элементов, расположенных на
A(I,I)=0 ' главной диагонали
NEXT I
FOR I=1 TO 5
FOR J=1 TO 5
PRINT A(I,J); ' Печать измененной матрицы
NEXT J
NEXT I
Пример 10. Дана квадратная матрица порядка N. В строках с отрицательным элементом на главной диагонали найти сумму всех элементов строки. На экран вывести сумму элементов и номер строки.
INPUT " Введите количество строк и столбцов "; N
DIM С(N,N)
FOR I=1 TO N
FOR J=1 TO N
С(I,J)=INT(RND(1)*20)
PRINT С(I,J);
NEXT J
NEXT I
FOR I=1 TO N
S=0
FOR J=1 TO N
IF C(I,I)<0 THEN S=S+C(I,J)
NEXT J
IF S<>0 THEN PRINT " Сумма элементов =";S," Номер строки =";I
NEXT I
