Pemrograman Berorientasi Obyek – Program Faktorial


Berikut ini contoh program faktorial menggunanakan pernyata FOR..DO..

Desain Form:

Pengkodean:


Procedure TForm1.Button1Click(Sender: TObject);
var i, n : integer;
    nfak : longint;
begin
    n:=strtoint(edit1.Text);
    nfak:=1;
    for I := 2 to n do
       nfak:=nfak*i;
    edit2.text:=inttostr(nfak)
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Text:='';
  Edit2.Text:='';
  Edit1.SetFocus;
end;

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

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s