Метод Шейкера.

[serega96]

Передо мной стоит задача написать программу сортирующую по возрастанию массив 3 способами и подсчитывающую количество действий при сортировке.
У меня всё работает кроме 1 способа - метода Шейкера.
Смысл метода в том, что при первом просмотре массива мы находим максимальный и минимальный элемент и ставим их соответстеннно 1 и последнее место. В следующий раз рассматриваем так же все элементы со второго по предпоследний и повторяем всё это. В процедуре 2 счётчика - один подсчитывает количество сравнений, второй - кол-во перестановок.
Вот сама процедура, вводятся из программы массив и кол-во элементов массива.

PHP код:

Procedure Sort_Metod_Insert(Kol_1:Integer;X:T_Mas);
Var V,U,I,H,K,J,A,max,min,maxpos,minpos:Integer;
Begin
V:=0;
U:=0;
J:=0;
min:=X[1];
max:=X[1];
minpos:=1;
maxpos:=1;
While 2+J+1<Kol_1 -J do
begin
While 2+J < Kol_1-J do
begin
U:=U+2;
If x[2+J]>max then begin max:=x[2+J]; maxpos:= 2+J; end;
If x[2+J]<min then begin min:=x[2+J]; minpos:= 2+J; end;
end;
V:=V+2;
A:=x[2+J]; x[2+J]:= min; x[minpos]:=A;
A:=x[Kol_1-J]; x[Kol_1-J]:=max; x[maxpos]:=A;
Inc(J);
min:=X[2+J];
max:=X[2+J];
minpos:=2+J;
maxpos:=2+J;
end;

For I:=1 to kol do
Write(X[I],' ');
WriteLn;
WriteLn('The number of comparisons - ',U);
WriteLn('The number of permutations - ',V);
WriteLn;
End; 


Кто может подскажите в чём ошибка у меня вообще ничего не выводит теперь

[_-Re@l-_]

Ну вот вроде, не?

[serega96]

Попробую сейчас, спасибо

[serega96]

А не можете проверить в чём ошибка у меня

[_-Re@l-_]

Не могу, ибо сам не знаю ,что это за метод Ну разве что завтра посмотрю.
А вы лучше возьмите и перепишите код заново, красивенько, и тогда увидите свои ошибки.

[serega96]

Просто у меня была ошибка в процедуре, я исправил вроде бы всё, а он теперь вообще ничего не выводит от этой процедуры.