البدائية

يوجد أدناه عرض لأدوات البرمجة, مدعوم في LCRYP:

 
/* المتغيرات العالمية. */
إنت جا;
مضاعفة gx;
شار gc;

كثافة العمليات OnTick()
{
  /* المتغيرات المحلية. * /
  كثافة العمليات أ, فهرس;
  ضعف x,و;
  شار ج;

  /* التعيين كعملية. * /
  جا = أ = 3;
  gx = x = y = 5;
  gc = c = '0';

  الفهرس = 0;
  prt(فهرس,"أ = [");
  /* икл حين. */
  في حين(أ>= 0) {
    prt_a(فهرس,أ);
    أ = أ - 1;
  }
  prt_a(فهرس,"]");

  الفهرس = 1;
  طباعة_ AZ(فهرس); // استخدام الوظيفة.

  الفهرس = 2;
  gc = 'A';
  prt(فهرس,"");
  /* Цикл افعل حين. */
  فعل {
     prt_a(فهرس,GC);
     gc = gc + 1;
  } في حين(GC != 'F');

  /* مظاهرة العودية. */
  الفهرس = 2;
  prt(فهرس,"");
  س = 3;
  ص = 2;
  gx = factr(فهرس,الرياضيات(x,و)); // استخدام وسيطات الدالة.
  prt_a(فهرس," Factr =");
  prt_a(فهرس,gx);

  إرجاع 0;
}

/* عرض الأبجدية الإنجليزية. */
int Print_AZ(فهرس int)
{
  شار;
  prt(فهرس,"");  // بداية إخراج الخط مع مؤشر الفهرس على الرسم البياني.
  /* икл لـ */
  إلى عن على (ch = 'A'; الفصل<= 'Z'; الفصل = الفصل + 1) {
    prt_a(فهرس,الفصل); // استمر في عرض الخط مع مؤشر الفهرس على الرسم البياني.
  }
  إرجاع 0;
}

/* إرجاع مضروب الرقم i. */
int Factr(فهرس int, إنت أنا)
{
  prt_a(فهرس,أنا);
  إذا(أنا<2) {
    إرجاع 1;
  }
  آخر {
     العودة أنا * فاكتور(فهرس,ط -1);
  }
}

int الرياضيات(كثافة العمليات أ, الباحث ب)
{
  العودة أ + ب;
}

/* الوظيفة غير ممكّنة. */
int OnInit()
{
  إرجاع;
}

/* الوظيفة غير ممكّنة. */
كثافة العمليات OnBar()
{
  إرجاع;
}