VPF::Квадратная матрица. - Форум программистов

MariaMaria

Дата 15.4.2011, 00:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 6.4.2011

Репутация: нет
Всего: нет

Квадратная матрица порядка 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.

Это сообщение отредактировал(а) MariaMaria - 15.4.2011, 00:44

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »