perulangan positif dan perulangan negatif

 Sejauh ini Anda sudah disuguhkan dengan contoh-contoh program, contoh-contoh tersebut saya rancang sedemikian rupa agar Anda yang pemula dalam mempelajari Bahasa Pemrograman dapat mengikuti tutorial ini. Cobalah Anda buat program-program sejenis tapi kali ini atas pemikiran dan cara-cara ANda sendiri dan tentu saja materi-mteri nya disesuaikan dengan contoh-contoh program yang telah Anda pelajari.

Baiklah sekarang mari kita lanjutkan pembahasan kita mengenai uraian Program pengenalan (TESTPROG.PAS). Selanjutnya dalam program tersebut ada baris-baris program berikut :

While (pilih='y') or (pilih='Y') Do
Begin
..........
..........
..........
end;
end.

Pada bagian ini dinamakan perulangan (LOOPING). Looping sangat sering digunakan dalam sebuah program yang majemuk, arti looping itu sendiri adalah memulai atau mengulang lagi suatu proses program yang sama jika kondisi dan syarat-syarat nya terpenuhi. Ada beberapa struktur perulangan yang perlu Anda ketahui yaitu :

1. Perulangan dengan perintah For - To - Do
2. Perulangan dengan perintah While - Do
3. Perulangan dengan perintah Repeat - Until.

Sekarang marilah kita bahas mengenai struktur perulangan ini satu persatu.

1.    Perulangan For - To - Do

Struktur perulangan For - To - Do ada dua jenis yaitu :

a. Perulangan For Positif.

Bila variabel perulangan dilakukan dengan cara penghitungan dari nilai yang kecil ke nilai yang besar, maka struktur perulangan tersebut dinamakan perulangan for positif dengan struktur sebagai berikut :

Struktur FOR TO DO Positif.

Contoh penggunaan perulangan For-To-Do positif ini adalah bila kita menampilkan sebuah list dari urutan yang terkecil sampai yang terbesar. Contoh program dibawah ini akan menampilkan angka 1 sampai 10 secara berurutan.

{ program menghitung urutan 1-10, by : suryatekno }

uses crt;

Var

X : Integer; {variabel X menjadi acuan dg type Integer}

  Begin

    clrscr;

    For X := 1 To 10 Do

     Begin

       WriteLn(X);

     End;

     writeLn('tekan Enter untuk keluar');

    readln;

  End.

b. Perulangan For Negatif.
Bila variabel perulangan dilakukan dengan cara perhitungan dari nilai yang besar ke nilai yang kecil, maka struktur perulangan tersebut dinamakan perulangan for negatif. Struktur perulangan for negatif adalah sebagai berikut.

Struktur FOR TO DO Negatif.

Contoh perulangan For negatif ini adalah bila kita ingin menampilkan suatu hitungan mundur dari yang besar ke yang kecil. Contoh program dibawah ini adalah kebalikan dari contoh for positif diatas, yaitu menampilkan angka 10 sampai 1 secara berurutan.

{ program menghitung mundur by : suryatekno }

uses crt;

Var

Y : Integer; {variabel Y menjadi acuan dg type Integer}

  Begin

    clrscr;

    For Y := 10 DownTo 1 Do

     Begin

       WriteLn(Y);

     End;

     writeLn('tekan Enter untuk keluar');

    readln;

  End.

2.    Perulangan While - Do
Perulangan While-Do adalah suatu perulangan atau looping yang akan terus menerus dilakukan selama kondisi yang disyaratkan terpenuhi, Jadi selama persyaratan yang dicantumkan adalah TRUE (BENAR) maka loop ini akan terus berjalan tak ada hentinya. Untuk itu berhati-hatilah dalam memberikan prasyarat sebuah perulangan while-do, bisa-bisa program itu tidak akan bisa di hentikan.
Seperti pada contoh program TESTPROG.PAS yang pertama kali Anda buat, Disitu parameter while-do di berikan nilai TRUE untuk huruf Y, jadi selama Anda menekan huruf Y, maka program itu akan terus dilakukan sampai Anda menekan tombol yang lainnya.
Mari Kita lihat lagi listing Program TESTPROG.PAS yang sudah Anda buat pertama kali.

{ Program   : Input dari keyboard dan

              Menghitung operasi matematika }

{ Create by : Komarudin_surya@suryatekno }

uses Crt;

var

x,y,z    :  longint;

lagi     :  char;

namak    :  string[20];

begin

lagi  :=  'y';

 {awal perulangan dengan nama Lagi }   

 while (lagi  =  'y') or (lagi  =  'Y') do

  begin { --> index awal perulangan}

  clrscr;

   write('Siapa Nama Anda..?');  ReadLn(namak);

   writeLn;

   writeLn('Hallo ',namak,', Coba kamu masukan nilai x,y dan z ');

   writeLn('pada operasi matematika ini.');

   writeLn;

   writeLn('Operasi matematika X^2 + y^2 + z =..... ');

   write('masukan nilai x..= '); ReadLn(x);

   write('masukan nilai y..= '); ReadLn(y);

   write('masukan nilai z..= '); ReadLn(z);

   writeLn;

   writeLn('nilai operasi x^2 + y^2 + z adalah : ',x*x+y*y+z);

   writeLn;

   write('Mau hitung lagi apa tidak (y/t), ',namak,' ? ');

  readLn(lagi);

 end; { --> index akhir perulangan}

{akhir perulangan dengan nama Lagi } 

end.

Pada listing TESTPROG.PAS diatas, saya beri tambahan keterangan. Nah selama Anda memasukan variabel Lagi dengan huruf Y maka loop while menjadi true sehingga program akan balik lagi ke index awal (Begin pertama sesudah perintah while). begitu saja terus menerus sampai Anda memasukan variabel Lagi dengan karakter selain Y.
Berikut ini adalah salah satu program yang menggunakan Perulangan While-Do yang salah, sebab tidak ada ujungnya dan tidak bisa dihentikan. Cara menghentikan nya dengan menutup prompt command bila Anda menjalankan Pascal dari mode command window, atau reset komputer Anda bila menggunakan DOS Prompt.

{ Ini adalah contoh program yang

  menggunakan perulangan While-Do

  yang salah }

Var X : integer;

 Begin

  X := 1;

   While X=1 Do

     Begin

      write(X,' .');

      WriteLn('Salah Euy.., Muir Wae Yeuh..!');

     End;

 End.

Contoh Program diatas sebagai peringatan kepada Anda agar berhati-hati dalam memberikan parameter untuk while-do. pada program diatas X diberikan nilai awal 1 ( X := 1 ), selanjutnya perulangan while-do ( While X=1 Do ) juga diberikan nilai 1, jadi X selalu TRUE sehingga perulangan akan dilakukan terus tanpa henti sampai Anda menutup atau mereset komputer Anda. Perhatikan baik-baik dalam menggunakan perulangan ini jangan sampai kesalahan yang kecil akan berakibat fatal bila tidak teliti. Kesalahan yang legendaris dalam pemrograman pascal pernah terjadi pada sekitar tahun 1973 dimana saat itu seorang programer membuat suatu aplikasi, yang akhirnya menjadi sebuah VIRUS yang dibuat tanpa sengaja (Virus itu mendelete semua program yang berektensi COM) tanpa bisa dihentikan oleh programernya sendiri sehingga programer tersebut dituntut untuk membayar kerugian perusahaan sebesar US$ 1.750.000,- ..
3.    Perulangan Repeat - Until
Perulangan Repeat-Until hampir mirip dengan perulangan while-do, bedanya adalah kalau while-do perulangan nya dilakukan dari tanda begin pertama sampai end yang pertama setelah perintah while do , sedangkan perulangan repeat-until perulangan nya diakhiri dengan perintah until. Lihat struktur repeat until dibawah ini.

           R E P E A T          --- Perintah perulangan

              |

              |

           S T A T E M E N      --- Expresi Perulangan

              |

              |

           U N T I L  PARAMETER --- Akhir perulangan

                                    Yang di ikuti oleh

                                    Parameter yang

                                    diulang 

Jadi pada perulangan repeat-until ini, pertama kita taruh perintah repeat diatas statemen-statemen yang akan diulang kemudian ditutup dengan perintah until yang diikuti oleh parameter untuk perulangan. Untuk lebih jelas lihat contoh program dibawah ini yang menggunakan perulangan repeat-until.

{ Program  : Tabel hasil perkalian

  Creat by : Suryatekno@2008 }

uses crt;

Var

  X,Y,Z      : integer;

  Begin

    WriteLn('       TABEL  PERKALIAN       ');

    WriteLn('==============================');

    WriteLn('|   X   |    Y   |   Hasil   |');

    WriteLn('==============================');

     X := 10;

      Repeat  {awal perulangan X}

       Y := 10;

        Repeat {awal perulangan Y}

          Z = X*Y;

            WriteLn(X:5, Y:9, Z:10);

          Y := Y+1;

        Until Y > 13; {akhir perulangan Y}

          X := X+1;

       Until X > 13; {akhir perulangan X}

    WriteLn('=============================');

    WriteLn;

    WriteLn('Tekan Enter untuk Keluar');

    ReadLn;

   End.

Pada contoh program diatas, perulangan repeat-until digunakan untuk membuat sebuah tabel perkalian antara X dan Y, dimana nilai awal untuk X dan Y adalah 10, dan akan bertambah 1 setiap kali terjadi perulangan ( X := X+1 dan Y := Y+1 ) sampai nilai akhir yang ditentukan yaitu 13. Perulangan akan terjadi sebelum melebihi nilai akhir yang ditentukan ( 13 ). Jadi Perintah UNTIL bila kita terjemahkan adalah : Sebelum melebihi . Lihat hasil jalannya program seperti dibawah ini.

Hasil Jalannya Program perkalian.