Метод пузырька

@serik8989 · Регистрация: 16.12.2012

Author24 — интернет-сервис помощи студентам

Всем привет! При сортировке в программе выдает ошибку, во втором процедуре

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
setlength(a,n,m);
n:=strtoint(edit1.Text);
m:=strtoint(edit2.Text);
setlength(a,n,m);
sg1.ColCount:=m;
sg1.RowCount:=n;
sg2.ColCount:=m;
sg2.RowCount:=n;
randomize;
  for i:=0 to n-1 do begin
    for j:=0 to m-1 do begin
      a[i,j]:=random(21)-10;
      sg1.Cells[j,i]:=inttostr(a[i,j]);
    end;
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  for i:=1 to n do
    for j:=1 to n do
   [B] if a[i,j]>a[i,j+1] then begin[/B] //вот здесь ошибка
      buf:=a[i,j];
          a[i,j]:=a[i,j+1];
          a[i,j+1]:=buf;
    end;
    for i:=0 to n-1 do begin
    for j:=0 to m-1 do begin
      sg2.Cells[j,i]:=inttostr(a[i,j]);
    end;
  end;
end;

я не могу понять из-за чего ошибка!!

@FIL · 14.12.2013, 19:48

Индексация динамических массивов начинается с 0 и заканчивается "число эл-тов - 1".

ВАСИЛЕВС · 14.12.2013, 19:50

Сообщение от serik8989

я не могу понять из-за чего ошибка!!

Если j = n, то при обращении a[i, j+1] произойдет выход за границы массива. Количество проходов второго цикла уменьшить на 1.

@serik8989 · 14.12.2013, 20:26 **[ТС]**

Тему можно закрывать

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	14.12.2013, 19:48	2
	Индексация динамических массивов начинается с 0 и заканчивается "число эл-тов - 1". 1

ВАСИЛЕВС 561 / 484 / 168 Регистрация: 14.02.2012 Сообщений: 1,561
	14.12.2013, 19:50	3
	Сообщение от serik8989 я не могу понять из-за чего ошибка!! Если j = n, то при обращении a[i, j+1] произойдет выход за границы массива. Количество проходов второго цикла уменьшить на 1. 1

@serik8989 2 / 2 / 1 Регистрация: 16.12.2012 Сообщений: 64
	14.12.2013, 20:26 [ТС]	4
	Тему можно закрывать 0