فاکتوریل

[aleas2]

سلام خسته نباشید دوستان من برای فاکتوریل اینو نوشتم


Dim i As Integer
Dim a As Integer
Dim sum As Variant
sum = 1
a = InputBox("")
For i = 1 To a
sum = sum * i
Next i
Text7.Text = sum
بعد از عدد 10 مثلا 20 یه عدد عجیبی میده !! مثلا برای 20 جواب میشه 2.43290200817664E+18 ایا درسته یا نه؟

[ho3ein.3ven]

سلام
بله کاملا درسته چون فاکتوریل 20 عدد خیلی بزرگی میشه برنامه نماد علمی اون رو مینویسه

[aleas2]

خب نمیشه کاری کرد نماد علمی رو به عددی تبدیل کرد؟

[ho3ein.3ven]

:متفکر::متفکر: والا من تا حالا ندیدم

[JaVa]

سلام....



والا من تا حالا ندیدم

کاری که میشه کرد اینه که هر عددی که تولید میشه رو بذاریم توی یه خانه در آرایه یک بعدی..

موفق باشید/

[aleas2]

سلام....




کاری که میشه کرد اینه که هر عددی که تولید میشه رو بذاریم توی یه خانه در آرایه یک بعدی..

موفق باشید/
میشه بیشتر توضیح بدین؟

[SlowCode]

برای این کار شما باید خودت از روش اول ابتدایی برای ضرب اعداد استفاده کنی، سورس زیر همون کار رو برات میکنه فقط کافیه یکم دست کاریش کنی و فایکتوریل خودت رو بسازی.