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;
No comments:
Post a Comment