Полный обучающий курс (стр. 31 )

6)  элементы каждого столбца, меньшие среднего арифметического элементов каждого столбца;

7)  элементы каждой строки, больших среднего арифметического элементов данной строки;

8)  максимальные элементы каждой строки;

9)  отрицательные элементы каждой строки;

10)  элементы каждой строки, равные сумме соседних с ним элементов;

11)  элементы каждой строки, равные элементу в том же столбце, но в предыдущей строке.

2. Найти и вывести на экран индексы заданных элементов массива (если их нет выдать соответствующее сообщение):

1)  четных элементов каждой строки и нечетных элементов каждого столбца;

2)  симметричных чисел;

3)  первых k отрицательных элементов каждого столбца;

4)  последних k отрицательных элементов каждой строки;

5)  последних k отрицательных элементов каждого столбца;

6)  равных между собой элементов каждого столбца;

7)  элементов, являющимися действительными числами;

8)  элементов, являющихся трехзначными числами;

9)  элементов, не имеющих целой части;

10)  элементов, являющихся числами, сумма цифр которых равна заданному числу;

11)  элементов, являющихся числами, первая цифра которых равна заданной.

3. Используя функцию булева типа, определить:

1)  есть ли в данном массиве отрицательный элемент;

2)  есть ли два одинаковых элемента;

3)  есть ли данное число А среди элементов массива;

4)  есть ли в заштрихованной области массива (рис. а) элемент, равный введенному с клавиатуры числу (массив имеет размерность nxn);

5)  есть ли в заштрихованной области массива (рис. b) элемент, равный введенному с клавиатуры числу (массив имеет размерность nxn):

6)  есть ли в заштрихованной области массива (рис. c) элемент, равный введенному с клавиатуры числу (массив имеет размерность nxn):

7)  является ли массив логическим квадратом, то есть суммы по всем горизонталям, вертикалям и двум диагоналям должны быть равны;

8)  добавить к предыдущему условию, что сумма должна быть равна данному числу А;

9)  состоящая только из положительных элементов;

10)  состоящая только из положительных или нулевых элементов;

11)  состоящая только из элементов, принадлежащих промежутку от А до В.

4. Измените исходный массив в соответствии с заданием:

1)  в каждой строке сменить знак максимального по модулю элемента на противоположный;

2)  отрицательный последний элемент каждого столбца заменить нулем;

3)  положительные элементы умножить на первый элемент соответствующей строки, а отрицательные – на последний;

4)  заменить все элементы строки с номером k и столбца с номером р на противоположные по знаку (элемент, стоящий на пересечении, не изменять);

5)  к элементам столбца k1 прибавить элементы столбца k2;

6)  переверните в массиве каждую третью строку;

7)  поменяйте местами заданные элементы каждого столбца;

8)  добавьте к массиву столбец, содержащий максимальный элемент соответствующей строки, и строку содержащую минимальный элемент соответствующего столбца;

9)  найти максимальный элемент каждой строки и заменить им все минимальные элементы строки;

10)  найти минимальный и максимальный элементы столбца и заменить их суммой последний элемент;

11)  переверните в массиве каждую половину каждого столбца.

5. Решите задачу на заполнение массива по определенному правилу.

1)  Составить программу вывода на экран арифметического квадрата, в нем первый столбец и первая строка заполнены единицами, а каждый из остальных элементов равен сумме своих соседей сверху и слева. Квадрат должен быть занесен в массив.

2)  Заполнить массив А размером NxM следующим образом:

21 20 19 18 17 16 15

8 9 10 11 12 13 14

7 6 5 4 3 2 1

3)  Заполнить массив А размером NxM следующим образом:

1 0 2 0 3 0 4

0 5 0 6 0 7 0

8 0 9 0 10 0 11

4)  Заполнить квадратный массив В размером NxN следующим образом:

1 4 7 10 13 17 20

2 5 8 11 14 18 21

3 6 9 12 15 19 22

5)  Заполнить квадратный массив В размером NxN следующим образом:

1 3 4 10 11 21

2 5 9 12 20 22

6 8 13 19 23 30

7 14 18 24 29 31

15 17 25 28 32 35

16 26 27 33 34 36

6)  Заполнить квадратный массив В размером NxN (N<10)следующим образом:

1 2 3 4 5 6 7

11 12 13 14 15 16 17

21 22 23 24 25 26 27

7)  Заполнить квадратный массив В размером NxN следующим образом:

0 1 1 1 1 0

2 0 1 1 0 4

2 2 0 0 4 4

2 2 0 0 4 4

2 0 3 3 0 4

0 3 3 3 3 0

8)  Заполнить квадратный массив В размером NxN следующим образом:

6 1 1 1 1 5

2 6 1 1 5 4

2 2 6 5 4 4

2 2 5 6 4 4

2 5 3 3 6 4

5 3 3 3 3 6

9)  Заполнить квадратный массив В следующим образом: первая строка – числа Фибоначчи, а каждый столбец продолжает ряд Фибоначчи от элемента, находящегося в первой строке.

10)  Заполнить массив рядом натуральных чисел, расположив их закручивающейся спиралью по часовой стрелке.

11)  Заполнить массив рядом натуральных чисел, расположив их раскручивающейся спиралью против часовой стрелки.

Занятие 3. Вставка и удаление строк и столбцов.

Мы уже рассматривали такие действия для одномерных массивов. Обобщим для двумерных.

Вставка строк и столбцов

Для решения задачи вставки строки необходимо:

1. Первые k строк оставить без изменения.

2. Все строки после k-ой сдвинуть на одну назад, это лучше сделать, начиная с последней строки и идти до (k+1)-ой.

3. Элементам строки k+1 присвоить заданное значение.

4. Увеличить количество строк.

Кроме того, необходимо изменить размерность массива. Так как мы вставляем строку, то число строк будет на одну больше.

Задача. Вставить строку из нулей после строки с номером k.

Procedure Insert1(Var X : MyArray2; n, m : integer; k1 : integer);

Var

i, j : integer;

Begin

for i := n downto k1 +1 do

for j := 1 to m do

X[i+1, j] := X[i, j];{элементу столбца j присваиваем элемент этого же столбца, но из предыдущей строки}

for j := 1 to m do

X[k1+1, j] := 0;

Inc(n);

End;

Для вставки столбца пользуйтесь практически тем же правилом, только размерность увеличивается для столбцов и сдвигаем назад столбцы.

Задание. Напишите программу, содержащую процедуры вставки строки и столбца из заданного одномерного массива.

И еще несколько советов.

1. Если необходимо вставить после строки, удовлетворяющей какому-либо условию, то надо найти лишь ее номер и задача сводится к рассмотренной выше.

2. Если надо вставлять после всех строк с заданным условием, то надо увеличить размерность по строкам, и если строка удовлетворяет условию, то к ней применять вставку. При этом надо заметить, что лучше просматривать строки с последней и ввести счетчик вставленных строк.

3. Вставка перед строкой с данным номером отличается лишь тем, что сдвигать назад надо не с (k+1)-ой строки, а с k-ой.

Удаление строк и столбцов

Для решения задачи удаления строки необходимо:

1. Сдвинуть все строки, начиная с данной на одну вверх.

2. Последнюю строку обнулить.

3. Уменьшить количество строк.

Процедура удаления строки приведена ниже.

Procedure Delete1(Var X : MyArray2; Var n, m : integer; k1 : integer);

Var

i, j : integer;

Begin

for i := k1 to n-1 do

for j := 1 to m do

X[i, j] := X[i+1, j];

for j := 1 to m do

X[n, j] := 0;

Dec(n);

End;

Удаление столбца аналогично удалению строки.

И еще несколько советов.

1. При выводе на экран полученного массива не выводите нулевые строки и столбцы.

2. Задачу об удалении строки с заданным условием можно решить тем же способом, достаточно только найти ее номер, а в случае отсутствия такой строки можно просто сообщить об этом и закончить программу.

Задание. Выберите с учителем задачи из предложенного списка. Решите их, применяя подпрограммы, приготовьте для проверки 3-4 теста.

Задачи для самостоятельного решения

Задачи на вставку элементов.

1. Вставить первую строку после строки, в которой находится первый встреченный максимальный элемент и первый столбец перед всеми столбцами, в которых встретится заданное число. Если такого столбца или строки нет, то вывести сообщение об этом.

2. Вставить второй столбец после первого столбца, в котором все элементы положительны и заданную строку перед всеми строками, в которых все элементы отрицательны. Если такого столбца или строки нет, то вывести сообщение об этом.

3. Вставить нулевую строку и нулевой столбец перед строками и столбцами, где находятся минимальные элементы.

4. Вставить после всех строк, в которых есть заданное число А, последнюю строку, а перед столбцами, которые задал пользователь, нулевой столбец. Если такого столбца или строки нет, то вывести сообщение об этом.

5. Вставить перед всеми столбцами, в которых нет отрицательных элементов, второй столбец, а после строк, в которых есть отрицательный элемент, вставить строку, полученную случайным образом. Если такого столбца или строки нет, то вывести сообщение об этом.

6. Вставить перед всеми строками, в которых есть 0, первую строку, а после всех столбцов, в которых есть отрицательные элементы – первый столбец.

7. Вставить нулевую строку и столбец перед строкой и после столбца, в которых встретился элемент, равный сумме своих индексов. Если такого столбца или строки нет, то вывести сообщение об этом.

8. Вставить нулевую строку и столбец перед строкой и столбцом, в которых встретился минимальный элемент.

9. В квадратном массиве вставить перед четными столбцами нулевой столбец, а после нечетных строк строку, состоящую из единиц.

10. Если в строке есть элемент, равный среднему арифметическому элементов этой строки, то вставьте после него строку, состоящую из этих элементов. Перед столбцом, в котором находится элемент, равный индексу строки, вставьте строку, состоящую из единиц. Если такого столбца или строки нет, то вывести сообщение об этом.