IPB
ЛогинПароль:

2 страниц V < 1 2  
 Ответить  Открыть новую тему 
> Хелп ми плиз With Lines
сообщение
Сообщение #21


Michael_Rybak
*****

Группа: Пользователи
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

Репутация: -  32  +


Опа, действительно бага.
Надо добавить еще одно направление, по другой диагонали
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #22


Пионер
**

Группа: Пользователи
Сообщений: 85
Пол: Мужской
Реальное имя: max

Репутация: -  0  +


Да ещё на счёт Inc(len); я не понял это типа len= len+1 ?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #23


Michael_Rybak
*****

Группа: Пользователи
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

Репутация: -  32  +


Угу
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #24


Пионер
**

Группа: Пользователи
Сообщений: 85
Пол: Мужской
Реальное имя: max

Репутация: -  0  +


Как бы переделать получше код?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #25


Michael_Rybak
*****

Группа: Пользователи
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

Репутация: -  32  +


Разберись и сразу поймешь ;)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #26


Пионер
**

Группа: Пользователи
Сообщений: 85
Пол: Мужской
Реальное имя: max

Репутация: -  0  +


Так что ли?

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



Сообщение отредактировано: XaMMaX -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #27


Michael_Rybak
*****

Группа: Пользователи
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

Репутация: -  32  +


Цитата(XaMMaX @ 24.11.2006 18:08) *

Так что ли?

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 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #28


Пионер
**

Группа: Пользователи
Сообщений: 85
Пол: Мужской
Реальное имя: max

Репутация: -  0  +


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

Сообщение отредактировано: XaMMaX -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #29


Michael_Rybak
*****

Группа: Пользователи
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

Репутация: -  32  +


Цитата(XaMMaX @ 25.11.2006 10:44) *

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


Отлично smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #30


Гость






Люди! Помогите с волновым алгоритмом! ПЛ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 ... не понимаю(((
 К началу страницы 
+ Ответить 

2 страниц V < 1 2
 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.11.2020 15:29
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name