Презентація "Упорядкування одномірного масиву по зрастанню"

Про матеріал
Дана презентація містить анімаційне відображення одного з простіших алгоритмів сортування масиву, графічне зображення цього алгоритму та програму на мові програмування Pascal.
Перегляд файлу
Сортування масивів  Ми з Вами розглянули задачу знаходження найменшого елементу масиву. Тепер використовуючи цю задачу спробуємо виконати сортування масиву по зростанню за найпростішим алгоритмом. Розглянемо візуальне рішення цієї задачі:
1 2 3 4 5 6 7 8 9 10 1 7 1
1 2 3 4 5 6 7 8 9 10 7 2 5 2
1 2 3 4 5 6 7 8 9 10 1 7 3 5 3
1 2 3 4 5 6 7 8 9 10 1 7 5 4 4 6
Таким чином, для сортування таблиці за цим алгоритмом, нам необхідно використовувати два цикли: Перший або зовнішній для завдання першого елементу чергової, нової таблиці та запису най його місце найменшого елементу  Другий або внутрішній для пошуку найменшого елементу чергової нової (зменшеної на 1 елемент) таблиці.  Намалюєм алгоритм:
Початок i:=1 to 10 do Ввести a[і] var a: array [1..10] of integer;
        i,  j, c, d : integer; 1 1 2 3
J:=i to 10 do c>a[j] с:=a[j]; d:=j 7 8 Так Ні i:=1 to 10 do c:=a[i]; d:=i 3 1 1 2 4 5 6
Вивід a[i] Кінець 11 1 2 3 a[d]:=a[i]
a[i]:=c i:=1 to 10 do 9 10
var a: array [1..10] of integer; i,c : integer; begin    for i:=1 to 10 do begin         WriteLn(“ a[ j ] then begin c:=a[j] ; d:=j end; end; a[d]:=a[i] ; a[i]:=c end; for i:=1 to 10 do WriteLn(a[i], “ “) end. " title="var a: array [1..10] of integer; i,c : integer; begin for i:=1 to 10 do begin WriteLn(“"Введіть значення “); ReadLn (a[i]); end; for i:= 1 to 10 do begin c:= a[i] ; d:=i For j = i to 10 do begin if c > a[ j ] then begin c:=a[j] ; d:=j end; end; a[d]:=a[i] ; a[i]:=c end; for i:=1 to 10 do WriteLn(a[i], “ “) end. ">
Зміст слайдів
Номер слайду 1

Сортування масивів Ми з Вами розглянули задачу знаходження найменшого елементу масиву. Тепер використовуючи цю задачу спробуємо виконати сортування масиву по зростанню за найпростішим алгоритмом. Розглянемо візуальне рішення цієї задачі:

Номер слайду 2

1 2 3 4 5 6 7 8 9 10 1 7 1

Номер слайду 3

1 2 3 4 5 6 7 8 9 10 7 2 5 2

Номер слайду 4

1 2 3 4 5 6 7 8 9 10 1 7 3 5 3

Номер слайду 5

1 2 3 4 5 6 7 8 9 10 1 7 5 4 4 6

Номер слайду 6

Таким чином, для сортування таблиці за цим алгоритмом, нам необхідно використовувати два цикли: Перший або зовнішній для завдання першого елементу чергової, нової таблиці та запису най його місце найменшого елементу Другий або внутрішній для пошуку найменшого елементу чергової нової (зменшеної на 1 елемент) таблиці. Намалюєм алгоритм:

Номер слайду 7

Початок i:=1 to 10 do Ввести a[і] var a: array [1..10] of integer; i, j, c, d : integer; 1 1 2 3

Номер слайду 8

J:=i to 10 do c>a[j] с:=a[j]; d:=j 7 8 Так Ні i:=1 to 10 do c:=a[i]; d:=i 3 1 1 2 4 5 6

Номер слайду 9

Вивід a[i] Кінець 11 1 2 3 a[d]:=a[i] a[i]:=c i:=1 to 10 do 9 10

Номер слайду 10

var a: array [1..10] of integer; i,c : integer; begin for i:=1 to 10 do begin WriteLn(“"Введіть значення “); ReadLn (a[i]); end; for i:= 1 to 10 do begin c:= a[i] ; d:=i For j = i to 10 do begin if c > a[ j ] then begin c:=a[j] ; d:=j end; end; a[d]:=a[i] ; a[i]:=c end; for i:=1 to 10 do WriteLn(a[i], “ “) end.

ppt
Додано
7 березня 2022
Переглядів
1362
Оцінка розробки
Відгуки відсутні
Безкоштовний сертифікат
про публікацію авторської розробки
Щоб отримати, додайте розробку

Додати розробку