Главная Случайная страница


Полезное:

Как сделать разговор полезным и приятным Как сделать объемную звезду своими руками Как сделать то, что делать не хочется? Как сделать погремушку Как сделать так чтобы женщины сами знакомились с вами Как сделать идею коммерческой Как сделать хорошую растяжку ног? Как сделать наш разум здоровым? Как сделать, чтобы люди обманывали меньше Вопрос 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

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

 

 


 







Date: 2015-07-24; view: 468; Нарушение авторских прав



mydocx.ru - 2015-2024 year. (0.012 sec.) Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав - Пожаловаться на публикацию