сортировка

[dimon198909]

помогите найти ошибку

Program midle_sort; {ðàçäåëÿþùèé
 - ñðåäíèé ýëåìåíò 
òàáëèöû}
Uses crt;
Const Nmax=7;
type zap=Record
     znach: integer;
     end;
     table=array [1..Nmax] of zap;
Var t: table;
    n: integer;


procedure Imp_tab (var t: table; var n: integer);

begin
     n:=0;
  repeat
     n:=n+1;
     WriteLn('Input element ',n);
     Readln(t[n].znach);
  until (n=Nmax);

end;



procedure SORt_sr(t:table; l, r :integer);
var i,j,x: integer;
    tmp:zap;
begin
   i:=l;
   j:=r;
   x:=t[(l+r)div 2].znach;
   repeat
      while t[i].znach<x do
         i:=i+1;
      while t[j].znach>x do
      j:=j-1;
      if i<j then
      begin
        tmp:=t[i];
        t[i]:=t[j];
        t[j]:=tmp;
        i:=i+1;
        j:=j-1;
      end;
   until i>j;
   if j>l then SORt_sr(t,l,j);
   if i<r then SORt_sr(t,i,r);
end;

procedure showtab (var t: table; var n: integer);
var i: integer;
begin
clrscr;
writeln ('Sorted table');
for i:=1 to n do
writeln ('|', t[i].znach,'|') ;
readkey;
end;



begin
 Imp_tab(t,n);
 SORt_sr(t,1,n);
 showtab(t,n);

end.

[type_Oleg]

Процедура SORt_sr должна возвращать отсортированный массив t ?
Тогда надо добавить var

procedure SORt_sr(var t:table; l, r :integer);

И l,r что такое? Может, там тоже надо var?

[dimon198909]

да пропустил, но не в нем дело... сортировка не выполняется( l и r это переменные с помощью которых производится перестановка

[ViktorR]

В Вашем алгоритме есть ошибки, которые связаны с неучетом случаев равенства:
Вот исправленный код процедуры:

procedure SORt_sr(var t:table; l, r :integer);
var i,j,x: integer;
    tmp:zap;
begin
   i:=l;
   j:=r;
   x:=t[(l+r)div 2].znach;
   repeat
      while t[i].znach < x do
         i:=i+1;
      while x < t[j].znach do
      j:=j-1;
      if (i <= j) then  {тут!}
      begin
        tmp:=t[i];
        t[i]:=t[j];
        t[j]:=tmp;
      end;
        i:=i+1;
        j:=j-1;
   until (i >= j);  {и тут!}
   if l < j then SORt_sr(t,l,j);
   if i < r then SORt_sr(t,i,r);
end;

Сравните, ...


Как-то так, ...

[Poma][a]

И l,r что такое?

left и right..

if i<j then

if i <= j then

if j>l then SORt_sr(t,l,j);

if j < l then

Замечания :

t:table

t - крайне не подходящее имя для массива..

type zap=Record
     znach: integer;
     end;

Зачем? Почему бы просто не t : array [1..NMax] of Integer; ??

P.S. Опоздал (печалька )

[dimon198909]

поменял.. все равботает, только сортировка не выполняется(

[ViktorR]

поменял.. все равботает, только сортировка не выполняется(

Показывай код процедуры.


Как-то так, ...

[Poma][a]

Program midle_sort; {ðàçäåëÿþùèé -
 ñðåäíèé ýëåìåíò 
òàáëèöû}
Uses crt;
Const Nmax=7;
type zap=Record
     znach: integer;
     end;
     table=array [1..Nmax] of zap;
Var t: table;
    n: integer;


procedure Imp_tab (var t: table; var n: integer);

begin
     n:=0;
  repeat
     n:=n+1;
     WriteLn('Input element ',n);
     Readln(t[n].znach);
  until (n=Nmax);

end;



procedure SORt_sr(var t:table; l, r :integer);
var i,j,x: integer;
    tmp:zap;
begin
   i:=l;
   j:=r;
   x:=t[(l+r)div 2].znach;
   repeat
      while t[i].znach<x do
         i:=i+1;
      while t[j].znach>x do
      j:=j-1;
      if i<=j then
      begin
        tmp:=t[i];
        t[i]:=t[j];
        t[j]:=tmp;
        i:=i+1;
        j:=j-1;
      end;
   until i>j;
   if l<j then SORt_sr(t,l,j);
   if i<r then SORt_sr(t,i,r);
end;

procedure showtab (var t: table; var n: integer);
var i: integer;
begin
clrscr;
writeln ('Sorted table');
for i:=1 to n do
writeln ('|', t[i].znach,'|') ;
readkey;
end;



begin
 Imp_tab(t,n);
 SORt_sr(t,1,n);
 showtab(t,n)
end.

Всё работает!

[ViktorR]

Небольшая правка:

 until i>j;

Как смотрел по алгоритму, так тут надо:

 until i >= j;

Как-то так, ...

[Poma][a]

Как смотрел по алгоритму, так тут надо:

Эм.. А контр. пример? Или объяснение, почему мой вариант неверен?