واضح آرشیو وب فارسی:سایت ریسک: فاکتوریل و میانگین در ویژوال بیسیک Allahparast 02 بهمن 1387, 20:33سلام دوستان خواهشا یکی کمک کنه فاکتوریل و میانگین ارقام رو می خوام بگیرم کمک mehrangol 02 بهمن 1387, 21:53سلام برای گرفتن فاکتوریل بهترین راه استفاده از توابع بازگشتی است. برای گرفتن میانگین هم که ساده است مجموع اعداد تقسیم بر تعداد اعداد! mehrangol 02 بهمن 1387, 22:00سلام برای گرفتن فاکتوریل بهترین راه استفاده از توابع بازگشتی است. برای گرفتن میانگین هم که ساده است مجموع اعداد تقسیم بر تعداد اعداد! Allahparast 02 بهمن 1387, 22:24دوستان ویژوال بیسیک بعد اگه بخوام تعداد ارقامش رو دربیارم چی؟ mehrangol 02 بهمن 1387, 22:54منظورت رو درست نفهمیدم. اما اگه درست فهمیده باشم. برای میانگین که فکر نکنم راهی باشه فقط باید تعداد اعدادو توی یک متغییر یا هر جای دگه ذخیره کنی. اما برای فاکتوریل هم، که دگه تعداد اعداد نداره! اگه خواستی هم بدونی فاکتوریل کدوم عدد شده x،باید اون عددو تقسیم بر 2و.... می کنی تا جواب 1 بشه.آخرین عدد هم عدد اصلی هست. Allahparast 02 بهمن 1387, 23:50ممنون به نتایج درستی رسیدم:rose: the_king 03 بهمن 1387, 00:29سلام دوستان خواهشا یکی کمک کنه فاکتوریل و میانگین ارقام رو می خوام بگیرم کمک تابع Factorial برای محاسبه فاکتوریل یک عدد (بزرگترین عددی که فاکتوریل اش را محاسبه می کند عدد 27 است که !27 برابر است با 10888869450418352160768000000) : Private Function Factorial(ByVal Value As Variant) As Variant Dim Index As Long Factorial = CDec(1) For Index = 2 To Value Factorial = Factorial * CDec(Index) Next End Function مثلا محاسبه و نمایش فاکتوریل عدد 5 : MsgBox Factorial(5) تابع Average برای محاسبه میانگین چند عدد : Private Function Average(ParamArray Values() As Variant) As Variant Dim Sum As Variant Dim Index As Long If UBound(Values) = LBound(Values) And IsArray(Values(LBound(Values))) Then Values = Values(LBound(Values)) End If For Index = LBound(Values) To UBound(Values) Sum = Sum + Values(Index) Next Average = Sum / (UBound(Values) - LBound(Values) + 1) End Function این تابع را به دو صورت می توانید فراخوانی کنید، شیوه اول با مقدار دهی تک تک اعداد به عنوان پارامتر ورودی است : MsgBox Average(4, 6, 11, 3) شیوه دوم بوسیله یک آرایه ای است که اعداد در آن قرار دارند : Dim MyArray() As Variant MyArray = Array(4, 7, 1) MsgBox Average(MyArray) saalek110 03 بهمن 1387, 05:55دوستان خواهشا عنوان مناسب انتخاب کنید. عنوان بود: (( فاکتوریل| کمک کمک............... )) تبدیل شد به: ((فاکتوریل و میانگین در ویژوال بیسیک)) عنوان تاپیک را دقیقا بیانگر موضوع تاپیک انتخاب کنید. و در آخر زبان برنامه نویسی را هم قید کنید. مثلا ویژوال بیسیک.
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 3122]