Program Menghitung Deret Aritmetika Bilangan Sampai Suku Ke-N

Pada postingan kali ini saya akan mencoba untuk membuat program deret aritmetika bilangan sampai suku ke N. Berikut langkah-langkahnya.
1.    Seperti biasa masuk ke aplikasi borland delphi 7 terlebih dahulu setelah itu plih file-aplication.
2.    Setelah jendela aplication terbuka buatlah aplikasi pada form seperti di bawah ini.

3.  Setelah itu ubah object inspector seperti di bawah ini.

4.    Setelah itu double klik pada buttom proses dan ketik scrip dibawah ini.
procedure TForm1.Button1Click(Sender: TObject);
var
  a,i,b:integer;
begin
  a:=strtoint(Edit1.Text);
  Memo1.Clear;
  i:=1;
  while i<=a do
  begin
    b:=i;
    Memo1.Lines.Add(inttostr(b));
    i:=i+1;
  end;
end;
5.    Setelah itu double klik pada buttom close dan ketik scrip dibawah ini.
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
6.    Setelah selesai menuliskan scrip diatas selanjutnya klik run untuk menjalankan.

7.    Selamat mencoba dan terimakasih.