: : Разделы сайта : :
: : Календарь : :
: : Архивы : :
onsite.ru - Профессиональный построитель сайтов
: : &&&&&&&&& : :

Обратная связьСвязь с администрацией

 

Виды сортировок Паскаль (Pascal)

Сортировка Пузырек Паскаль (Pascal)

begin
for
j:=1 to N-1
do

     for i:=1 to N-j do
        if M[i] > M[i+1]
then

              swap(M[i],M[i+1])
end;

procedure
swap(var x,y: ...);
   var t: ...;

begin
    t := x;
    x := y;
    y := t;



Сортировка Вставками(Паскаль)

begin
M[0] := -oo;
for
j:=2 to N do
begin
i :=
j
;
while
M[
i] < M[i-1]
do

begin
swap(M[i],M[i-1]);
i := i-1
end
end

end;

 end;