Матрица

[Droid]

у меня чето не получается заполнить stringgrid
1 строка: значения в ней от 1 до 10
2 строка: значения в ней от 2 до 10 последнее 1
3 строка: значение в ней от 3 до 10 последние 2 значения 1,2
4 строка: значение в ней от 4 до 10 последние 3 значения 1,2,3

[GAGARIN-NEW]

Что именно не получяется?

[Droid]

Сообщение от GAGARIN-NEW

Что именно не получяется?

1 строка: значения в ней от 1 до 10
2 строка: значения в ней от 2 до 10 последнее 1
3 строка: значение в ней от 3 до 10 последние 2 значения 1,2
4 строка: значение в ней от 4 до 10 последние 3 значения 1,2,3
Циклом (

[Dj_smart]

Сидел минут 5, пытался вьехать.
Опиши по подробнее.

[Droid]

Все уже сам сделал ) почти ) !

[Droid]

Кто сможет по лучше написать а то что то у меня какое то длинное получилось

procedure TForm1.FormCreate(Sender: TObject);
var
i,j,k,a,b,c:integer;
begin
stringgrid1.Cells[0,0]:='m,n';
for i:=1 to 10 do
begin
stringgrid1.Cells[0,i]:=inttostr(i);
stringgrid1.Cells[i,0]:=inttostr(i);
stringgrid1.Cells[i,1]:=inttostr(i);
end;

for i:=1 to 9 do
begin
a:=i+1;
stringgrid1.Cells[i,2]:=inttostr(a);
stringgrid1.Cells[10,2]:=inttostr(1);
end;

for i:=1 to 8 do
begin
a:=i+2;
stringgrid1.Cells[i,3]:=inttostr(a);
stringgrid1.Cells[9,3]:=inttostr(1);
stringgrid1.Cells[10,3]:=inttostr(2);
end;

for i:=1 to 7 do
begin
a:=i+3;
stringgrid1.Cells[i,4]:=inttostr(a);
stringgrid1.Cells[8,4]:=inttostr(1);
stringgrid1.Cells[9,4]:=inttostr(2);
stringgrid1.Cells[10,4]:=inttostr(3);
end;

end;

[alexBlack]

По моему, Вы пытаетесь сделать вот это:

var i,j,k:integer;
begin
   stringgrid1.Cells[0,0]:='m,n';
   for i:=1 to 10 do begin
      stringgrid1.Cells[0,i]:=inttostr(i);
      stringgrid1.Cells[i,0]:=inttostr(i);
   end;

   for k:=0 to 9 do begin
      for j:=0 to 9 do begin
         stringgrid1.Cells[k+1, j+1] := inttostr((k+j) mod 10 + 1);
      end;
   end;
end;

[Droid]

Сенкс ) )))))))))))