LAPORAN PENDAHULUAN PASCAL (060409)

1.Apa yang dimaksud dengan procedure dan function?
Procedure dan function adalah suatu program yang terpisah dalam blok sendiri yang berfungsi sebagai modul program yang merupakan sebuah program kecil untuk memproses sebagian dari program utama.

2.Berikan BU procedure dan function!
Procedure:
Procedure nama;
atau
Procedure nama (formal parameter : jenis);

Function:
Function pengenal parameter : tipe pengenal ;

3. Contoh program!
Function:

program contoh_function;
uses wincrt;
var n:integer;

function jumgan(var y:integer):integer;
xx:integer;
begin
:=0;
while y>=1 do
begin
xx:=xx+y;
y:=y-2;
end;
jumgan:=xx;
end;

begin
write('masukkan bilangan bulat = ');readln(n);
if (n mod 2 = 0) then n:=n-1;
writeln(' JUMLAH GANJIL DARI ',n:5,' adalah ', jumgan(n):8);
end.


Procedure:

uses wincrt;
procedure ubah(var a:integer);
begin
a := 10;
writeln('ubah menjadi=',a);
end;
{main program}
var bil : integer;
begin
bil := 1;
writeln('bil sebelum=',bil);
ubah(bil);
writeln('bil sesudah=',bil);
end.