حل دستگاه

[ehsanocx]

دوستان این دستگاه رو چطوری می تونم حل کنم؟
49231

من مقدار p و q رو دارم . میشه راهنماییم کنید ؟

(p = x + Sqr(y
q = Sqr(x) + y

میشه مقدار 2تا عدد رو داشت این دستگاه رو حل کرد ؟

[ehsanocx]

من مقدار p و q رو دارم .
چطوری می تونم مقدار x , y رو بدست بیارم به وسیله p و q ؟
ممنون میشم راهنماییم کنید

[ehsanocx]

d1 = x + Sqr(y)
pn = Sqr(x) + y

(List4.AddItem (pn & " - " & d1

این رو نوشتم برای حل این دستگاه اما تا می زنم vb هنگ می کنه انگار

Dim d1, d2, d3, mod1, temp, pn As Integer, test As Boolean
Dim L(1000) As Integer

Private Sub cmdFirst_Click()
pn = 1
List1.Clear
d2 = 0
d3 = 0

mod1 = 1
test = False
'=========================================
( For d1 = 2 To Val(txtN.Text
(d2 = Int(d1 \ 2
For d3 = 2 To d2
mod1 = d1 Mod d3
If mod1 = 0 Then
test = True
End If
Next d3
'========================================
If test = False Then
List1.AddItem d1
List2.AddItem (d1 - pn) - 1
(If (d1 - pn - 1) = 1 Then List3.AddItem (pn & " - " & d1

(d1 = x + Sqr(y
pn = Sqr(x) + y

( List4.AddItem (pn & " - " & d1

pn = d1

ElseIf test = True Then
test = False
End If
Next d1

[MMR_1344]

دوست عزیز
سلام در درس محاسبات عددی روشهای مختلفی برای محاسبه اينچنین معاذلاتی وجود داره که از اون میشه استفاده کرد به عنوان مثال تو میتونی از یکی از معادلات مقدار X رو بر حسب Y بدست بیاری و در معادله دوم قار بدی حال یک معادله و یک مجهول داری که میتونی اون رو با روشهای مختلف مانند نیونتون و ... حل کنی اگر این درس رو بخونی به شما کمک میکنه

[nima898]

به این معادله رسیدم نمیدونم چطور حل میشه


z^4-2pz^2+z+p^2-q=0

[kuh_nur]

z^4-2pz^2+z+p^2-q=0
دوست عزیز سلام
ترتیب اولویت عملگر ها در برنامه نویسی رو باید مد نظر داشته باشی
مثلا اول باید عملگر هایی مثل توان و پرانتز بعد ضرب و تقسیم بعد جمع و تفریق و . . . رو باید محاسبه کرد

[nima898]

دوست عزیز سلام
ترتیب اولویت عملگر ها در برنامه نویسی رو باید مد نظر داشته باشی
مثلا اول باید عملگر هایی مثل توان و پرانتز بعد ضرب و تقسیم بعد جمع و تفریق و . . . رو باید محاسبه کرد
باسلام
اولویت عملگرها مشکلی نداره فقط دو تا کاراکتر "*" باید درج میکردم :

z^4-2*p*z^2+z+p^2-q=0
البته این معادله یک قطعه کد نیست بلکه یک معادله هست که باید حل بشه بعد کدش نوشته بشه

[ehsanocx]

نیما جان میشه بیشتر توضیح بردی ؟ یعنی دستگاه بالا رو از این فرمول حل کنم؟

[ehsanocx]

با سلام
دوستان من یک برنامه نوشتم میشه ببینید ایرادش کجاست؟
این دستگاه به این صورته که 2تا مقدار p و q داریم.
p بزرگتر از q است. از 0 تا مقدار p هرچی عدد کامل هست رو نمایش میده توی لیست باکس. حالا این اعداد کامل رو باید به جای x و y درون دستگاه قرار بدیم . اگر حاصل جمع این x و y ها با مقدار p ,و q برابر بود اون ها رو توی یک لیست باکس دیگه نمایش بده .
هر کار می کنم پس از چک کردن مقدار x و y با p و q مقادیر برابر رو توی لیست باکس دیگه نمایش نمیده:ناراحت:

()Private Sub cmdKhaiam_Click
List1.Clear
Dim X, Y, P, q, i, j, S1, S2, Sum As Long
(P = Val(txtP
(q = Val(txtq

Y = 1
For i = 1 To P


If P > q Then

(Sum = Val(i * i
X = Sum




(S1 = X + Sqr(Y
S2 = Sqr(X) + Y





( If Sum <= P Then List1.AddItem (Sum) '& "-" & q



(If S1 = P & S2 = q Then List2.AddItem (S1 & "-" & S2

Y = X


End If
Next i



End Sub

[ehsanocx]

مثلا مقدار q=7 و p=11
از 0 تا 11 اعداد کامل 1 ،9،4 هستن ، تک ، تک این اعداد کامل رو توی متغییر های x , Y می ریزه
و چک می کنه
مثلا 9 و 1 نمیشه ، 4 ,1 نمیشه الی آخر


(S1 = X + Sqr(Y
جذر 9 میشه 3
4+3 میشه 7
مقدار 7 رو میریزه توی S1

S2 = Sqr(X) + Y
جذر 4 میشه 2
مقدار 2+9 میشه 11
مقدار 11 رو میریزه توی s2

در نتیجه مقدار s1 ,S2 با P ,q برابر در نتیجه مقدار p , q رو توی لیست باکس نمایش میده

دوستان کسی می تونه راهنمایی کنه و ایرادمو بگیره ممنون میشم با تشکر

[ehsanocx]

ممنون میشم اگر کسی راهنمایی کنه؟