Ну если сортировка на паскале, то держи uses crt; type mas=array[1..1000] of integer; var a:mas; n,i:integer; procedure gnomesort(var arr:mas; size : Integer); var i, j, t : Integer; begin i := 2; j := 3; while i <= size do begin if arr[i-1] <= arr[i] then begin i := j; j := j + 1 end else begin t := arr[i-1]; arr[i-1] := arr[i]; arr[i] := t; i := i - 1; if i = 1 then begin i := j; j := j + 1 end end end; end; begin write('Размер массива n='); read(n); writeln('Исходный массив:'); for i:=1 to n do read(a[i]); writeln; gnomesort(a,n); writeln('Результат сортировки:'); for i:=1 to n do write(a[i],' '); end.
Как следует из названия, функция «Упорядочить» позволяет упорядочивать файлы различными в зависимости от выбранной опции. Эта функция доступна в панели «Библиотека» (Library) во всех библиотеках — «Документы» (Documents), «Музыка» (Music), «Изображения» (Pictures) и «Видео» (Videos). Чтобы увидеть эту панель, нужно зайти непосредственно в библиотеку. Если перейти в библиотеку из папки «C:\Пользователи» (C:\Users), панели в ней не будет.
Функция «Упорядочить» предлагает различные варианты группировки файлов в соответствии с типом контента, хранящегося в библиотеке. При этом разные упорядочения действуют по-разному в зависимости от библиотеки.
Стоит также учитывать, что разные группировки используют разные варианты представления для удобства восприятия. Некоторые переключают текущий вид на «Крупные значки» (Large Icons), другие используют вид «Таблица» (Details). Тем не менее, представление можно самостоятельно изменить на любое другое. Чтобы отменить группировку и восстановить изначальное представление, можно воспользоваться опцией «Очистить изменения» (Clear Changes) в меню «Упорядочить».
uses crt;
type mas=array[1..1000] of integer;
var a:mas;
n,i:integer;
procedure gnomesort(var arr:mas; size : Integer);
var i, j, t : Integer;
begin
i := 2;
j := 3;
while i <= size do
begin
if arr[i-1] <= arr[i] then
begin
i := j;
j := j + 1
end
else
begin
t := arr[i-1];
arr[i-1] := arr[i];
arr[i] := t;
i := i - 1;
if i = 1 then
begin
i := j;
j := j + 1
end
end
end;
end; begin
write('Размер массива n=');
read(n);
writeln('Исходный массив:');
for i:=1 to n do
read(a[i]);
writeln;
gnomesort(a,n);
writeln('Результат сортировки:');
for i:=1 to n do
write(a[i],' ');
end.