Индекстері арқылы сұрыптау

Индекстері арқылы сұрыптау - сұрыптаудың бірден-бір түрі. n элементтен тұратын А сандар массиві берілген. Массивті индекстері (индекстер массивін жасақтау) арқылы элементтерінің өсуі бойынша сұрыптайық.

Алгоритм

Өлшемі n болатын А массивін толтыру және экранға шығару;
i:=1;
Индекс i-ден басталатын массив элементтерінің ішінен ең кішісін (индексі j) таңдап алу;
A[i] және A[j] элементтерінің орындарын ауыстыру;
i:=i+1 мәні үшін i:=n болғанға дейін 3 және 4 қадамдарды қайталау;
Сұрыпталған А массивін экранға шығару.

Программалау

Program Aikesha_lay;
Const n=8;
var i, j, k: integer;
A,IDX:array [1..n] of integer;      
Begin
Randomize; Writeln('Берілген сандар массиві:');
For i:=1 to n do
Begin A[i]:=Random(40); IDX[I]:=1; Write(A[i]:4); end;
For i:=n downto 2 do
For j:=i - 1 downto 1 do
If A[i]<A[j] then IDX[j]:=IDX[j]+1 else
IDX[i]:=IDX[i]+1;
writeln;
writeln('Өсуіне қарай сұрыптау индекстері:');
For i:=1 to n do
Write(IDX[i]:4); 
readln;
end.

Дереккөздер

Қолданылған әдебиеттер

«Қазақстан»: Ұлттық энцклопедия / Бас редактор Ә. Нысанбаев – Алматы «Қазақ энциклопедиясы» Бас редакциясы, 1998 ISBN 5-89800-123-9
Бурин Е. А. Программирование на языке Турбо Паскаль. А., 2000.
Вирт Н. Алгоритмы инструктуры данных.
Досмайлов Т. К. Паскаль программалау тілі. А.,1996.
Кнут Теория алгоритмов.
Матросов В. Л. Теория Алгоритмов.
Семашко Г. Л., Салтыков Г. Л. Программирование на языке Паскаль. М.,1988.

Сыртқы сілтемелер

[1] Мұрағатталған 7 қарашаның 2014 жылы.
[2]
[3] Мұрағатталған 7 қарашаның 2014 жылы.
[4] Мұрағатталған 7 қарашаның 2014 жылы.
[5] Мұрағатталған 7 қарашаның 2014 жылы.