PROCEDURE PASCAL

PROSEDUR

Pendahuluan

Dalam pemrograman, bila ukuran dan kompleksitas program adalah kecil, maka tidak masalah bila digunakan metode pengkodean konvensional yang bersifat monolitik. Tetapi bilamana program menjadi semakin besar dan kompleks, metode monolitik akan sangat mempersulit pemrograman serta modifikasi program, belum lagi pelacakan bila terjadi masalah. Pembuatan program dengan beragam fungsi dan kemampuan juga akan sulit, karena harus selalu memperhatikan keseluruhan program.

Untuk itu diperlukan metode pemrograman yang bersifat modular, dimana pembuat program dapat memisahkan proses-proses tertentu ke suatu bagian dari program yang terpisah. Pemisahan ini memungkinkan pengembangan program yang kompleks menjadi lebih mudah, karena proses tertentu telah diisolasi sehingga memperkecil kompleksitas kode program secara keseluruhan. Dalam Pascal, salah satu cara untuk melakukan pemisahan adalah dengan menggunakan prosedur.

Prosedur adalah kode pemrosesan terpisah yang diletakkan dalam blok tersendiri yang berfungsi sebagai subprogram (program yang merupakan bagian dari program keseluruhan). Dengan adanya prosedur, program dapat menjadi lebih mudah dibuat dan lebih mudah dipahami sehingga lebih mudah dikembangkan. Karena prosedur juga mengakomodasi pemberian dan pengembalian nilai, maka program keseluruhan juga akan tetap dapat melakukan manipulasi nilai seperti halnya program monolitik.

2.       Kata cadangan yang digunakan

Program     :  spesifikasi nama program dan parameternya, bersifat dekoratif dan tidak terlalu mempengaruhi keseluruhan program itu sendiri

Uses              :   mendefinisikan nama unit yang akan direferensi oleh program

Var                 :   menghubungkan sebuah identifier dan tipenya dengan suatu lokasi di memori dimana nilai-nilai dari tipe tersebut dapat disimpan

Begin             :   memulai suatu blok program

End                :   mengakhiri suatu blok program

Procedure   :   bagian dari program yang menjalankan suatu proses spesifik, seringkali berdasarkan suatu himpunan parameter

If                     :   menyebutkan kondisi untuk suatu statemen agar dapat dieksekusi

Then              :   menyebutkan statemen aksi yang harus dijalankan saat kondisi terpenuhi

Repeat         :   mendefinisikan statemen atau blok statemen yang akan terus diulang sampai keadaan perhentiannya dipenuhi

Until              :   mendefinisikan keadaan perhentian untuk perulangan yang dimulai dengan Repeat

Case              :   menyebutkan statemen ekspresi yang akan mencari kondisi yang sesuai berdasarkan pilihan statemen kondisi yang tersedia

Of                   :   kata cadangan yang digunakan bersama Case untuk menyebutkan pilihan kondisi yang sesuai serta aksi yang akan dijalankan apabila suatu kondisi terpilih

Do                  :   digunakan untuk menyebutkan aksi yang akan dilakukan

For                 :   mendefinisikan nilai awal perulangan

To                   :   mendefinisikan nilai akhir perulangan (perulangan positif)

Record          :   digunakan untuk mendeklarasikan record berisi kumpulan data dari berbagai tipe data

Type              :   digunakan untuk mendeklarasikan suatu identifier yang memiliki tipe data tertentu

3.       Contoh Program

Program pertama

Program m7c1;

uses wincrt;

var

     pil : char;

procedure menu;

begin

     clrscr;

     writeln ('MENU');

     writeln ('1. Bakso');

     writeln ('2. Bakmi');

     writeln ('3. Siomay');

     writeln ('4. Soto');

     writeln ('0. Bayar');

end;

procedure kerja (n:char);

begin

     case n of

     '1': begin

               write ('Pesan Bakso'); readln;

          end;

     '2': begin

               write ('Pesan Bakmi'); readln;

          end;

     '3': begin

               write ('Pesan Siomay'); readln;

          end;

     '4': begin

               write ('Pesan Soto'); readln;

          end;

     '0': begin

               writeln ('Bayar dan bye');

          end;

     end;

end;

begin

     repeat

           menu;

           writeln;

           write ('Pilihan anda? '); readln (pil);

           kerja (pil);

     until pil = '0';

end.

Untuk download artikel lengkapnya silahkan klik disini..download.

Semoga bermanfaat..

Bang-iconk "TM