Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Csacsa
1 / 1 / 0
Регистрация: 24.09.2012
Сообщений: 40
1

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

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

помогите переделать код в с++ или паскаль, пожалуйста. программа должна решать систему нелинейных уравнений и делать проверку.
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
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:28
Ответы с готовыми решениями:

Решение системы уравнений
Дана система вида a1*tgx+b1*cosy=c1 a2*cosx+b2*siny=c2 Необходимо написать программу,...

Решение системы уравнений
Дана система вида Необходимо написать программу, решающую эту систему в зависимости от значений...

Решение системы уравнений
Решить систему уравнений методом перебора: y=3-sin(x)...

Решение системы из 2-х уравнений типа y=kx+b
написать программу решения системы из 2 -х уравнения типа у=kx +и где k и b коэффициенты которые...

Решение системы линейных уравнений методом простых итераций
Доброго времени суток, дорогие друзья. У меня задание, написанное в заголовке. Код ругается на...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.05.2014, 19:28

Решение системы уравнений методом Гаусса и ошибка переполнения (Overflow)
Нужно было составить прогу решения системы уравнений методом Гаусса, выдаёт эту ошибку в выделенной...

Решение системы двух уравнений с двумя неизвестными по теме матричные игры
В общем, после пары лекций и лабораторных работ вида- смотри в методичку и делай что написано по...

Решение системы уравнений методом простых итераций и методом Зейделя
Метод Итераций Private Sub Command4_Click() 'Ìåòîä ïðîñòûõ èòåðàöèé Dim eps As Integer, niter...


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

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

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