pengertian Turbo Pascal

Fungsi / function dalam Turbo Pascal adalah mengelompokkan beberapa instruksi tertentu dalam 1 instruksi yang sering disebut sub-rutin / function. Berguna untuk melakukan penghematan pada jumlah kode program dan praktis dalam melakukan proses perhitungan yang hasilnya ingin digunakan berkali-kali.

Contoh kasus:
Ada berapa bilangan yang habis dibagi 3 (sisa = 0) dalam deret bilangan 1 s/d 20 ?

Jawaban kasus:

Maka fungsi untuk mengecek apakah suatu bilangan habis dibagi 3 dibuat terlebih dahulu. Baru kemudian membuat kode program yang memakai fungsi itu berulang-ulang.

Contoh:

function CekHabisDibagiTiga(Bilangan: Integer): Boolean;
begin
if (Bilangan mod 3) = 0 then
Result := True
else
Result := 0;

// atau
// Result := (Bilangan mod 3 = 0)
end;

var X : Integer;
Counter : Integer;
begin

Counter := 0;
for X := 1 to 20 do
if CekHabisDibagiTiga(X) = True then
Counter := Counter + 1;
Writeln('Jumlah Bilangan Yang Habis dibagi 3 antara 1 s/d 20 adalah', Counter);

end.