TUGAS 3 (DERET POLA)

Berdasarkan contoh aplikasi sederhana (menampilkan hasil deret sampai suku ke n) yang lalu, kali ini kita akan membuat aplikasi sederhana untuk menampilkan hasil deret juga namun

dengan pola -1, 3, -5, 7, -9, .... dan seterusnya.

Untuk kriteria form sebagai berikut :

Items	Name	Caption	Text
Label1	Label1	Masukkan Suku Ke n	-
Label2	Label2	Hasil Deret Sampai Suku Ke n	-
Button1	Button1	PROSES	-
Button2	Button2	CLEAR	-
Edit1	Edit1	-	{kosongkan}
Memo1	Memo1	-	-

Dilihat dari angka yang ingin ditampilkan merupakan angka ganjil (1, 3, 5, 7, 9, dst) dan dengan pola(-, +, -, +, -, dst), maka untuk pengetikan listing program sebagai berikut :

a.      double-klik pada tombol PROSES

procedure TForm1.Button1Click(Sender: TObject);

var

  a,b,c,i:integer;

begin

  a:=strtoint(Edit1.Text);

  Memo1.Clear;

  i:=-1;

  c:=-2;

  while i<=(a*2) do

  begin

    b:=i;

    Memo1.Lines.Add(inttostr(b));

    i:=(b+c)*-1;

    c:=c*-1; 

  end;

end;

b.      double-klik pada tombol CLEAR

procedure TForm1.Button2Click(Sender: TObject);

begin

 Edit1.Text:='';

 Memo1.Clear;

end;

setelah pengetikan listing program, lakukan penyimpanan :

·         Save as : untuk menyimpan editor

·         Save Project As : untuk menyimpan project

Kemudian lakukan pengujian aplikasi dengan menekan tombol fungsi F9. Jika berhasil, maka kotak Memo akan menampilkan nilai deret hingga suku ke-n yang telah diinputkan.

Play

Hasil Akhir

<contoh program dan script lengkap lihat disini>


{CAUTION!!!}

ð  penyimpanan editor dengan project harus berbeda nama! Misalnya editor = latihan, maka project = latihan1

ð  nama penyimpanan tidak boleh menggunakan kata yang terdapat pada listing program. Seperti procedure, function, public, private dan lain-lain