{"id":1390,"date":"2013-12-15T17:00:17","date_gmt":"2013-12-15T10:00:17","guid":{"rendered":"http:\/\/www.sulhansetiawan.com\/?p=1390"},"modified":"2013-12-15T17:00:17","modified_gmt":"2013-12-15T10:00:17","slug":"calculation-of-permutation","status":"publish","type":"post","link":"https:\/\/sulhansetiawan.com\/id\/calculation-of-permutation\/","title":{"rendered":"Menghitung Permutasi"},"content":{"rendered":"<p><\/p>\n<div style=\"width: 96px; margin-left: auto; margin-right: auto;\"><a href=\"\/id\/?p=1389\"><img decoding=\"async\" title=\"Tentang Parameter\" alt=\"\" src=\"https:\/\/sulhansetiawan.com\/_wordpress_\/2013\/12\/arrowleft_green_32.png\" \/><\/a><a href=\"\/id\/?p=1379\"><img decoding=\"async\" title=\"Tutorial Delphi\" alt=\"\" src=\"https:\/\/sulhansetiawan.com\/_wordpress_\/2013\/12\/home_green_32.png\" \/><\/a><a href=\"\/id\/?p=1391\"><img decoding=\"async\" title=\"Fungsi\" alt=\"\" src=\"https:\/\/sulhansetiawan.com\/_wordpress_\/2013\/12\/arrowright_green_32.png\" \/><\/a><\/div>\n<p>Sebuah contoh perhitungan matematika mengenai permutasi adalah sebagai berikut:<p><\/p>\nBerapa banyaknya permutasi dari perkataan \u201cANITA\u201d jika disusun dari tiga huruf?<p><\/p>\nJawab:<p><\/p>\nBanyaknya unsur pada perkataan \u201cANITA\u201d adalah 5.<p><\/p>\nBanyaknya unsur yang sama adalah 2 yaitu dua huruf A.<p><\/p>\nBanyaknya permutasi tersebut adalah:<p><\/p>\n<img loading=\"lazy\" decoding=\"async\" class=\"aligncenter\" title=\"Permutasi\" alt=\"Permutasi\" src=\"https:\/\/sulhansetiawan.com\/_wordpress_\/2013\/12\/permutasi.png\" width=\"214\" height=\"77\" \/><p><\/p>\ndimana n adalah jumlah unsur, r adalah jumlah pengambilan, dan k adalah jumlah unsur yang sama.<\/p>\n<p>Untuk menyelesaikan perhitungan tersebut, kita membutuhkan prosedur yang melakukan perhitungan faktorial dan memberikan hasilnya kepada pemanggilnya (bukan langsung mencetak hasilnya seperti pada contoh terdahulu).<\/p>\n<pre class='brush: delphi'>program Permutasi;\r\n{$APPTYPE CONSOLE}\r\nvar\r\n  n,r,k:integer;\r\n  tmp1,tmp2,tmp3,Hasil:Extended;\r\n  procedure HitungFakt(bil:integer;out Hasil:Extended);\r\n  var n:integer;\r\n  begin\r\n    Hasil:=1;\r\n    if (bil<>0) then\r\n    begin\r\n      n:=1;\r\n      repeat\r\n        Hasil:=Hasil*n;\r\n        n:=n+1;\r\n      until (n>bil);\r\n    end;\r\n  end;\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  HitungFakt(n,tmp1); \/\/hitung n!  \r\n  HitungFakt(n-r,tmp2); \/\/hitung (n-r)!  \r\n  HitungFakt(k,tmp3); \/\/hitung k!\r\n  Hasil:=tmp1\/(tmp2*tmp3);\r\n  Writeln('Hasil permutasinya adalah: ',Hasil:0:0);\r\n  Writeln('Tekan Enter');\r\n  Readln;\r\nend.<\/pre>\n<p>Pada bagian menampilkan hasil, kita memberikan parameter kepada Writeln berupa Hasil:0:0. Ini adalah cara untuk memformat tampilan bilangan dengan tipe pecahan. Angka pertama setelah nama variabel menunjukkan jumlah karakter yang dipesan untuk penampilan hasilnya. Angka ini berguna jika kita hendak membuat tampilan yang rata kanan. Sedangkan angka kedua adalah angka yang menunjukkan jumlah digit setelah titik desimal. Tanpa adanya penambahan dua angka ini, maka bilangan pecahan akan ditampilkan dalam format sx.xxxxxxxxxxxxxxEsxxxx dimana x adalah angka dan s adalah tanda (- atau +, tetapi jika + tidak di cetak untuk s yang pertama).<\/p>\n<p>Anda juga bisa memberikan angka format tersebut untuk bilangan bulat, tetapi hanya sebuah angka saja yang diijinkan yang berguna untuk menentukan jumlah karakter. Ingat bahwa bilangan bulat tidak pernah punya nilai setelah titik desimal.<\/p>\n<p>Jika program dijalankan, maka hasilnya akan tampak sebagai berikut:<\/p>\n<pre>Masukkan jumlah unsur (n): 5\r\nMasukkan jumlah pengambilan (r): 3\r\nMasukkan jumlah unsur sama (k): 2\r\nHasil permutasinya adalah: 30\r\nTekan Enter\r\n\r\n<\/pre>\n<p>Jika kita tidak memberikan angka pengaturan, maka hasil yang muncul akan menjadi 3.00000000000000E+0001 bukan 30.<\/p>\n<div style=\"width: 96px; margin-left: auto; margin-right: auto;\"><a href=\"\/id\/?p=1389\"><img decoding=\"async\" title=\"Tentang Parameter\" alt=\"\" src=\"https:\/\/sulhansetiawan.com\/_wordpress_\/2013\/12\/arrowleft_green_32.png\" \/><\/a><a href=\"\/id\/?p=1379\"><img decoding=\"async\" title=\"Tutorial Delphi\" alt=\"\" src=\"https:\/\/sulhansetiawan.com\/_wordpress_\/2013\/12\/home_green_32.png\" \/><\/a><a href=\"\/id\/?p=1391\"><img decoding=\"async\" title=\"Fungsi\" alt=\"\" src=\"https:\/\/sulhansetiawan.com\/_wordpress_\/2013\/12\/arrowright_green_32.png\" \/><\/a><\/div>\n<p><\/p>","protected":false},"excerpt":{"rendered":"<p>Sebuah contoh perhitungan matematika mengenai permutasi adalah sebagai berikut: Berapa banyaknya permutasi dari perkataan \u201cANITA\u201d jika disusun dari tiga huruf? Jawab: Banyaknya unsur pada perkataan \u201cANITA\u201d adalah 5. Banyaknya unsur yang sama adalah 2 yaitu dua huruf A. Banyaknya permutasi tersebut adalah: dimana n adalah jumlah unsur, r adalah jumlah pengambilan, dan k adalah jumlah&hellip;<\/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-1390","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\/1390","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=1390"}],"version-history":[{"count":0,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/posts\/1390\/revisions"}],"wp:attachment":[{"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/media?parent=1390"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/categories?post=1390"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/sulhansetiawan.com\/id\/wp-json\/wp\/v2\/tags?post=1390"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}