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

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

Восстановить пароль Регистрация
 
Csacsa
1 / 1 / 0
Регистрация: 24.09.2012
Сообщений: 40
26.05.2014, 19:29     решение системы нелинейных уравнений #1
помогите переделать код в с++ или паскаль, пожалуйста. программа должна решать систему нелинейных уравнений и делать проверку.

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++ Решение нелинейных уравнений и систем
C++ Решение нелинейных уравнений
C++ Решение нелинейных уравнений
C++ Решение системы нелинейных уравнений
C++ Решение системы из четырех нелинейных уравнений c++
C++ Решение системы из двух нелинейных уравнений методом Ньютона
C++ Решение системы нелинейных уравнений методом Ньютона (С/С++)

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

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

Текущее время: 23:20. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru