Pelajari Memanggil Procedure pascal lebih Lanjut

Pelajari Memanggil Procedure pascal lebih Lanjut - hello sobat, posting kali ini tentang kelanjutan dari procedure pada pascal , sekedar mendalami dan jauh lebih kita mengerti tentang apa itu procedure pada pascal serta perbedaannya dengan temannya yaitu function atau fungsi.

pada semester 1, metode procedure pascal telah di pelajari namun entah mengapa disemester II kembali lagi mempelajari tentang procedure, mungkin ini lebih mendetail untuk mempelajari dan mengenal procedure pada pascal. 

Kita ketahui terlebih dahulu aturan umum dalam Procedure :

Program judul program ;
           procedure judul procedure;
           begin
           ..............................
           .............................
           end;
begin
          .............................
          ............................
          end.

keterangan :
1. Lokasi deklarasi procedure ,berada tepat sebelum blok utama program.
2. Deklarasi yang berbeda Dalam Procedure berlaku Lokal.
3. Sama Seperti penerapan kode pascal pada umumnya, Procedure diawali dengan begin dan diakhiri dengan end lalu dikuti dengan tanda titik koma (;) .
4. Nama Procedure adalah identifier.
5. Setelah Nama Procedure , dapat di deklarasikan argument / parameter yang akan di passing ke procedure tersebut.

DEKLARASI PROCEDURE.

Deklarasi pada procedure pascal meliputi 3 bagian utama, seperti pada program awal / utama, yaitu terdapat Kepala (atau header) Procedure, Bagian deklarasi, dan terakhir bagian tubuh (atau body) procedure.

Bentuk Umum :

PROCEDURE Nama Procedure ( Letak Daftar Parameter formal / argument )
Bagian Deklarasi
    BEGIN
    Statement 1;
       Statement 2;
       End;

Variabel Lokal dan variabel global.

Variabel lokal atau konstanta, suatu variabel yang dapat di deklarasikan di dalam sebuah procedure pascal dan hanya dapat diamati dalam procedure tersebut.

CARA MEMANGGIL PROCEDURE PASCAL.

Bentuk Umum :
Nama Procedure / Pengenal (Daftar parameter Actual) ;

Contoh Program ;

Program Contoh;
uses crt;
Procedure garis;
        begin
        writeln('------------------')
        end;
begin
clrscr;
        Garis;
        writeln('PASCAL')
        Garis;
readln;
end.  

dari Program diatas akan menampilkan output program procedure seperti ini :

- - - - - - - - - - - - - - - -
PASCAL
- - - - - - - - - - - - - - - -

keterangan logika pada program procedure diatas :

• dimana pada procedure telah dinyatakan bahwa procedure garis adalah ('------------') .
• maka pada statement 1 , jika di tambah dengan perintah "garis;" program akan memerintahkan (mengerjakan) untuk memanggil procedure garis di atas, 
• untuk percobaan, cobalah anda ubah tanda garis-garis ('----------') dengan tanda lain, secara otomatis pasti tanda tersebut akan mengikuti pada statement 1. 

CONTOH LAIN MENAMBAHKAN VARIABEL STRING DI DALAM PROCEDURE : 

Program Contoh;
uses crt;
Procedure mahasiswa;
        begin
        writeln('++++++++++++++')
        end;
var ket:string;
begin
clrscr;
        mahasiswa;
        write('NAMA        : ');readln(ket);
        write('NPM         : ');readln(ket);
        write('JURUSAN     : ');readln(ket);
        write('FAKULTAS    : ');readln(ket);
        mahasiswa;
readln;
end.

outputnya akan menjadi seperti ini :

+++++++++++++++++++++++++
NAMA          : (input dari keyboard)
NPM             : (input dari keyboard)
JURUSAN    : (input dari keyboard)
FAKULTAS  : (input dari keyboard)
+++++++++++++++++++++++++

Keterangan :
pada contoh diatas, hanya menambahkan sebuah variabel setelah procedure yang kemudian di kerjakan pada statement, dan sebelum statement hanya di tambahkan perintah pemanggil procedure yaitu mahasiswa; dengan perintah tampilan procedure ('+++++++++++++').

untuk konsep selanjutnya tentang procedure di pascal dengan penambahan perintah variabel di dalam procedure, serta di kerjakan pada procedure, anda dapat membacanya di posting saya selanjutnya. tentang BELAJAR PARAMETER DALAM PROCEDURE PASCAL .

sekian dari posting ini, semoga dapat bermanfaat bagi teman - teman , jika kebingungan dapat bertanya di form komentar di bawah menggunakan G+ ataupun akun facebook, dan saya akan menjawab pertanyaan kalian semua selagi tidak dalam keadaan sibuk ^_^ thanks.