Delphi : Program Deret Aritmatika

Nama           : ANDI KHOIRUDIN

Kelas           : 2-B SMT 2

Jurusan       : Teknik Informatika

STIMIK YADIKA BANGIL 2015

Membuat Program Sederhana 'Deret Aritmatika sampai suku ke - n ' dengan DELPHI 

Langkah-langkahnya  : 

1. Buka Aplikasi Delphi 

2. Pilih Menu File --> New --> Form Delphi 

3. Kemudian Desain Propertiesnya : 

Hingga seperti gambar di bawah ini : 

4.Kemudian Double Klik Button Proses dan Sisipkan script di bawah ini : 

procedure TForm1.Button1Click(Sender: TObject);
VAR
A, I, B, d, e: INTEGER;

BEGIN

A:=STRTOINT(EDIT1.Text);

I:=1;
WHILE I<= A DO
BEGIN

B:=I;
i:=i+1;

MEMO1.LINES.ADD(INTTOSTR(B));

END;
end ;

5.Kemudian Double Klik Button Clear  dan Sisipkan script di bawah ini :

procedure TForm1.Button2Click(Sender: TObject);
begin
MEMO1.Clear;
end;

6.Kemudian Double Klik Button Close dan Sisipkan script di bawah ini :

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

7. Terakhir coba jalankan program dengan tekan F9 atau klik tombol Run , apabila tidak ada pesan kesalahan maka program akan terlihat seperti di bawah ini :

8. Ketika program di coba untuk digunakan maka akan tampil seperti di bawah ini :

Silahkan dikembangkan sendiri programnya. Semoga bermanfaat & Selamat Mencoba
Jika ada kesalahan Mohon maaf dan terima kasih sudah berkunjung