Хелп ми плиз With Lines Опции

[Michael_Rybak]

Опа, действительно бага.
Надо добавить еще одно направление, по другой диагонали

[XaMMaX]

Да ещё на счёт Inc(len); я не понял это типа len= len+1 ?

[Michael_Rybak]

Угу

[XaMMaX]

Как бы переделать получше код?

[Michael_Rybak]

Разберись и сразу поймешь ;)

[XaMMaX]

Так что ли?

const dx: array[0..2] of integer = (1, 1, 0,-1);
const dy: array[0..2] of integer = (0, 1, 1,-1);

Сообщение отредактировано: XaMMaX - 24.11.2006 23:28

[Michael_Rybak]

Так что ли?

const dx: array[0..2] of integer = (1, 1, 0,-1);
const dy: array[0..2] of integer = (0, 1, 1,-1);

Почти.
(-1, -1) - это то же самое, что (1, 1).

Надо (1, -1).

Кроме этого, надо увеличить размерность массива (0..3) и цикл для dir от 0 до 3.

И еще надо проверять теперь не только то, что x<=10 и y<=10, а и то, что y >= 1

Сообщение отредактировано: Michael_Rybak - 25.11.2006 2:18

[XaMMaX]

О дело идёт к концу жду не дождусь когда скажу тебе огромное спасибо =)

Сообщение отредактировано: XaMMaX - 25.11.2006 16:24

[Michael_Rybak]

О дело идёт к концу жду не дождусь когда скажу тебе огромное спасибо =)

Отлично

[Falcon 00*5]

Люди! Помогите с волновым алгоритмом! ПЛZ!Уже второй день мучаюсь ! есть массив 9x9 есть точка х1у1 с которой начинать отсчет и точка ху до которой надо дойти.... как мне его сделать ??? функцией если можно.... мои наработки вот :

function volna(a:mas; x1,y1,x,y:integer):integer;
var b:mas; i,j:integer; ni,nk:integer; rez:integer;
begin
ni:=0;nk:=81;rez:=0;
for i:=1 to 9 do
 for j:=1 to 9 do begin
  if a[i,j]=0 then b[i,j]:=254;
  if a[i,j]>0 then b[i,j]:=255;
  if (i=x1) and (j=y1) then b[i,j]:=253;
  if (i=x) and (j=y) then b[i,j]:=0;
 end;

 repeat
 for i:=1 to 9 do begin
  for j:=1 to 9 do begin
  if b[i,j]=ni then begin
   if b[i+1,j]=254 then b[i+1,j]:=ni+1;
   if b[i+1,j]=253 then begin volna:=1;exit;end;
   if b[i-1,j]=254 then b[i-1,j]:=ni+1;
   if b[i-1,j]=253 then begin volna:=1;exit;end;
   if b[i,j+1]=254 then b[i,j+1]:=ni+1;
   if b[i,j+1]=253 then begin volna:=1;exit;end;
   if b[i,j-1]=254 then b[i,j-1]:=ni+1;
   if b[i,j-1]=253 then begin volna:=1;exit;end;
  end;
 end;inc(ni);
 end;
 until ni<=nk;
end; 

Но только почему то не работает .... результат работы функции не 1 или 0 а 3 или даж 254 ... не понимаю(((