Primitivism

ด้านล่างนี้เป็นการสาธิตเครื่องมือการเขียนโปรแกรม, รองรับใน LCRYP:

 
/* ตัวแปรส่วนกลาง. */
int ga;
gx สองเท่า;
ถ่าน gc;

int OnTick()
{
  /* ตัวแปรท้องถิ่น. * /
  int a, ดัชนี;
  คู่ x,และ;
  ถ่าน c;

  /* การมอบหมายงานเป็นการดำเนินการ * /
  ga = a = 3;
  gx = x = y = 5;
  gc = c = '0';

  ดัชนี = 0;
  prt(ดัชนี,"a = [");
  /* Цикл while. */
  ในขณะที่(ก>= 0) {
    prt_a(ดัชนี,ก);
    a = a - 1;
  }
  prt_a(ดัชนี,"]");

  ดัชนี = 1;
  Print_AZ(ดัชนี); // การใช้ฟังก์ชัน.

  ดัชนี = 2;
  gc = 'A';
  prt(ดัชนี,"");
  /* Цикл do-while. */
  ทำ {
     prt_a(ดัชนี,gc);
     gc = gc + 1;
  } ในขณะที่(gc != 'F');

  /* การสาธิตการเรียกซ้ำ. */
  ดัชนี = 2;
  prt(ดัชนี,"");
  x = 3;
  y = 2;
  gx = factr(ดัชนี,คณิตศาสตร์(x,และ)); // การใช้อาร์กิวเมนต์ของฟังก์ชัน.
  prt_a(ดัชนี," แฟคเตอร์ =");
  prt_a(ดัชนี,gx);

  กลับ 0;
}

/* แสดงตัวอักษรภาษาอังกฤษ. */
int Print_AZ(ดัชนี int)
{
  ถ่าน ch;
  prt(ดัชนี,"");  // จุดเริ่มต้นของผลลัพธ์ของบรรทัดที่มีดัชนีดัชนีบนแผนภูมิ.
  /* циклสำหรับ */
  สำหรับ (ch = 'A'; ช<= 'Z'; ch = ช + 1) {
    prt_a(ดัชนี,ช); // แสดงบรรทัดที่มีดัชนีดัชนีไปยังแผนภูมิต่อไป.
  }
  กลับ 0;
}

/* ส่งคืนแฟกทอเรียลของจำนวน i. */
int แฟคเตอร์(ดัชนี int, int ผม)
{
  prt_a(ดัชนี,ผม);
  ถ้า(ผม<2) {
    กลับ 1;
  }
  อื่น {
     กลับฉัน * แฟคเตอร์(ดัชนี,i-1);
  }
}

คณิตศาสตร์ int(int a, int ข)
{
  ส่งคืน a + b;
}

/* ไม่ได้เปิดใช้งานฟังก์ชัน. */
int OnInit()
{
  กลับ;
}

/* ไม่ได้เปิดใช้งานฟังก์ชัน. */
int OnBar()
{
  กลับ;
}