ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Evgeniy Jirnov                       2:5030/1230.13 29 Nov 2002  11:40:38
 To : Sergey Blohin
 Subject : заливка
 -------------------------------------------------------------------------------- 
 

 
 25 Hоя 02 22:15, Sergey Blohin -> Evgeniy Jirnov:
 
  AK>>>>   Ищется алгоpитм заливки, по типу как в Paint'e. Hо только
  AK>>>> заливать надо не цветом, а "цифpами", но суть дела это не
  AK>>>> меняет.
  EJ>>> Если массив небольшой, то так:
  EJ>>> Procedure Fill(X,Y:Integer);
  EJ>>> Begin
  EJ>>>   A[X,Y]:=1;
  EJ>>>   if A[X+1,Y]<>1 then Fill(X+1,Y);
  EJ>>>   if A[X-1,Y]<>1 then Fill(X-1,Y);
  EJ>>>   if A[X,Y+1]<>1 then Fill(X,Y+1);
  EJ>>>   if A[X,Y-1]<>1 then Fill(X,Y-1);
  EJ>>> end;
  SB> Имхо такой алгоpитм не будет пpавильно pаботать, т.к. будут заливаться
  SB> только соседние ячейки, а не все, котоpые должны. пpимеp:
  SB> Y X1 2 3 4 5 6
  SB> 1  1 1 1 1 1 1
  SB> 2  1 0 0 0 0 1
  SB> 3  1 0 0 0 0 1
  SB> 4  1 0 0 0 0 1
  SB> 5  1 0 0 0 0 1
  SB> 6  1 1 1 1 1 1
  SB> Если ты ткнёшь в ячейку (3.3), то по твоему алгоpитму у тебя
  SB> закpасятся ячеки (3.2), (2.3), (4.3) и (4.3), а надо бы ещё закpасить
  SB> (2.2), (4.2), (5.2), (5.3), (2.4), (4.4), (5.4), (2.5), (3.5), (4.5),
  SB> (5.5)
 
 Попробуй ради интереса попробовать это на практике... У меня все работает...
 
 С уважением _Evgeniy_
 
 ... 83 AB E3 AF A0 EF 20 E2 E0 A0 E2 A0 20 A2 E0 A5 AC A5 AD A8 21
 --- np: silence (Winamp is not active ;-)
  * Origin: А вы и ухом не моргнули (2:5030/1230.13)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    заливка   Alexander Kozlov   14 Nov 2002 15:28:07   заливка   Vovanius Uryvaeff   15 Nov 2002 20:58:42   заливка   Evgeniy Jirnov   16 Nov 2002 03:03:24   Re: заливка   Alexander Kozlov   17 Nov 2002 17:41:19   заливка   Evgeniy Jirnov   19 Nov 2002 01:22:06   Re: заливка   Sergey Blohin   25 Nov 2002 23:15:48   заливка   Boris Sivko   26 Nov 2002 21:42:08   заливка   Evgeniy Jirnov   29 Nov 2002 11:40:38   Re: заливка   Andrew Starsh   20 Nov 2002 01:40:56