Permutasi dan Kombinasi

1)     Program Faktorial

program faktorial;

uses wincrt;

var

n,i : longint;

f : real;

begin

readln(n); f:=1; i:=0;

if(n=0) then

writeln (1);

repeat

      i:= i + 1;

      f:= f * i;

until i:= n;

writeln (n,'faktorial=',f);

end.

2)     Permutasi dan Kombinasi

program permutasi_kombinasi;

uses wincrt;

var

a, b, a_k, kombinasi, permutasi: real;

i, n, k : longint;

begin

      writeln ('menghitung permutasi dan kombinasi:');

      write ('masukkan bilangan n='); readln (n);

      write ('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: 4: 1);

      end.