Inform e Glulx/Le basi di Inform/While e do... until

In Inform, così come in qualsiasi altro linguaggio di programmazione, oltre alle scelte esistono anche i cicli (o loop). Il primo di questi è while (condition) e il suo funzionamento è illustrato nel seguente esempio:

! Esempio sull’utilizzo del ciclo WHILE 


Include "Parser";
Include "VerbLib";
Include "Replace";


[ Funz_princip;
  ClearScreen(); ! pulisce lo schermo
  Domanda();
  print "^Premi un tasto per uscire^";
  KeyCharPrimitive(); ! legge un carattere dalla tastiera	
];


[ Domanda x;
  x = 0; ! per inizializzare la variabile x al valore zero
  while (x ~= 76)
  {
     print "^Ogni quanti anni compare la cometa di Halley? ";
     x = GetNumber(2);
     if (x == 76) print "La risposta @`e esatta!!!^";
     else print "Spiacente, la risposta non @`e esatta...^";
  }
];


[ Initialise;
     Funz_princip(); 
     quit; ! fine del programma 
];


Include "Io";
Include "ItalianG";

Nella funzione Domanda, viene definito il ciclo while (condizione), la cui funzione è quella di eseguire una serie di istruzioni, racchiusa dalle parentesi graffe, fino a quando il valore contenuto nella variabile x è diverso da 76. In questo modo, il ciclo termina solo se x è uguale a 76 (se cioè la risposta esatta), altrimenti va avanti all’infinito (richiede tutte le volte la stessa domanda).

Il ciclo do... until (esegui... fino a quando vale la condizione) è simile al ciclo while ma, a differenza di quest’ultimo, esegue le istruzioni in esso contenute almeno una volta:

! Esempio sull'utilizzo del ciclo DO...UNTIL 


Include "Parser";
Include "VerbLib";
Include "Replace";


[ Funz_princip;
  ClearScreen(); ! pulisce lo schermo
  Domanda();
  print "^Premi un tasto per uscire^";
  KeyCharPrimitive(); ! legge un carattere dalla tastiera	
];


[ Domanda x;
  do   
  {
     print "^Ogni quanti anni compare la cometa di Halley? ";
     x = GetNumber(2);
     if (x == 76) print "La risposta @`e esatta!!!^";
     else print "Spiacente, la risposta non @`e esatta...^";
  } 
  until (x == 76);
];


[ Initialise;
     Funz_princip(); 
     quit; ! fine del programma 
];


Include "Io";
Include "ItalianG";

Notate però, che nell’istruzione until la condizione è esattamente opposta a quella del ciclo while; infatti, mentre in quest’ultimo il ciclo va avanti fino a quando il valore contenuto nella variabile x è diverso da 76, nel ciclo do-until le istruzioni racchiuse nelle parentesi graffe vengono eseguite fino a quando il contenuto della variabile x è uguale 76. Il risultato è lo stesso, ma la strada intrapresa è esattamente quella opposta.