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

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

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

решение системы нелинейных уравнений - C++

26.05.2014, 19:29. Просмотров 132. Ответов 0
Метки нет (Все метки)

помогите переделать код в с++ или паскаль, пожалуйста. программа должна решать систему нелинейных уравнений и делать проверку.

Const Pi As Double = 3.14159265358979
Dim i As Integer, error As Integer
Dim x As Double, y As Double, ur1 As Double, ur2 As Double

Private Sub Form_Load()

End Sub

Private Sub proverka_Click()
k = Round(((koef(0).Text) * Cos(znachX.Caption) + (koef(1).Text) * Sin(znachY.Caption)))

If (k = koef(2).Text) Then
Label8.Caption = k
End If
If (k <> koef(2).Text) Then
Label8.Caption = koef(2).Text
End If
m = Round(((koef(3).Text) * Cos(znachY.Caption) + (koef(4).Text) * Sin(znachX.Caption)))
If (m = koef(5).Text) Then
Label9.Caption = m
End If
If (m <> koef(5).Text) Then
Label9.Caption = koef(5).Text
End If

End Sub

Private Sub resh_Click()
Dim x1 As Double, y1 As Double
error = 13
For x = 0 To 360
x1 = (x * Pi) / 180
For y = 0 To 360
y1 = (y * Pi) / 180
A = (CDbl(koef(3).Text) * Cos(y1) + CDbl(koef(4).Text) * Sin(x1) - CDbl(koef(5).Text))
B = (CDbl(koef(0).Text) * Cos(x1) + CDbl(koef(1).Text) * Sin(y1) - CDbl(koef(2).Text))
If (Abs(B) < CDbl(pogresh.Text)) Then
If (Abs(A) < CDbl(pogresh.Text)) Then
error = 1
znachX.Caption = x
znachY.Caption = y
error = MsgBox("Ответ: x=" + CStr(x) + "; y=" + CStr(y), vbOKOnly, "Ответ")
Exit Sub
End If
End If
Next
Next
If (error = 13) Then
error = MsgBox("Решение не найдено", vbOKOnly + vbCritical, "Ошибка")
End If
End Sub
Private Sub exit_Click()
End
End Sub
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2014, 19:29     решение системы нелинейных уравнений
Посмотрите здесь:

Решение системы из четырех нелинейных уравнений c++ - C++
Нужно решить системы из четырех нелинейных уравнений. Метод не важен, главное результат. Известно только k1 и k2. Вот сама система: ...

Решение системы уравнений - C++
a1x+b1y+c1=0 a2x+b2y+c2=0 Вывести решение системы (два числа – x и y) с шестью знаками после запятой. Если единственного решения не...

Решение Системы уравнений - C++
У меня задача - решать систему уравнений. матрица системы имеет порядок 3600. В будущем придется решать системы порядка 100 000. Мне дана...

Решение системы линейных уравнений. - C++
\begin{cases} &amp; \text{ } cos(ax+2)...... x&gt;2 \\ &amp; \text{ } tg |x-2a| .... .. x\leq 2 \end{cases} x а h по а = 0.2 ...

Найти решение системы уравнений - C++
Здравствуйте. Помогите, пожалуйста, составить программу. Найти решение системы линейных уравнений вида A1·x + B1·y = C1, A2·x + B2·y =...

Решение системы алгебраических уравнений - C++
Доброго времени суток, форумчане :) Помогите пожалуйста решить задачу: Найти корни системы линейных алгебраических уравнений...

Решение системы линейных уравнений - C++
Помогите решить на Си

Решение системы линейных уравнений - C++
Не могу сделать прогу на С++. Кто сделает - огромное спасибо. Решить систему линейных уравнений 3x-5y+2z=2, 3x-7y+2z=0, x+5y-4z=-2

Решение системы линейных уравнений - C++
Компилятор wxDev-c++. Ошибка:C:\Program Files\Dev-Cpp\çàäà÷è\ãëàâà1\Ïåðâàÿ çàäà÷à\Makefile.win Error 1 #include &lt;cstdlib&gt; #include...

Решение системы тригонометрических уравнений - C++
Здравствуйте, форумчане! С наступающим новым годом) Возник вопрос: какими методами можно решить следующую систему уравнений, используя...


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

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

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