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

Переделать программу с Паскаля на C++ - C++

Восстановить пароль Регистрация
 
serega2301
-6 / 0 / 0
Регистрация: 04.02.2013
Сообщений: 44
20.06.2014, 08:44     Переделать программу с Паскаля на C++ #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
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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
const COUNT_POINTS=6;
 
type
ARRN=array[1..COUNT_POINTS] of integer;
ARRNN=array[1..COUNT_POINTS,1..COUNT_POINTS] of integer;
 
PROCEDURE FITSP(N,S,INF:INTEGER; VAR W:ARRNN; VAR ROUTE:ARRN; VAR PATH_WEIGHT:INTEGER);
VAR END1,END2,FARTHEST,I,INDEX,
INSCOST,J,MAXDIST,NEWCOST,NEXTINDEX :INTEGER;
CYCLE,DIST :ARRN;
BEGIN
FOR I:=1 TO N DO CYCLE[I]:=0;
CYCLE[S]:=S;
FOR I:=1 TO N DO DIST[I]:=W[S,I];
PATH_WEIGHT:=0;
FOR I:=1 TO N-1 DO
BEGIN
MAXDIST:=-INF;
FOR J:=1 TO N DO
IF CYCLE[J] = 0 THEN
IF DIST[J] > MAXDIST THEN
BEGIN
MAXDIST:=DIST[J]; FARTHEST:=J
END;
INSCOST:=INF; INDEX:=S;
FOR J:=1 TO I DO
BEGIN
NEXTINDEX:=CYCLE[INDEX];
NEWCOST:=W[INDEX,FARTHEST]+W[FARTHEST,NEXTINDEX]-
W[INDEX,NEXTINDEX];
IF NEWCOST < INSCOST THEN
BEGIN
INSCOST:=NEWCOST;
END1:=INDEX; END2:=NEXTINDEX
END;
INDEX:=NEXTINDEX
END; { FOR J }
CYCLE[FARTHEST]:=END2; CYCLE[END1]:=FARTHEST;
PATH_WEIGHT:=PATH_WEIGHT+INSCOST;
FOR J:=1 TO N DO
IF CYCLE[J] = 0 THEN
IF W[FARTHEST,J] < DIST[J] THEN DIST[J]:=W[FARTHEST,J]
END; { FOR I }
INDEX:=S;
FOR I:=1 TO N DO
BEGIN
ROUTE[I]:=INDEX; INDEX:=CYCLE[INDEX]
END
END;
 
 
procedure THREEOPT(N:integer; var W:ARRNN; var ROUTE:ARRN);
 
type SWAPTYPE =(ASYMMETRIC,SYMMETRIC);
SWAPRECORD=record
X1,X2,Y1,Y2,Z1,Z2,GAIN:integer;
CHOICE :SWAPTYPE
end;
var BESTSWAP,SWAP:SWAPRECORD;
I,INDEX,J,K :integer;
PTR :ARRN;
 
procedure SWAPCHECK(var SWAP:SWAPRECORD);
var DELWEIGHT,MAX:integer;
begin
with SWAP do begin
GAIN:=0;
DELWEIGHT:=W[X1,X2]+W[Y1,Y2]+W[Z1,Z2];
MAX:=DELWEIGHT-(W[Y1,X1]+W[Z1,X2]+W[Z2,Y2]);
if MAX > GAIN then begin
GAIN:=MAX; CHOICE:=ASYMMETRIC
end;
MAX:=DELWEIGHT-(W[X1,Y2]+W[Z1,X2]+W[Y1,Z2]);
if MAX > GAIN then begin
GAIN:=MAX; CHOICE :=SYMMETRIC
end
end
end;
 
procedure REVERSE(START,FINISH:integer);
var AHEAD,LAST,NEXT:integer;
begin
if START <> FINISH then begin
LAST:=START; NEXT:=PTR[LAST];
repeat
AHEAD:=PTR[NEXT]; PTR[NEXT]:=LAST;
LAST:=NEXT; NEXT:=AHEAD;
until LAST = FINISH
end { if START <> FINISH }
end; { RESERVE }
 
begin { MAIN BODY }
for I:=1 to N-1 do PTR[ROUTE[I]]:=ROUTE[I+1];
PTR[ROUTE[N]]:=ROUTE[1];
repeat { until BESTSWAP.GAIN = 0 }
BESTSWAP.GAIN:=0;
SWAP.X1:=1;
for I:=1 to N do begin
SWAP.X2:=PTR[SWAP.X1]; SWAP.Y1:=SWAP.X2;
for J:=2 to N-3 do begin
SWAP.Y2:=PTR[SWAP.Y1]; SWAP.Z1:=PTR[SWAP.Y2];
for K:=J+2 to N-1 do begin
SWAP.Z2:=PTR[SWAP.Z1];
SWAPCHECK(SWAP);
if SWAP.GAIN > BESTSWAP.GAIN then BESTSWAP:=SWAP;
SWAP.Z1:=SWAP.Z2
end; { for K }
SWAP.Y1:=SWAP.Y2
end; { for J }
SWAP.X1:=SWAP.X2
end; { for I }
if BESTSWAP.GAIN > 0 then
with BESTSWAP do begin
if CHOICE = ASYMMETRIC then begin
REVERSE(Z2,X1);
PTR[Y1]:=X1; PTR[Z2]:=Y2
end
else begin
PTR[X1]:=Y2; PTR[Y1]:=Z2
end;
PTR[Z1]:=X2;
end { with BESTSWAP }
until BESTSWAP.GAIN = 0;
INDEX:=1;
for I:=1 to N do begin
ROUTE[I]:=INDEX; INDEX:=PTR[INDEX]
end
end;
 
PROCEDURE TWOOPT( N:INTEGER; VAR W:ARRNN; VAR ROUTE:ARRN; VAR PATH_WEIGHT:INTEGER);
 
VAR AHEAD,I,I1,I2,INDEX,J,J1,J2,
LAST,LIMIT,MAX,MAX1,NEXT,S1,S2,T1,T2:INTEGER;
PTR :ARRN;
BEGIN
FOR I:=1 TO N-1 DO PTR[ROUTE[I]]:=ROUTE[I+1];
PTR[ROUTE[N]]:=ROUTE[1];
REPEAT { UNTIL MAX = 0 }
MAX:=0; I1:=1;
FOR I:=1 TO N-2 DO
BEGIN
IF I = 1 THEN LIMIT:=N-1
ELSE LIMIT:=N;
I2:=PTR[I1]; J1:=PTR[I2];
FOR J:=I+2 TO LIMIT DO
BEGIN
J2:=PTR[J1];
MAX1:=W[I1,I2]+W[J1,J2]-(W[I1,J1]+W[I2,J2]);
IF MAX1 > MAX THEN
BEGIN { BETTER PAIR HAS BEEN FOUND }
S1:=I1; S2:=I2;
T1:=J1; T2:=J2;
MAX:=MAX1
END;
J1:=J2
END; { FOR J }
I1:=I2
END; { FOR I }
IF MAX > 0 THEN
BEGIN { SWAP PAIR OF EDGES }
PTR[S1]:=T1;
NEXT:=S2; LAST:=T2;
REPEAT
AHEAD:=PTR[NEXT]; PTR[NEXT]:=LAST;
LAST:=NEXT; NEXT:=AHEAD
UNTIL NEXT = T2;
PATH_WEIGHT:=PATH_WEIGHT-MAX
END { IF MAX > 0 }
UNTIL MAX = 0;
INDEX:=1;
FOR I:=1 TO N DO
BEGIN
ROUTE[I]:=INDEX; INDEX:=PTR[INDEX]
END
END;
 
var
W :ARRNN=((0, 0, 0, 3, 3, 6),
(0, 0, 1, 4, 1, 0),
(1, 2, 0, 0, 0, 3),
(4, 5, 0, 0, 0, 3),
(4, 2, 0, 0, 0, 0),
(7, 1, 3, 3, 0, 0)
);
 
PATH_WEIGHT:integer;
ROUTE :ARRN;
i:integer;
begin
PATH_WEIGHT:=0;
for i:=1 to COUNT_POINTS do ROUTE[i]:=i;
FITSP(COUNT_POINTS,1,999999,W,ROUTE,PATH_WEIGHT);
TWOOPT(COUNT_POINTS,W,ROUTE,PATH_WEIGHT);
THREEOPT(COUNT_POINTS,W,ROUTE);
for i:=1 to COUNT_POINTS do write(inttostr(ROUTE[i])+'->');
write(inttostr(1)+' = '+inttostr(PATH_WEIGHT));
end;
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.06.2014, 08:44     Переделать программу с Паскаля на C++
Посмотрите здесь:

C++ переделать из турбо паскаля в Cи
Переделать прогу с паскаля в Вижуал C++
C++ Журнал успеваемости студенческой группы (переделать с Паскаля на С++)
C++ как переделать на с++? с паскаля
Переделать с паскаля на с++ C++
Переделать с Паскаля на С++ C++
Как переделать код из паскаля в с++ C++
C++ Переделать код программы с паскаля на с++

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

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

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