Сформировать квадратную матрицу порядка n по заданому образцу

@Игорь Город · Регистрация: 05.11.2013

Author24 — интернет-сервис помощи студентам

1 2 3 ... N-2 N-1 N
2 1 2 ... N-3 N -2 N-1
3 2 1 ... N-4 N-3 N-2
...
N-1 N-2 N-3...2 1 2
N N-1 N-2. .....3 2 1

@Puporev · 05.11.2013, 12:55

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var a:array of array of byte;
    n,i,j:byte;
begin
n:=StrToInt(Edit1.Text);
Setlength(a,n,n);
StringGrid1.ColCount:=n;
StringGrid1.RowCount:=n;
for i:=0 to n-1 do
a[i,i]:=1;
for i:=0 to n-1 do
 begin
  if i>0 then for j:=i-1 downto 0 do a[i,j]:=a[i,j+1]+1;
  if i<n-1 then for j:=i+1 to n-1 do a[i,j]:=a[i,j-1]+1;
  for j:=0 to n-1 do StringGrid1.Cells[j,i]:=IntToStr((a[i,j]));
 end
end;

@Игорь Город · 05.11.2013, 15:01 **[ТС]**

Спасибо большое!!!

@Игорь Город 0 / 0 / 0 Регистрация: 05.11.2013 Сообщений: 20
		1
	Сформировать квадратную матрицу порядка n по заданому образцу 05.11.2013, 12:33. Показов 1825. Ответов 2 Метки нет (Все метки) 1 2 3 ... N-2 N-1 N 2 1 2 ... N-3 N -2 N-1 3 2 1 ... N-4 N-3 N-2 ... N-1 N-2 N-3...2 1 2 N N-1 N-2. .....3 2 1 0

@Игорь Город 0 / 0 / 0 Регистрация: 05.11.2013 Сообщений: 20
	05.11.2013, 15:01 [ТС]	3
	Спасибо большое!!! 0

Сформировать квадратную матрицу порядка n по заданому образцу

Решение