menghitung combinasi dengan pascal (fungsi di TPW)

ternyata di fpc dan di tpw...

hasilnya berbeda cuy...

postingan sebelumnya ane pake di fpc jalan..

di tpw minta kurung mulu...

nih ane bikin versi tpw,..

alhasil make rekursif..

:D

uses wincrt;

var

hasil,n,r: integer;

combinasi:longint;

function faktorial( n : integer):longint;

var i : integer;

begin

  if n > 1 then

  faktorial:=faktorial(n-1)*n

  else

  faktorial:=1;

end;

function comb(n,r : integer) : longint;

var a,b,c: longint;

begin

a:=faktorial(n);

b:=faktorial(r);

c:=n-r;

c:=faktorial(c);

comb:=a div (b*c);

end;

begin

clrscr;

writeln('diketahui rumus nCr');

writeln('dimana nCr= n!/r!(n-r)!');

write ('masukkan nilai n ');

readln(n);

write ('masukkan nilai r ');

readln(r);

hasil:=comb(n,r);

writeln('nilai ',n,'C',r,' adalah ',hasil);

readln;

end.