заливка

From

Boris Sivko (2:452/26.14)

To

Sergey Blohin

Date

2002-11-26T20:42:08Z

Area

RU.ALGORITHMS

Здравствуй, Sergey! Помнишь меня?

    Дело было вечером. И разговор на тему "Re: заливка" между Sergey Blohin и Evgeniy Jirnov мне ну никак не удалось пропустить:

 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:

  Она будет правильно работать. Почему? -> Поинтересуйся что такое рекурсия и/или напиши прогу и посмотри как она работает.

  Алгоритм нерациональный, но очень простой и быстрокодирующийся.

     Счастливо, Sergey. Вспоминай обо мне...
... I'll be back...
 * Origin: 2ЗТ - любой необратимый процесс в природе необратим. (2:452/26.14)