Permutasi Kombinasi

arif zainurrohman

Program arifpermutkombin;
uses wincrt;
var
a,b,a_k,Kombin,Permut:real;
i,n,k:integer;
begin
writeln('Menghitung Kombinasi dan Permutasi');
write('Masukkan bilangan kombinasi : ');readln(n);
write('masukkan bilangan permutasi : ');readln(k);
a:=1;
b:=1;
a_k:=1;
for i:=2 to n do
a:=a*i;
for i:=2 to k do
b:=b*i;
for i:=2 to (n-k)do
a_k:=a_k*i;
Kombin:=a/(b*a_k);
Permut:=a/(a_k);
writeln(n, ' Kombinasi ',k,' : ',kombin:0:0);
writeln(n, ' Permutasi ',k,' : ',Permut:0:0);
end.



Kota Pempek , 28 Maret 2012



akhukum fillah arif zainurrohman