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

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

Восстановить пароль Регистрация
Другие темы раздела
C++ Ввод строки и импорт из файла http://www.cyberforum.ru/cpp-beginners/thread1188986.html
Задание: Нужно составить всевозможные тройки из Ф.И.О. #include <iostream> #include <conio.h> #include <cstring> #include <string> using namespace std; int main() { setlocale(LC_ALL, "Russian");
C++ Нужно создать класс С,наследующий классы A и B class A { int x; int a; A() { x=1; } } class B http://www.cyberforum.ru/cpp-beginners/thread1188982.html
Системы счисления, обратный и дополнительный код C++
НЕ ЗА ПРОСТО ТАК!!!!!пользователь вводит два числа (целых, со знаком) в любой системе счисления (2-16), прорамма должна перевести эти числа сначала в десятичную запись, потом в двоичную. дальше надо преобразовать их в обратный ИЛИ доп. код и в таком виде сложить эти числа. ответ должен быть выведен в той системе счисления (2-16), какую захочет снова-таки пользователь. Для упрощения можно...
C++ Переписать функцию, добавив параметр
Нужна срочно помощь. Необходимо переписать функцию, что балы с параметром. struct Service { char S_Name; char S_Code; float price; int days; };
C++ Упорядочить первые n элементов данного ряда в порядке возрастания http://www.cyberforum.ru/cpp-beginners/thread1188959.html
Упорядочить первые n элементов данного ряда в порядке возрастания. Напечатать эти элементы в порядке убывания .
C++ Символьные строки и обработка Найти последнюю самую длинную подстроку в файле input.txt, которая входит в первую строку максимальное число раз, а во вторую в виде разбиения на две переставленные части(input.txt создаем сами отдельно). помогите пожалуйста решить подробнее

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

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
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 22:49. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru