Быстрая сортировка массива Pascal

Разбор программы рекурсивной сортировки массивов на языке программирования Pascal

Алгоритм сортировки

Код программы: 

var a:integer;
mas:array [1..10] of integer;
procedure sort(l,r:integer);
var nl,nr,z,x:integer;
begin
nl:=l;
nr:=r;
z:=mas[(l+r) div 2];
repeat
while mas[nl]<z do
nl:=nl+1;
while mas[nr]>z do
nr:=nr-1;
if nl<=nr then
begin
x:=mas[nl];
mas[nl]:=mas[nr];
mas[nr]:=x;
nl:=nl+1;
nr:=nr-1;
end;
until nl>nr;
if nr>l then
sort(l,nr);
if nl<r then
sort(nl,r);
end;
begin
for a:=1 to 10 do
mas[a]:=random(19)-9;
sort(1,10);
for a:=1 to 10 do
write(mas[a]:3);
end.

Видео с разбором сортировки. 

21:50
921
Нет комментариев. Ваш будет первым!
Загрузка...

Подготовка к ГИА


Подпишись