Составить программу, которая заполняет квадратную матрицу порядка п натуральными числами 1, 2, 3, …, n2, записывая их в
Вопрос посетителя
Составить программу, которая заполняет квадратную матрицу порядка п натуральными числами 1, 2, 3, …, n2, записывая их в нее «по спирали».
Например, для п = 5 получаем следующую матрицу:
1 2 3 4 5
16 17 18 19 6
15 24 25 20 7
14 23 22 21 8
14 12 11 10 9
Ответ эксперта
const
nmax=20;
var
a: array[1..nmax,1..nmax] of byte;
n,i,j,c,k: byte;
begin
repeat
write(‘Введите размер матрицы n: ‘);
readln(n);
until n<=20;
i:=1; j:=1; c:=0; k:=1;
repeat
//вправо
while (k<=n*n)and(j<=n-c) do
begin
a[i,j]:=k;
inc(j);
inc(k);
end;
//вниз
inc(i); dec(j);
while (k<=n*n)and(i<=n-c) do
begin
a[i,j]:=k;
inc(i);
inc(k);
end;
//влево
dec(j); dec(i);
while (k<=n*n)and(j>=1+c) do
begin
a[i,j]:=k;
dec(j);
inc(k);
end;
//вверх
inc(c); inc(j); dec(i);
while (k<=n*n)and(i>=1+c) do
begin
a[i,j]:=k;
dec(i);
inc(k);
end;
inc(j); inc(i);
until k>n*n;
writeln(‘Матрица по спирали:’);
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
end.
