Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11679
Последний выпуск: 19.06.2015

Заполнение двумерного массива по спирали

40K
15 ноября 2008 года
WitaliyDsgn
4 / / 29.10.2008
Всем привет!
У меня возник вопрос:як двумерный массив заполнить по спаирали.
N - розмер матрицы (ширина и высота)
Например, для N=5 таблица будет такая :

1 2 3 4 5
16 17 18 19 6
15 24 25 20 7
14 23 22 21 8
13 12 11 10 9

Тут если пройтись глазом по всем числам от 1 до 25, и провести линию можно увидет, что получилась спираль. Помогите мне так заполнить масив, что-бы в этой процедуре было указание на N

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

П.С. Я- школник, не очень понимаю русский, и в Паскале не очень розбераюсь, помогите, олимпиала за неделю будет с Информатики.... спсибо!
390
29 ноября 2008 года
sherry
207 / / 16.10.2006
WitaliyDsgn
Вот, держи.
Код:
const
  n = 5; m =5;
var
 s: array[1..n,1..m] of integer;
 i,j,k,p: integer;

begin
 i:=0; k:=0; p:=1;

 while i<n*m do
  begin
    inc(k);
    for j:=k to m-k+1 do
     begin
       inc(i);
       s[k,j]:=p;
       inc(p);
     end;

  for j:=k+1 to n-k+1 do
   begin
     inc(i);
     s[j,m-k+1]:=p;
     inc(p);
   end;

  for j:=m-k downto k do
   begin
     inc(i);
     s[n-k+1,j]:=p;
     inc(p);
   end;

  for j:=n-k downto k+1 do
   begin
     inc(i);
     s[j,k]:=p;
     inc(p);
   end
 end;

 for i:=1 to n do
  begin
    for j:=1 to m do
     write(s[i,j]:4,' ');
  writeln;
 end;
 readln;
end.
97K
23 марта 2016 года
Спасітель
1 / / 23.03.2016
Ітак всі м хай вот
Прикрепленные файлы:
2 Кб
Загрузок: 173
1 Кб
Загрузок: 158
89K
28 марта 2016 года
innballe
2 / / 28.03.2016
а для чего так усложнять?можно все решить на js
97K
29 марта 2016 года
evlampa2131
1 / / 29.03.2016
вот именно js и будет усложнение...проще выбрать какую то CMS
89K
29 марта 2016 года
innballe
2 / / 28.03.2016
ну если CMS то я бы вот эту рекомендовал http://www.umi-cms.ru/product/

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог