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

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

Войти
Регистрация
Восстановить пароль
 
KObotan
0 / 0 / 0
Регистрация: 20.10.2010
Сообщений: 21
#1

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

17.11.2010, 19:42. Просмотров 248. Ответов 0
Метки нет (Все метки)

Столкнулся вот с такой программой, кто-нить переведите на с++
Код
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++):

Перевести программу из С в С++ - C++
Что следует изменить помимо операторов ввода-вывода? Пожалуйста, помогите!#include &lt;stdio.h&gt; #include &lt;locale.h&gt; #include &lt;stdlib.h&gt; ...

перевести программу на С++ - C++
вот условие: Дано натуральное число. а)-верно ли, что сумма его цифр меньше А? б)-верно ли, что произведение его цифр больше B? ...

Перевести программу на С++ - C++
нужно перевести в с++ Дан текст, в котором имеются цифры. а) Найти их сумму. б) Найти максимальную цифру var s: string; ...

перевести программу на С++ - C++
помогите перевести программу с паскаля на С++. uses crt; var i,n:integer; a1,a2,a,eps:real; l:boolean; begin ...

Перевести программу в С++ - C++
Вот это нужно оформить в C++ #include &lt;cstring&gt; #include &lt;iostream&gt; using namespace std; bool orly(char *s, char *f) { ...

Перевести программу C# в С++ - C++
Добрый вечер. Написал программу на языке C#, но сдать ее нужно на языке С++. Несколько попыток перевести программу самостоятельно были...

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

Перевести программу из C++ в Си - C++
#include &lt;iostream&gt; int main() { int size=3; int max_size=size+(size-1); int**pMagic_square = new int*; ...

Перевести в программу dev c++ - C++
. uses crt; var n,s:integer; begin clrscr; repeat write('Введите трехзначное число n='); readln(n); until(n&gt;99)and(n&lt;=999); ...

Перевести программу с Pascal на С++ - C++
нужно код с паскаля подогнать под код с++ var a,s:integer; begin clrscr; write('vvedite chislo: '); readln(s); repeat a:=s; ...

Перевести программу с Pascal на С++ - C++
нужно код с паскаля подогнать под код с++ var first, second: string; chars: set of char; i: integer; begin ...


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

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

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