Основы программирования на языке Turbo Pascal. Беляева И.В. - 74 стр.

UptoLike

Составители:

Рубрика:

Фрагмент программы:

…

for j := 1 to m do {Для всех столбцов}

begin

tmp := a[2, j]; {Меняем второй элемент столбца}

a[2, j] := a[3, j]; {с третьим}

a[3, j] := tmp;

end;

…

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

Задача 19. Удалить k-ю строку из массива.

Фрагмент программы:

…

{Сдвигаем все строки, начиная с k+1-й, на одну позицию вверх}

for i := k + 1 to n do

{Переписываем элементы i-й строки в строку i – 1}

for j := 1 to m do

a[i - 1, j] := a[i, j];

{Уменьшаем количество используемых строк}

n := n – 1;

…

Задача 20. Вставить перед k-м столбцом столбец, содержащий

нулевые элементы.

Фрагмент программы:

…

{Сдвигаем столбцы, начиная с последнего и заканчивая k-м,

на одну позицию вправо}

for j := m downto k do

{Переписываем элементы j-го столбца в столбец j + 1}

for i := 1 to n do

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