Рабочие листы
к вашим урокам
Скачать
1 слайд
Одномерные массивы
Циклические сдвиги, сжатие
2 слайд
Алгоритм циклического сдвига на k позиций
I способ
определить сколько раз необходимо произвести одноэлементный сдвиг
k := k mod n;
k раз применить одноэлементный сдвиг
Алгоритм одноэлементного сдвига.
Запомнить в дополнительной ячейке первый (или последний) элемент массива
Сдвинуть все элементы влево (вправо)
На последнее (первое) место записать тот, который запоминали.
3 слайд
Сдвиг вправо и влево
Program test;
Uses crt;
Сonst n=10;
Var a:array[1..n] of integer;
i,j,t,k:integer;
Begin
clrscr;
{ввод массива}
K:=k mod n;
For j:=1 to k do
Begin
t:=a[n];
for i:=n downto 2 do
a[i]:=a[i-1];
A[1]:=t;
End;
{Вывод массива}
End.
Program test;
Uses crt;
Сonst n=10;
Var a:array[1..n] of integer;
i,j,t,k:integer;
Begin
clrscr;
{ввод массива}
K:=k mod n;
For j:=1 to k do
Begin
t:=a[1];
for i:=1 to n-1 do
a[i]:=a[i+1];
A[n]:=t;
End;
{Вывод массива}
End.
4 слайд
II способ
Скопировать первые k элементов массива во временный массив
Сдвинуть оставшиеся n-k элементов влево на k позиций
Скопировать данные из временного массива обратно в основной массив на последние k позиций
5 слайд
III способ
отобразить элементы массива(1, k)
отобразить элементы массива (k+1, n)
отобразить элементы массива (1, n)
6 слайд
j-сколько раз произвести обмен, left - левая граница отображения, right - правая граница отображения,
Dlina - длина отображаемой части массива
j:=1; left:=1; right:=k; dlina:=right-left+1;
(***) while j<=dlina div 2 do begin
temp:=a[left];
a[left]:=a[right];
a[right]:=temp;
inc(left);dec(right);inc(j);
end;
j:=1; left:=k+1; right:=n; dlina:=right-left+1;
(***) {повторить цикл}
j:=1; left:=1; right:=n; dlina:=right-left+1;
(***) {повторить цикл}
7 слайд
Сжатие массива.
Удаление каждого k-го элемента:
i – индекс активного элемента
l - индекс просматриваемого элемента
kol – количество элементов после всех удалений.
i:=k; l:=k;
while l<=n do begin
if l mod k=0 then inc(l);
if l<=n then a[i]:=a[l];
inc(i); inc(l);
end;
kol:=n-n div k;
Рабочие листы
к вашим урокам
Скачать
6 626 925 материалов в базе
Настоящий материал опубликован пользователем Митронина Инесса Николаевна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт
Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материалВаша скидка на курсы
40%Курс профессиональной переподготовки
600 ч.
Курс профессиональной переподготовки
300/600 ч.
Курс повышения квалификации
72/180 ч.
Мини-курс
2 ч.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.