Одномерные массивы. Алгоритмы циклического сдвига, сжатия.
презентация к уроку по информатике и икт (9 класс) по теме

Слайд 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;