{"id":1392,"date":"2013-12-15T17:34:09","date_gmt":"2013-12-15T10:34:09","guid":{"rendered":"http:\/\/www.sulhansetiawan.com\/?p=1392"},"modified":"2013-12-24T22:47:31","modified_gmt":"2013-12-24T15:47:31","slug":"unit","status":"publish","type":"post","link":"https:\/\/sulhansetiawan.com\/id\/unit\/","title":{"rendered":"Unit"},"content":{"rendered":"

<\/p>\n

<\/a><\/a><\/a><\/div>\n

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.<\/p>\n

Susunan dari sebuah unit adalah sebagai berikut:<\/p>\n

unit NamaUnit;\r\n\r\ninterface\r\n\r\n\/\/bagian deklarasi\r\n\r\nimplementation\r\n\r\n\/\/bagian implementasi \r\n\r\nend.<\/pre>\n
Permutasi dengan unit<\/h3>\n
Buatlah aplikasi console baru. Seperti biasa, hapuslah bagian uses karena kita tidak akan menggunakan unit yang disediakan oleh Deplhi.
<\/p>\nSetelah 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:<\/p>\n
program Project1;\r\n{$APPTYPE CONSOLE}\r\n\r\nuses\r\n  Unit1 in 'Unit1.pas';\r\n\r\nbegin\r\n  { TODO -oUser -cConsole Main : Insert code here }\r\nend.<\/pre>\n
Pilih menu File>Save All<\/strong> untuk menyimpan pekerjaan sedini mungkin. Simpan Unit1 menjadi Matematika.pas dan Project1 menjadi Permutasi3.dpr.
<\/p>\nSecara otomatis nama unit yang digunakan juga akan diganti menjadi Matematika.
<\/p>\nBuatlah bagian unit Matematika seperti berikut:<\/p>\n
unit Matematika;\r\n\r\ninterface\r\n\r\nfunction Faktorial(bil:integer):Extended;\r\n\r\nimplementation\r\n\r\nfunction Faktorial(bil:integer):Extended;\r\nvar n:integer;\r\nbegin\r\n  result:=1;\r\n  if (bil<>0) then\r\n  begin\r\n    n:=1;\r\n    repeat\r\n      result:=result*n;\r\n      n:=n+1;\r\n    until (n>bil);\r\n  end;\r\nend;\r\n\r\nend.<\/pre>\n
Pada bagian program, buatlah seperti berikut:<\/p>\n
program Permutasi3;\r\n{$APPTYPE CONSOLE}\r\nuses\r\n  Matematika in 'Matematika.pas';\r\nvar\r\n  n,r,k:integer;\r\n  Hasil:Extended;\r\nbegin\r\n  Write('Masukkan jumlah unsur (n): ');\r\n  Readln(n);\r\n  Write('Masukkan jumlah pengambilan (r): ');\r\n  Readln(r);\r\n  Write('Masukkan jumlah unsur sama (k): ');\r\n  Readln(k);\r\n  Hasil:=  Faktorial(n)\/\r\n      (Faktorial(n-r)*Faktorial(k));\r\n  Writeln('Hasil permutasinya adalah: ',Hasil:0:0);\r\n  Writeln('Tekan Enter');\r\n  Readln;\r\nend.<\/pre>\n
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.<\/p>\n
<\/a><\/a><\/a><\/div>\n
<\/p>","protected":false},"excerpt":{"rendered":"
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…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[105,104,96,145],"tags":[106],"class_list":["post-1392","post","type-post","status-publish","format-standard","hentry","category-delphi-lazarus","category-programming","category-all","category-tutorial","tag-delphi"],"_links":{"self":[{"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/posts\/1392","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/comments?post=1392"}],"version-history":[{"count":0,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/posts\/1392\/revisions"}],"wp:attachment":[{"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/media?parent=1392"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/categories?post=1392"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/tags?post=1392"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}