Pengulangan FOR Pada Pascal #31

andrypein.net : Posting kemarin disinggung mengenai statemen2 dalam pengulangan (for,while,repeat) yang bagaimana menuliskan statemen berulang tanpa harus menulisnya beberapa kali, kali ini kita sample kan pengulangan for pada pascal nya.

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.

dan kita lihat contoh programnya.

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

apabila jika kita jalankan akan memberikan hasil seperti berikut:

Andry Ganteng Banget Sekali
Andry Ganteng Banget Sekali
Andry Ganteng Banget Sekali
Andry Ganteng Banget Sekali
Andry Ganteng Banget Sekali

Berbeda dengan kemarin jika kita menulis statemen writeln(‘Andry Ganteng Banget Sekali’); sebanyak 5 kali,maka dengan pengulangan semuanya menjadi efisien.

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

kemudian tinggal teliti dan pahami saja algoritmanya.

That’s it Pengulangan FOR Pada Pascal, sekian, bye

(AFK*)