-12 / 6 / 4
Регистрация: 19.01.2017
Сообщений: 582
1

Задана система односторонних дорог

14.09.2019, 22:45. Показов 1034. Ответов 1
Метки нет (Все метки)

Найти путь, соединяющий города A и B и не проходящий через заданное множество городов.

Переведите пожалуйста на C++

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
uses crt;
type matr=array[1..100,1..100] of integer;
     gor=array[1..100] of integer;
var s:matr;
Q,goroda:gor;
 
i,n,m,t,i_st,i_end,A,B:integer;
 
procedure matr_smezh;
var i,j:integer;
begin
randomize;
for i:=1 to n do
begin
     for j:=1 to n do
     begin
     s[i,j]:=random(2);
     end;
end;
for i:=1 to n do
begin
s[i,i]:=0;
for j:=1 to n do
begin
s[j,i]:=s[i,j];
end;
end;
end;
 
procedure vuvod();
var i,j:integer;
begin
for i:=1 to n do
begin
     for j:=1 to n do
     begin
     write(s[i,j],'   ');
     end;
writeln;
end;
end;
 
procedure poisk;
var i:integer;
begin
goroda[A]:=200;
Q[1]:=A; i_st:=1; i_end:=2;
while i_st<i_end do begin
for i:=1 to n do
if (goroda[i]=0) and (s[Q[i_st],i]=1) then begin
Q[i_end]:=i; inc(i_end); goroda[i]:=Q[i_st];
end;
inc(i_st);
end;
end;
 
procedure vuvod_res();
var i:integer;
begin
if goroda[B]=0 then writeln('Пути нет')
else
begin
Q[1]:=B; i_end:=2; t:=goroda[B];
while t<>A do begin
Q[i_end]:=t; inc(i_end); t:=goroda[t];
end;
Q[i_end]:=A;
for i:=i_end downto 1 do write(Q[i],' ');
end;
end; 
 
begin
clrscr;
writeln ('Введите количество вершин графа');
readln(n);
writeln('Введите количество непроходимых вершин');
readln(m);
writeln('Введите вершины');
for i:=1 to m do begin
readln(t); goroda[t]:=-1;
end;
matr_smezh;
writeln('матрица смежности');
vuvod();
writeln;
for i:=1 to n do 
if goroda[i]=-1 then write(i,' ');
writeln;
writeln ('Введите номер вершины А');
read(A);
writeln ('Введите номер вершины B');
read(B);
poisk;
writeln;
vuvod_res();
writeln;
readln;
end.
Добавлено через 1 час 23 минуты
Поднять тему.

Добавлено через 5 часов 35 минут
Очень надеюсь на вас, дорогие друзья.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.09.2019, 22:45
Ответы с готовыми решениями:

перевод с pascal, система односторонних дорог
Задана система односторонних дорог. Найти путь, соединяющий города A и B и не проходящий через...

Задана система двусторонних дорог
Задана система двусторонних дорог. N-периферией называется множество городов, расстояние от...

Система двусторонних дорог
Привет всем. Облазил форум на тему систему двусторонних дорог, но не нашел такого варианта: Задан...

Система двусторонних дорог. N-периферия для заданного N
Задана система двусторонних дорог. N-периферией называется множество городов, расстояние от...

1
-12 / 6 / 4
Регистрация: 19.01.2017
Сообщений: 582
15.09.2019, 15:24  [ТС] 2
Ну кто-нибудь, помогите.

Добавлено через 1 час 26 минут
Поднять тему.

Добавлено через 51 минуту
Поднять тему.

Добавлено через 36 минут
Поднять тему
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.09.2019, 15:24
Помогаю со студенческими работами здесь

Рекурсивная функция (задана система условий). Просьба проверить мой код
Задачу прикрепляю скрином. Сам код: #include &lt;iostream&gt; using namespace std; double F(int...

Не могу понять задачу (система односторонних дорог)
Тема такая, препод задал задачку на языке &quot;C&quot;, решить ее, как вы поняли, я не могу:) Задача...

Граф. Система односторонних дорог. Найти путь от A до B не проходящий через определенные вершины.
Задача: &quot;Задана система односторонних дорог. Найти путь, соединяющий города A и B и не проходящий...

По заданной системе односторонних дорог определить, есть ли город, куда можно попасть из любого другого
Доброго времени суток! Такая задача: По заданной системе односторонних дорог определить, есть...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru