Вставка одного элемента

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

Пусть k – это номер элемента, после которого мы должны вставить элемент х. Тогда вставка осуществляется следующим образом:

· первые k элементов массива остаются без изменения,

· все элементы, начиная с (k+1)-го, необходимо сдвинуть на один назад,

· на место (k+1)-го элемента записываем значение х;

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

Задача. Вставить число 100 после пятого элемента массива.

Рассмотрим на конкретном примере. Пусть задан следующий одномерный массив из N (N=10) элементов:

3, -12, 5, 14, 27, -6, 1, -34, 10, -15.

Надо вставить 100 после пятого элемента массива, т. е. должен получиться следующий массив:

3, -12, 5, 14, 27, 100, -6, 1, -34, 10, -15.

Таким образом, в массиве стало 11 элементов, то есть массив надо определять на N+1 элемент:

Type

MyArray = array[1..n+1] of integer

Кроме того, в программе необходимо выводить массив два раза, сначала первые N элементов массива, а затем все N+1 элементы.

Рассмотрите процедуру вставки Insert1(m, n, Mesto, Element), которой передаются:

m – массив, в котором делаем преобразования;

n – количество элементов в массиве.

Mesto – номер элемента, после которого надо вставить данный,

Element – число, которое вставляем,

Кроме того, сдвиг элементов будем начинать с последнего элемента.

Program Vstavka1;

Const

n=10; dd=51;

Type

MyArray = array [1..n+1] of integer;

Var

A : MyArray;

k, x : Integer;

{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}

Procedure InsertMas1(Var m : MyArray; n : integer);

. . .

{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}

Procedure InsertMas2(Var m : MyArray; n : integer);

. . .

{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}

Procedure PrintMas(m : MyArray; n : integer);

. . .

{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}

Procedure Insert1(Var m : MyArray; Var n : integer; Mesto, Element : integer);

Var

i : integer;

Begin

for i := n downto Mesto+1 do

m[i+1] := m[i];

m[Mesto+1]:= Element;

Inc(n);

End;

{- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -}

Begin

. . .

Writeln('Номер элемента, после которого вставлять > ');

Readln(k);

Writeln('Вставляемое число > ');

Readln(x);

Insert1(A, n, k, x);

. . .

End.

Задание. На основе разобранной задачи вставьте число перед некоторым заданным элементом самостоятельно. Дополните программу необходимыми операторами и комментариями и добейтесь работоспособности программы.

Покажите результат работы учителю для оценки.