Monthly Archives: Desember 2008

Lab. Dasar-Dasar Pemrograman


Fungsi

Perbedaan fungsi dengan prosedur adalah:

1. Pada Fungsi, nilai yang dikirim balik terdapat pada nama fungsinya, sedangkan pada prosedur nilay yang dikirm balik terdapat pada parameter acuan/nyata.

2. Fungis akan secara langsung memberikan hasil sesuai dengan tipe yang dideklarasaikan sehingga dapat lagnsung dicetak hasilnya.

Deklarasi Fungsi:

FUNCTION nama_fungsi(daftar_parameter):tipe_fungsi;

BEGIN

END.

Parameter dalam Fungsi:

1. Parameter Nilai, yaitu parameter dalam fungsi yang dikirm secara nilai, contoh penulisannya:

FUNCTION hitung a,b : integer) : integer;

2. Parameter Acuan. Pengiriman parameter secara acuan maka akan mengakibatkan perubahan nilai parameter di fungsi, juga mengubah nilai parameter di modul yang mengirimkannya. Contoh penulisannya:

FUNCTION hitung (var a,b : integer) : integer;

Fungsi standar

Disamping jenis fungsi yang didefinisikan sendiri oleh pemakai. Pascal memiliki fungsi-fungsi standar, andar lain:

1. COPY

COPY(s:string;integer;index:integer;count:integer):string;

Untuk menyalin sejumlah karakter (count) mulai dari posisi yang ditunjuk (index) dari nilai string(s).

2. CONCAT

CONCAT(s1[,s2,s3,….,sn];string):string;

Untuk merangkai beberapa nilai string yang ditunjukkan oleh nilai string s1,s2,s3,…,sn.

3. POS

POS(substr:string; s:string) : byte;

Untuk mencari posisi letak dari suatu nilai string (substr) yang di dalam nilai string yang lain(s). nilai yang dihasilkan adalah Byte.

4. LENGTH

LENGTH( s:string ) : Integer;

Untuk menghitung pnajang atau jumlah karakter yang ada di nilai string.

Contoh Program:

program FUNGSI_tambah;

uses crt;

FUNCTION tambah(a,b:integer):integer;

BEGIN

tambah:=a+b;

END;

var

x,y : integer;

begin

clrscr;

write(‘Nilai X = ‘); readln(x);

write(‘Nilai Y = ‘); readln(y);

writeln;

writeln(x,’ + ‘,y,’ = ‘,tambah(x,y));

readln;

end.

Algoritma dari Program:

Algoritma

{Algoritma contoh penggunana FUNCTION}

Deklarasi

Function tambah a,b :Integer) : Integer

Deklarasi

Deskripsi:

Tambah ß a + b

Var

X,y : Integer

Deskripsi:

Read (x)

Read (y)

Write (tambah(x,y))

Iklan
%d blogger menyukai ini: