[Pascal] Pernyataan For (For Statement)

Apa itu Perulangan (Loop Statement)? Pengulangan atau biasa disebut dengan looping digunakan untuk melakukan pengulangan sebuah proses pada program yang dibuat. Sebagai contoh bila kita memasukkan password untuk memasuki sebuah program/ sistem operasi, maka jika password kita keliru dengan otomatis akan meminta password ulang (tidak langsung keluar dari program), baru setelah password yang dimasukkan benar program yang diminta akan dijalankan. Nah untuk membuat seperti hal tersebut maka kita memerlukan yang namanya LOOPING

Pernyataan Perulangan memiliki tiga pernyataan, yaitu For, while, dan Repeat. Pernyataan perulangan dipakai untuk melakukan proses berulang terhadap pernyataan sederhana atau pernyataan terstruktur. Untuk pertemuan kali ini akan membahas tentang Pernyataan Perulangan yang menggunakan FOR, untuk while dan Repeat akan kita bahas pada pertemuan selanjutnya.

Pernyataan for (for statements)
Pernyataan for (for statements) juga digunakan untuk melakukan proses perulangan. Hanya saja proses perulangan pada pernyataan for langsung dikendalikan oleh suatu peubah yang disebut peubah kendali (control variables) yang harus bertipe berurutan. Jadi pada pernyataan for pada dasar sudah diketahui jumlah perulangannya. Perulangan dengan pernyataan for dapat berupa perulangan positif ('to') dan perulangan negatif ('downto'). Jika pernyataan yang akan mengalami perulangan lebih dari satu pernyataan, maka harus diawali dengan begin dan diakhiri dengan end;.

Pada Perulangan dengan pernyataan for dapat berupa perulangan positif ('to') dan perulangan negatif ('downto').

Perulangan Positif
Dapat dihitung/Counter dari kecil ke besar (Penambahan positif).

Bentuk Umum : 
FOR variabel control := nilai_awal TO nilai_ahir DO pernyataan

Contoh Programnya :

Program Mengurutkan_angka_Positif;
uses wincrt;
var
   i:integer;
begin
     FOR i := 1 TO 100 DO
     begin
     write(i:4);
end;
end.

OutPut Program :

Perulangan Negatif
Dapat dihitung/Counter dari besar ke kecil (Penambahannya Negatif).

Bentuk Umum : 
FOR variabel control := nilai_awal DOWNTO nilai_ahir DO pernyataan

Contoh Programnya : 

Program Mengurutkan_angka_Negatif;
uses wincrt;
var
   i:integer;
begin
     FOR i := 100 DOWNTO 1 DO
     begin
     write(i:4);
end;
end.

OutPut Program :  

Perulangan Tersarang
Adalah Perulangan yang nerada didalam perulangan yang lainnya. Perulangan yang lebih dalam akan diproses lebih dulu sampai habis, kemudian perulangan yang lebih luar baru akan bertambah, mengerjakan perulangan yang lebih dalam lagi mulai dari awal dan seterusnya. 

Contoh Programnya : 

uses wincrt;
var
i,j:integer;
begin
     for i := 1 to 5 do
         begin
         for j := 1 to 3 do
         begin
         write(i:8 , j:3);
     end;
         writeln;
     end;
end.

Output Programnya : 

Sekian dulu pertemuan kali ini, semoga semua tulisan ini bisa bermanfaat untuk sahabat semuanya.

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiChhH1mt_1WPXjHlRH4GSmQU4YmtQxtO4gaOUe3k_-AcSJsoZml6HZwp6ivPZwEBtDt_ZpYOEyvvFClZ_03FmWQ7_Xvgr3v108oK8m_rIBCMS6EthkOo-IjgKpKfqhCMYlI2r5lGBGt6U/s72-c/Untitled.png

Advertisement