Ўзбекистон республикаси ахборот технологияларива коммуникациял арини ривожлантириш вазирлиги

end;
until i>j;{битта алмаштириш охири}
if lthen sort(l,j);{рекурсив саралаймиз}
if ithen sort(i,r);{ёки чап ёки ўнгдаги қисмлар}
end;


begin
clrscr;
randomize;
writeln('Дастлабги массив:');
for i:=1 to n do
begin
// x[i]:=random(1000);
writeln(y[i]:30, ' ', x[i]);
end;
writeln;
sort(1,n);
writeln('Саралашдан кейинги массив: ');
for i:=1 to n do
begin
write(' ');
Case x[14-i] Of
4200: Writeln('Andijon viloyati 4 200');
39400: Writeln('Buxoro viloyati 39 400');
6800: Writeln('Farg ona viloyati 6 800');
20500: Writeln('Jizzax viloyati 20 500');
6300: Writeln('Xorazm viloyati 63 00');
7900: Writeln('Namjngan viloyati 79 00');
110300: Writeln('Navoiy viloyati 110 300');
28400: Writeln('Qashqadaryo viloyati 8 400');
160000: Writeln('Qoraqalpog iston 160 000');
16400: Writeln('Samarqand viloyati 16 400 ');
5100: Writeln('Sirdaryo viloyati 51 00');
20800: Writeln('Surxondaryo viloyati 20 800 ');
15300: Writeln('Toshkеnt viloyati 15 300');
end;
end;
end.
Шуни таъкидлаш керакки, тез саралаш кам сонли елементлардан иборат Mассивларда самарасиз бўлиши мумкин, шунинг учун улар билан ишлашда ушбу усулдан воз кечиш оқилона. Умуман олганда, алгоритм беқарор ва нотўғри тузилган кодда рекурсиядан фойдаланиш стекнинг тўлиб кетишига олиб келиши мумкин. Аммо бу ва бошқа баъзи камчиликларга қарамай, тез саралаш ҳали ҳам енг самарали ва тез-тез ишлатиладиган усуллардан бири ҳисобланади..

Сайтлар

Quicksort - Википедия | Быстрая сортировка
Быстрая сортировка | Код программы на Pascal
kvodo.ru
Как работает быстрая сортировка - Журнал...
thecode.media›qsort/
Алгоритм быстрой сортировки.
thepresentation.ru