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 : 81
Users Yesterday : 211
This Month : 1316
This Year : 9683
Total Users : 152440
Views Today : 154
Total views : 428800