PROGRAM PERMUTASI DAN KOMBINASI

program pascal dibawah ini:

program kombinasi_permutasi;
uses wincrt;
var
fn,fk,fn_k,Kombinasi,permutasi:real;
i,n,k:integer;
begin
writeln('MENGHITUNG PERMUTASI DAN KOMBINASI:') ;
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
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);
permutasi:=fn/(fn_k);
writeln(n,' Kombinasi ',k, ' = ',Kombinasi:0:0);
writeln(n,' Permutasi ',k, ' = ',Permutasi:0:0);
end.

hasil dari program diatas akan menghasilkan

SMOGA DAPAT MEMBANTU