STATEMENT PENGULANGAN (BAG 1)

Posting kemarin disinggung mengenai statemen2 dalam pengulangan (for,while,repeat) yang bagaimana menuliskan statemen berulang tanpa harus menulisnya beberapa kali :$ :D.
langsung saja,Konstruksi for pada umumnya digunakan untuk melakukan pengulangan yang banyaknya sudah diketahui secara pasti (tanpa harus diperisa kondisinya). dalam pengulangan,kita membutuhkan sebuah variabel untuk indeks pengulangan yang dapat bertipe bilangan bulat.Berikut pendefinisiannya :

{untuk satu statemen}
for var_indeks:=batas_awal to batas_akhir do
  statemen_yang_akan_diulang;
{untuk statemen yang banyaknya lebih dari satu}
for var_indeks:=batas_awal to batas_akhir do begin
  statemen1_yang_akan_diulang;
  statemen2_yang_akan_diulang;
  ...end;

Banyaknya pengulangan yang akan dilakukan dihitung dari mulai nilai batas awal sampai batas akhir,dan yang perlu diperhatikan bahwa nilai dari batas awal harus lebih kecil dari batas akhir.
so kita lihat contoh programnya :D

program pengulangan1;
uses wincrt;
var i:integer;
begin
for i:=1 to 5 do
  writeln('Arpellowgaz');
end.

apabila jika kita jalankan akan memberikan hasil seperti berikut:

Arpellowgaz

Arpellowgaz
Arpellowgaz
Arpellowgaz
Arpellowgaz

contoh pengulangan diatas memiliki sifat menaik,pengulangan pun bisa dilakukan secara menurun dengan mengganti to menjadi downto dengan catatan bahwa indeks awal harus lebih besar dari indeks akhir,seperti contoh ini

program pengulangan_menurun;
uses wincrt;
var i:integer;
begin
for i:=5 downto 1 do
  writeln(i);end.

maka hasilnya

5
4
3
2
1

nah ini contoh lainnya untuk pengulangan for:

program pengulanganhitung;
uses wincrt;
var i,n,jumlah:integer;
begin
write('masukan sebuah bilangan bulat');readln(n);
{inisialisasi,jumlah mula2 = 0}
jumlah:=0;
{melakukan pengulangan dengan indeks awal = 1}
for i:=1 to n do begin
  jumlah:=jumlah+1;
end;
{menampilkan hasil perhitungan}
writeln('jumlah dari ',n,' bilangan positif pertama adalah '
,jumlah);
end.

hasilnya:
masukan sebuah bilangan bulat : 5
jumlah dari 5 bilangan positif pertama adalah 15

nah tinggal teliti dan pahami saja algoritma itu oleh anda