Delphi – Latihan dan Tugas Penggunaan For

DELPHI – LATIHAN PENGGUNAAN FOR

Desain Form

Buatlah program untuk menghitung deret geometri, faktrorial dan fibonacci untuk suku n. Tampilan program seperti pada Gambar 1.

Image

Gambar 1. Desain Form

Pengkodean

Image

Image

Image

Tugas 1

Buatlah program menghitung saldo deposito dengan input:

  • Lama deposito (bulan)
  • Suku Bunga (%)
  • Deposito Rp.

Saldo diperoleh berdasarkan penjumlahan saldo bulan sebelumnya dengan bunga.

Image

Gambar 2. Form Deposito

Tugas 2

Buatalah program perpangkatan 2 bilangan bulat X dan n, seperti gambar berikut:

Image

Gambar 3. Form Gambar

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;