форумы для свободного общения
Подвал => Архив форума => 2016 => Тема начата: digitalman от Декабря 26, 2016, 22:49:00
-
Различных типов сортировок существует множество в разных языках и средах.
Если будет время, дополню, а пока можно указать на примитивную "пузырьковую сортировку".
Предположим мы имеем массив[4,5,9,2,0,10,20,99,-1]
переменные X,Y, переменную для цикла i, и булеву переменную sortOK, тогда:
sortOK:=ложь;
Повторить
sortOK:=правда;
От i=1 до i=8 Делать начало
X:=массив
Если X>массив[i+1] то Начало Y:=массив[i+1]; массив[i+1]:=X; массив:=Y; sortOK:=ложь Конец;
Конец
До sortOK=правда;
Такая вот забавная программа получилась. :)))))
-
А теперь то же самое на языке Паскаль (PASCAL). На котором в частности основана среда Дельфи (7).
Program Sortirovka;
var SortOk:boolean;
X,Y:integer;
i:word;
ArrayXY[1..9] of integer;
begin
SortOk:=false;
Repeat
SortOk:=true;
For i=1 to i=8 do begin
Else X>ArrayXY[i+1] then begin Y:=ArrayXY[i+1]; ArrayXY[i+1:=X; SortOk:= false end;
end
Until SortOk=true;
end.
-
Быстрая Сортировка! Об Этом стоит подумать...