Faktorial Kombinasi

Istilah kombinasi dalam matematika kombinatorik berarti himpunan objek yang tidak mementingkan urutan. Kombinasi berbeda dengan permutasi yang mementingkan urutan objek.

Pertama buka delphi!

Pada tampilannya buatlah Console Aplication / Code Editor seperti di bawah ini :

program Project2;

{$APPTYPE CONSOLE}

uses

  SysUtils;

Procedure faktorial(var fak,hasil:integer);

var

i:integer;

begin

hasil:=1;

for i := 2 to fak do

hasil := hasil*i;

end;

var

c:real; N,R, NminR : integer;

F1,F2,F3 : integer;

begin

write('Banyaknya data yang dikombinasikan = '); readln(N);

write('Banayaknya kombinasi = '); readln(R);

faktorial(N,F1);

NminR:=N-R;

faktorial(NminR,F2);

faktorial(R,F3);

c:=F1/(F2*F3);

writeln('Jumlah kombinasi yang terjadi',c:10:2);

readln;

  { TODO -oUser -cConsole Main : Insert code here }

end