NAMA FILE : AKU

NAMA UNIT : aku

INPUT / DEKLARASI :

LOGIKA PROGRAM :

UNIT aku;

Penjelasan :

Memberikan nama untuk sebuah unit dengan nama aku

INTERFACE

FUNCTION FAKTORIAL (x:longint):longint;

IMPLEMENTATION

Penjelasan :

Memberikan sebuah interface untuk function faktorial agar dapat dikenali dalam sebuah unit

FUNCTION FAKTORIAL;

BEGIN

Penjelasan :

Dalam unit tersebut diberikan sebuah function yang diberinama faktorial dimana didalam function tersebut nantinya untuk mencari nilai faktorial atau sama saja diberi isi rumus mencari faktorial

IF x = 1 THEN FAKTORIAL := 1

ELSE

FAKTORIAL := x*FAKTORIAL(x-1);

END;

Penjelasan :

Listing ini merupakan rumus dari function faktorial diatas yang artinya apabila x sama dengan 1 maka faktorial itu bernilai 1 selain itu faktorial itu sama dengan x dikalaikan faktorial yang sudah dikurangi satu (x - 1)

END.

Penjelasan :

Perintah untuk mengakhiri program karena dalam suatu program end titik hanya ada satu

Dalam program Unit ini yang harus diperhatikan adalah nama untuk Unit dengan nama Filenya harus sama karena apabila keduanya tidak sama program tidak dapat dipanggil dan otomatis tdak dapat dijalankan.

NAMA FILE : UNITKU

NAMA PROGRAM : -

INPUT / DEKLARASI :

1. Variabel :

N : Integer;

2. Fungsi :

Uses crt

LOGIKA PROGRAM :

USES CRT, aku;

Penjelasan :

Uses Crt berfungsi untuk menghidupkan ataumengaktifkan perintah yang perintah yang ada seperti clrscr dan readkey, dan untuk aku fungsinya untuk memanggil unit yang telah dibuat sebelumnya atau pada program lain

VAR

N: INTEGER;

Penjelasan :

Memberikan variabel untuk dideklarsikan agar mempunyai type data yaitu untuk listing program diatas variabel N diberi typa data Integer

BEGIN

Penjelasan :

Perintah untuk memulai sebuah program tersebut

CLRSCR;

Penjelasan :

Perintah untuk membersihkan layar apabila program dijalankan dan ini adalah perintah yang harus dihidupkan terlebih dahulu dengan perintah Uses Crt

WRITELN;

WRITE (' BERAPA FAKTORIAL : ');READLN(N);

WRITELN(' FAKTORIAL ',N,'! : ',FAKTORIAL(N));

READLN;

Penjelasan :

Mencetak kata “BERAPA FAKTORIAL : “ dan sekaligus menginput data yang diwakili variabel yang telah dideklarasikan sebeumnya yaitu N. juga mencetak kata FAKTORIAL kemudian nilai inputan (N) dan tanda ! (seru) dan hasil dari faktorial dari nilai inputan tersebut. Faktorial dapat dicari karena program ini memanggil function faktorial lewat Unit yang telah dibuat tadi

END.

Penjelasan :

Perintah untuk mengakhiri program karena dalam suatu program end titik hanya ada satu

Dalam program kedua ini juga ada yang harus diperhatikan yaitu nama Unit yang akan dipanggil harus sama dengan program Unit yang telah dibuat sebelumnya dan apabila program Unit itu belum ada atau belum dibuat maka program ini tidak dapat dijalankan karena dalam program ini functionnya berlainan tempat yaitu rumus untuk mencari hasil dari faktorialnya

LISTING PROGRAM

PROGRAM 1

UNIT aku;

INTERFACE

FUNCTION FAKTORIAL (x:longint):longint;

IMPLEMENTATION

FUNCTION FAKTORIAL;

BEGIN

IF x = 1 THEN FAKTORIAL := 1

ELSE

FAKTORIAL := x*FAKTORIAL(x-1);

END;

END.

PROGRAM 1

USES CRT, aku;

VAR

N: INTEGER;

BEGIN

CLRSCR;

WRITELN;

WRITE (' BERAPA FAKTORIAL : ');READLN(N);

WRITELN(' FAKTORIAL ',N,'! : ',FAKTORIAL(N));

READLN;

END.