PROGRAM DELPHI UNTUK MENGHITUNG NILAI KOMBINASI

procedure TForm1.Button1Click(Sender: TObject);

var

  n,p,q,i,x,k,r:integer;

  c:real;

begin

  n:=strtoint(edit2.Text);

  p:=1;

  for i:=1 to n do

    begin

      p:=p*i;

    end;

  k:=strtoint(edit1.Text);

  q:=1;

  for i:=1 to k do

    begin

      q:=q*i;

    end;

  x:=n-k;

  if x>=0 then

    begin

      r:=1;

      for i:=1 to x do

        begin

           r:=r*i;

           c:=p/(q*r);

           edit3.Text:=floattostr(c);

           edit4.text:='NILAI N DAN K YANG ANDA MASUKKAN TEPAT !';

        end;

    end;

  if x<0 then

    begin

      Edit3.Text:='MAAF !';

      Edit4.text:='NILAI N HARUS LEBIH BESAR ATAU SAMA DENGAN K !';

    end;

    end;

end.

untuk kode diatas hanya bisa pada kombinasi bilangan bulat kecil, sebab keterbatasan delphi dalam Jenis var integer.

semoga bermanfaat.

Wenda Alifulloh, Bandung 2013