I comandi repeat (ripeti) e until (fino a) ripetono la serie di istruzioni dopo il comando repeat finchè la condizione descritta dopo il comando until sarà vera.

Esempio:

program somma;
uses crt;
var a,b,c,d: integer;
begin
repeat
clrscr;
writeln ('Digita il primo addendo: ');
read (a);
writeln ('Digita il secondo addendo: ');
read (b);
c:=a+b;
writeln ('La somma è ',c);
readln;
writeln ('Se vuoi uscire premi 1, oppure premi qualunque altro numero per continuare.');
read (d);
until d=1;
end.

Come nell'esempio repeat non ha bisogno del ";", al contrario di until. Nel programma abbiamo fatto in modo che l'utente abbia la possibilità di continuare o no l'esecuzione del programma. Se durante la scelta l'utente non darà il valore 1 alla variabile "d" la condizione sarà falsa e il programma ricomincerà dalla linea dopo il comando repeat.

Errori di punteggiatura e in fase di esecuzione

TrackBack URI for this entry