ارجو منكم اخوانى الكرام حل هده المسائلة بلغة الفيجويل بيسك
y=e^x1*cos(x2(
وشكرا لكم أحبائى
مسألة حسابية (y=e^x1*cos(x2 اريد حلا لها
مغلق
اخي ااستخدم الدوال الرياضية
إن شاء الله سوف أقوم حلها
بارك الله فيك اخى ماجد بس ياريت اعرف كيف ابرمجها حاولت بشتى الطرق
لكن دون جدوى
اخى الفاضل ممكن تتاكد
لكن عملت قيمة e=15.6هل هدا صحيح؟
Private Sub Command1_Click()
Dim A As Integer, X As Integer
e! = 15.6
' e=15.6 yas or no?
X1 = InputBox(" x1")
X2 = InputBox(" x2")
X = Cos(X2)
Debug.Print "cos=", A
y = e ^ X1 * Cos(X2)
Print y
End Sub
y = e ^ X1 * Cos(X2)
هاى المعادلة اخى الفاضل
هذا الموضوع مغلق.