LATIHAN 4 (DERET)

form

Aplikasi sederhana untuk menampilkan deret hingga suku ke-n, menggunakan looping (perulangan) dengan while do. 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	-
Edit1	Edit1	-	{kosongkan}
Memo1	Memo1	-	-

Pada aplikasi sederhana ini, untuk menampilkan(output) dari deret kita gunakan kotak Memo dimana item hanya dapat ditampilkan tanpa dapat memilih.

 

Untuk pengetikan listing program :

double-klik pada tombol PROSES

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;

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

TUGAS

Buat deret dengan pola : -1, 3, -5, 7, -9 ... (disini)