Презентация, доклад на тему Циклические сдвиги и сжатие в одномерных массивах

одноэлементный сдвиг
k := k mod n;
k раз применить одноэлементный сдвиг
Алгоритм одноэлементного сдвига.

Запомнить в дополнительной ячейке первый (или последний) элемент массива
Сдвинуть все элементы влево (вправо)
На последнее (первое) место записать тот, который запоминали.

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.

n-k элементов влево на k позиций
Скопировать данные из временного массива обратно в основной массив на последние k позиций

(1, n)

правая граница отображения,
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;
(***) {повторить цикл}

просматриваемого элемента
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;