Primitivismo

A continuación se muestra una demostración de herramientas de programación, compatible con LCRYP:

 
/* Variables globales. */
int ga;
doble gx;
char gc;

int OnTick()
{
  /* Variables locales. * /
  int a, índice;
  doble X,y;
  char c;

  /* Cesión como operación. * /
  ga = a = 3;
  gx = x = y = 5;
  gc = c = '0';

  índice = 0;
  prt(índice,"a = [");
  /* Цикл mientras. */
  mientras(un>= 0) {
    prt_a(índice,un);
    a = a - 1;
  }
  prt_a(índice,"]");

  índice = 1;
  Print_AZ(índice); // Usando la función.

  índice = 2;
  gc = 'A';
  prt(índice,"");
  /* Цикл do-while. */
  hacer {
     prt_a(índice,GC);
     gc = gc + 1;
  } mientras(GC != 'F');

  /* Demostración de recursividad. */
  índice = 2;
  prt(índice,"");
  x = 3;
  y = 2;
  gx = factr(índice,matemáticas(X,y)); // Usar argumentos de función.
  prt_a(índice," factr =");
  prt_a(índice,gx);

  regreso 0;
}

/* Visualización del alfabeto inglés. */
int Print_AZ(int índice)
{
  char ch;
  prt(índice,"");  // El comienzo de la salida de la línea con el índice índice en el gráfico.
  /* цикл para */
  para (ch = 'A'; ch<= 'Z'; ch = ch + 1) {
    prt_a(índice,ch); // Continuando la salida de la línea con el índice índice en el gráfico.
  }
  regreso 0;
}

/* Devuelve el factorial del número i. */
int factr(int índice, int i)
{
  prt_a(índice,yo);
  Si(yo<2) {
    regreso 1;
  }
  más {
     regreso yo * factr(índice,i-1);
  }
}

int matemáticas(int a, int b)
{
  devolver a + b;
}

/* Función no habilitada. */
int OnInit()
{
  regreso;
}

/* Función no habilitada. */
int OnBar()
{
  regreso;
}