Prymitywizm

Poniżej znajduje się demonstracja narzędzi programistycznych, obsługiwane w LCRYP:

 
/* Zmienne globalne. */
int ga;
podwójne gx;
char gc;

int OnTick()
{
  /* Zmienne lokalne. * /
  int a, indeks;
  podwójne x,i;
  char c;

  /* Przypisanie jako operacja. * /
  ga = a = 3;
  gx = x = y = 5;
  gc = c = '0';

  indeks = 0;
  prt(indeks,"a = [");
  /* Цикл while. */
  podczas(za>= 0) {
    prt_a(indeks,za);
    a = a - 1;
  }
  prt_a(indeks,"]");

  indeks = 1;
  Print_AZ(indeks); // Korzystanie z funkcji.

  indeks = 2;
  gc = 'A';
  prt(indeks,"");
  /* Цикл do-while. */
  zrobić {
     prt_a(indeks,gc);
     gc = gc + 1;
  } podczas(gc != „F”);

  /* Demonstracja rekurencji. */
  indeks = 2;
  prt(indeks,"");
  x = 3;
  y = 2;
  gx = factr(indeks,matematyka(x,i)); // Korzystanie z argumentów funkcji.
  prt_a(indeks," factr =");
  prt_a(indeks,gx);

  powrót 0;
}

/* Wyświetlanie alfabetu angielskiego. */
int Print_AZ(indeks int)
{
  char ch;
  prt(indeks,"");  // Początek wyjścia linii z indeksem indeksu na wykresie.
  /* цикл dla */
  dla (ch = 'A'; rozdz<='Z'; ch = ch + 1) {
    prt_a(indeks,rozdz); // Kontynuuj wyświetlanie linii z indeksem do wykresu.
  }
  powrót 0;
}

/* Zwraca silnię liczby i. */
int factr(indeks int, int i)
{
  prt_a(indeks,ja);
  gdyby(ja<2) {
    powrót 1;
  }
  jeszcze {
     powrót i * factr(indeks,i-1);
  }
}

int matematyka(int a, int b)
{
  return a + b;
}

/* Funkcja nie jest włączona. */
int OnInit()
{
  powrót;
}

/* Funkcja nie jest włączona. */
int OnBar()
{
  powrót;
}