guida

Guida Pascal - 31. Repeat..until

31. Repeat..until

Dopo aver parlato di If..Then, Else, e dei cicli For e While..Do, terminiamo il discorso sulle strutture di controllo con Repeat..Until. La sua sintassi è la seguente:

Repeat
  istruzione_1;
  istruzione_2;
  istruzione_N;
Until condizione;

Questo ciclo ripete le istruzioni comprese tra repeat e until , fino a quando la condizione scritta dopo until si verifica. Da notare che tra repeat e until non ci sono begin ed end, perché già repeat indica l'inizio e until indica la fine del gruppo di istruzioni da ripetere. Anche in questo caso occorre fare in modo che la condizione di uscita diventi vera in un qualche modo, altrimenti finiamo in una ripetizione infinita delle istruzioni, perdendo quindi il controllo del programma!!!.
Esempio. Programma che calcola il prodotto tra interi usando solo l'operazione di somma.
Il programma deve:

program Prodotto;
uses crt;
var 
  a,b,pro : integer;
begin
  clrscr;
  writeln('Inserisci il primo numero = ');
  readln(a);
  writeln('Inserisci il secondo numero = ');
  readln(b);
  repeat
    pro:=pro + a;
    b:=b-1;
  until b=0;
  writeln('prodotto = ',pro);
  readln;
end.

Analizziamo ora il codice: