Minggu, 13 Oktober 2013

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

1 komentar:

Mari Budayakan Berkomentar yang Baik, Sopan, dan Ramah, Sesuai Budaya Indonesia.

WENDA ALIFULLOH Produksi 2021