Penerapan Perulangan FOR DO Pada Free Pascal
Perulangan For Do digunakan untuk mengulang statement berulang kali sejumlah yang ditentukan. Bila terdapat lebih dari satu statement yang ada di dalam looping maka menggunakan begin…end;, jika hanya satu blok saja tidak perlu menggunakan begin…end;.
Format penulisannya adalah:
Format penulisannya adalah:
for (variabel_counter) := (nilai_awal) to (nilai_akhir) do
statement yang diulang;
Berikut penerapan programnya.
Contoh 1:
Outputnya:
Contoh 2:
Output:






Users Today : 34
Users Yesterday : 56
This Month : 1428
This Year : 4611
Total Users : 147368
Views Today : 51
Total views : 416916