Membuat Procedure di Turbo Pascal

Setelah beberapa siang tadi saya memposting tentang Menggunakan Const di Turbo Pascal
kali ini saya akan memposting tentang Membuat Procedure di Turbo Pascal

Terkadang ketika kita membuat sebuah program yang sudah sampai ratusan bahkan ribuan baris, kita akan kesulitan dalam memahami jalannya program itu secara keseluruhan, maka ada baiknya program yang kita buat tersebut kita pecah menjadi beberapa bagian, agar kita lebih mudah dalam memahami jalannya program tersebut,oleh karena itu membuat procedure sangat lah dianjurkan dalam membuat program, selain memudahkan kita dalam memahami jalannya program kita juga tidak perlu menuliskan procdure yang sama berulang - ulang kita cukup memanggil procedure yang kita buat saja

Berikut cara membuat Membuat Procedure di Turbo Pascal

1. Buka program Turbo Pascal yang anda miliki

2. Ketikan script dibawah ini

program prosedur;
uses crt;
var
 p,l,luas:integer; {Mendekarasikan variable}

procedure hitung; {Membuat procedure hitung untuk menghitung luas persegi panjang}
begin
 luas:=p*l; {Menghitung luas persegi panjang}
 writeln('Luas Persegi Panjang : ',luas); {Menampilkan luas persegi panjang}
end;

begin
 clrscr;
 writeln('===============');
 writeln('Tutorial Koding');
 writeln('===============');
 write('Masukan Panjang : ');readln(p); {Mengisi variable p}
 write('Masukan Lebar : ');readln(l); {Mengisi variable l}
 hitung; {Memanggil procedure hitung tanpa parameter}
 readln;
end.

3. Jalnkan program tersebut dengan menekan CTRL+F9

Membuat Procedure dengan parameter

Apa itu Parameter ?
Secara sederhana parameter merupakan variable yang dituliskan di dalam kurung. Dalam pembuatan program biasanya diperlukan pertukaran informasi antara procedure atau function, serta pada blok program utama dimana nama procedure atau function tersebut dipanggil

1. Buka program Turbo Pascal yang anda miliki

2. Ketikan script dibawah ini

program prosedur_param;
uses crt;
var
 p,l,luas:integer; {Mendeklarasikan variable}

procedure hitung(p,l:integer); {Membuat procedure dengan parameter}
begin
 luas:=p*l; {Menghitung luas persegi panjang dimana nilai p dan l didapat dari parameter procedure hitung}
 writeln('Luas Persegi Panjang : ',luas); {Menampilkan Luas Persegi}
end;

begin
 clrscr;
 writeln('====================');
 writeln('Tutorial Koding');
 writeln('====================');
 write('Masukan Panjang : ');readln(p); {Mengisi variable p}
 write('Masukan Lebar : ');readln(l); {Mengisi variable l}
 hitung(l,p); {Memanggil procedure hitung serta mengirim nilai dari p dan l}
 readln;
end;

3. Jalnkan program tersebut dengan menekan CTRL+F9

Semoga berhasil
Terima kasih atas kunjungannya