Banyaknya kombinasi dapat dihitung dari rumus :

C pangkat n dan r = n! per ( n-r)! dikalikan r!

Keterangan :

N = banyaknya data yang belum dikombinasikan

R = banyaknya kombinasi

C = jumlah kombinasi yang terjadi

Misal : n= 4

R= 4

= 4! per (4-4)! dikali 4!=4!per 4!=1.2.3.4 per 1.2.3.4= 24 per 24= 1

nah untuk menghitung dalam Turbo Pascal juga ada langkah – langkahnya, simak berikut :

program Kombinasi;

uses

WinCrt;

Procedure Fak(Var F,Hasil:integer);

Var

I:integer;

begin

Hasil:=1;

For I:=2 to F do Hasil:=Hasil*I;

end;

Var

R,N,NR,F1,F2,F3:integer;

C:real;

Begin

Write('Masukkan nilai yang akan dikombinasikan = ');Readln(N);

Write('Jumlah Kombinasi = ');Readln(R);

NR:=N-R;

Fak(N,F1);

Fak(NR,F2);

Fak(R,F3);

C:=F1/(F2*F3);

Writeln;

writeln ('------------------------------');

Writeln('Kombinasi : ',c:7:0);

end.

inilah Tanpilan outputnya....