VPF::[Pascal] Дорога - Форум программистов

Прога

Дата 25.10.2006, 18:53 (ссылка)

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

Загрузка ...

Новичок

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

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

Помогите решить!!!
Входные данные:
Колличество городов
количество соединений между городами
Сами соединения(например:1 2,3 2,4 1,4 2)
Начало пути
Конец пути
Выходные данные:
Колличество возможных путей
Сами пути(например:1 2 3,1 2 4 3,1 3);

KvSanya

Дата 25.10.2006, 23:03 (ссылка)

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

Загрузка ...

Новичок

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

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

Помоему данные приведенные в примере некорректны. А если я правильно понял то:

Код


const MaxN=1000;
type arrQ=array[1..maxn]of boolean;  //чтобы корректно работало в процедуре
var i,j:integer;
x,y:integer;
n:integer;
a:array[1..maxn,1..maxn]of byte;
f,e:integer;
Q:arrQ;//нужен чтобы не идти по пути дважды
M:array[0..maxn]of integer;//запоминаем путь

Procedure Find(F:integer;Q:arrQ;M:array of integer);
var i,j:integer;
begin
 For i:=1 to n do
  If (A[F,i]=1) and (q[i]=false) then  //если есть дорога
   begin
    IF i=e then  //если дошли до конца
     begin
      For j:=1 to m[0] do write(m[j], ' ');  //вывод
       writeln(e);
     end else
     begin
          Q[i]:=true;
          inc(m[0]);
          m[m[0]]:=i;
          Find(i,Q,M);
          dec(m[0]);  q[i]:=false;
     end;
   end;
end;

begin
assign(input,'dor.in');
reset(input);
assign(output,'dor.out');
rewrite(output);
readln(n);
FillChar(a,SizeOf(a),0);{все значения массива a делает 0}
For i:=1 to n do
 begin
   readln(x,y);
   a[x,y]:=1;
   a[y,x]:=1;
 end;
 read(f,e);
 Fillchar(Q,SizeOf(q),false);
 Q[f]:=true;//отмечаем F как пройденную
 FillChar(m,SizeOf(m),0);
 m[0]:=1;m[1]:=f;
Find(F,Q,m);
close(input);
close(output);
end.

Это сообщение отредактировал(а) KvSanya - 25.10.2006, 23:17

Snowy

Дата 25.10.2006, 23:08 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Модератор: Перенесено из Паскаля

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