Заполнить двумерный массив по спирали
Участников: 2
Страница 1 из 1
Заполнить двумерный массив по спирали
Дан двумерный массив 1..n,1..n, и его надо заполнить по спирали, например, массив 4:4 так:
1 2 3 4
12 13 14 5
11 16 15 6
10 9 8 7
n вводится с клавиатуры. Помогите это написать.
1 2 3 4
12 13 14 5
11 16 15 6
10 9 8 7
n вводится с клавиатуры. Помогите это написать.
PMILY- Новичок
- Сообщения : 10
Очки : 14
Репутация : 0
Дата регистрации : 2009-11-16
Re: Заполнить двумерный массив по спирали
- Код:
const
n = 10;
m = 8;
var
mas: array[1..n, 1..m] of integer;
value,
i, j, k: integer;
begin
i:=0; k:=0; value:=1;
while i < n*m do
begin
inc(k);
for j:=k to m-k+1 do
begin
inc(i);
mas[k,j]:=value; inc(value)
end;
for j:=k+1 to n-k+1 do
begin
inc(i);
mas[j,m-k+1]:=value; inc(value)
end;
for j:=m-k downto k do
begin
inc(i);
mas[n-k+1,j]:=value; inc(value)
end;
for j:=n-k downto k+1 do
begin
inc(i);
mas[j,k]:=value; inc(value)
end
end;
for i:=1 to n do
begin
for j:=1 to m do
write(mas[i,j]:3,' ');
writeln
end
end.
Страница 1 из 1
Права доступа к этому форуму:
Вы не можете отвечать на сообщения