Wednesday, March 25, 2009

Combination

In mathematics combination is formulated with :

C(n,k) = n! / n!* (n-k)!

For example,combination from 5 and 2 is :

C(5,2) = 5! / 5!* (5-2)!

= 10

In pascal programming you can use statement like this to finish it.

program combinasi;
uses wincrt;
var fn,fk,fn_k,kombinasi : real;
    i,n,k : integer;
begin
write('input n =');readln(n);
write('input k =');readln(k);
fn:=1;
fk:=1;
fn_k:=1;
for i:=2 to n do
 fn := fn * i;
for i:=2 to k do
 fk := fk * i;
for i:=2 to (n-k) do
 fn_k := fn_k * i;
kombinasi:= fn/(fk*fn_k);
writeln(n,' kombinasi ',k,' = ',kombinasi:0:0);
end.


And the output is like this :





image

2 comments:

budi said...

kerennnn...

Anonymous said...

helpfull. tapi tu intro di atas tentang penjelasan kombinasi perlu diperbaiki. ada sedikit kesalahan..