Презентация на тему: "Сортировка массивов"

• 1 слайд

  Сортировка массивов
  .
  

• 2 слайд

  2
  Сортировка
  Сортировка – это расстановка элементов массива в заданном порядке (по возрастанию, убыванию, последней цифре, сумме делителей, …).
  Задача: переставить элементы массива в порядке возрастания.
  Алгоритмы:
  сортировка обменом – «пузырьковая»
  сортировка выбором
  сортировка вставками
  сортировка подсчетом
  

• 3 слайд

  3
  Метод пузырька
  Идея – пузырек воздуха в стакане воды поднимается со дна вверх.
  Для массивов – самый маленький ("легкий") элемент перемещается вверх ("всплывает").
  начиная снизу, сравниваем два соседних элемента; если они стоят "неправильно", меняем их местами
  за 1 проход по массиву один элемент (самый маленький) становится на свое место
  1-ый проход
  2-ой проход
  3-ий проход
  Для сортировки массива из N элементов нужен
  N-1 проход (достаточно поставить на свои места N-1 элементов).
  

• 4 слайд

  Программная
  реализация алгоритма
  Program C;
  uses crt; {пузырьковая сортировка}
  var a:array [1..30] of integer;
  i,d,l:integer;
  begin
  clrscr;
  randomize;
  writeln ('исходный массив');
  for i:= 1 to 30 do
  begin
  a[i]:=random(10);
  write (a[i],' ');
  end;
  writeln;
  for l:=30 downto 2 do
  for i:=1 to l-1 do
  if a[i]>a[i+1] then
  begin
  d:=a[i];
  a[i]:=a[i+1];
  a[i+1]:=d;
  end;
  writeln('новый отсортированный массив');
  for i:=1 to 30 do
  write (a[i],' ');
  readkey;
  end.
  исходный массив
  8 5 7 8 0 7 2 4 8 6 8 7 0 3 9 3 1 4 2 5 4 2 0 1 8 2 4 8 3 3
  новый отсортированный массив
  0 0 0 1 1 2 2 2 2 3 3 3 3 4 4 4 4 5 5 6 7 7 7 8 8 8 8 8 8 9
  
  
  4
  

• 5 слайд

  5
  Метод выбора
  Идея:
  найти минимальный элемент и поставить на первое место (поменять местами с A[1])
  из оставшихся найти минимальный элемент и поставить на второе место (поменять местами с A[2]), и т.д.
  

• 6 слайд

  Программная
  реализация алгоритма
  Program C; {сортировка выбором}
  uses crt;
  var b,a:array [1..30] of integer;
  i,h,k,d,l:integer;
  begin
  clrscr;
  randomize;
  writeln ('исходный массив');
  for i:= 1 to 30 do
  begin
  a[i]:=random(10);
  write (a[i],' ');
  end;
  writeln;
  for l:=1 to 29 do
  begin
  k:=30-l+1;
  h:=k;
  for i:=1 to 30-l do
  if (a[i]>a[h]) then h:=i;
  d:=a[k]; a[k]:=a[h]; a[h]:=d;
  end;
  writeln('новый отсортированный массив');
  for i:=1 to 30 do
  write (a[i],' ');
  readkey;
  end.
  исходный массив
  0 7 3 8 7 2 4 8 4 7 3 0 8 5 4 7 8 4 2 7 1 1 0 8 8 5 8 3 1 7
  новый отсортированный массив
  0 0 0 1 1 1 2 2 3 3 3 4 4 4 4 5 5 7 7 7 7 7 7 8 8 8 8 8 8 8
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  6
  

• 7 слайд

  7
  Задания
  "5":Заполнить массив из 10 элементов случайными числами в интервале [0..100] и отсортировать его по последней цифре.
  Пример:
  Исходный массив:
  14 25 13 30 76 58 32 11 41 97
  Результат:
  30 11 41 32 13 14 25 76 97 58
  решение задачи
  решение задачи
  

• 8 слайд

  Program gr2;
  uses crt; {используем пузырьковую сортировку}
  var w:array [1..10] of byte;
  i,k,h:byte;
  begin
  clrscr;
  randomize;
  writeln ('исходный массив');
  for i:= 1 to 10 do
  begin
  w[i]:=random(101);
  write (w[i],' ');
  end;
  writeln;
  for k:=10 downto 2 do
  for i:=1 to k-1 do
  if w[i] mod 10 > w[i+1] mod 10 then
  begin
  h:=w[i];
  w[i]:=w[i+1];
  w[i+1]:=h;
  end;
  writeln('полученный массив');
  for i:=1 to 10 do
  write (w[i],' ');
  
  Readkey;
  end.
  Результат работы группы № 2
  исходный массив
  86 5 20 32 88 15 17 14 34 99
  полученный массив
  20 32 14 34 5 15 86 17 88 99