Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
Действия над элементами двумерного массива
Пример 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
Date: 2015-07-24; view: 468; Нарушение авторских прав |