Форум программистов, компьютерный форум, киберфорум
C++/CLI Windows Forms
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 19.05.2020
Сообщений: 1
1

Кубическое уравнение

20.05.2020, 22:25. Просмотров 332. Ответов 0
Метки c++ (Все метки)

Приветствую всех, я начинающий программист, довольно мало опыта в этой сфере. Не работает программа, возможно решение простое, но я его, к сожалению найти могу. Не определить в чем ошибка. Если кто-нибудь поможет найти ошибку, буду очень благодарен.


C++
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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
template <class Value>
int sign(Value Val) {
if (Val == 0.) return 0;
if (Val > 0.) return 1;
else return -1;
}
 
#pragma endregion
String^ gg;
private: System::Void Form1_Load(System::Object^ sender, System::EventArgs^ e) {
this->Text = "Решение Кубического Уравнения";
button1->Text = "Решить";
label1->Text = "X";
label2->Text = "3";
label3->Text = "+";
label4->Text = "X";
label5->Text = "2";
label6->Text = "+";
label7->Text = "X +";
label8->Text = "= 0";
label9->Text = "Введите коэффициенты";
label10->Text = "";
label11->Text = "";
label12->Text = "";
gg = Globalization::NumberFormatInfo::CurrentInfo->NumberDecimalSeparator;
}
 
private: System::Void textBox1_KeyPress(System::Object^ sender, System::Windows::Forms::KeyPressEventArgs^ e) {
bool TZFound = false;
if (Char::IsDigit(e->KeyChar) == true) return;
if (e->KeyChar == (char)Keys::Back) return;
if (textBox1->Text->IndexOf(gg) != -1)
TZFound = true;
if (TZFound == true) { e->Handled = true; return; }
if (e->KeyChar.ToString() == gg) return;
e->Handled = true;
}
 
 
private: System::Void textBox2_KeyPress(System::Object^ sender, System::Windows::Forms::KeyPressEventArgs^ e) {
bool TZFound = false;
if (Char::IsDigit(e->KeyChar) == true) return;
if (e->KeyChar == (char)Keys::Back) return;
if (textBox2->Text->IndexOf(gg) != -1)
TZFound = true;
if (TZFound == true) { e->Handled = true; return; }
if (e->KeyChar.ToString() == gg) return;
e->Handled = true;
}
 
 
private: System::Void textBox3_KeyPress(System::Object^ sender, System::Windows::Forms::KeyPressEventArgs^ e) {
bool TZFound = false;
if (Char::IsDigit(e->KeyChar) == true) return;
if (e->KeyChar == (char)Keys::Back) return;
if (textBox3->Text->IndexOf(gg) != -1)
TZFound = true;
if (TZFound == true) { e->Handled = true; return; }
if (e->KeyChar.ToString() == gg) return;
e->Handled = true;
}
 
 
private: System::Void textBox4_KeyPress(System::Object^ sender, System::Windows::Forms::KeyPressEventArgs^ e) {
bool TZFound = false;
if (Char::IsDigit(e->KeyChar) == true) return;
if (e->KeyChar == (char)Keys::Back) return;
if (textBox4->Text->IndexOf(gg) != -1)
TZFound = true;
if (TZFound == true) { e->Handled = true; return; } if (e->KeyChar.ToString() == gg) return;
e->Handled = true;
}
 
 
private: System::Void button1_Click(System::Object^ sender, System::EventArgs^ e) {
Single d, h, g, f;
 
Single D = Single::TryParse(textBox1->Text,
System::Globalization::NumberStyles::Number,
System::Globalization::NumberFormatInfo::CurrentInfo, d);
Single H = Single::TryParse(textBox2->Text,
System::Globalization::NumberStyles::Number,
System::Globalization::NumberFormatInfo::CurrentInfo, h);
Single G = Single::TryParse(textBox3->Text,
System::Globalization::NumberStyles::Number,
System::Globalization::NumberFormatInfo::CurrentInfo, g);
Single F = Single::TryParse(textBox4->Text,
System::Globalization::NumberStyles::Number,
System::Globalization::NumberFormatInfo::CurrentInfo, f);
 
 
long double Q, R, A, B, x1, x2, x3, t, a, b, c, m, k, k1;
a=h/d; b=g/d; c=f/d;
const float pi = 3.14;
Q=(pow(a, 2)-3*b)/9;
R=(2*pow(a, 3)-9*a*b+27*c)/54;
if(pow(R, 2)) {
t=acos(R/sqrt(pow(Q,3)))/3;
x1=-2*sqrt(Q)*cos(t)-a/3;
x2=-2*sqrt(Q)*cos(t+(2*pi/3))-a/3;
x3=-2*sqrt(Q)*cos(t-(2*pi/3))-a/3;
label10->Text = String::Format("x1 = {0:F2}", x1);
label11->Text = String::Format("x2 = {0:F2}", x2);
label12->Text = String::Format("x3 = {0:F2}", x3);
}
else
{
A=-sign(R)*pow((long double)(fabs(R)+sqrt(pow(R, 2)-pow(Q, 3))), (long double)1/3);
B = sign(A) == 0 ? 0 : Q/A;
x1=(A+B)-a/3;
m=-(A+B)/2-a/3;
k=pow(3,0.5)*(A-B)/2;
if (k<0)
{
k1=-1*k;
label10->Text = String::Format("x1 = {0:F2}", x1);
label11->Text = String::Format("x2 = {0:F2} - {1:F1}*i", m ,k1);
label12->Text = String::Format("x3 = {0:F2} + {1:F1}*i", m, k1);
}
else
{
label10->Text = String::Format("x1 = {0:F2}", x1);
label11->Text = String::Format("x2 = {0:F2} + {1:F1}*i", m ,k);
label12->Text = String::Format("x3 = {0:F2} - {1:F1}*i", m, k);
}
}
 
};
}
0
Миниатюры
Кубическое уравнение  
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.05.2020, 22:25
Ответы с готовыми решениями:

Кубическое уравнение
9x/(8x2-50) -1/x=5/(5x-2x2) У меня выходит кубическое уравнение: 2x3+35x2+100x-500=0 Но как его...

Кубическое уравнение
Здравствуйте!!!! Помогите, пожалуйста, может это и глупый вопрос. надо решить кучическое...

Кубическое уравнение
Доброе время суток! Помогите с заданием пожалуйста(по поиску не нашел подобного задания), вот: ...

Кубическое уравнение
Натолкните на мысль, с чего начать решение: 3х3-10х2+9х-2=0

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.05.2020, 22:25

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Кубическое уравнение
2x^3 - x^2 - 10x + 1 = 0 Помогите, пожалуйста, понять как решать оО Безу и Кардано не канают...

Кубическое уравнение
Дано кубическое уравнение ax3+bx2+cx+d=0(a=0) . Известно, что у этого уравнения ровно один корень....

Кубическое уравнение
Подскажите плиз решение z3+(2+21/2i)7/(i11(-6+2*31/2i)13)=0 мне нужно название уравнения или...

кубическое уравнение
вообщем помогите пожалуйста решить кубическое уравнение /* Cubic equation solution. Real...

Кубическое уравнение
Есть некое уравнение - t^3 + 17t^2 - 7t = d, то бишь t^3 + 17t^2 - 7t - d = 0 d задается. Как...

кубическое уравнение
Помогите пожалуйста решить уравнение 3x^3 - 6x^2 + 3x = 0.271


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

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

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