Monday, December 17, 2018

PROCEDURE PASCAL

Procedure 

Procedure dan Function merupakan suatu program yang terpisah dalam blok sendiri yang berfungsi sebagai subprogram yang merupakan sebuah program kecil untuk memproses sebagian dari pekerjaan program utama.  

Prosedur harus diawali dengan kata cadangan Procedure di dalam bagian pendeklarasian prosedure. Prosedure dapat dipanggil dan digunakan di dalam blok program yang lainnya dengan menyebutkan judul prosedurnya. 

Prosedur banyak digunakan pada program yang terstruktur, itu dikarenakan procedure : 
  • Merupakan penerapan konsep program modular, yaitu memecah-mecah program yang rumit menjadi program-program bagian yang lebih sederhana dalam bentuk prosedur-prosedur. 
  • Untuk hal-hal yang sering dilakukan berulang-ulang, cukup dituliskan sekali saja dalam prosedur dan dapat dipanggil atau dipergunakan sewaktu-waktu bila diperlukan. 

Sebagaimana halnya sebuah program yang utuh, suatu procedure juga harus memiliki header dan block. Perbedaan bentuknya dengan program utama hanyalah pada bagian headernya saja. Bentuk Umum header suatu procedure adalah : 
PROCEDURE nama;
atau
PROCEDURE nama (formal parameter:jenis);
Jika kita ingin menggunakan procedure dalam suatu program, maka procedure tersebut harus dituliskan pada bagian pendeklarasian. 

Procedure nama_procedure (parameter); 
Deklarasi variabel,label,…dll; 
Begin 
Statement procedure;
…………………………. 
…………………………. 
End; 

Contoh untuk membuat suatu procedure untuk menentukan bilangan bulat terbesar diantara tiga bilangan bulat, maka procedure tersebut bisa dicontoh sebagai berikut : 

PROGRAM contoh;
PROCEDURE maksimum;
VAR max:integer;
begin
if a>b then max:=a else max:=b;
if c>max then max:=c;
writeln(max);
end;
begin
readln(a,b,c);
maksimum
end.

keterangan :
Function dan Procedure PASCAL

Jangkauan identifier yang dideklarasikan dalam suatu blok program hanya berlaku pada blok dimana identifier tersebut didefinisikan.
Function dan Procedure PASCAL

Function dan Procedure PASCAL


Nilai parameter dalam suatu modul program Pascal sifatnya adalah lokal, artinya hanya dapat digunakan pada modul atau unit program y. 

contoh program1 :

prosedur tanya_hitung;
var X,Y :real;
begin
write ('Nilai X ?');readln(X);
Y:=X*X;
writeln('Nilai Y=',Y:6:2);
end;
begin
tanya_hitung;
end.

Keterangan : Variabel X dan Y sifatnya adalah lokal untuk prosedur Tanya_hitung, artinya hanya dapat digunakan pada modul itu saja, Pada modul yang lain tidak dapat digunakan.

procedure tanya_hitung;
var X,Y:real;
begin 
write('Nilai X?');readln(X);
Y:=X*X;
end;
begin
tanya_hitung;
writeln('Nilai Y=',Y:6:2);
end.

Agar nilai variabel dapat digunakan di modul lainnya, maka dapat dilakukan dengan cara pendeklarasikan variabel secara global, yaitu dideklarasikan di atas modul yang menggunakannya. 

Struktur kesatu.
Function dan Procedure PASCAL

Pada Struktur kesatu diatas, variabel A dab B bersifat global untuk prosedur kedua, ketiga dan utama, tetapi tidak bersifat global untuk prosedur  kesatu, sehingga prosedur kesatu tidak dapat menggunakan variabel-variabel tersebut. 

Struktur kedua.
Function dan Procedure PASCAL


Pada Struktur kedua diatas, variabel A dan B bersifat global untuk semua modul. 

Parameter yang dikirim dari modul utama ke modul prosedur disebut actual parameter, dan parameter yang ada dan dituliskan pada judul prosedur disebut formal parameter. 

Parameter yang dikirimkan secara nilai, maka parameter formal yang ada di prosedur akan berisi nilai yang dikirimkan yang kemudian bersifat lokal di prosedur. 

procedure konversi;
begin
F:=(5/9)*c+32; //f dan c variabel global, c sebagai input dan f sebagai output.
writeln(C,F);
end;


Procedure di atas dapat dipanggil dengan variabel yang berbeda, tetapi penulisannya harus diubah dengan menggunakan parameter sbb:
Function dan Procedure PASCAL

Contoh Coding :
KALIAN BISA MENCOBANYA KLIK DISINI

procedure hitung(A,B:integer);
var C:integer;
begin C:=A+B;
writeln('Nilai C = ',C)
end;
var X,Y:integer;
begin
write('Nilai X?');readln(X);
write('Nilai Y?');readln(Y);
hitung(X,Y);
end.

Function dan Procedure PASCAL
hasil coding
Function dan Procedure PASCAL

Bila pengiriman parameter secara acuan (by reference), maka perubahan-perubahan yang terjadi pada nilai parameter formal di prosedur akan mempengaruhi nilai actual parameter.

Contoh Coding :

procedure hitung(var A,B,C:integer);
begin
C:=A+B;
end;
var X,Y,Z:integer;
begin
X:=2; y:=3;
hitung(X,Y,Z);
writeln('X=',X,' Y=',Y,' Z=',Z);
end.

Function dan Procedure PASCAL
hasil coding


Acuan Forward digunakan untuk mendeklarasikan dimuka judul prosedur terpisah dari bloknya. 

Contoh Coding :

uses crt;
procedure pro1(var l:integer); 
forward;
procedure pro2(var l:integer);
begin
writeln('prosedur pro',l);
end;
procedure pro1(var l:integer);
begin
writeln('prosedur pro',l);
end;
var l:integer;
begin
l:=1;pro1(l);
l:=2;pro2(l);
end.

Prosedur Standar yang disediakan oleh Pascal :

  • Prosedur standar EXIT Digunakan untuk keluar dari suatu blok. 
  • Prosedur standar HALT Digunakan untuk menghentikan proses program baik di program bagian maupun di program utama. 
  • Prosedur standar MOVE Bentuk umum : MOVE (Var source,dest; count : word); Digunakan untuk menyalin suatu blok sebanyak count byte memori dari blok dimulai byte pertama source dan disalinkan ke byte pertama dest. 
  • Prosedur standar FILLCHAR Digunakan untuk mengisi sejumlah byte nilai ke dalam suatu variabel, sebagai berikut: 
FillChar(x;count :word;ch); X adalah variabel yang dapat bertipe apapun yang akan diisi dengan nilai tipe ordinal Ch sebanyak count byte.


Contoh Coding Program Procedure Hitung Luas dan Procedure Hitung Keliling :

Uses Crt; 
Procedure hitungluas(p,l:integer); 
Var Ls :Integer; 
Begin Ls := p * l; 
Writeln ('Luas: ', ls); 
End; 
 
Procedure hitkeliling (pp, ll : Integer); 
Var Kel : Integer; 
Begin Kel := (2 * pp) + (2 * ll); 
Writeln ('Keliling: ', kel); 
End; 

Var 
Pj,lbr : Integer; 
Begin 
Clrscr; 
Write ('Masukan panjang : '); Readln(pj); 
Write ('Masukan lebar : '); Readln(lbr); 
Writeln; 

Hitungluas (pj, lbr); 
hitkeliling(pj, lbr); 
Readln; 
End. 

Function dan Procedure PASCAL
hasil coding, saya memasukkan 30 untuk panjang dan 40 untuk lebar . procedure berfungsi untuk tiap penghitungan luas dan procedure keliling menampilkan hasil.





Seseorang yang ingin membagi pengalaman dan ilmu yang berguna untuk para pembaca FajarYusuf.Com :)

Cobalah untuk memilih Pelajaran Pemrograman dan belajar dari Materi Pertama
EmoticonEmoticon


TENTANG SITUS

SITUS INI ADALAH SITUS PEMBELAJARAN PEMROGRAMAN DAN JUGA PEMAHAMAN TERHADAP TEKNOLOGI KOMPUTER. KALIAN BISA MENGIKUTI PEMBELAJARAN PEMROGRAMAN DENGAN BERTAHAP PADA MATERI YANG SUDAH SAYA SEDIAKAN, JIKA ADA MATERI YANG MEMBINGUNGKAN SILAKAN LAKUKAN KOMENTAR PADA MATERI YANG ANDA TANYAKAN ATAU KALIAN BISA MENGHUBUNGI SAYA DIHALAMAN KONTAK.

https://smallseotools.com/