Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > Delphi
Перезагрузить страницу Заполнение массива по спирали
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
†Strannik† †Strannik† вне форума
Странник всея Руси!
 
Аватар для †Strannik†
 
Сообщений: 99
Сказал(а) спасибо: 1
Поблагодарили 2 раз(а) в 2 сообщениях
Регистрация: 09.11.2007
Thumbs up 28.11.2009, 14:06

Есть массив пикселей считанный через сканлайн с изображения (двумерный), есть одномерный массив пикселей, в этот массив из двумерного необходимо перенести элементы по спирали. Привожу код и картинку с описанием глюка, скорее всего где-то напортачил со счетчиками, прошу помощи...

Код:
procedure TChaos.strelka();
var

  i,imax,imin,j,jmax,jmin,k,m,n:integer;
begin
m:=117;
n:=137;
  jmin:=1;
  jmax:=137;
  imin:=2;
  imax:=117;
  k:=0;
  repeat
    for j:=jmin to jmax do
    begin
      inc(k);
      pic[k].r:=img[imin-1,j].r;
       pic[k].g:=img[imin-1,j].g;
        pic[k].b:=img[imin-1,j].b;

    end;
    for i:=imin to imax do
    begin
      inc(k);
     pic[k].r:=img[i,jmax].r;
     pic[k].g:=img[i,jmax].g;
     pic[k].b:=img[i,jmax].b;
    end;
    dec(jmax);
    for j:=jmax downto jmin do
    begin
      inc(k);
      pic[k].r:=img[imax,j].r;
        pic[k].g:=img[imax,j].g;
          pic[k].b:=img[imax,j].b;

    end;
    dec(imax);
    for i:=imax downto imin do
    begin
      inc(k);
      pic[k].r:=img[i,jmin].r;
      pic[k].g:=img[i,jmin].g;
      pic[k].b:=img[i,jmin].b;

    end;
    inc(imin);
    inc(jmin);
  until k>=m*n;


end;
возвращаю таким же способом, pic и img меняются местами.... даже если ничего с массивами не делать, появляется такая фигня....

Картинка:



С середины элементы уходят вправо....
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задачи на заполнение и анализ элеметов массива Sketch_45 Pascal 1 23.03.2011 15:19
Движение по спирали Gastrobyter .NET 20 03.05.2009 18:08
Программное заполнение массива Виталик 1 Delphi 5 20.02.2008 22:33
Заполнение массива спиралью imported_Roger Visual Basic 3 12.12.2007 07:20
Заполнение массива 6х6 в С++ rom-x Вопросы начинающих программистов 6 30.11.2007 13:52
Заполнение массива по спирали Irim Pascal 4 11.11.2006 18:16
Заполнение массива как реализовать Kelt .NET 3 18.08.2006 01:53
StackOverflowException заполнение динамического массива FlyCube Visual C++ 2 11.04.2006 13:01
Сердце заполнение массива Кошмар Зацените! 24 05.04.2006 19:01
Программное заполнение массива случайными числами imported_san4es C++ Builder 4 28.11.2005 19:38
Заполнение массива случайными элементами Alan Вопросы начинающих программистов 1 06.06.2004 15:41
Создание и заполнение двухмерного массива. Указатели SkiV С/С++ 13 02.06.2004 01:56



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов