Unit

Unit adalah sebuah tempat untuk menyimpan kumpulan prosedur, fungsi, variabel, konstanta, definisi tipe, dan lain-lain. Dengan menempatkan prosedur-prosedur atau fungsi-fungsi di dalam sebuah unit, maka prosedur atau fungsi tersebut bisa digunakan oleh banyak program. Susunan unit mirip dengan program. Akan tetapi unit tidak bisa dijalankan. Unit hanya bisa dipakai oleh program.

Susunan dari sebuah unit adalah sebagai berikut:

unit NamaUnit;

interface

//bagian deklarasi

implementation

//bagian implementasi 

end.

Permutasi dengan unit

Buatlah aplikasi console baru. Seperti biasa, hapuslah bagian uses karena kita tidak akan menggunakan unit yang disediakan oleh Deplhi.

Setelah itu buatlah unit baru dengan cara pilih menu File-New-Unit. Secara otomatis unit yang baru dibuat diberi nama Unit1, dan secara otomatis pula unit ini akan ditambahkan ke dalam program kita. Penampilan program kita akan menjadi seperti berikut:

program Project1;
{$APPTYPE CONSOLE}

uses
  Unit1 in 'Unit1.pas';

begin
  { TODO -oUser -cConsole Main : Insert code here }
end.

Pilih menu File>Save All untuk menyimpan pekerjaan sedini mungkin. Simpan Unit1 menjadi Matematika.pas dan Project1 menjadi Permutasi3.dpr.

Secara otomatis nama unit yang digunakan juga akan diganti menjadi Matematika.

Buatlah bagian unit Matematika seperti berikut:

unit Matematika;

interface

function Faktorial(bil:integer):Extended;

implementation

function Faktorial(bil:integer):Extended;
var n:integer;
begin
  result:=1;
  if (bil<>0) then
  begin
    n:=1;
    repeat
      result:=result*n;
      n:=n+1;
    until (n>bil);
  end;
end;

end.

Pada bagian program, buatlah seperti berikut:

program Permutasi3;
{$APPTYPE CONSOLE}
uses
  Matematika in 'Matematika.pas';
var
  n,r,k:integer;
  Hasil:Extended;
begin
  Write('Masukkan jumlah unsur (n): ');
  Readln(n);
  Write('Masukkan jumlah pengambilan (r): ');
  Readln(r);
  Write('Masukkan jumlah unsur sama (k): ');
  Readln(k);
  Hasil:=  Faktorial(n)/
      (Faktorial(n-r)*Faktorial(k));
  Writeln('Hasil permutasinya adalah: ',Hasil:0:0);
  Writeln('Tekan Enter');
  Readln;
end.

Program Permutasi3 menggunakan fungsi Faktorial yang tidak didefinisikan di dalam program tersebut. Fungsi tersebut di definisikan di dalam unit yang terdapat pada bagian uses-nya.

Apakah Anda menyukai post ini? Mengapa tidak memberikan komentar di bawah dan melanjutkan perbincangan, atau berlangganan my feed dan dapatkan artikel semacam ini yang dikirm secara otomatis feed reader Anda.
Harap diperhatikan bahwa komentar atau pertanyaan yang disampaikan haruslah sesuai dengan topik yang sedang dibahas. Komentar atau pertanyaan yang tidak sesuai dengan topik akan kami hapus :!:

Tinggalkan komentar

Sebelum membuat komentar, pastikan Anda telah membaca komentar-komentar sebelumnya. Jangan membuat pertanyaan yang telah ditanyakan. Perhatikan pula link-link dalam artikel. Lihatlah link tersebut sebelum membuat pertanyaan, karena mungkin penjelasan dari pertanyaan Anda telah di jawab dalam link tersebut.

Komentar yang tidak mengikuti aturan ini akan dihapus!

(wajib)

(wajib)


Time limit is exhausted. Please reload the CAPTCHA.