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

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

Восстановить пароль Регистрация
 
KObotan
0 / 0 / 0
Регистрация: 20.10.2010
Сообщений: 21
17.11.2010, 19:42     Перевести программу из QBasik #1
Столкнулся вот с такой программой, кто-нить переведите на с++
Код
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
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.11.2010, 19:42     Перевести программу из QBasik
Посмотрите здесь:

C++ Из Pascal в C++ программу перевести
C++ Перевести программу в С++
перевести программу на С++ C++
перевести программу на С++ C++
C++ Перевести программу с языка С++
C++ Перевести программу на сайт
C++ Перевести программу с Pascal на С++
Перевести программу на С++ C++

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

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

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