Форум программистов, сисадминов и не только
Вы хотите отреагировать на этот пост ? Создайте аккаунт всего в несколько кликов или войдите на форум.
Опрос

Нравится ли Вам этот форум?

Заполнить двумерный массив по спирали I_vote_lcap100%Заполнить двумерный массив по спирали I_vote_rcap 100% [ 5 ]
Заполнить двумерный массив по спирали I_vote_lcap0%Заполнить двумерный массив по спирали I_vote_rcap 0% [ 0 ]

Всего проголосовало : 5

Вход

Забыли пароль?

Поиск
 
 

Результаты :
 


Rechercher Расширенный поиск


Заполнить двумерный массив по спирали

Участников: 2

Перейти вниз

Заполнить двумерный массив по спирали Empty Заполнить двумерный массив по спирали

Сообщение автор 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 вводится с клавиатуры. Помогите это написать.

PMILY
Новичок

Сообщения : 10
Очки : 14
Репутация : 0
Дата регистрации : 2009-11-16

Вернуться к началу Перейти вниз

Заполнить двумерный массив по спирали Empty 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ь
Kidalvь
Admin

Сообщения : 104
Очки : 321
Репутация : 18
Дата регистрации : 2009-03-13
Возраст : 27
Откуда : Тюмень

http://vladiator.biz/

Вернуться к началу Перейти вниз

Вернуться к началу

- Похожие темы

 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения