Вывод массива

[ksesh]

Помогите найти ошибку при выводе двумерного массива в таблицу Grid

procedure TForm12.Button6Click(Sender: TObject);
begin
   StringGrid1.cells[i,j]:=' ';
   randomize;
     for i:=1 to 10 do
      for j:=1 to 10 do
       begin
         c[i,j]:=random(100)-30;
      StringGrid1.cells[i,j]:=StringGrid1.cells[i,j]+IntToStr(c[i,j]);
       end;
end;

Форма выглядит вот так:

[p51x]

StringGrid1.cells[i,j]:=' ';

Чему здесь равны i, j?

for i:=1 to 10 do
for j:=1 to 10 do

В СтрингГриде счет идет от 0.

[ksesh]

StringGrid1.cells[i,j]:=' ';
сначала вроде пустому множеству.

[Serge_Bliznykov]

StringGrid1.cells[i,j]:=' ';

в переменных i и j у Вас МУСОР!!!

Хотите в этом убедиться?!
Так легко:

procedure TForm12.Button6Click(Sender: TObject);
begin
   ShowMessage('Смотри,переменная i = '+IntToStr(i)+' j = '+IntToStr(j));
   StringGrid1.cells[i,j]:=' ';
   randomize;
     for i:=1 to 10 do

это ошибка номер раз.

ошибка номер два.

Переменные для циклов нужно объявлять ЛОКАЛЬНО:

procedure TForm12.Button6Click(Sender: TObject);
var i, j : integer;
begin
...

ошибка номер три.
в StringGrid.Cells сначала задаётся номер столбца, потом номер строки.

Может быть, Вы нам расскажете, какую задачу решаете.
Потом расскажете, какую ошибку Вы имеете в виду:

Помогите найти ошибку при выводе двумерного массива в таблицу Grid

А вот потом и поговорим?!

и ещё. а какой, по вашему смысл должен выполнять код

StringGrid1.cells[i,j]:=' ';

??? Может быть, Вы расскажете, что хотели написать и тут Вам подскажут, как это сделать?..

[ksesh]

Задание: отсортировать каждый элемент матрицы в порядке возрастания.
Все коды в форму вставляются. 1 кнопка должна сформировать рандомно массив 10Х10 элементов и вывести в таблицу StringGrid1. Вторая кнопка должна отсортировать все элементы этого массива методом "пузырька" в порядке возрастания и вывести во вторую таблицу StringGrid2.

[Serge_Bliznykov]

отсортировать каждый элемент матрицы в порядке возрастания.

извините, пожалуйста, у Вас русский язык не родной?
потому как нельзя отсортировать КАЖДЫЙ элемент массива.

Ну это звучит так. У вас есть друзья. Они разного роста.
Поставьте КАЖДОГО из них по росту.

Так. допустим, это банальная опечатка. Требуется отсортировать ВСЕ элементы массива по возрастанию.
ОК.
но тут проблема в том, что массив двухмерный (матрица).
А его можно просматривать, как построчно, так и по столбцам.

например, если есть массив 4 x 4:

16  11   2  17
 1   7   9   4
12  10   3   5
 6   8  15  14

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

[p51x]

но тут проблема в том, что массив двухмерный (матрица).
А его можно просматривать, как построчно, так и по столбцам.

А еще по диагоналям, по парам, по суммам... Проблема в том, что двумерный массив по определению не является упорядоченным множеством.

П.С. А потом еще говорят - зачем математику учить программистам...

[ksesh]

Каюсь, ошиблась. Сортироваться должны все элементы матрицы построчно в порядке возрастания.

[Serge_Bliznykov]

изучайте:
StringGridSortExample.rar

суть:

const
  ArrayRowCount = 10;
  ArrayColCount = 10;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    StringGrid2: TStringGrid;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    c : array[1..ArrayRowCount,1..ArrayColCount] of integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;

  StringGrid1.FixedCols := 0;   StringGrid1.FixedRows := 0;
  StringGrid1.ColCount := ArrayColCount;
  StringGrid1.RowCount := ArrayRowCount;
  StringGrid1.Width := 560;
  StringGrid1.DefaultColWidth := (StringGrid1.Width - 20) div ArrayColCount;
  StringGrid2.DefaultColWidth := 54;
  StringGrid2.Width := 560;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i, j : integer;
begin
  // заполнить массив C случайными числами
  for i:=1 to ArrayRowCount do
   for j:=1 to ArrayColCount do
         c[i,j]:=random(100)-30;

  // вывести массив С в StringGrid1
  for i:=1 to ArrayRowCount do
   for j:=1 to ArrayColCount do
         StringGrid1.cells[j-1, i-1] := IntToStr(c[i,j]);
end;

procedure TForm1.Button2Click(Sender: TObject);
var i, j, r : integer;
  temp : integer;
begin
   // отсортируем массив построчно:
   //    все элементы матрицы построчно в порядке возрастания
   for r := 1 to ArrayRowCount do begin

      {сортировка строки C[r] методом простых обменов}
      for i := 1 to  ArrayColCount - 1 do
        for j := i+1 to ArrayColCount  do
          if c[r,i] > c[r,j] then begin
            temp := c[r,i];
            c[r,i] := c[r,j];
            c[r,j] := temp;
          end;
   end;


   // всё. Теперь отсортированный массив выведем в StringGrid2
  for i:=1 to ArrayRowCount do
   for j:=1 to ArrayColCount do
         StringGrid2.cells[j-1, i-1] := IntToStr(c[i,j]);

end;

[ksesh]

спасиииибоооо огроммное!!!!!!!!!!!!!!! всё идёт!!!! обнимаю вас и цалую!!!!!!!