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

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

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

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

26.05.2014, 19:29. Просмотров 135. Ответов 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
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2014, 19:29
Здравствуйте! Я подобрал для вас темы с ответами на вопрос решение системы нелинейных уравнений (C++):

Решение системы нелинейных уравнений - C++
найти решения уравнения графическим методом и методом поиска решений {cos(y+0,5)+x=0,8; { sinx-2y=1,6. P.S. только там скобка...

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

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

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

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

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

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.05.2014, 19:29
Привет! Вот еще темы с ответами:

Решение нелинейных уравнений - C++
Реализуйте алгоритмы методов нахождения корней нелинейного уравнения заданного согласно варианту и вычислите все его корни в заданном...

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

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

Решение систем нелинейных уравнений - C++
Решение систем не линейных уравнений с использованием различных численных методов


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

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

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