1 / 1 / 0
Регистрация: 24.09.2012
Сообщений: 40
1

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

26.05.2014, 19:29. Показов 418. Ответов 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
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.05.2014, 19:29
Ответы с готовыми решениями:

Решение системы нелинейных уравнений
Никак не могу разобраться с написанием программы на с++, которая бы решала систему нелинейных...

Решение системы нелинейных уравнений
найти решения уравнения графическим методом и методом поиска решений {cos(y+0,5)+x=0,8; {...

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

Найти решение системы нелинейных уравнений
помогите пожалуйста с решением данной системы уравнений: sin(x1+x2)=1.5x1-0.2, x1^2+x2^2=1

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.05.2014, 19:29
Помогаю со студенческими работами здесь

Решение системы нелинейных уравнений методом Ньютона (С/С++)
Здравствуйте! Помогите пожалуйста написать программу :cry: У меня есть система из 2х уравнений...

Решение системы нелинейных уравнений методом ньютона
Доброго времени суток.В общем, нужно решить систему нелинейных уравнений методом ньютона: sin(x -...

Решение системы нелинейных уравнений методом Ньютона и итераций
Привет. Нужно решить снар на вчера. Гуглить пытался, но чёт не хватает навыков для использование...

Решение системы из двух нелинейных уравнений методом Ньютона
Помогите,мне надо создать программу для решения системы из двух нелинейных уравнений методом...

Решение системы нелинейных уравнений методами Ньютона и простых итераций
Написать программу решения системы нелинейных уравнений {y^3-x^2=1; ...

Решение нелинейных уравнений
Нужно две программы по блок схемам на картинках , которые решают данное уравнение x^3+3x^2+6x-1=0...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru