Primitivisme

Nedenfor er en demonstrasjon av programmeringsverktøy, støttes i LCRYP:

 
/* Globale variabler. */
int ga;
dobbel gx;
char gc;

int OnTick()
{
  /* Lokale variabler. * /
  int a, indeks;
  dobbel x,og;
  røye c;

  /* Oppgave som en operasjon. * /
  ga = a = 3;
  gx = x = y = 5;
  gc = c = '0';

  indeks = 0;
  prt(indeks,"a = [");
  /* Цикл mens. */
  samtidig som(en>= 0) {
    prt_a(indeks,en);
    a = a - 1;
  }
  prt_a(indeks,"]");

  indeks = 1;
  Utskrift_AZ(indeks); // Bruke funksjonen.

  indeks = 2;
  gc = 'A';
  prt(indeks,"");
  /* Цикл do-while. */
  gjøre {
     prt_a(indeks,gc);
     gc = gc + 1;
  } samtidig som(gc != 'F');

  /* Demonstrasjon av rekursjon. */
  indeks = 2;
  prt(indeks,"");
  x = 3;
  y = 2;
  gx = faktr(indeks,matte(x,og)); // Bruke funksjonsargumenter.
  prt_a(indeks," factr =");
  prt_a(indeks,gx);

  komme tilbake 0;
}

/* Viser det engelske alfabetet. */
int Print_AZ(int-indeks)
{
  char ch;
  prt(indeks,"");  // Begynnelsen på utgangen av linjen med indeksindeksen på diagrammet.
  /* цикл for */
  til (ch = 'A'; ch<= 'Z'; ch = ch + 1) {
    prt_a(indeks,ch); // Fortsett å vise linjen med indeksindeksen til diagrammet.
  }
  komme tilbake 0;
}

/* Returnerer faktornummeret til tallet i. */
faktisk(int-indeks, int i)
{
  prt_a(indeks,Jeg);
  hvis(Jeg<2) {
    komme tilbake 1;
  }
  ellers {
     returnere jeg * factr(indeks,i-1);
  }
}

int matematikk(int a, int b)
{
  returner a + b;
}

/* Funksjon ikke aktivert. */
int OnInit()
{
  komme tilbake;
}

/* Funksjon ikke aktivert. */
int OnBar()
{
  komme tilbake;
}