Рабочие листы
к вашим урокам
Скачать
1 слайд
Одномерные массивы
Вставка и удаление элемента
2 слайд
Вставка и удаление элементов
Алгоритм удаления элемента:
определить номер удаляемого элемента - k(ввести с клавиатуры или найти из каких-то условий)
сдвинуть все элементы начиная с k-ого на 1 элемент влево
последнему элементу массива присвоить значение 0
При удалении элемента размер массива не меняется! Поэтому необходимо далее в программе указывать не до n, а до n-1.
3 слайд
Элемент который нужно удалить
дан массив А:
3 5 6 8 12 15 17 18 20 25
k:=4
3 5 6 12 15 17 18 20 25 25
3 5 6 12 15 17 18 20 25 0
4 слайд
const n= 30;
var a : array [1..n] of integer;
k, i : integer;
begin
{ввод массива и k}
...
for i := k to n-1 do a[i] := a[i+1];
a[n] := 0;
writeln(Результат:);
for i := 1 to n-1 do write ( a[i] :3); readln;
end.
5 слайд
Алгоритм вставки элемента: (после k-ого)
первые k элементов остаются без изменений
все элементы, начиная с k-ого сдвигаются на 1 позицию назад
на место (k+1)-ого элемента записываем новый элемент.
Массив из n элементов, в который вставляется k элементов необходимо определять как массив, имеющий размер n+k. Вставка перед элементом отличается только тем, что сдвигаются все элементы, начиная с k-ого и на место k -ого записываем новый
6 слайд
дан массив А:
k:=4
3 5 6 8 8 12 15 17 18 20 25
3 5 6 8 100 12 15 17 18 20 25
позиция для добавления
нового элемента
7 слайд
Пример:
Вставить 100 после элемента номер которого вводится с клавиатуры:
const n= 30;
var a : array [1..n+1] of integer;
k, i : integer;
begin
{ввод массива и k}
...
for i := n downto k+1 do a[i+1] := a[i];
a[k+1] := 100;
writeln(Результат:);
for i := 1 to n+1 do write ( a[i] :3); readln;
end.
Рабочие листы
к вашим урокам
Скачать
6 655 928 материалов в базе
Настоящий материал опубликован пользователем Новожилова Ульяна Олеговна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт
Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материалВаша скидка на курсы
40%Курс профессиональной переподготовки
500/1000 ч.
Курс профессиональной переподготовки
300/600 ч.
Курс профессиональной переподготовки
600 ч.
Курс повышения квалификации
72/180 ч.
Мини-курс
2 ч.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.