Belajar Online

Kombinasi
secara matematika, untuk masalah kombinasi, perlu diketahui jumlah data dan jumlah objek kombinasi. Misalnya saja, ada 5 orang kandidat untuk mengisi lowongan pimpinan jenjang disuatu sekolah. Jumlah pimpinan yang dibutuhkan ada 3 orang. Maka ada berapa banyak kombinasi 3 orang pimpinan dari 5 orang kandidat tersebut.
Penyelesaian secara matematika :
n (jumlah data) = 5
r (objek) = 3
C (kombinasi) : nCr = n! / (r!*(n-r)!)

Jika diprogramkan, maka kita membutuhkan fungsi Faktorial untuk menghitung nilai faktorial data dan nilai faktorial objek. Kemudian baru kita hitung kombinasi nya, sebagai berikut :

program kombinasi;
uses crt;
var objek,data,i,j,k,l:integer;
    fobjek,fdata:longint;
    kombi:real;

function faktorial(var a:integer):longint;
begin
   k:=1;
   for i:=1 to a do k:=k*i;
   faktorial:=k;
end;

begin
   clrscr;

   readln(objek,data);

   fobjek:=faktorial(objek);
   fdata:=faktorial(data);
   j:=data-objek;
   l:=faktorial(j);

   {rumus kombinasi}
   kombi:=fdata/(fobjek*l);

   writeln(kombi);

   readkey;
end.