عاملي: الفرق بين النسختين

[مراجعة غير مفحوصة][نسخة منشورة]
تم حذف المحتوى تمت إضافة المحتوى
لا ملخص تعديل
وسم: لا أحرف عربية مضافة
Jobas (نقاش | مساهمات)
الرجوع عن 4 تعديلات معلقة من 95.159.61.51 إلى نسخة 16459762 من ElphiBot.
سطر 127:
fact 8 = 40320
fact 9 = 362880
</source>
و في لغة [[كيو بيسك]]:
<source lang="Qbasic">
DIM Y AS DOUBLE
DIM X AS INTEGER
 
CLS
 
GOSUB F:
 
INPUT X
IF X < 0 THEN: GOSUB F
Y = X
FOR I = 1 TO X - 1
Y = Y * I
NEXT
IF X = 0 THEN
Y = 1
END IF
PRINT X, Y
END
</source>
هذه الدوال (البرامج) لا تمكننا من حساب عملي أعداد أكبر من 12 إذا كانت الاعداد الصحيحة محدودة بـ 32 بت، لأن النتيجة تتعدى المساحة المتوفرة.