Треугольная матрица

[King Kong]

я немного не понимаю что это значит. по коду видно что это паскаль

[reflexx]

Эмм, консольное приложение, написанное на Delphi 7.

[King Kong]

Вот я рандомно формирую обычную матрицу, но мне нужно чтобы она была треугольная? как это сделать?
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
StringGrid.ColCount:=6;
StringGrid.RowCount:=6;
for i:=1 to StringGrid.RowCount-1 do
begin
for j:=1 to StringGrid.ColCount-1 do
begin
StringGrid.Cells[j,i]:=IntToStr(random(100));
end;
end;
end;

[reflexx]

ТС, же вам написал как должны выглядеть циклы в треугольной матрице. Смотрите по примеру и переносите на свой StringGrid.

[King Kong]

выдаёт ошибку ( пишу вот так :

procedure TForm1.Button1Click(Sender: TObject);
var
 i,j:integer;
begin
   StringGrid.ColCount:=5;
   StringGrid.RowCount:=5;
   for i:=1 to StringGrid.RowCount-1 do
    begin
     for j:=1 to StringGrid.ColCount-1 do
      begin
       StringGrid.Cells[j,i]:=IntToStr(random(100));
      end;
    end;
for i:=1 to StringGrid.ColCount - 1 do
for j:=0 to i-1 do
StringGrid.Cells[i,j]:=0
end;

[Serge_Bliznykov]

во-первых, попробуйте такой код заполнения вашего грида:

procedure TForm1.Button1Click(Sender: TObject);
var
 i,j:integer;
begin
   Randomize;
   StringGrid.FixedCols := 0;
   StringGrid.FixedRows := 0;
   StringGrid.ColCount := 5;
   StringGrid.RowCount := 5;
   for i:=0 to StringGrid.RowCount-1 do
    begin
     for j:=0 to StringGrid.ColCount-1 do
       if j<i
         then StringGrid.Cells[j,i] := '0'
         else StringGrid.Cells[j,i] := IntToStr(random(99)+1);
    end;
end;

во-вторых, термин "треугольная матрица" допускает не однозначное толкование.
вполне возможно, что имеется в виду матрица, которая в разных строках содержит РАЗНОЕ количество элементов (например, в первой строке - N элементов, во второй строке - N-1 элементов и т.д.).
Для этого в Delphi совершенно не обязательно делать квадратную матрицу и половину заполнять нулями, можно воспользоваться динамическим двухмерным массивов и задать разное число элементов в каждой строке...

[King Kong]

спасибо) неправильно считает сумму максимальных элементов всех строк этой матрицы. Что не так?

summ:= 0;
n:= StringGrid.ColCount ;
max:= 0 ;
  for i:=0 to n-1 do
  begin
    Max:=StrToInt(StringGrid.Cells[i, 0]);
    for j:=i to n-1 do
      if StrToInt(StringGrid.Cells[i, j]) > Max then
      begin
       Max:=StrToInt(StringGrid.Cells[i, j]);
      end;
  Summ:=Summ + Max;
  end;

[King Kong]

почему не так считает? в чём ошибка?

[Serge_Bliznykov]

Сообщение от King Kong

почему не так считает? в чём ошибка?

чисто умозрительно - у Вас проблема в том, что Вы перепутали столбцы и строки: Вы перебирайте столбцы, а Вам нужно перебирать строки.

[King Kong]

спасибо )теперь всё работает!