Форум программистов, компьютерный форум CyberForum.ru

переведите в с++ - C++

Восстановить пароль Регистрация
 
*krIsTiNa*
0 / 0 / 0
Регистрация: 19.01.2011
Сообщений: 46
01.11.2011, 11:10     переведите в с++ #1
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
const
n0=100; {вершины}
inf=32000;{бесконечность}
var
m:integer; {рёбра}
n:byte; {вершины}
A:array[1..n0,1..n0] of real; {матрица весов}
DOP:array[1..n0] of boolean; {допустимость вершины}
X,OptX:array[1..n0] of byte; {маршруты}
Cost,OptCost:real; {стоимости}
r:real;
i,j,k:byte;
 
procedure path(i:byte);
var u,j,v:byte;
begin
for u:=1 to n do
if (A[X[i-1],u]<inf) AND (Cost+A[X[i-1],u] < OptCost) then
begin
if (i=n+1) AND (u=1) then {новый минимум}
begin
for j:=1 to n do OptX[j]:=X[j];
OptCost:=Cost+A[X[i-1],u];
end
else if DOP[u] then {продолжаем текущий маршрут}
begin
X[i]:=u; DOP[u]:=false;
Cost:=Cost+A[X[i-1],u];
path(i+1);
{возврат, удаляем u из текущего маршрута}
DOP[u]:=true;
Cost:=Cost-A[X[i-1],u];
end;
end;
end;
 
BEGIN {main}
for i:=1 to n0 do
for j:=1 to n0 do
A[i,j]:=inf;
 
for i:=1 to n0 do
begin
DOP[i]:=true;
X[i]:=0;
OptX[i]:=0;
end;
Cost:=0; OptCost:=inf;
 
Write('Vvedite kolvo vershin n= '); readln(n);
Write('Vvedite kolvo reber m= '); readln(m);
for i:=1 to m do
begin
Write('Vvedit cherez probil vershini i ves ',i,' rebra: '); Readln(j,k,r);
A[j,k]:=r;
A[k,j]:=r;
end;
X[1]:=1; DOP[1]:=false;
path(2);
if OptCost< inf then
begin
Writeln('OptCost', OptCost:5:2);
for i:=1 to n do
write(OptX[i],' ');
writeln;
end
else
writeln('No solution');
readln;
END.
 Комментарий модератора 
Используйте теги форматирования кода
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.11.2011, 11:10     переведите в с++
Посмотрите здесь:

Переведите на С C++
Переведите с Паскаля C++
C++ переведите с Паскаля на си++
C++ переведите с Паскаля на си++
переведите на С++ C++
C++ Переведите с Pascal на C++
Переведите с Java в С++ C++
Переведите с Pascal на C++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 11:33. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru