Kita lanjut lagi dengan artikel tentang pemrograman pascal berikutnya. Masih ada hubungannya dengan artikel sebelumnya yakni tentang procedure dalam pascal, kali ini saya akan menjelaskan tentang fugnsi atau function dalam pascal. Function memiliki kegunaan yang sama dengan procedure, yaitu untuk memisahkan barisan kode program yang memiliki fungsi dan tujuan yang sama kedalam blok-blok tersendiri. Apabila kita memerlukan suatu hasil dari blok kode tersebut kita langsung dapat memanggilnya di dalam program inti sesuai dengan nama function tersebut.
Tetapi procedure dan function ini juga memiliki perbedaan yaitu.
- Procedure tidak mengembalikan nilai ke program utama, sedangkan function akan mengembalikan nilai ke program utama. Maka dari itu function harus mempunyai tipe data.
- Procedure outputnya diletakkan di dalam procedure itu sendiri, atau satu paket input dan output, kalau fungsi outputnya di letakkan di dalam program utama.
- Procedure dipanggil di program utama dengan menuliskan nama procedure tersebut di dalam program utama. Sedangkan function di panggil dengan memasukkan ke suatu variabel. atau bisa juga dengan langsung menuliskannya di program utama.
Langsung saja contoh program pascal yang menggunakan function berikut ini.
program fungsi2;
uses wincrt;
function luasling(jari:integer):real;
var luas:real;
begin
luas:= 3.14*jari*jari;
luasling:= luas;
end;
var r:integer;
begin
writeln('-----Contoh Function-----');
writeln;
write('masukkan nilai jari-jari : '); readln(r);
write('luas lingkaran adalah : ', luasling(r):0:2,' cm²');
end.
Screnshoot hasil program di atas.
This post have 2 komentar
haduh pascal
Replyane html aja engga mudeng gan
xixixix
coba-coba gapapa lah bang...
Replynanti jga tau. hahahaha
EmoticonEmoticon