Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > [Delphi] Поиск на графе

Автор: clarkkent 22.3.2008, 16:07

Добрый вечер уважаемым программистам.
У меня такой несложный вопрос по программе на 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

Цитата

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

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

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

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

Автор: pseud 24.3.2008, 12:08

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

)

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

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