Одинаковые элементы в StringGrid

[Rilpack]

Надо, чтобы выходило сообщение, если в StringGrid все ячейки одинаковые.

[p51x]

Ну так пройдитесь в цикле и сравните

[Serge_Bliznykov]

Это легко проверить перебором.
только, если это проверка на допустимость решения СЛАУ методом Гаусса,
то это Вас не спасёт. там другая проверка нужна

[p51x]

для Гаусса есть еще вариант, когда надо выбирать ведущий элемент)

[Rilpack]

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

Это легко проверить перебором.
только, если это проверка на допустимость решения СЛАУ методом Гаусса,
то это Вас не спасёт. там другая проверка нужна

А если вот просто StringGrid и в нем находятся элементы, мне этого достаточно.

[p51x]

Тогда

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

Ну так пройдитесь в цикле и сравните

[Serge_Bliznykov]

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

А если вот просто StringGrid и в нем находятся элементы, мне этого достаточно.

поверьте мне, недостаточно.
можете "поиграть" с онлайн https://matrix.reshish.ru/gauss-jordanElimination.php

самый простой способ - посчитать определитель матрицы A (матрицы коэффициентов). если определитель равен нулю - выдать сообщение, что

Определитель основной матрицы равен нулю, значит система либо несовместна, либо имеет бесконечное множество решений.

[Serge_Bliznykov]

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

мне этого достаточно.

хотите убедиться, что этого недостаточно?

извольте

var 
  isAllSameValues : boolean;
  k, j : integer;
  s : string;

begin
  isAllSameValues := true;
  
  s := StringGrid1.Cells[1,1];
  for k:=1 to n+1 do
    for j:=1 to n do
    begin
      if (StringGrid1.Cells[j,k])<>s then
      begin
         isAllSameValues := false;
         break;
      end;
      if Not isAllSameValues then break;
    end;

if isAllSameValues then
   Showmessage('Матрица заполнена одинаковыми числами');

p.s. и попробуйте, например, решить матрицу

2 2 2 2
1 1 1 5
1 2 3 4

или вообще все коэффициента разные.
а решения нет:

1	2	3	4
2	4	6	1
7	8	9	10

[digitalis]

если в стрингридах могут быть вообще не числа, а текстовые строки ?
Оказывается, чтобы понять вопрос, нужно не только его прочитать, а и весь форум - а может, в другом месте тот же автор спрашивает теми же словами совсем про другое?
Вот так из-за недели бес-комп-ия выпадаешь из тем

[Rilpack]

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

хотите убедиться, что этого недостаточно?

извольте

var 
  isAllSameValues : boolean;
  k, j : integer;
  s : string;

begin
  isAllSameValues := true;
  
  s := StringGrid1.Cells[1,1];
  for k:=1 to n+1 do
    for j:=1 to n do
    begin
      if (StringGrid1.Cells[j,k])<>s then
      begin
         isAllSameValues := false;
         break;
      end;
      if Not isAllSameValues then break;
    end;

if isAllSameValues then
   Showmessage('Матрица заполнена одинаковыми числами');

p.s. и попробуйте, например, решить матрицу

2 2 2 2
1 1 1 5
1 2 3 4

или вообще все коэффициента разные.
а решения нет:

1	2	3	4
2	4	6	1
7	8	9	10

Насчет вот этой матрицы

2 2 2 2
1 1 1 5
1 2 3 4

Я это предусмотрел, при расчёте этой матрицы и у меня выходит сообщение.
Но с одинаковыми числам надо немного сделать подругом. Всё равно, спасибо вам огромное. Постараюсь сам разобраться.