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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
*krIsTiNa*
0 / 0 / 0
Регистрация: 19.01.2011
Сообщений: 46
#1

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

01.11.2011, 11:10. Просмотров 208. Ответов 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
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.11.2011, 11:10
Здравствуйте! Я подобрал для вас темы с ответами на вопрос переведите в с++ (C++):

переведите на С++ - C++
переведите на С++ Var s,p:string; b:char; i:integer; Begin Write('Input text:'); Readln(s); Write('Input letter:');...

Переведите на С - C++
Функция по 3 числам проверяет могут ли эти числа быть сторонами треугольника. С помощью функции массив ( где каждая строка стороны...

Переведите с паскаля в С++ - C++
if (str='А') or (str='A') then j:=j+1; if (str='а') or (str='a') then k:=k+1;

Переведите формулу на C++ - C++
Переведите пожалуйста вот эту формулу на язык C++. прикрепите картинку к сообщению Заранее Спасибо.

Переведите программу в C++ - C++
Изначально прога написана на Паскале. Нужно перевести ее в C++ . И сделайте пожалуйста скрин работы программы) Условие: Файл F...

Переведите с Pascal на C++ - C++
uses crt; var s:string; i,m,n:integer; begin clrscr; writeln('введите текст'); readln(s); for i:=1 to length(s) do m:=0;

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.11.2011, 11:10
Привет! Вот еще темы с ответами:

Переведите с Pascal на C++ - C++
Var f,g: Text; i,n: Integer; s: String; BEGIN Write('Vvedite kol-vo chisel: '); Readln(n); Randomize; ...

Переведите из Pascal в C++ - C++
Переведите из Pascal в C++, пожалуйста. type Zavedenie = record typ : Byte; kol : word; end; var a : array of...

Переведите с Pascal на C++ - C++
Пожалуйста, переведите на C++ var a:array of longint; n,m,i,j,i1,j1,max:Longint; begin read(n,m); for i:=0 to n-1 do for...

Переведите с Pascal на С++ - C++
Пожалуйста, переведите с Pascal на С++ function Min(a, b, c, d: integer): integer; var iMIn: integer; begin iMin := a; ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru