Primitivismus

Unten finden Sie eine Demonstration der Programmierwerkzeuge, wird in LCRYP unterstützt:

 
/* Globale Variablen. */
int ga;
doppeltes gx;
char gc;

int OnTick()
{
  /* Lokale Variablen. * /
  int a, Index;
  Doppel-X,und;
  char c;

  /* Zuordnung als Operation. * /
  ga = a = 3;
  gx = x = y = 5;
  gc = c = '0';

  index = 0;
  prt(Index,"a = [");
  /* Цикл während. */
  während(ein>= 0) {
    prt_a(Index,ein);
    a = a - 1;
  }
  prt_a(Index,"]");

  index = 1;
  Print_AZ(Index); // Verwendung der Funktion.

  index = 2;
  gc = 'A';
  prt(Index,"");
  /* Цикл do-while. */
  tun {
     prt_a(Index,gc);
     gc = gc + 1;
  } während(gc != 'F');

  /* Demonstration der Rekursion. */
  index = 2;
  prt(Index,"");
  x = 3;
  y = 2;
  gx = factr(Index,Mathematik(x,und)); // Funktionsargumente verwenden.
  prt_a(Index," factr =");
  prt_a(Index,gx);

  Rückkehr 0;
}

/* Anzeige des englischen Alphabets. */
int Print_AZ(int index)
{
  char ch;
  prt(Index,"");  // Der Beginn der Ausgabe der Zeile mit dem Indexindex im Diagramm.
  /* цикл für */
  zum (ch = 'A'; CH<= 'Z'; ch = ch + 1) {
    prt_a(Index,CH); // Fortsetzung der Ausgabe der Linie mit dem Indexindex zum Diagramm.
  }
  Rückkehr 0;
}

/* Gibt die Fakultät der Zahl i zurück. */
int factr(int index, int i)
{
  prt_a(Index,ich);
  wenn(ich<2) {
    Rückkehr 1;
  }
  sonst {
     return i * factr(Index,i-1);
  }
}

int math(int a, int b)
{
  Rückgabe a + b;
}

/* Funktion nicht aktiviert. */
int OnInit()
{
  Rückkehr;
}

/* Funktion nicht aktiviert. */
int OnBar()
{
  Rückkehr;
}