Jadikan mereka masa lalu dan kitalah masa depannya (Hilarius Kiswara)


Prosedur adalah suatu program yang terpisah dalam blok tersendiri
yang berfungsi sebagai subprogram. Penggunaan prosedur diawali
dengan kata cadangan procedure di dalam bagian deklarasi prosedur.
Pemanggilan prosedur dapat dilakukan dengan menggunakan judul
prosedur.
Pada program terstruktur banyak menggunakan prosedur karena :
·  Sebagai penerapan program yang modular yaitu memecah
program yang rumit menjadi program-program bagian yang lebih
sederhana dalam bentuk prosedur.
· Untuk beberapa perintah yang sering digunakan berulang, cukup
dituliskan sekali dalam prosedur dan dapat dipanggil sewaktuwaktu.

Nilai di dalam suatu prosedur sifatnya adalah lokal, berarti hanya dapat

digunakan oleh prosedur tersebut saja dan tidak dapat digunakan oleh

prosedur yang lain. Deklarasi secara global dapat menyebabkan semua

prosedur dibawah deklarasi global dapat menggunakannya.

Contoh penggunaan deklarasi global dan lokal:

gambar3.1 

program Hilarius_Kiswara;

uses wincrt;

procedure hitung_luaspersegi(p,l:integer); {Prosedur dengan parameter}

var

ls:integer; {variabel lokal}

begin

ls:=p*l;

writeln(‘luas persegi :’,ls);

end;

 

procedure hitung_keliling(p,l:integer); {Prosedur dengan parameter}

var

kel:integer; {variabel lokal}

begin

kel:=(2*p)+(2*l);

writeln(‘keliling persegi :’,kel);

end;

 

{===program utama===}

var

pl,lbr:integer;

begin

clrscr;

writeln(‘program menghitung luas persegi’);

writeln(‘=========================================’);

writeln;

write(‘masukkan nilai panjang:’);readln(pl);

write(‘masukkan nilai lebar:’);readln(lbr);

writeln;

hitung_luaspersegi(pl,lbr);readln; {Memanggil prosedur Hitung_Luaspersegi}

 

writeln(‘program menghitung keliling persegi’);

writeln(‘=========================================’);

writeln;

write(‘masukkan nilai panjang:’);readln(pl);

write(‘masukkan nilai lebar:’);readln(lbr);

hitung_keliling(pl,lbr);readln; {Memanggil prosedur Hitung_keliling}

end.

 

outputya:

gambar3.2

sekian dulu posting dari saya untuk kali ini, mohon maaf jika postingannya sangat sederhana karna saya juga sekalian belajar hehehe.

bagi yang belum punya turbo pascal silakan download disini ya

 

Hilarius Kiswara

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s