PROGRAM KOMBINASI FAKTORIAL

program kombinasi_faktorial;
uses wincrt;
var
fn,fk,fn_k,Kombinasi:real;
i,n,k:integer;
begin
write('Masukkan bilangan n =');readln(n);
write('Masukkan bilangan k =');readln(k);
fn:=1;
fk:=1;
fn_k:=1;
for i:= 2 to n do{Menghitung n faktorial}
fn:=fn*i;
for i := 2 to k do{Menghitung k faktorial}
fk:=fk*i;
for i:= 2 to (n-k) do{ menghitung n-k faktorial}
fn_k:=fn_k*i;
kombinasi:=fn/(fk*fn_k);
writeln(n,' Kombinasi ',k, ' = ',Kombinasi:0:0);
write('');writeln;
write('');writeln;
write('  MATERI KOMBINASI FAKTORIAL  ');writeln;
write('   NAMA   :  MISBAHUL MUNIR   '); writeln;
write('     NO NIM :  111221067     '); writeln;
write('www.munirmaestro.blogpsot.com');writeln;
end.

Tampilan Running