Форум
Последние изображения
Поиск
Регистрация
ВходЗаполнить двумерный массив по спирали
Участников: 2
Страница 1 из 1
Заполнить двумерный массив по спирали
автор PMILY Ср Ноя 18, 2009 10:58 pm
Дан двумерный массив 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: Заполнить двумерный массив по спирали
автор Kidalvь Ср Ноя 18, 2009 11:08 pm
- Код:
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.
Kidalvь- Admin
- Сообщения : 104
Очки : 321
Репутация : 18
Дата регистрации : 2009-03-13
Возраст : 27
Откуда : Тюмень -
Страница 1 из 1
Права доступа к этому форуму:
Вы не можете отвечать на сообщения|
|
|