LATIHAN 4

1. Buatlah tampilan program seperti dibawah ini

2. Buat Kode Program!

a. Klik ganda Button PROSES, lalu tuliskan script dibawah ini.

procedure TForm1.btnProsesClick(Sender: TObject);

var

a,i,c,b:integer;

begin

a:=strtoint(Edit1.text);

Memo1.Clear;

i:=-1;

c:=-2;

while i<=a do

begin

b:=i;

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

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

c:=c*-1;

end;

end;

end.

b. Klik ganda Button TUTUP, lalu tuliskan script dibawah ini.

procedure TForm1.Button1Click(Sender: TObject);

begin

CLOSE;

end;

end.

3. Jalankan aplikasi!

• Masukkan angka 10

• Klik PROSES, dan muncullah deretan angka dengan pola -1, 3, -5, 7, -9

• Klik TUTUP untuk mengakhiri program