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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ вопрос по синтаксису/типам http://www.cyberforum.ru/cpp-beginners/thread375959.html
фрагмент файла unique_ptr.h: template <typename _Tp, typename _Tp_Deleter = default_delete<_Tp> > class unique_ptr { typedef std::tuple<_Tp*, _Tp_Deleter> __tuple_type; ...
C++ Навыки программирования!!! Помогите пожалуйста! Я хочу заняться вплотную системным администрированием! Какую лучше читать литературу? http://www.cyberforum.ru/cpp-beginners/thread375958.html
как реализовать на с++ C++
procedure KOMMI(i); begin for y Є ЗАПИСЬ] do if cost + A, y] < OptCost then if (i = n+1) AND (y = k) then begin OptX:=X; OptCost:= cost + A,y] end else if DOP then begin ...
C++ Дана целочисленна прямоугольная матрица. Определить количество строк, не содержащих ни одного нулевого элемента.
Выполнить задание, используя динамическое выделение памяти. Дана целочисленна прямоугольная матрица. Определить количество строк, не содержащих ни одного нулевого элемента. Зарание большое...
C++ пример из книги страуструпа http://www.cyberforum.ru/cpp-beginners/thread375949.html
struct pair { char* name; // ñòðîêà int val; // öåëîå }; const int large = 1024; static pair vec; pair* find(const char* p) ...
C++ Даны три положительных числа а, b, с. Проверить, будут ли они сторонами треугольника. Если да, то вычислить площадь этого треугольника. Помогите, пожалуйста, исправить здесь ошибку времени... #include<iostream> #include<cmath> using namespace std; void main() { double a, b, c, s, p; cout<<"Vvedite a, b, c: "; cin>>a>>b>>c;... подробнее

Показать сообщение отдельно
*krIsTiNa*
0 / 0 / 0
Регистрация: 19.01.2011
Сообщений: 46

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

01.11.2011, 11:10. Просмотров 210. Ответов 0
Метки (Все метки)

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.
 Комментарий модератора 
Используйте теги форматирования кода
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru