حساب مضروب (عاملي) عدد صحيحيبين السرد التالي مثالاً آخر لبرنامج بسيط بلغة ج. يحسب هذا البرنامج مضروب (عاملي) عدد صحيح. ومضروب العدد الصحيح ن هو القيمة ن(ن-1)(ن-2) … (ن- (ن-1)). وقد رقمت سطور البرنامج للتوضيح.
1 !! برنامج لحساب مضروب عدد صحيح
2 المتحول ن : صحيح
3 المتحول ص ، ع : صحيح
4 أجعل ع = 1
5 أكتب "أدخل عدداً صحيحاً لتعرف قيمة مضروبه :" ، سطر
6 أقرأ ن
7 أجعل ص = ن
8 أكرر طالما ص > 1
{
9 أجعل ع = ع × ص
10 أجعل ص = ص – 1
}
11 أكتب ن ، "! =" ، ع
السطر الأول في هذا البرنامج هو مجرد تعليق، أي شرح توضيحي، لمن يقرأ البرنامج من الناس، أما مترجم لغة ج فيتجاهل هذا السطر بكليته. عموماً، يتجاهل المترجم كل سطر مسبوق بعلامتي تعجب متتاليتين. تعرف الجملة الثانية ن بأنه متحول يمكنه حفظ الأعداد الصحيحة، وسيستخدم هذا المتحول لحفظ قيمة العدد المراد إيجاد مضروبه. أما الجملة الثالثة فتعرف المتحولين ص و ع بأنهما متحولين صحيحين أيضاً. وسيستخدم ع لحفظ قيمة مضروب العدد ن، أما ص فسيستخدم كعداد تنازلي من ن-1 إلى 2. تسند الجملة الرابعة القيمة 1 إلى المتحول ع. أما الجملة الخامسة فتكتب عبارة " أدخل عدداً صحيحاً لتعرف قيمة مضروبه :" في لوحة الكتابة. تقرأ الجملة السادسة قيمة المتحول ن التي يدخلها المستخدم. وتسند الجملة السابعة قيمة ن إلى المتحول ص. أما الجملة الثامنة فهي حلقة تكرار من نوع "أكرر طالما"، ويجري فيها تنفيذ الجملتين التاسعة والعاشرة طالما كانت قيمة العداد التنازلي ص > 1، وفي كل مرة من مرات تكرار هذه الحلقة تُضرب قيمة المتحول ع بقيمة العداد التنازلي ص، وينقص ص بمقدار 1. أخيراً تكتب الجملة الحادية عشر الناتج في لوحة الكتابة. تبين الصورة التالية مثالاً لتنفيذ هذا البرنامج.
