Сортировка массива методом прямого выбора

@Azazel-San · Регистрация: 24.11.2015

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

Сортирую массив методом прямого выбора, но вылетает ошибка :

Код

Project Project1.exe raised exception class EListError with message 'List index out of bounds (-1)'. 
Process stopped. Use Step or Run to continue.

Не понимаю где ошибка, вот код:

Delphi

procedure TForm1.mniN4Click(Sender: TObject);
var i,j,buf: Integer;
begin
  sg1:=strngrd2;
  sg2:=strngrd3;
 
  for i:= 0 to sg1.ColCount - 2 do
    for j:= i + 1 to sg1.ColCount - 1 do
      if sort[i] > sort[j] then
      begin
        buf:= sort[i];
        sort[i]:= sort[j];
        sort[j]:= buf;
      end;
 
  for i:= 0 to sg1.ColCount - 1 do
    sg2.Cells[i-1,0]:= IntToStr(sort[i]);
end;

Постановка задачи, надо создать матрицу, заполнить её случайными числами(записать в stringgrid1), вывести в массив главную диагональ или побочную..(записать в stringgrid2) Затем отсортировать

Вот весь код:

Кликните здесь для просмотра всего текста

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls, Menus;
 
type
  TForm1 = class(TForm)
    strngrd1: TStringGrid;
    lbl1: TLabel;
    edt1: TEdit;
    strngrd2: TStringGrid;
    mm1: TMainMenu;
    mniN1: TMenuItem;
    mniN2: TMenuItem;
    mniN4: TMenuItem;
    mniN5: TMenuItem;
    mniN6: TMenuItem;
    mniN7: TMenuItem;
    mniN8: TMenuItem;
    mniN9: TMenuItem;
    mniN10: TMenuItem;
    mniN3: TMenuItem;
    strngrd3: TStringGrid;
    mniN11: TMenuItem;
    procedure edt1Click(Sender: TObject);
    procedure mniN2Click(Sender: TObject);
    procedure mniN6Click(Sender: TObject);
    procedure mniN7Click(Sender: TObject);
    procedure mniN8Click(Sender: TObject);
    procedure mniN9Click(Sender: TObject);
    procedure mniN4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  sg,sg1,sg2: TStringGrid;
  a : array[1..10, 1..10] of integer;
  sort : array[0..10] of integer;
 
 
implementation
 
uses Math;
 
{$R *.dfm}
 
procedure ColRow(sg: TStringGrid);
var i,j: Integer;
begin
  for i:=0 to sg.RowCount do
    sg.Cells[i,0]:= IntToStr(i);
  for j:=0 to sg.ColCount do
    sg.Cells[0,j]:= IntToStr(j);
end;
 
procedure Filling(sg: TStringGrid);
var i,j,n: Integer;
begin
  Randomize;
  n := sg.ColCount - 1;
  for i:= sg.FixedRows to sg.RowCount - 1 do
    for j:= sg.FixedCols to n do
    begin
      a[i,j]:= random(10);
      sg.Cells[j,i]:= IntToStr(a[i,j]);
    end;
end;
 
procedure Listing(edt1: TEdit; sg:TStringGrid);
var SList: TStringList;
    s1,s2: String;
begin
  SList:=TStringList.Create;
    try
      SList.Delimiter;
      SList.DelimitedText:= edt1.Text;
      s1:=SList[0];
      s2:=SList[1];
      sg.RowCount:=StrToInt(s1) + 1;
      sg.ColCount:=StrToInt(s2) + 1;
    finally
      SList.Free;
    end;
end;
 
procedure TForm1.mniN2Click(Sender: TObject);
begin
  sg:=strngrd1;
  Listing(edt1,sg);
  ColRow(sg);
  Filling(sg);
end;
 
procedure TForm1.edt1Click(Sender: TObject);
begin
  edt1.Clear;
end;
 
procedure TForm1.mniN6Click(Sender: TObject);
var i,j,n: integer;
begin
  sg:=strngrd1;
  sg1:=strngrd2;
  sg2:=strngrd3;
  n := sg.ColCount - 1;
  for i:= sg.FixedRows to sg.RowCount - 1 do
  begin
    for j:= sg.FixedCols to n do
    begin
      if j=i then sg1.Cells[i-1,0]:= IntToStr(a[i,j]);
    end;
    sort[i]:= StrToInt(sg1.Cells[i-1,0]);
  end;
end;
 
procedure TForm1.mniN7Click(Sender: TObject);
var i,j,n: integer;
begin
  sg:=strngrd1;
  sg1:=strngrd2;
  n := sg.ColCount - 1;
  for i:= sg.FixedRows to sg.RowCount - 1 do
    for j:= sg.FixedCols to n do
    begin
      if j=n-i+1 then sg1.Cells[i-1,0]:= IntToStr(a[i,j]);
    end;
end;
 
procedure TForm1.mniN8Click(Sender: TObject);
var i,j,n: integer;
begin
  sg:=strngrd1;
  sg1:=strngrd2;
  n := sg.ColCount - 1;
  for i:= sg.FixedRows to sg.RowCount - 1 do
    for j:= sg.FixedCols to n-n+1 do
    begin
      sg1.Cells[i-1,0]:= IntToStr(a[j,i]);
    end;
end;
 
procedure TForm1.mniN9Click(Sender: TObject);
var i,j,n: integer;
begin
  sg:=strngrd1;
  sg1:=strngrd2;
  n := sg.ColCount - 1;
  for i:= sg.FixedRows to sg.RowCount - 1 do
    for j:= sg.FixedCols to n do
    begin
      sg1.Cells[i-1,0]:= IntToStr(a[j,i]);
    end;
end;
 
procedure TForm1.mniN4Click(Sender: TObject);
var i,j,buf: Integer;
begin
  sg1:=strngrd2;
  sg2:=strngrd3;
 
  for i:= 0 to sg1.ColCount - 2 do
    for j:= i + 1 to sg1.ColCount - 1 do
      if sort[i] > sort[j] then
      begin
        buf:= sort[i];
        sort[i]:= sort[j];
        sort[j]:= buf;
      end;
 
  for i:= 0 to sg1.ColCount - 1 do
    sg2.Cells[i-1,0]:= IntToStr(sort[i]);
end;
 
end.

Добавлено через 1 час 47 минут
Актуально

@Puporev · 27.11.2016, 10:53

Сообщение от Azazel-San

Сортирую массив методом прямого выбора,

Где Вы сортируете массив? Вы пытаетесь сортировать содержимое ячеек StringGrid.

@Azazel-San · 27.11.2016, 11:07 **[ТС]**

Puporev, в 119 строке, паралельно заполняю одномерный массив.. Или это не верно?

@Puporev · 27.11.2016, 11:08

Сообщение от Azazel-San

заполняют одномерный массив.

Так и сортировать нужно его, а результат выводить в таблицу 2.

@Azazel-San · 27.11.2016, 11:10 **[ТС]**

Puporev, а я что делаю? Или это надо все делать в 1й процедуре? Я что-то не шарю(

@Puporev · 27.11.2016, 11:22

А, нет, все верно. Не туда глянул, сортируется массив.

Delphi

procedure TForm1.mniN4Click(Sender: TObject);
var i,j,buf: Integer;
begin
  sg1:=strngrd2;
  sg2:=strngrd3;
 
  for i:= 0 to sg1.ColCount - 2 do
    for j:= i + 1 to sg1.ColCount - 1 do
      if sort[i] > sort[j] then
      begin
        buf:= sort[i];
        sort[i]:= sort[j];
        sort[j]:= buf;
      end;
 
  for i:= 0 to sg1.ColCount - 1 do
    sg2.Cells[i-1,0]:= IntToStr(sort[i]);
end;

Добавлено через 4 минуты
А ошибка с индексом например здесь.

Delphi

1
2
3

for i:= 0 to sg1.ColCount - 2 do//массив [1..10] индекс с 1, а не с 0.
    for j:= i + 1 to sg1.ColCount - 1 do //-1 не нужно и вообще лучше оперировать размерами массива, например m,n
                                                    // а не размерами таблицы

Добавлено через 2 минуты
Если не разберетесь, скиньте сюда архив проекта, я посмотрю.

@Azazel-San · 27.11.2016, 11:25 **[ТС]**

Puporev, я задал массив как [0..10], и я выше уже писал с нулём, только через FixedRows, они у меня по дефолту = 0, а как мне тогда задавать размеры массива если они могут постоянно меняется?

@Puporev · 27.11.2016, 11:28

Сообщение от Azazel-San

если они могут постоянно меняется?

Динамический массив и матрица.

Delphi

1 2	var a:array of array of integer; sort:array of integer;

Если не знаете, почитайте про динамические массивы в Делфи.

@Azazel-San · 27.11.2016, 11:35 **[ТС]**

Puporev, да я знаю) просто это надо опять часть кода переделывать) разве если наша сортировка натыкается на пустую ячейку, она не проигнорит её? Или может можно удалять пустые ячейки динамически? К примеру когда я заполняю первый стринггрид рандомными числами он автоматически удаляет пустые
Ну шас сяду за комп, посмотрю как оно будет

@Puporev · 27.11.2016, 12:07

Вот по сути вся твоя программа.

Delphi

var
  Form1: TForm1;
  a:array of array of integer;
  n:integer;
implementation
 
{$R *.dfm}
//создать матрицу
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
n:=strtoint(Edit1.Text);
stringgrid1.RowCount:=n;
stringgrid1.ColCount:=n;
setlength(a,n,n);
randomize;
for i:=0 to n-1 do
for j:=0 to n-1 do
 begin
  a[i,j]:=random(100);
  stringgrid1.Cells[j,i]:=inttostr(a[i,j])
 end;
end;
 //создать и отсортировать массив
procedure TForm1.Button2Click(Sender: TObject);
var b:array of integer;
    i,j,k,x:integer;
begin
setlength(b,n);
with stringgrid2 do
 begin
  colcount:=n;
  rowcount:=1
 end;
with stringgrid3 do
 begin
  colcount:=n;
  rowcount:=1
 end;
//масив главной диагонали
for i:=0 to n-1 do
 begin
  b[i]:=a[i,i];
  StringGrid2.Cells[i,0]:=IntToStr(b[i]);
 end;
//сортируем
for i:=0 to n-2 do
for j:=i+1 to n-1 do
if b[i]>b[j]then
 begin
   x:=b[i];
   b[i]:=b[j];
   b[j]:=x;
 end;
for i:=0 to n-1 do
stringgrid3.Cells[i,0]:=inttostr(b[i])
end;

@Azazel-San · 27.11.2016, 22:47 **[ТС]**

Puporev, а побочную тогда как?

Добавлено через 14 минут
разобрался уже ))

Добавлено через 6 часов 10 минут
Puporev, а можешь помочь с бинарным поиском?

@Puporev · 28.11.2016, 09:50

Зайди в поиск->расширенный поиск, набери ключевые слова Бинарный поиск и выбери раздел Делфи для начинающих, там куча тем, если мало, выбери раздел Паскаль, там еще больше.

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	27.11.2016, 10:53	2
	Сообщение от Azazel-San Сортирую массив методом прямого выбора, Где Вы сортируете массив? Вы пытаетесь сортировать содержимое ячеек StringGrid. 0

@Azazel-San Mental handicap 1246 / 624 / 171 Регистрация: 24.11.2015 Сообщений: 2,429
	27.11.2016, 11:07 [ТС]	3
	Puporev, в 119 строке, паралельно заполняю одномерный массив.. Или это не верно? 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	27.11.2016, 11:08	4
	Сообщение от Azazel-San заполняют одномерный массив. Так и сортировать нужно его, а результат выводить в таблицу 2. 0

@Azazel-San Mental handicap 1246 / 624 / 171 Регистрация: 24.11.2015 Сообщений: 2,429
	27.11.2016, 11:10 [ТС]	5
	Puporev, а я что делаю? Или это надо все делать в 1й процедуре? Я что-то не шарю( 0

@Azazel-San Mental handicap 1246 / 624 / 171 Регистрация: 24.11.2015 Сообщений: 2,429
	27.11.2016, 11:25 [ТС]	7
	Puporev, я задал массив как [0..10], и я выше уже писал с нулём, только через FixedRows, они у меня по дефолту = 0, а как мне тогда задавать размеры массива если они могут постоянно меняется? 0

@Azazel-San Mental handicap 1246 / 624 / 171 Регистрация: 24.11.2015 Сообщений: 2,429
	27.11.2016, 11:35 [ТС]	9
	Puporev, да я знаю) просто это надо опять часть кода переделывать) разве если наша сортировка натыкается на пустую ячейку, она не проигнорит её? Или может можно удалять пустые ячейки динамически? К примеру когда я заполняю первый стринггрид рандомными числами он автоматически удаляет пустые Ну шас сяду за комп, посмотрю как оно будет 0

@Azazel-San Mental handicap 1246 / 624 / 171 Регистрация: 24.11.2015 Сообщений: 2,429
	27.11.2016, 22:47 [ТС]	11
	Puporev, а побочную тогда как? Добавлено через 14 минут разобрался уже )) Добавлено через 6 часов 10 минут Puporev, а можешь помочь с бинарным поиском? 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	28.11.2016, 09:50	12
	Зайди в поиск->расширенный поиск, набери ключевые слова Бинарный поиск и выбери раздел Делфи для начинающих, там куча тем, если мало, выбери раздел Паскаль, там еще больше. 0