Primitivisme

Nedenfor er en demonstration af programmeringsværktøjer, understøttet i LCRYP:

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

int OnTick()
{
  /* Lokale variabler. * /
  int a, indeks;
  dobbelt x,og;
  char c;

  /* Opgave som operation. * /
  ga = a = 3;
  gx = x = y = 5;
  gc = c = '0';

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

  indeks = 1;
  Print_AZ(indeks); // Brug af funktionen.

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

  /* Demonstration af rekursion. */
  indeks = 2;
  prt(indeks,"");
  x = 3;
  y = 2;
  gx = factr(indeks,matematik(x,og)); // Brug af funktionsargumenter.
  prt_a(indeks," factr =");
  prt_a(indeks,gx);

  Vend tilbage 0;
}

/* Viser det engelske alfabet. */
int Udskriv_AZ(int-indeks)
{
  char ch;
  prt(indeks,"");  // Begyndelsen på linjens output med indeksindekset på diagrammet.
  /* цикл for */
  til (ch = 'A'; ch<= 'Z'; ch = ch + 1) {
    prt_a(indeks,ch); // Fortsæt med at vise linjen med indeksindekset til diagrammet.
  }
  Vend tilbage 0;
}

/* Returnerer faktoren for nummeret i. */
faktisk(int-indeks, int i)
{
  prt_a(indeks,jeg);
  hvis(jeg<2) {
    Vend tilbage 1;
  }
  andet {
     returnere i * factr(indeks,i-1);
  }
}

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

/* Funktion ikke aktiveret. */
int OnInit()
{
  Vend tilbage;
}

/* Funktion ikke aktiveret. */
int OnBar()
{
  Vend tilbage;
}