var
  c,i,count:integer;
  st,st1:string;
begin
  if f=n then
  begin
    st:='';
    for i:=1 to p-1 do
    begin
      str(road[i],st1);
      st:=st+st1+'->';
    end;
    delete(st,length(st)-1,2);
    writeln(fout,st);
  end
  else
    begin
      for c:=1 to n do
      begin
        if (map[s,c]<>0)and(NOT h[c]) then
        begin
          road[p]:=c;
          h[c]:=true;
          step(c,f+1,p+1);
          h[c]:=false;
          road[p]:=0;
        end;
      end;
    end;
end;

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

26.04.2012, 21:22

Ответы с готовыми решениями:

Процедура поиска в глубину в графе, заданном списками инцидентности
Нужна помощь знающего Паскаль человека, по заданию: Напишите и используйте в программе процедуру...

Процедура поиска максимального элемента в массивах.
С использованием под программы-процедуры написать программу, осуществляющую ввод двух массивов...

Процедура поиска минимального эллемента массива
Создать матрицы А и В. Вывести их. В подпрограмме определить минимальное в матрице А и минимальное...

Написать программу поиска гамильтоновой цепи в графе.
Решите, пожалуйста, задачу) Написать программу поиска гамильтоновой цепи в графе. Заранее...

	26.04.2012, 21:22

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

26.04.2012, 21:22

Помогаю со студенческими работами здесь

Нахождение основного дерева в графе методом поиска в глубину.
УСЛОВИЕ: Разработайте программу нахождения основного дерева в графе методом поиска в глубину!...

Процедура поиска по ключу
Всем прива кому не трудно подправте процедуру поиска по ключу чтобы в случае если введеное...

Процедура поиска отличников
Помогите исправить процедуру так, чтобы она считала не студентов двоечников, а студентов...

Процедура поиска минимального элемента
Заданы матрицы А и В третьего порядка. Переменной S присвоить -1, если максимальный элемент матрицы...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх