 |
Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | |
Вставка строк и столбцов
|
|
Для решения задачи вставки строки необходимо:
- Первые k строк оставить без изменения.
- Все строки после k-ой сдвинуть на одну назад, это лучше сделать, начиная с последней строки и идти до (k+1)-ой.
- Элементам строки k+1 присвоить заданное значение.
- Увеличить количество строк.
Кроме того, необходимо изменить размерность массива. Так как мы вставляем строку, то число строк будет на одну больше.
Задача. Вставить строку из нулей после строки с номером 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; |
Для вставки столбца пользуйтесь практически тем же правилом, только размерность увеличивается для столбцов и сдвигаем назад столбцы.
Задание. Напишите программу, содержащую процедуры вставки строки и столбца из заданного одномерного массива.
И еще несколько советов.
- Если необходимо вставить после строки, удовлетворяющей какому-либо условию, то надо найти лишь ее номер и задача сводится к рассмотренной выше.
- Если надо вставлять после всех строк с заданным условием, то надо увеличить размерность по строкам, и если строка удовлетворяет условию, то к ней применять вставку. При этом надо заметить, что лучше просматривать строки с последней и ввести счетчик вставленных строк.
- Вставка перед строкой с данным номером отличается лишь тем, что сдвигать назад надо не с (k+1)-ой строки, а с k-ой.
Дата публикования: 2015-10-09; Прочитано: 228 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!
