Kombinasi adalah
menggabungkan beberapa objek dari suatu kumpulan tanpa memperhatikan urutannya.
Oleh karena itu, kombinasi berbeda dengan permutasi, dimana letak perbedaannya
adalah susunan yang tidak diurutkan. Pada kombinasi, susunan XY sama saja
dengan YX.
Lambang kombinasi adalah C. Dengan begitu, n kombinasi r berarti
Rumus penghitungan kombinasi adalah sebagai berikut.
" ! " = Faktorial,,
berikut adalah contoh
penghitungan Kombinasi faktorial dengan Procedure di Delphi 7
pertama kita buka
dulu Borland Delphi 7 dulu,,
kalau nggak tau
caranya klik disini
berikut ini penulisan perintah Procedure by reference dan
hasilnya:
jagan lupa klik
'play' atau tekan F9 pada keyboard,,
masukkan data yang dikombinasikan seperti gambar berikut
ini,,
lalu masukkan angka banyaknya kombinasi,,,,
berikut hasil penghitungannya,,
itulah hasil percobaan Kombinasi Faktorial dengan
Procedure di Delphi 7,,
Perintah intinya :
uses
SysUtils;
procedure faktorial
(var fak,hasil:integer);
var
i:integer;
begin
hasil:=1;
for i :=2 to fak do
hasil:=hasil * i;
end;
var
C:real; N,R,F,
NminR:integer;
f1, f2, f3:integer;
begin
write ('banyaknya
data yang dikombinasikan?');readln (N);
write('banyaknya
kombinasi=');readln(R);
faktorial(N, F1);
NminR:=N-R;
faktorial (NminR,
F2);
faktorial(R,F3);
C:=F1/(F2*F3);
writeln('Hasil
kombinasi = ',C:10:2);
Readln;
end.
keterangan perintah-perintah delphi 7 klik disini
***selamat mencoba***
