Primitivismo

Abaixo está uma demonstração de ferramentas de programação, compatível com LCRYP:

 
/* Variáveis ​​globais. */
int ga;
duplo gx;
char gc;

int OnTick()
{
  /* Variáveis ​​locais. * /
  int a, índice;
  duplo x,e;
  char c;

  /* Atribuição como uma operação. * /
  ga = a = 3;
  gx = x = y = 5;
  gc = c = '0';

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

  índice = 1;
  Print_AZ(índice); // Usando a função.

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

  /* Demonstração de recursão. */
  índice = 2;
  prt(índice,"");
  x = 3;
  y = 2;
  gx = factr(índice,matemática(x,e)); // Usando argumentos de função.
  prt_a(índice," factr =");
  prt_a(índice,gx);

  Retorna 0;
}

/* Exibindo o alfabeto inglês. */
int Print_AZ(índice interno)
{
  char ch;
  prt(índice,"");  // O início da saída da linha com o índice do índice no gráfico.
  /* цикл para */
  para (ch = 'A'; CH<= 'Z'; ch = ch + 1) {
    prt_a(índice,CH); // Continue exibindo a linha com o índice do índice para o gráfico.
  }
  Retorna 0;
}

/* Retorna o fatorial do número i. */
int factr(índice interno, int eu)
{
  prt_a(índice,Eu);
  E se(Eu<2) {
    Retorna 1;
  }
  outro {
     retorno eu * factr(índice,i-1);
  }
}

matemática interna(int a, int b)
{
  retornar a + b;
}

/* Função não habilitada. */
int OnInit()
{
  Retorna;
}

/* Função não habilitada. */
int OnBar()
{
  Retorna;
}