Contoh Procedure dalam Pascal

Setelah sebelumnya kita membahas tetang fungsi pencabangan diantaranya if dan nested ifatau if bersarang. Semoga kita semua tidak bosan-bosan dalam belajar bahasa pascal ini, baik untuk menambah wawasan pengetahuan tentang pemrograman atau menambah referensi menyelesaikan tugas sekolah maupun kuliah :D. Dan semoga artikel ini dapat membantu bagi teman-teman semua yang telah membaca artikel ini.

Oke, langsung saja kali ini saya akan membahas tentang procedure di dalam pascal. Nah, apakah yang dimaksud dengan procedure itu??? Dalam bahasa pemrograman Pascal atau pada bahasa pemrograman yang lain, procedure digunakan untuk memisahkan barisan kode program yang memiliki fungsi dan tujuan yang sama kedalam blok-blok tersendiri. Apabila kita memerlukan suatu hasil dari blok kode tersebut kita langsung dapat memanggilnya di dalam program inti sesuai dengan nama procedure tersebut,  dengan demikian program kita akan nampak lebih rapi dan lebih mudah jika akan melakukan pengeditan kode program.

Format penulisan procedure dalam pascal

procedure nama_procedure;

….

begin

….

end;

Langsung saja contoh ke-1 penggunaan procedure dalam program pascal.

program prosedur1;
uses wincrt;

procedure luas_ling;
var r,l:real;

begin
write('Masukkan jari-jari : '); readln(r);
l:=3.14*r*r;
write('Luas Lingkaran : ', l:0:2,' cm²');
end;

begin
writeln('-----Contoh Procedure Ke-1-----');
writeln;
luas_ling;
end. 

Contoh ke-2 penggunaan procedure dalam program pascal.

program prosedur2;
uses wincrt;

 
procedure input(jari:integer; var luas:real);
begin
write('Masukkan nilai jari-jari : '); readln(jari);
luas:= 3.14*jari*jari;
end;

var r:integer;
l : real;
begin
writeln('-----Contoh Procedure Ke-2-----');
writeln;
input(r,l);
write('luas lingkaran adalah : ', l:0:2,' cm²');
end.

Screenshoot hasil program di atas.