Prendiamo in esame il ciclo for... to... do. Anche questi comandi fanno eseguire al programma un ciclo ma in questo caso il numero di volte che viene eseguito è finito. Il numero delle volte che il ciclo deve essere ripetuto deve essere espresso da una variabile dichiarata che fà da contatore.

Ora facciamo un esempio:

program ciclo;
uses crt;
var I,J:integer;
N:string [15];
begin
clrscr;
writeln ('Digita una parola :');
read (N);
writeln ('Quante volte la vuoi far ripetere ?');
read (J);
for I:=1 to J do
writeln (N);
readln;
readln;
end.

La variabile "I" è la variabile che fà da contatore, la cifra dopo ":=" è il valore iniziale della variabile e la cifra dopo "to" è il valore che dovrà avere il contatore per terminare il ciclo.

Se dopo il do ci sono più istruzioni bisogna inserire un begin e un end;. Affinchè il ciclo funzioni, il valore iniziale deve essere minore di quello finale. Se la variabile "J" fosse di tipo real il ciclo non funzionerebbe.

Possiamo non far decidere all'utente quante volte far ripetere la parola inserendo al posto di "J" un numero:

for I:=1 to 10 do

Per fare in modo che il valore della variabile che fa da contatore non debba salire, ma scendere, si utilizza downto.

Esempio:
[...]
for I:=3 downto 1 do
[...]

Errori di punteggiatura e in fase di esecuzione

TrackBack URI for this entry