StringGrid

[Zazug]

Разработать программу осуществляющую работу с матрицами, ввод осуществлять двумя способами: в режиме диалога и с помощью генератора случайных чисел. Матрицы выводить в общепринятом виде с использованием компонента StringGrid.

Дана целочисленная квадратная матрица. Определить:
1. сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент;
2. поменять в матрице 1-ю строку с n-ой, 2-ю с (n-1)-ой и т.д.
Вот программа . ЧТо т я запутался.

[IliaIT]

во-первых перенеси randomize; в кнопку Button3, воткни сразу после бегина тогда будут генерироваться разные матрицы, а не одна и та же.
во-вторых измени строку генерации матриц на

if random(100)>10 then a[i,j]:=random(100) else a[i,j]:=-1*random(100);

так ты получишь отрицательные числа автоматом.

в-третьих перенос строк должен быть так, ты путаешь строки со столбцами, а потом вообще фигню делаешь. в таблице ячеек (StringGrid2.Cells[i, j]) сначала столбец (i) потом строка (j)

  for i := 1 to m do
  begin
    for j := 1 to m do
    begin
       //a[i,j] := a[m - i,j];
       StringGrid2.Cells[i, j]:=IntToStr(a[i,m - j+1]);
       label3.visible:=True;
       label4.visible:=True;
       StringGrid2.visible:=True;
    end;
  end;

[Zazug]

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

во-первых перенеси randomize; в кнопку Button3, воткни сразу после бегина тогда будут генерироваться разные матрицы, а не одна и та же.
во-вторых измени строку генерации матриц на

if random(100)>10 then a[i,j]:=random(100) else a[i,j]:=-1*random(100);

так ты получишь отрицательные числа автоматом.

в-третьих перенос строк должен быть так, ты путаешь строки со столбцами, а потом вообще фигню делаешь. в таблице ячеек (StringGrid2.Cells[i, j]) сначала столбец (i) потом строка (j)

  for i := 1 to m do
  begin
    for j := 1 to m do
    begin
       //a[i,j] := a[m - i,j];
       StringGrid2.Cells[i, j]:=IntToStr(a[i,m - j+1]);
       label3.visible:=True;
       label4.visible:=True;
       StringGrid2.visible:=True;
    end;
  end;

Неподскажешь куда надо подставить это

if random(100)>10 then a[i,j]:=random(100) else a[i,j]:=-1*random(100);

А то что то запутался понаподставлял свое и не работает)

[IliaIT]

Как то так. другие неточности не искал, исправил только то что заметил. сумму не проверял очень муторный алгоритм . И матрица д непонятно зачем тебе нужна.