Manfaat dan Fungsi dalam Turbo Pascal

Manfaat Turbo Pascal

• Membantu sistem administrasi.
• Memudahkan untuk membuat aplikasi seperti : bahasa C, C++, C#, Clipper, LISP, ADA, ALGOL, Modula 2, Smalltalk,Prolog, Perl, PHP, Cobol, Basic, Fortran, Java, Paskal, dsb.
• Dapat membuat aplikasi permainan seperti sulap, dsb.
• Membuat fungsi-fungsi konversi seperti kalkulator, dsb.
• Membuat fungsi-fungsi date (tanggal).

Fungsi Turbo Pascal

• Mengelompokkan beberapa instruksi tertentu dalam satu 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 case:
Ada berapa bilangan yang habis dibagi 3 (sisa = 0) dalam deret bilangan 1 s/d 20 ?
Penyelesaian:
Pertama-tama kita terlebih dahulu mengecek apakah suatu bilangan habis dibagi 3 atau tidak, kemudian membuat kode program yang memakai fungsi itu berulang-ulang.

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('Jml Bilangan Yang Habis dibagi 3 antara 1 s/d 20 adalah', Counter);
End.