Belajar Pemograman Pascal : Perulangan For Do

Perulangan 'For Do' Pada Pascal

Perulangan For digunakan untuk menghasilkan pengulangan sejumlah kali yang telah dispesifikasikan.Jumlah pengulangan diketahui atau dapat ditentukan sebelum eksekusi.Untuk mencacah berapa kali pengulangan dilakukan,perlu sebuah peubah(variable) pencacah.Peubah ini nilainya selalu bertambah satu setiap pengulangan dilakukan. Jika cacah pengulangan sudah mencapai jumlah yang telah dispesifikasika,maka program pengulangan berhenti.

Bentuk umum pernyataan FOR ada dua macam: menaik (ascending) atau menurun(descending).

FOR menaik:
For pencacah := nilai_awal to nilai_akhir do
  Aksi;
End;
FOR menurun
     For pencacah : nilai_awal Downto nilai_akhir do
        Aksi;
     End;

Contoh Program

Program For Do 1

Program diatas merupakan program perulangan For.Program diatas bemaksud menampilkan Karakter ASCII,dimana untuk tampilan output programnya sendiri agar sesuai apa yang diharapkan yaitu menyamping ketika jumlah menurunnya sudah terpenuhi.

Baris 1-2      : yaitu judul program dan penggunaan unit crt
Baris 2-4      : mendeklarasikan peubah yaitu  x,c,s,k:integer; , keempat peubah     Tersebut  bertipe  integer.
Baris 5,6,7    : merupakan awal program utama dan statement  (assigment) yaitu nilai 1 disalin ke  x ,dan c     x:=1;  , c:=1;
Baris  8        : merupakan kondisi perulangan for dimana nilai awal perulangan ialah 1 dan  nilai akhirnya                  
Baris  9-16   : pada baris ini merupakan isi dari perulangan  for j:= 1 to 1 do Dimana pada baris 11, perintah gotoxy untuk mengatur letak kursor sedangkan   dimana x merupakan kolom dan c baris disini nmenggunakan perintah if then bisa dilihat pada baris 13 dimaksudkan untuk agar ketika c=41 maka tampilan kursor akan pindah lagi ke awal atau pada kondisi yang diperintahkan. Disini program akan kembali ke baris dan kolom awal begitu seterusnya sampai jumlah terpenuhi atau  selesai.

Output Program For Do 1
 



Program For Do 2



Program diatas merupakan program perulangan For juga sama seperti contoh program sebelumnya hanya saja berbeda penulisan. Program diatas bemaksud menampilkan Karakter ASCII,dimana untuk tampilan output programnya sendiri agar sesuai apa yang diharapkan yaitu menyamping ketika jumlah menurunnya sudah terpenuhi.

Baris 1          : yaitu penggunaan unit wincrt

Baris 2,3        : mendeklarasikan peubah yaitu  x,y,s,b:integer; , keempat peubah      tersebut bertipe integer.

Baris 4,5,6,7   : merupakan awal program utama dan penyalinan (assigment) yaitu nilai 1 disalin ke y , x , b     y:=1;  x:=1;  b:=1;

Baris 8           : merupakan kondisi perulangan for dimana nilai awal perulangan ialah satu dan  nilai akhirnya 255                 

Baris  10,11    : pada baris ini merupakan intruksi untuk menampilkan perulangan tersebut dimana  penggunaan gotoxy berfungsi untuk meletakan kursor atau tempat dimana  menampilkan output tersebut pada tampilan output .x  = kolom , y= baris.

Baris 11 – 16   : intruksi pada baris baris ini berguna untuk mengatur tampilan outpu program itu sendiri  y:=y+1; sebagai pencacah y ,setiap perulangan terjadi maka nilai y akan ditambah satu agar ketika   if  y=25 then maka kursor akan berpindah kesamping pada tampilan output jika  kondisi bernilai benar,pada baris selanjutnya  juga sama untuk memindahkan kursor jika sesuai kondisi yang diminta if s<100 then, x:=x+6 kursor akan berpindah ke kolom  nilai x + 6 jika bernilai kondisi True jika else maka x:=x+7 kolom akan berpindah ke  nilai x + 7           


Output  Program For Do 2

Share this post