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

Перевод из Visual Basic в С++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Найти номера первых отрицательных элементов каждой строки матрицы http://www.cyberforum.ru/cpp-beginners/thread367327.html
В прямоугольной матрице, размерностью n*m, найти номера первых отрицательных элементов каждой строки (столбца).
C++ Вывести на экран таблицу функции Вывести на экран таблицу функции e^x/(x^2+y^2-1) при x =0(0,25)2; y=0(0,1)1 в скобках шаг http://www.cyberforum.ru/cpp-beginners/thread367318.html
Найти номера первых отрицательных элементов каждой строки матрицы C++
Задание 1 В прямоугольной матрице, размерностью n*m, найти номера первых отрицательных элементов каждой строки (столбца). Задание 2 Заданы 2 массива по N целых чисел. Найти наименьшее среди чисел 1-го массива, которое не входит во 2-ой массив (считая, что такое число есть). Задание 3 В строке символов поменять местами символы на четных и нечетных позициях.
C++ Нахождение стационарной точки
Вопрос в следующем: есть уравнение z=4*x-2 (4x-2); Нужно сделать что б z было = 0. В x должны подставляться разные значение,при которых z будет равен 0. и вывести это значение.(вывести x) то есть в z=4*x-2 это 1/2. значит ответ должен быть x = 1/2 (0.5) Пожалуйста подскажите как это делается на Си.
C++ маленький простенький вопросик... http://www.cyberforum.ru/cpp-beginners/thread367308.html
Здравствуйте ТоварисЧИ!!! есть маленький простенький вопросик по СИ: есть 2 функции func1, func2, в которых выполняется дофига других маленьких функций... можно ли как-нибудь очищать память по завершению работы каждой из функций, не вдаваясь в подробности, что в этих функциях происходит? вопрос принципиальный... в инете только примеры с массивами, переменными и т.д. и т.п.... может в книге...
C++ Помогите справится с ошибочкой Обычная реализация дека. Само по себе работает. Странно то, что если добавлять и удалять по одному элементу, как я записал, то программа вылетает с ошибкой. Как это исправить? #include <iostream> using namespace std; class Dek { private: int *mem,*head; int size,maxsize; подробнее

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

Перевод из Visual Basic в С++ - C++

16.10.2011, 19:14. Просмотров 845. Ответов 1
Метки (Все метки)

Здравствуйте. Прошу вашей помощи. Так как я VB не изучал.
Можите помочь перевести из Visual Basic в С++

Visual Basic
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
Sub ВолновоеУравнениеЯвнаяСхема()
Dim x() As Double, y() As Double, ynp1() As Double, ynm1() As Double
Dim h As Double, tau As Double, r As Double, a As Double
Dim hPr As Double, tauPr As Double, Tmax As Double, L As Double
Dim nn As Long, mm As Long, MPr As Long, a1 As Double, a2 As Double
Dim n As Long, m As Long, ngr As Integer
Dim t As Double, rr As Double, pi As Double
pi = Atn(1) * 4
’ Исходные данные для задачи
L = 1
a = 1 ’ Это скорость распространения волны
Tmax = 0.5 ’ Верхняя граница временной координаты
h = 0.01 ’ Это шаг по пространственной координате
r = 1 ’Параметр сетки
tau = r * h ’Это шаг по временной координате
hPr = 0.1 ’Шаг для вывода значений сеточной функции по координате x
tauPr = 0.1 ’ Это шаг вывода графиков по временной координате
’NPr = CLng(Tmax / tauPr) + 1 ’Число графиков
MPr= CLng(hPr/h) ’Через столько точек выводить результаты по оси Ox
mm = CLng(L/h) ’ Количество ячеек сетки по оси Ox
nn = CLng(Tmax/tau) ’Количество ячеек сетки по оси Ot
ReDim x(mm), y(mm), ynp1(mm), ynm1(mm) ’Размерность массивов
For m = 0 To mm
x(m) = h * m
’Подстановка начальных условий
’Нулевой временной слой
ynm1(m) = Sin(pi * x(m))
’Первый временной слой
y(m) = ynm1(m) + tau * 0.5 * Cos(0.5 * pi * x(m))
Next m
Dim NameSh As String ’Имя листа для вывода результатов и графиков
NameSh = "ВолновоеУравнение"
Sheets(NameSh).Select
Cells.Clear ’Очистить рабочий лист
Cells(1, 1) = "t\x"
Cells(2, 1) = "t=0"
ngr = 1 ’Номер текущего графика
For m = 0 To mm Step MPr
Cells(1, m \ MPr + 2) = CDbl(Format(x(m), "#0.00"))
Cells(ngr + 1, m \ MPr + 2) = CDbl(Format(ynm1(m), "#0.00"))
Cells(1, m \ MPr + 2).Interior.Color = RGB(220, 90, 220)
Next m
a1 = 2 * (1 - r ^ 2)
a2 = r ^ 2
For n = 2 To nn
t = tau * n
For m = 1 To mm - 1
ynp1(m) = a1 * y(m) + a2 * (y(m + 1) + y(m - 1)) - ynm1(m)
Next m
Call ГраничныеУсловияВолновое(ynp1, t, h, mm)
’Переставить активные временные слои для следующей итерации
For m = 0 To mm
ynm1(m) = y(m)
y(m) = ynp1(m)
Next m
’Записать решение на данном временном слое а
’Записываются с шагом tauPr
If Abs((ngr) * tauPr - t) < tau / 10 Then
ngr = ngr + 1
Cells(ngr + 1, 1) = "t=" + Format(t, "#0.00")
For m = 0 To mm Step MPr
Cells(ngr + 1, m \ MPr + 2) = CDbl(Format(y(m), "#0.00"))
Next m
End If
Next n
Range("a1:a" + Trim(Str(ngr + 1))).Interior.Color = _
RGB(220, 90, 220)
Dim NameDiagr As String ’Название диаграммы
NameDiagr = "Волновое уравнение"
Call ПостроитьГрафики(ngr, CInt(mm / MPr), NameSh, _
NameDiagr, 0, 1, 0, 1)
End Sub
Sub ГраничныеУсловияВолновое(ynp1() As Double, _
t As Double, h As Double, mm As Long)
Dim pi As Double
pi = Atn(1) * 4
ynp1(0) = 0 ’Левая граница
’Правая граница
ynp1(mm) = (ynp1(mm - 1) + h * _
0.1 * Sin(2 * pi * t)) / (1 + h)
End Sub
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru