6. subrutin

PENGERTIAN
 Ada dua jenis subprogram yaitu
prosedur dan fungsi.
 Memiliki kegunaan yg sama, yaitu
melakukan tugas tertentu
 Perbedaannya fungsi selalu
mengembalikan suatu nilai setelah
dipanggil sedangkan prosedur tidak

PENGERTIAN
 Mengapa membutuhkan subprogram ?
Jawabnya karena dalam program yg
besar, akan lebih baik jika tugas tertentu
dilakukan oleh subrutin tertentu
 Hal ini menjadikan program lebih mudah
dibaca
 Juga membuat pelacakan kesalahan
program menjadi lebih mudah

PROSEDUR
 Bentuk umum prosedur adalah :
Prosedur nama_prosedur (parameter1, 2, …);
Begin
{pernyataan – pernyataan}
End;
 Parameter1, 2,.. Merupakan informasi yg
diberikan kepada prosedur atau fungsi
 Untuk memanggil prosedur kita cukup
menuliskan nama prosedur dan
parameternya
nama_prosedur (parameter1, 2, …);

FUNGSI
 Bentuk umum fungsi adalah :
Function nama_fungsi (parameter1, 2, …):
tipe_kembalian;
Begin
{pernyataan – pernyataan}
End;
Tipe kembalian adalah tipe data dari nilai yg
dikembalikan oleh fungsi
Untuk memanggil fungsi kita harus
menyediakan variabel untuk menerima hasil dari
fungsi
Nama_variabel:= nama_fungsi (parameter1, 2,
…);

PARAMETER
 Parameter adalah nilai atau informasi yg
diberikan ke prosedur atau fungsi
 Untuk melewatkan parameter ada dua cara
yaitu dengan nilai atau referensi
 Melewatkan dengan nilai, subrutin yg
dipanggil tidak dapat merubah nilainya
 Sebaliknya bila melewatkan referensinya,
subrutin dapat mengubah nilainya.
 Untuk melewatkan referensi, tambahkan
kata var didepan nama parameter

VARIABLE
 Didalam prosedur dan fungsi kita dapat
mendeklarasikan sebuah variable yg
bersifat lokal
 Variable lokal hanya berlaku untuk
prosedur tersebut dan tidak dapat
digunakan diluar prosedur

Bentuk umum
Var g,h:integer;

Procedure hitung(a:integer,var c:byte)
Var r,s: integer;
Begin
...
End;

begin
Hitung(x,y);
end

Keterangan

 a dan c merupakan parameter formal
 integer dan byte merupakan tipe parameter
 x dan y merupakan parameter nyata
 pengiriman nilai x ke a disebut pengiriman
parameter secara nilai (by value)
 pengiriman nilai dari y ke c disebut
pengiriman parameter secara acuan (by
reference)
 r dan s merupakan variabel lokal
 g dan h merupakan variabel global

Perbedaan prosedur dan
fungsi
 Fungsi, nilai yang dikirimkan balik
terdapat pada nama fungsinya.
Sedangkan Prosedur hanya pada
parameter yang dikirim secara acuan.
 Fungsi selalu mengembalikan nilai
 Nilai yang dikirim balik berada pada
nama fungsinya, sehingga nama fungsi
ini harus digunakan untuk menampung
hasil yang akan dikirimkan

 Penulisan fungsi harus disertai tipe
datanya
 Karena nilai balik berada pada nama
fungsinya, maka fungsi tersebut dapat
langsung digunakan untuk mencetak

procedure hitung( var a,b,c:integer);
begin
c:=a+b;
writeln('nilai c=',c);
end;

var
x,y,z:integer;
Begin
x:=2;
y:=3;
z:=0;
hitung(x,y,z);
writeln(x,y,z);
end.

function k(a:integer;var b:integer):integer;
begin
if a>b then
k:=(a+b*abs(a-b))div 2 else
a:=a*b;
dec(a,4);
inc(b,a);
end;

var x,y:integer;
begin
x:=6;y:=2;
writeln(x,' ',y);
writeln(k(x,y));
writeln(x,' ',y);
end.

function abc(k:integer):integer;
var i,j:integer;
begin
j:=1;
for i:=1 to k do
j:=j*2;
abc:=j;
end;

begin
writeln(abc(3));
end.

Function fakto(n:byte):longint;
Begin
if n=0 then
fakto:=1;
Else
Fakto:=n*fakto(n-1);
End;

PUSTAKA
 Algoritma dan Pemrograman, Antony
Pranata

Function xyz(n:byte):integer;
begin
if n=1 then xyz:=n
else xyz:=1+xyz(n-1);
end;

Begin
a:=xyz(10);
Writeln(a);
End.

Masih berhubungan dengan soal diatas,
Bila statement xyz:=1+xyz(n-1), diganti
xyz:=n+xyz(n-1) dan dipanggil dengan
y:=xyz(5) maka, y berharga …..

6. subrutin

More Related Content

What's hot (20)

Similar to 6. subrutin (20)

More from Tenia Wahyuningrum (20)

Recently uploaded (12)

6. subrutin