Скачать презентацию
Идет загрузка презентации. Пожалуйста, подождите
1
Сортировка массива Несортированный массив: Dim u(i) As Integer (i – число элементов). Надо его отсортировать, а результат занести в массив s(i).
2
x = u(1) x = u(a) a – номер текущего элемента x – минимальное уже найденное u(a)
3
x = u(a) a – номер текущего элемента s(i) – сортированный массив x – минимальное уже найденное y – п/п заполняемого s(y) Да Нет РЕЗУЛЬТАТ? а) s(y) = u(a); б) s(y) = a? y = 1 u(1) = 10 u(2) = 3 u(3) = 7 u(4) = 5 s(1) = 3 s(2) = 5 s(3) = 7 s(4) = 10 s(1) = 2 s(2) = 4 s(3) = 3 s(4) = 1 For a=1 to i y = y + 1 u(a)>x s(y) = ? Отсортированные а) значения; б) номера строк массива
4
Домашнее задание Найти в алгоритме ошибки. Написать правильный алгоритм.
Еще похожие презентации в нашем архиве:
![PROGRAM example1; CONST N = 8; M = 10; VAR a : ARRAY [ 1.. N, 1.. M ] of INTEGER; i, j : INTEGER; BEGIN FOR i := 1 TO N DO FOR j := 1 TO M DO a[ i, j ]](/thumbs/4/97932/big_thumb.jpg "PROGRAM example1; CONST N = 8; M = 10; VAR a : ARRAY [ 1.. N, 1.. M ] of INTEGER; i, j : INTEGER; BEGIN FOR i := 1 TO N DO FOR j := 1 TO M DO a[ i, j ]")
![Проверка пройденного материала. Исправьте ошибки в решении задачи: заполнить и вывести массив W(3) вещественных чисел Program Mass; Var b:Array[1..10]](/thumbs/4/258608/big_thumb.jpg "Проверка пройденного материала. Исправьте ошибки в решении задачи: заполнить и вывести массив W(3) вещественных чисел Program Mass; Var b:Array[1..10]")
![Program maxsimum; const n=10; var a:array [1..n] of integer; max,i:integer;begin ВВОД ЭЛЕМЕНТОВ МАССИВА; max:=a[1]; for i:=2 to n do if a[i]> max then.](/thumbs/6/535442/big_thumb.jpg "Program maxsimum; const n=10; var a:array [1..n] of integer; max,i:integer;begin ВВОД ЭЛЕМЕНТОВ МАССИВА; max:=a[1]; for i:=2 to n do if a[i]> max then.")
