Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Действия над элементами двумерного массива
|
|
Пример 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. Измененную матрицу вывести на экран.
— Регулярная проверка качества ссылок по более чем 100 показателям и ежедневный пересчет показателей качества проекта.
— Все известные форматы ссылок: арендные ссылки, вечные ссылки, публикации (упоминания, мнения, отзывы, статьи, пресс-релизы).
— SeoHammer покажет, где рост или падение, а также запросы, на которые нужно обратить внимание.
SeoHammer еще предоставляет технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Зарегистрироваться и Начать продвижение
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
|
|