Thursday 17 April 2014

Assalamu'alaikum wr.wb.
Pada kesempatan kai ini saya akan share program menghitung faktorial mengunakan delphi. Program ini terdiri dari 2 label, 2 Edit, dan 3 button dengan tampilan sebagai berikut:



procedure TForm1.btn1Click(Sender: TObject);
var i, n : integer;
    nfak : longint;
begin
  n:=strtoint(edt1.Text);
    nfak:=1;
    for i := 2 to n do
       nfak:=nfak*i;
    edt2.text:=inttostr(nfak)
end;
procedure TForm1.btn2Click(Sender: TObject);
begin
  Edt1.Text:='';
  Edt2.Text:='';
  Edt1.SetFocus;

end;

procedure TForm1.btn3Click(Sender: TObject);
begin
Close;
end;
end.

Demikian yang dapat saya sampaikan semoga bermanfaat,wassalamu'alaikum wr.wb .

0 comments:

Post a Comment