It`s My Second Home,, Happy Surfing! n_n

Prikitiw,,!!!

Contoh Penggunaan Function Pada Pascal


1. Buka halaman kerja baru

2. Untuk program ini, berikan kode program sebagai berikut :

3. Setelah memasukan kode, kita bisa melakukan pengecekan apakah program yang kita buat jalan atau tidak dengan menekan tombol F9 pada keyboard. Jika tidak terdapat kesalahan, maka langkah selanjutnya adalah menjalankan program dengan menekan tombol CTRL+F9 pada keyboard.

4. Tampilan program yang sudah berjalan.

Jika nilai nilai yang dimasukan untuk nilai 1 = 54 dan nilai 2 = 48


5. Berikut keterangan dan logika dari tiap kode pada program

Program Fungsi;

(judul program)

uses crt;

(unit yang digunakan dalam program)

function besar (a,b : integer): integer;

(memulai proses function dengan nama ‘besar’, dimana nilai variabel a dan b yang ada dip roses tersebut bertipe integer / bilangan bulat)

begin

(awal dari blok statement function ‘besar’)

if a>b then

(memulai printah kondisi, dimana jika nilai dari variabel a lebih besar dari nilai variabel b, maka akan menjalankan perintah di bawah)

besar := a

(nilai procedure ‘besar’ akan sama dengan nilai variabel a)

else

(selain kondisi di atas, maka akan menjalankan perintah di bawah)

besar := b;

(nilai procedure ‘besar’ akan sama dengan nilai variabel b)

end;

(akhir dari blok statement function ‘besar’)

var

(pendeklarasian variabel)

a,b: integer;

(Pendeklarasian data variabel bertipe integer / bilangan bulat)

begin

(awal dari blok statement)

clrscr;

(membersihkan layar)

write(‘Nilai Bilangan 1 = ‘); readln(a);

(mencetak kalimat ‘Nilai Bilangan 1 = ’ lalu meletakan pointer ke sebelah kanan kalimat, setelah itu compiler akan membaca inputan yang kita masukan sebagai nilai variabel ‘a’)

writeln;

(menempatkan pointer di bawah baris berikutnya / berfungsi sebagai enter 1 x)

write(‘Nilai Bilangan 2 = ‘); readln(b);

(mencetak kalimat ‘Nilai Bilangan 2 = ’ lalu meletakan pointer ke sebelah kanan kalimat, setelah itu compiler akan membaca inputan yang kita masukan sebagai nilai variabel ‘b’)

writeln;

(menempatkan pointer di bawah baris berikutnya / berfungsi sebagai enter 1 x)

write(‘Bilangan Terbesar = ‘, besar (a,b):5);

(mencetak kalimat ‘Nilai Terbesar = ‘ lalu memasukan nilai procedure ‘besar’, dimana nilainya didapat dari nilai variabel a dan b yang telah dimasukan sebelumnya dengan penempatan nilai variabel setelah 5 x spasi )

readln;

(menunggu penekanan enter)

end.

(akhir program)

January 9, 2010 - Posted by | saatnya belajar

5 Comments »

  1. maksih bg, ne sangat membantu!!!!

    Comment by riza | June 15, 2010 | Reply

    • yups sama2.. ^_^

      Comment by Gai Black | June 20, 2010 | Reply

  2. bisa nggak, satu function tapi tipenya bisa berubah-ubah…

    kalau overloading itu gimana ya??

    Comment by Bani Adam Setiadi | January 26, 2011 | Reply

  3. makasih banget ni membantu bgt sma mata kuliah pascal…

    Comment by mayang | March 11, 2011 | Reply

  4. terima kasih bangg,, sangat membantu hehe

    Comment by putuhena | April 3, 2012 | Reply


Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: