[maxmaslo]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var mas:array [1..4,1..4] of integer;
mas2:array [1..4] of integer;
i,j,buf,min,imin:integer;
begin
for i:=1 to 4 do
    for j:=1 to 4 do
     mas[i,j]:=StrToInt(StringGrid1.Cells[j-1,i-1]);
for i:=1 to 4 do
    mas2[i]:=mas[i,i];
for i:=1 to 4 do
begin
     min:=mas2[i];
     for j:=1 to 4 do
               if (mas2[j]>min) then
                              begin
                                     min:=mas2[j];
                                     imin:=j;
                              end;
       buf:=mas2[i];
       mas2[i]:=mas2[imin];
       mas2[imin]:=buf;
end;
for i:=1 to 4 do
    for j:=1 to 4 do
     begin
      if(i=j)then StringGrid2.Cells[j-1,i-1]:=IntToStr(mas2[i])
      else StringGrid2.Cells[j-1,i-1]:=IntToStr(mas2[i,j]);
    end;
end;
end.

lmikle: пользуемся тегами!!!

ошибка else StringGrid2.Cells[j-1,i-1]:=IntToStr(mas2[i,j]); типа "array type required"
помогите, если сможете)

[Bargest]

mas2:array [1..4] of integer;
mas2[i,j]

..........

[maxmaslo]

помог) опечатка i там одно.

[lmikle]

у тебя в этой строке не тот массив. нужен mas, который двухмерный.

ЗЫ. Обысная проблема копи-паста. Скопировал, а поменять забыл.

[maxmaslo]

тогда пишет, что типы не совпадают.

[lmikle]

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

тогда пишет, что типы не совпадают.

Блин, строка должна быть:
else StringGrid2.Cells[j-1,i-1]:=IntToStr(mas[i,j]);

[maxmaslo]

тогда array type required.

[Bargest]

Ты бы внимательней ответы читал, иначе толку помогать... Или переменные называл СИЛЬНО РАЗНЫМИ именами.

[maxmaslo]

да я написал, какая ошибка получается, если написать так, как вы говорите.

[Bargest]

Код:

var mas:array [1..4,1..4] of integer;
i,j:integer;
begin
for i := 1 to 4 do
  for j := 1 to 4 do
    mas[i,j] := random(10);
for i := 1 to 4 do
  for j := 1 to 4 do
    StringGrid1.Cells[j-1,i-1]:=IntToStr(mas[i,j]);
end;

123432.png
Вот зачем обращаться за помощью, если её даже не слушать?

[maxmaslo]

мне не нужно просто ввести матрицу в stringgrid. это реализовывается от руки после запуска программы. мне нужно ОТСОРТИРОВАТЬ ПО УБЫВАНИЮ ЭЛЕМЕНТЫ ГЛАВНОЙ ДИАГОНАЛИ.

[U.B.M.]

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

Код:

      if(i=j)then StringGrid2.Cells[j-1,i-1]:=IntToStr(mas2[i])
      else StringGrid2.Cells[j-1,i-1]:=IntToStr(mas2[i,j]);

Не напрягает что в одной строке mas2[i], а в другой mas2[i,j]?

[Bargest]

мне не нужно просто ввести матрицу в stringgrid. это реализовывается от руки после запуска программы. мне нужно ОТСОРТИРОВАТЬ ПО УБЫВАНИЮ ЭЛЕМЕНТЫ ГЛАВНОЙ ДИАГОНАЛИ.

О боже мой. Уже ТРИ раза написали, в чем проблема. Голову-то включи. Тебе пример я дал только чтобы показать, что ошибок НЕ ВОЗНИНЕТ если ты послушаешь, что говорят. Однако ты видимо читаешь даже не через слово, а через 10. Даже желания помогать нету. Ты сказал, какая у тебя ошибка - тебе показали, на что надо поменять строку, чтобы ее не было.

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

Блин, строка должна быть:
else StringGrid2.Cells[j-1,i-1]:=IntToStr(mas[i,j]);

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

StringGrid1.Cells[j-1,i-1]:=IntToStr(mas[i,j]);

На каком еще языке надо объяснить? На китайском? 不上阵列而不是MAS2个MAS. Или на арабском? ليست على صفيف بدلا mas2 ماس

[maxmaslo]

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

тогда array type required.

да ты прям петросян) сам читаешь сообщения?
я написал, что будет, если написать так, как вы мне говорите.

[Страдалецъ]

Вот ведь, прямо искритесь от соприкосновения в теме
Вот собственно весь код:

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
  Row,Col: Integer;
begin
 for Row := 0 to StringGrid1.RowCount - 1
 do for Col := 0 to StringGrid1.ColCount - 1
    do StringGrid1.Cells[Col, Row] := IntToStr(Random(100));
end;

procedure TForm1.Button2Click(Sender: TObject);
Var
  i,j: Integer;
  v: String;
begin
 for i := 0 to StringGrid1.RowCount - 1
 do for j := 0 to StringGrid1.RowCount - 2
    do if StrToInt(StringGrid1.Cells[j, j]) < StrToInt(StringGrid1.Cells[j+1, j+1])
       then begin
            v := StringGrid1.Cells[j, j];
            StringGrid1.Cells[j, j] := StringGrid1.Cells[j+1, j+1];
            StringGrid1.Cells[j+1, j+1] := v;
            end;
end;