Перевести программу из QBasik на С++

[sigmanen]

10 DIM P(301), A(3, 3)
15 OPEN "MK.txt" FOR INPUT AS #1
20 FOR I = 1 TO 301
25 INPUT #1, P(I)
30 NEXT I
32 CLOSE #1
33 OPEN "MK1.txt" FOR OUTPUT AS #1
34 INPUT S
36 A(2, 2) = S / 3: Z = 2 * A(2, 2)
40 FOR I = 1 TO 301
45 K = Z - P(I)
50 IF K < 5 THEN 505
55 IF K = P(I) THEN 500
100 FOR T = 1 TO 301
105 IF K = P(T) THEN 120
110 NEXT T
115 GOTO 505
120 FOR L = 1 TO 301
122 IF L = I THEN 500
124 F = S - P(L) - P(I)
126 IF F < 5 THEN 500
128 FOR T = 1 TO 301
130 IF F = P(T) THEN 135
132 NEXT T
133 GOTO 500
135 B = Z - F
137 IF B < 5 THEN 500
138 IF B = F THEN 500
140 FOR T = 1 TO 301
142 IF B = P(T) THEN 155
145 NEXT T
150 GOTO 500
155 C = Z - P(L)
160 IF C < 5 THEN 500
162 IF C = P(L) THEN 500
165 FOR T = 1 TO 301
170 IF C = P(T) THEN 180
172 NEXT T
175 GOTO 500
180 D = S - P(L) - B
182 IF D < 5 THEN 500
184 FOR T = 1 TO 301
186 IF D = P(T) THEN 190
188 NEXT T
189 GOTO 500
190 E = Z - D
192 IF E < 5 THEN 500
193 IF E = D THEN 500
194 FOR T = 1 TO 301
196 IF E = P(T) THEN 205
198 NEXT T
200 GOTO 500
205 A(1, 1) = P(L): A(1, 2) = P(I): A(1, 3) = F: A(2, 1) = D: A(2, 3) = E
207 A(3, 1) = B: A(3, 2) = K: A(3, 3) = C
210 FOR X = 1 TO 3
215 FOR Y = 1 TO 3
220 PRINT A(X, Y);
222 PRINT #1, A(X, Y);
225 NEXT Y
230 PRINT : PRINT #1,
235 NEXT X
240 PRINT
245 PRINT S: PRINT #1, S
250 PRINT : PRINT #1,
500 NEXT L
505 NEXT I
600 END

[Syuf]

Вам скорее во фриланс, хотя программа небольшая может кто и переведет.
Не могли бы вы ответить, если не трудно, а то интересно, что это за циферки слева? Не сильно похожи на номера строк.

[Stilet]

Не сильно похожи на номера строк.

И тем не менее это и есть номера строк, а точнее номера-метки операторов, ибо в QBasic GoTo переходы именно по номерам делались.

[Syuf]

А что эти номера не через один идут, а через шаги 2-5 с перебежками по 250?

[sergey.d]

Номера-метки не обязательно должны быть последовательными. Нумеруют с некоторым шагом, дабы облегчить вставку строк при необходимости

Для полноты счастья неплохо бы пример входного файла привести, который MK.TXT по тексту программы

[sergey.d]

Попробую поискать конвертер

Вот: http://sourceforge.net/projects/qbasictoc/