Дана презентація містить анімаційне відображення одного з простіших алгоритмів сортування масиву, графічне зображення цього алгоритму та програму на мові програмування Pascal.
Перегляд файлу
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. ">
Сортування масивів Ми з Вами розглянули задачу знаходження найменшого елементу масиву. Тепер використовуючи цю задачу спробуємо виконати сортування масиву по зростанню за найпростішим алгоритмом. Розглянемо візуальне рішення цієї задачі:
Номер слайду 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.