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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ коспилирование без bds с ++2006 http://www.cyberforum.ru/cpp-beginners/thread192884.html
подскажите как прокомпелировать чтоб не требывал установленый борланд Добавлено через 1 час 29 минут подскажите как прокомпелировать чтоб не требывал установленый борланд все сделал
C++ Описать программу Нужно на словах описать каждую строчку программы я начал делать только до конца не как не получаеться #include <stdio.h> #include <conio.h> #include <iostream> #include <math.h> #define E 2.718281828 (это объявление константы, Е- это значение постоянной) const double e= 0.00001; (формат числа с плавающей запятой) http://www.cyberforum.ru/cpp-beginners/thread192873.html
C++ перевод блок-схемы/дерева решений в исходный код
Нашел множество программ для созданий блок-схем по исходному коду. Существуют ли программы для обратного преобразования? Собрал блок-схему их готовых блоков, подставил имена переменных и она выдала исходник. Вообще нужно реализовать запутанное дерево решений. Если писать все через for или case легко совершить ошибку. В графическом представлении всяко легче отследить недочеты.
C++ Оператор case switch
можно ли в Си, ввести оператор выбора так, чтобы проверялось не точное совпадение, а проверялось входит ли переменная в заданный интервал ?
C++ Двумерная оптимизация http://www.cyberforum.ru/cpp-beginners/thread192851.html
Добрый вечер. Простите за навязчивость или наглость, но хотел бы попросить помощь знающих. На днях задали парочку задачек, которые необходимо реализовать на языке С++. Проблема в том, что даже ума не могу приложить с чего начинать и как делать. В общем вот задание. Целевая функция без ограничений. (как я понял я могу сам задавать ограничения) Найти минимум функции такими методами:...
C++ Borland C++ Матрицы Помогите написать программу: Задана квадратная матрица A размером N x N (N<=10), состоящая из действительных элементов. Найти, сколько отрицательных элементов содержит данная матрица в каждом столбце подробнее

Показать сообщение отдельно
KObotan
0 / 0 / 0
Регистрация: 20.10.2010
Сообщений: 21

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

17.11.2010, 19:42. Просмотров 246. Ответов 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
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru