VPF::[Delphi] Поиск на графе - Форум программистов

clarkkent

Дата 22.3.2008, 16:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 19
Регистрация: 22.3.2008

Репутация: нет
Всего: нет

Добрый вечер уважаемым программистам.
У меня такой несложный вопрос по программе на Delphi.
Есть матрица с данными (2 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
                                                 (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
Часть массива 2 1 1 1 в задаче представляется как поезд, который нужно двигать по
рельсам (в матрице это нули). Вот перемещения поезда:
Первое:
                       (0 0 0 0 2 1 1 1 0 0 0 0 0 0 0 0 0 0)
                       (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
Второе:
                       (0 0 0 0 0 0 0 0 2 1 1 1 0 0 0 0 0 0)
                       (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
Третье:
                       (0 0 0 0 0 0 0 0 0 2 1 1 1 0 0 0 0 0)
                       (0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)

Это
Мне нужно передвинуть элементы по строке матрицы.
Но как мне добавить процедуру поиска на графе, создать простой граф, отразивший эти 3

перемещения.Разветвлений в данном случае не будет. Как это можно сделать?
Как можно переделать в коде перемещения?

Вот мой код:

Код


procedure Tform1.xodtrain0;
    begin
     for i:=21 downto 1 do  begin
     m[i,1]:=m[i-4,1];
     end;
end;

procedure Tform1.xodtrain1;
  begin
     for i:=21 downto 1 do  begin
     m[i,1]:=m[i-6,1];
     end;
end;

procedure Tform1.xodtrain2;
begin
     for i:=1 to 21 do  begin
     m[i,1]:=m[i-1,1];
     end;
end;

procedure TForm1.vivodClick(Sender: TObject);
begin
    Matrix_1.ColCount:=k+1;  Matrix_1.RowCount:=n+1;
    for i:=1 to k do begin
    for j:=1 to n do begin
    Matrix_1.Cells[i,j]:= Inttostr(m[i,j]);
    end;
    end;
end;

CompWorm

Дата 23.3.2008, 01:46 (ссылка)

(нет голосов)

Загрузка ...

Допеределыватель

Профиль
Группа: Участник Клуба
Сообщений: 1689
Регистрация: 6.12.2004
Где: /

Репутация: 2
Всего: 31

Цитата

Это
Мне нужно передвинуть элементы по строке матрицы.
Но как мне добавить процедуру поиска на графе, создать простой граф, отразивший эти 3

перемещения.

здесь точно запятые расставлены? я не совсем понимаю что написано...
ты хочешь искать поезд в массиве,
или
ты хочешь представить три массива в виде одного, объединяющего три перемещения?

и при чем тут графы? это же к графам отношения не имеет? - граф, матрица и массив, я бы сказал - совсем разные вещи... если матрицу можно представить в виде массива, то граф тут ни как не вяжеся, на мой взгляд...

--------------------

>>> Indie Games Club! <<<

pseud

Дата 24.3.2008, 12:08 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

Цитата(clarkkent @ 22.3.2008, 16:07

)

У меня такой несложный вопрос по программе на Delphi.

ну а если он несложный, то зачем его задешь?

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »