TUGAS 4 KOMBINASI

program faktor_kombinasi;

uses WinCrt;

procedure Fak(Var F,Hasil:integer);

var

i:integer;

begin

     Hasil:=1;

     For i:=2 to F do Hasil:=Hasil*i;

end;

var

R,N,NR,F1,F2,F3:integer;

C:real;

begin

  write('Banyaknya Data      = '); readln(N);

  write('Banyaknya Kombinasi = '); readln(R);

  NR:=N-R;

  Fak(N,F1);

  Fak(NR,F2);

  Fak(R,F3);

 

  C:=F1/(F2*F3);

 

  writeln;

  writeln('Kombinasi Yang Terjadi = ',C:9:0);

end.