حل معادلات المضروب؟؟؟

أخى العزيز

السلام عليكم ورحمة الله وبركاته

حل معادلة المضروب يكون بالكود التالى

	 Dim Y As Variant
Dim I As Integer
Dim N As Single

()Private Sub Command1_Click
	   ("أدخل قيمة ناتج المضروب")N = InputBox

	If N < 1 Then GoTo 100
	If N = 1 Then
	Print "X="; 0, "OR				  X="; 1
	GoTo 300
	End If
	Y = 1
	For I = 2 To 50
	Y = Y * I
	If Y > N Then GoTo 100
	If Y = N Then GoTo 200
	Next I
  "ليس للمعادلة حل"100MsgBox
	GoTo 300
  200PRint "X="; I
 300End Sub

السلام عليكم

الظاهر إنكم فهمتوني غلط :)

@ dr_abdalrhman

هو الحقيقة أنا مش عايز خوارزم يحسب المضروب أنا عايز أحسب إزاي لو عندي المضروب أعرف أجيب العدد بتاعه

@ islam_base

هو الخوارزم سهل و معروف فمش ده إللي عايزه

أنا عايز بالظبط formula أحسب بيها على طول العدد الأصلي لو كان عندي المضروب بتاعه لو كانت موجودة

بالإضافة برضه لحل المعادلة x log x = n أو x ^ x = n

لاحظوا إني مش عايز أي كود أو خوارزم :) أنا بتكلم عن حل رياضي ...

@dr_abdalrhman

مثال مثلا

لو عندي 1*2*3 = 6

يبقى العلاقة المفروض تاخد 6 ك input و تطلع 3

أو 1 * 2 *3 *4 = 24

يبقى تاخد 24 ك input و تطلع 4

يعني إعتبرها دالة عكسية للمضروب

الأخ عماد الخليل

هي المعادلة الأصلية كانت x log x = n و أنا إللي حولتها ل x ^ x = m كمحاولة لحلها لكن برضه معرفتش

طيب إزاي أحلها بالتقريب يعني إيه أسلوب الحل إللي يديني ناتج تقريبي ...

الأخusama fayez

هذه المعادلة لا يوجد لها حل رياضى كما تريد

انما حلها لا يكون الا بالتعويض عن قيمة X وحساب قيمة المضروب والتجربة عدة مرات حتى تصبح قيمته مساوية لقيمة N

أى أن الحل فى هذا البرنامج الذى ذكرته لك فى البداية بلغة VB أو بنفس البرنامج بأى لغة أخرى

شكرا للأخ إسلام و الأخ عماد

هو فعلا باين إن مفيش حل ليها بالanalytic methods

فحشوف ال Numerical analysis

و السلام عليكم