Действия над элементами двумерного массива

Пример 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

PRINT

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

PRINT

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

PRINT

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

PRINT

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

PRINT

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

PRINT

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

PRINT

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

PRINT

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

PRINT

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

PRINT

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

PRINT

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

PRINT

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

PRINT

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

Подпрограммы

Подпрограммой называется участок программы, оформленный определенным образом, к которому можно обращаться из разных точек программы любое число раз. При этом подпрограмма может решать каждый раз одну и ту же задачу с разными значениями исходных данных. Использование подпрограмм позволяет существенно уменьшить объем рабочей программы. Деление программы на подпрограммы делает программу более понятной.

Обращение к подпрограмме осуществляется с помощью команды