0 / 0 / 5
Регистрация: 23.09.2016
Сообщений: 254
1

перевод с pascal, система односторонних дорог

08.12.2016, 16:16. Показов 1024. Ответов 1
Метки нет (Все метки)

Задана система односторонних дорог. Найти путь, соединяющий города A и B и не проходящий через заданное множество городов
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
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();
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.12.2016, 16:16
Ответы с готовыми решениями:

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

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

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

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

1
0 / 0 / 5
Регистрация: 23.09.2016
Сообщений: 254
11.12.2016, 14:15  [ТС] 2
все еще
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.12.2016, 14:15
Помогаю со студенческими работами здесь

Система двухсторонних дорог
Помогите пожалуйста сделать в дельфи на форме! Вот задание: Задана система двусторонних дорог, где...

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

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

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

Перевод программы с Turbo Pascal на Pascal ABC.NET
написала программу в паскаль турбо на рабочем компьютере. перенесла в паскаль авсNet так как дома...

Перевод программы с turbo pascal на Pascal ABC
Есть программа, которая строит треугольник Серпинского методом хаоса, но она конфликтует с графикой...


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

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

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