PROCEDURE DAN FUNCTION PADA
PROGRAM PASCAL.
1. Procedure
Procedure adalah suatu kumpulan instruksi yang dibuat oleh
pemrogram sebagai
pengikat dalam suatu block program tersendiri-sendiri/
sekelompok program. Tujuan dibuat
procedure untuk memudahkan dalam pengeblokan program-program
atau pecahan-pecahan
program seperti program non inti. Dengan kata lain procedure
kepanjangan dari program non
inti yang dapat memberikan nilai bila dipanggil. Prosedure
tersebut terdiri dari dua kelompok
yaitu :
- Procedure Tanpa parameter
- Procedure dengan parameter
Procedure tanpa parameter
Procedure yang dibuat agar dapat dipanggil oleh program inti dan
tidak membawa
nilai variabel tertentu.
PROCEDURE TANPA PARAMETER
Procedure NamaProcedure; {Nama procedure bebas dapat
huruf/angka}
Var
Begin
…Statement…
End;
Contoh 4.1
Procedure Garis;
Begin
Writeln(‘=====================’) pembuatan procedure Garis.
End;
Begin
Garis; Procedure dipanggil
Writeln(‘HELLO IPTTI’);
Garis; Procedure dipanggil
End.
Run
=====================
HELLO IPTTI
=====================
Dengan menggunakan procedure kita dapat memanggil cukup dengan
GARIS maka program
di dalam procedure akan melaksanakan sesuai dengan blok
perintah.
Berikut contoh untuk menghitung luas persegi panjang dengan
procedure non parameter.
Contoh 4.2 Program persegi panjang.
Program Hitung_Segi_Panjang;
Uses Crt;
Var Panjang, Lebar, Luas : Real;
Procedure masukData;
Begin
Write(‘PANJANG = ‘); Readln(panjang);
Write(‘LEBAR = ‘); Readln(Lebar);
End;
Procedure HitungLuas;
Begin
Luas := Panjang * Lebar;
End;
Procedure CetakLuas;
Begin
Writeln(‘Luasnya = ‘,Luas:8:2);
End;
Begin
MasukData;
HitungLuas;
CetakLuas;
End.
Run
PANJANG = 5 <enter>
LEBAR = 3 <enter>
Luasnya = 15.00
Procedure dengan Parameter
Procedure dengan parameter sebenarnya juga merupakan procedure
yang nanti akan
dipanggil tetapi membawa parameter atau suatu variabel tertentu
“YANG HARUS
DILAKUKAN” terhadap procedure. Itulah parameter !!!
PROCEDURE DENGAN PARAMETER
Procedure
Garis(N : integer);
Var PARAMETER
I
: integer;
Begin
Variabel Lokal
For I := 1 to N do Write(‘=’);
Writeln;
End;
Procedure itu dapat dipanggil dengan memberikan nilai variabel
yang dibawa dan
nilai variabel itu mengerjakan dan melakukannya. Misalkan :
Garis(5); hasilnya =====
Garis(15); hasilnya ===============
Garis(5 + 5) hasilnya ==========
Contoh 4.3
Procedure Garis(n : integer; c : char);
Var I : integer;
Begin
For I := 1 to n do Write ( c );
Writeln;
End;
Begin
Writeln(‘Contoh Program Memakai Parameter’);
Garis(5,’=’);
Garis(3,’X’);
End.
Run
Contoh Program Memakai Parameter
=====
XXX
Contoh 4.3
Uses Crt,Dos;
Procedure BacaData(Var P1, P2 : real);
Begin
Write(‘PANJANG = ‘); Readln(P1);
Write(‘LEBAR = ‘); Readln(P2);
End;
Procedure HitungLuas(Var q1 : real; q2,q3 : real);
Begin
q1 := q2 * q3;
end;
Procedure CetakLuas(P:real);
Begin
Writeln(‘LUASNYA = ‘,p:8:2);
End;
Var panjang, Lebar, Luas : real;
Begin
BacaData(Panjang, Lebar);
HitungLuas(Luas, Panjang, Lebar);
CetakLuas(Luas);
End.
Run
PANJANG = 5 <enter>
LEBAR = 3 <enter>
LUASNYA = 15.00
2. FUNCTION
Function adalah fungsi yang didefinisikan sendiri oleh
programmer seperti halnya
procedure tetapi fungsi lebih berfungsi untuk melakukan tugas
khusus dari parameter dan
non parameter untuk RETURN
VALUE / Nilai kembali, yang diproses ke dalam
NamaFungsi sebagai nilai balik terhadap fungsi tersebut.
RETURN VALUE merupakan data yang dapat berjenis integer, real,
char, string,
namun tidak dapat bertipe array atau record.
- Function Tanpa Parameter
- Function dengan Parameter
FUNCTION TANPA PARAMETER
Function NamaFungsi : TipeReturnValue;
Var {variabel lokal}
Begin
NamaFungsi := ReturnValue;
End;
Contoh 4.4
Function Dadu : integer;
Begin
Randomize;
Dadu := 1 + random(6);
End;
Begin
Writeln(Dadu, ‘ ‘,Dadu,‘ ‘,Dadu);
End.
Run
4 4 4
FUNCTION DENGAN PARAMETER
Function parameter tersebut akan membawa nilai balik /RETURN
VALUE dari yang
dikerjakan.
Parameter function dapat berupa tipe : integer, char,
real, string, boolean, array atau
record.
Hasil function dapat berupa : integer, char, real,
string dan boolean.
Function NamaFungsi(Parameter/variabel) : Tipe untuk
ReturnValue;
Var {variabel lokal}
Begin
NamaFungsi := ReturnValue;
End;
Contoh 4.5
var kata : string;
function hurufbesarkecil(S: string): string;
var
I: Integer;
begin
for I := 1 to Length(S) do
if (S[I] >= 'a') and (S[I] <= 'z') then
Dec(S[I], 32);
hurufbesarkecil := S;
end;
begin
Write('Ketikan Kata Huruf kecil : ');Readln(Kata);
If hurufbesarkecil(kata)='IPTTI' Then
begin
Write('Dapat diterima :',Kata);
end
else
Write('Bukan);
readln;
end.
Run
Ketikan Kata Huruf kecil : iptti
Dapat diterima
Ketikan Kata Huruf kecil : IPTTI
Bukan
Contoh 4.6 Jarak(x,
y) = X
2 + Y 2
Program JarakTitik;
Function jarak(X,Y : real) : real;
Begin
Jarak := Sqrt(X*X + Y*Y);
End;
Var jx, jy, Jrk : real;
Begin
Write(‘Jarak X = ‘); Readln(Jx);
Write(‘Jarak Y = ‘); Readln(Jy);
Jrk := Jarak(Jx, Jy);
Writeln(‘Jarak adalah = ‘,Jrk:5:2);
End.
Run
Jarak X = 2
Jarak Y = 4
Jarak adalah = 4.47
Contoh 4.6
Function Balik (x : string) : string;
Var I, n : integer;
St : string;
Begin
St:=’ ‘; n := length(x);
For I := 1 to n do st := x[I] + st;
Balik := st;
End;
Begin
Writeln(Balik(‘IPTTI’));
End.
Run
ITTPI.
0 Response to "PROCEDURE DAN FUNCTION PADA PROGRAM PASCAL."
Post a Comment