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