FOR ..TO/DOWN..DO

For to/down do adalah perintah untuk membuat pengulangan sebanyak angka yang diberikan pada variable awal dan akhir. To digunakan untuk angka menaik sedangkan down digunakan untuk angka yang menurun.

Contoh:

Uses crt;

Var i:integer;

Begin

Clrscr;

For i:=1 to 3 do writeln(‘Kalimat dicetak sebanyak tiga kali’);

For  i:=1 to 10 do writeln(‘No: ‘,i);

For i:=500 to 600 do

Begin

Sound(i); delay(10); nosound;

End;

For i:=600 down 500 do

Begin

Sound(i); delay(10); nosound;

End;

Readln;

End.
Kembali ke Contoh Program Turbo Pacal