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

Перевод из одного языка в другой. - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Что будет? http://www.cyberforum.ru/cpp-beginners/thread377267.html
Что будет если пару раз вызвать вот такую штуку? mLastTrack->sampleTable = new SampleTable(mDataSource); Спасибо!
C++ циклы вопрос Запишите цикл, который суммирует первые 100 натуральных чисел, каждый раз меняя знак числа: 1, -2, 3, -4 и т.д. : a) используя for; b) используя while; c) используя do-while. не могу понять как в цикле можно такое записать http://www.cyberforum.ru/cpp-beginners/thread377260.html
расчет площади треугольника C++
Всем доброго времени суток! прошу помочь с заданием: Создать класс Triangle. Защищенные элементы класса - координаты трех точек: x1,y1; x2,y2; x3,y3 вещественного типа. Обеспечить следующие функции класса: конструктор по умолчанию, в котором объект класса инициализируется след. значениями: x1=y1=0.0; x2=y2=1.0; x3=1.0; y3=0.0 . конструктор с параметрами, которые инициализируют...
C++ Мьютексы
Здравствуйте.. У Меня задача синхронизовать потоки,которые "делят "между собой какой-нибудь ресурс. Допустим проходят массив от 0 -10. то есть есть рандомная очередь из 2-х потоков..например 121122 где 1 -это первый поток а 2-второй соответственно.. и пока 1 поток проходит по массиву второй ждет..потом второй проходит а первый ждет..и так проходит вся очередь..до самой задачи мне далеко.. не...
C++ Задано две матрицы http://www.cyberforum.ru/cpp-beginners/thread377229.html
найти АхВ результат скалярно умноженых матриц оформить как функцию на фото матрицы А и В
C++ Найти те числа последовательности, которые при делений на 7 дают остаток 1,2 или 5 1)Даны натуральные числа n,q1....qn.Найти те числа q1 последовательности q1...qn которые при делений на 7 дают остаток 1,2 или 5. 2)while Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления. 3)while Дано целое число N (> 0). С помощью операций деления нацело и взя- тия... подробнее

Показать сообщение отдельно
Flammed
1 / 1 / 0
Регистрация: 11.12.2010
Сообщений: 76
03.11.2011, 16:39     Перевод из одного языка в другой.
Здравствуйте, всем,нужна небольшая помощь с кодом... т.к. C++ уже почти забыт а Visual Basic не учил...
С++ учил в прошлом году и больше с ним не работал, а сейчас дали задание и ничего сделать не могу...
нужно перевести код из Visual Basic в Visual Studio 2005(2008) года.




вот код
PureBasic
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
--------Ввод коэффициентов системы--------------------------
10 PRINT "Задайте порядок системы": INPUT n
20 DIM a(n, n), b(n), x(n)
30 FOR i = 1 TO n: FOR j = 1 TO n: PRINT "a("; i; ","; j;")=?"
40 INPUT a(i, j): NEXT j: PRINT "b("; i; ")=?": INPUT b(i): NEXT i
--------Прямой ход Гаусса-----------------------------------------
60 FOR i = 1 TO n - 1
--------Выбор ведущего элемента-------------------------------
65 m = i:FOR j = i + 1 TO n
70 IF ABS(a(m, i)) < ABS(a(j, i)) THEN m = j
75 NEXT j
-------Перестановка строк---------------------------------------
80 FOR k = i TO n: с = a(m, k): a(m, k) = a(i, k):a(i, k)=c: NEXT k
90 с = b(m): b(m) = b(i): b(i) = с
-------Исключение коэффициентов в j-м столбце----------
100 FOR j = i + 1 TO n: с = -a(j, i) / a(i, i): FOR k = i+1 TO n
105 a(j, k) = a(j, k) + с * a(i, k)
110 NEXT k: b(j) = b(j) + с * b(i): NEXT j: NEXT i
-------Обратный ход Гаусса--------------------------------------
120 x(n) = b(n) / a(n, n): FOR i = n - 1 TO 1 STEP -1: FOR k = i + 1 TO n
135 b(i) = b(i) - x(k) * a(i, k)
140 NEXT k: x(i) = b(i) / a(i, i): NEXT i
-------Печать результатов---------------------------------------
150 FOR i = 1 TO n: PRINT "x("; i; ")="; x(i): NEXT i
170 END

Заранее огромное спасибо
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 03:12. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru