Квадратная матрица.

[Mariaa]

Квадратная матрица порядка n по заданному образцу

1 2 3 ... n-2 n-1 n
2 3 4 ... n-1  n   0
3 4 5 ...   n   0   0
. 
.
n-1 n 0... 0   2   0
n    0 0... 0   0   1

т.е. для n=5 будет, для n=6. Диагональ с правого нижнего угла, поднимается вверх начиная с 1 до пересечения с другой диагональю.

12345   123456
23450   234560
34500   345600
45020   456300
50001   560020
           600001

Никак не могу понять, как с главной диагональю этого добиться. Заранее спасибо.

Вот пока что есть.

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, Grids;
type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    SpinEdit1: TSpinEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var a:array of array of byte;
    n,i,j:byte;
begin
n:=Spinedit1.Value;
StringGrid1.ColCount:=n;
StringGrid1.RowCount:=n;
Setlength(a,n,n);
for i:=0 to n-1 do
for j:=0 to n-1 do
 begin
  if j<=n-i-1 then a[i,j]:=i+j+1
  else a[i,j]:=0;
  StringGrid1.Cells[j,i]:=Inttostr(a[i,j]);
  end;
end;
end.

[Mandrivnyk]

т.е. для n=5 будет, для n=6.

а так, чтобы было понятно?

[Mariaa]

Например для n=5
12345
23450
34500
45020
50001


для n=6

123456
234560
345600
456300
560020
600001

т.е. побочная диагональ равна n, а главная, например при n=6 будет равна 1,3,5,3,2,1

[Mad_Cat]

for i:=0 to n-1 do
begin
k:=i;j:=-1;
while K<n do begin
inc(k);
inc(j);
a[i,j]:=k;
end;
end;
if odd(n) then i:=i div 2+1
else
i:=n div 2;
k:=1;
for j:=n-1 downto i do begin
a[j,j]:=k;
k:=k+1;
end;

[Mariaa]

Он у меня на j:=-1; ругается(((((

[Serge_Bliznykov]

Mariaa
для того, чтобы проверить решение Mad_Cat
измените тип переменных. у вас они n,i,j:byte;
сделайте их

n,i,j : integer;

[Mandrivnyk]

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

Он у меня на j:=-1; ругается(((((

Потому что у тебя j объявлен как byte.
сделай его просто целым.

Update
Опоздал -)

[Serge_Bliznykov]

Mariaa

а можете изменить свой код заполнения на такой:

for i:=0 to n-1 do
for j:=0 to n-1 do
 begin
  if j<=n-i-1
    then a[i,j]:=i+j+1
    else
       if (i=j) then a[i,j] := n-i
       else  a[i,j] :=0;
  StringGrid1.Cells[j,i]:=Inttostr(a[i,j]);
  end;
end;

[Mariaa]

Спасибо!!!
Все гениальное просто))))))
ОГРОМНОЕ СПАСИБО)))))