Contoh program function pada pascal.
uses crt ;
var
p, l : byte ;
function keliling(p, l : byte): integer ;
begin
keliling := (2*p) + (2*l) ;
end;
begin
clrscr ;
writeln ('Hitung Keliling Persegi Panjang') ;
write (' Nilai Panjang : '); readln(p);
write (' Nilai Lebar : '); readln(l);
writeln (' Keliling : ', keliling(p,l));
readln;
end.
Syarat dari function ini, harus diletakkan di atas program utama, yaitu Begin dan End. Jika diletakkan di bawah End. maka tidak akan diproses, ataupun diletakkan di dalam Begin dan End. maka tidak akan diproses.
Syarat selanjutnya function yang akan di panggil harus berada di atas function pemanggil.
Mudah mudahan anda paham dengan contoh perintah function pada pascal , semoga kita semakin mau dan termotivasi belajar bahasa pemrograman.
Tag : Contoh Program Function Pada Pascal, belajar bahasa pemrograman, bahasa pemrograman, bahasa pemrograman pascal, tempat download program
Bila bermanfaat silahkan share Contoh Program Function Pada Pascal ini dengan teman anda, Terima kasih sebelumnya
Sumber : Mesran.Net
