Сортировка вставкой

[Damer]

Необходимо вставкой отсортировать элементы массива А размерностью MxN по строкам начиная с элемента А[k,l] и заканчивая элементом A[c,d] , k<=c (l<=d). Остальные элементы массива не сортировать.

покажи пожалуйста пример, как сортировать , используя StringGrid1

среда Delphi 2006

[Z1000000]

Сортируешь в массиве, расположенном в оперативной памяти.
А потом выводишь в StringGrid.

Не надо их смешивать!

[Damer]

Я некорректно написал. То , что StringGrid выводить надо в конце - это я знаю. А как пустить цикл для двумерного массива?

{i - столбец, j - строка}
 for i := l to d do
   begin
     for j := k to c do
     buf:=a[j,i];
     r:=j-1;
     while (r>=1) and (a[r,i]>buf) do
     begin
       a[r+1,i]:=a[r,i];
       r:=r-1;
     end;
      a[r+1,i]:=buf
   end;

так же ? или я что-то напутал? у меня не совсем как надо сортирует.

[DoDge_VipeR]

а как вы выводите свой массив в Strnggrid?

[Damer]

StringGrid1.ColCount:=n+1;  
StringGrid1.RowCount:=m+1;  
for j := 1 to m do        {чистка 'StringGrid1'}
   for i := 1 to n do
   stringgrid1.Cells[i,j]:=inttostr(0);

for j := 1 to m do
 begin
   for i := 1 to n do
     StringGrid1.Cells[i,0]:=inttostr(i); {вводит i-ое кол-во столбцов}
  StringGrid1.Cells[0,j]:=inttostr(j);  {вводит j-ое кол-во строк}
 end;

for j := 1 to m do
 for i := 1 to n do
 stringgrid1.Cells[i,j]:=inttostr(a[j-1,i-1]);

это после сортировки (2 код)

[DoDge_VipeR]

а надо вот так

for j := 0 to m-1 do
 for i := 0 to n-1 do
 stringgrid1.Cells[i,j]:=inttostr(a[j+1,i+1]);

[Damer]

я изначально просто добавил +1 к "m" и "n"

StringGrid1.ColCount:=n+1;  
StringGrid1.RowCount:=m+1;

[DoDge_VipeR]

и что?
в гриде нумерация строк и столбцов идет с 0
поэтому цикл должен быть как в посте #6

[Damer]

а так ошибку выдает (

вот код:

procedure TForm1.N5Click(Sender: TObject);
Var a: array of array of integer;
m,n,i,j:integer;
k,l: integer; {координаты начала сортировки}
c,d: integer; {координаты конца сортировки}
buf: integer; 
r: integer;
begin
m:=strtoint(label1.caption);
n:=strtoint(label2.caption);
SetLength(a,m,n);
k:=strtoint(inputbox('Начало сортировки','Введите номер строки (k)',''));
l:=strtoint(inputbox('Начало сортировка','Введите номер столбца (l)',''));
c:=strtoint(inputbox('Конец сортировки','Введите номер строки (c)',''));
d:=strtoint(inputbox('Конец сортировки','Введите номер столбца (d)',''));
for j := 1 to m do
   for i := 1 to n do
   a[j-1,i-1]:=strtoint(StringGrid1.Cells[i,j]); 

 for i := l to d do
   begin
     for j := k to c do
     buf:=a[j,i];
     r:=j-1;
     while (r>=1) and (a[r,i]>buf) do
     begin
       a[r+1,i]:=a[r,i];
       r:=r-1;
     end;
      a[r+1,i]:=buf
   end;

for j := 0 to m do
 for i := 0 to n do
 stringgrid1.Cells[i,j]:=inttostr(a[j-1,i-1]);

end;

[DoDge_VipeR]

ты слепой???
это вывод в Stringgrid

for j := 0 to m-1 do
 for i := 0 to n-1 do
 stringgrid1.Cells[i,j]:=inttostr(a[j+1,i+1]);

это ввод из стринггрида

for j := 0 to m-1 do
   for i := 0 to n-1 do
   a[j+1,i+1]:=strtoint(StringGrid1.Cells[i,j]);