Program kombinasi dan permutasi

Program permutasi_kombinasi;
uses wincrt;
var
   a,b,a_k,Kombinasi,Permutasi:real;
   i,n,k:integer;
begin
     writeln('Menghitung Kombinasi dan Permutasi:');
     writeln('Masukkan bilangan n=');readln(n);
     writeln('masukkan bilangan k=');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;
Kombinasi:=a/(b*a_k);
Permutasi:=a/(a_k);
writeln(n, ' Kombinasi ',k,' = ',kombinasi:0:0);
writeln(n, ' Permutasi ',k,' = ',Permutasi:0:0);
end.

Read More