Формирование квадратной матрицы порядка n по заданному образцу.

[NeAlSe]

Народ! помогите, пожалуйста!

1__0__0_..._0____0____n
0__2__0_..._0____n-1__0
0__0__3_..._n-2__0____0
.___.__._.__ ._____.____.
.___.__._ .__._____.____.
.___.__.___._._____.____.
0__2__0_..._0_____n-1_0
1__0__0_..._0_____0___n

[puporev]

Алгоритм заполнения:

if (j=i) or (j=n-i+1) then a[i,j]:=j
else a[i,j]:=0;

[NeAlSe]

а можно чуть подробнее..где этот алгоритм прописать, и тп. пожалуйсто.

[NeAlSe]

и как вывести на TStringGrid, если можно

[NeAlSe]

или как вывести по другому..

[puporev]

Вот вариант вывода в Memo и в Stringgrid.

procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..100,1..100] of integer; n,i,j:integer;
begin
n:= StrToInt(Edit1.Text);
for i:=1 to n do
for j:=1 to n do
  begin
    if (j=i) or (j=n-i+1) then a[i,j]:=j
    else a[i,j]:=0;
 end;
for i:=1 to n do
   begin
      memo1.Text:=memo1.Text + #13+#10;
      for j:=1 to n do
         memo1.Text:=memo1.Text+IntToStr(a[i,j])+'  ';
    end;
//В Stringgrid1 убрать фиксированные области
//размер ячеек примерно 24х24
Stringgrid1.ColCount:=n;
Stringgrid1.RowCount:=n;
 for j:=1 to n do //вывод по строкам
  for i:=1 to n do begin//вывод по столбцам
Stringgrid1.Cells[j-1,i-1]:=inttostr(a[i,j]);
end;
end;
end.

[NeAlSe]

Спасибо, все работает, в Stringgrid красивше получается ))

[puporev]

Хорошо, что работает. Stringgrid конечно лучше, только по первости все путают колонки со столбцами и ноли с единицами. Поэтому не очень уважают. Чтобы компоненты на форме покрасивше были, можно на форму кинуть компонент XPManifest из Win32.