Delphi 7

Latihan 4 (Listing Program tombol PROSES [btnProses])
membuat aplikasi Deret sampai Suku ke-n, berikut tampilan interface dan Listing Program.


pertama buat interface seperti gambar disamping

kemudian akan muncul Lembar kerja untuk menulis Listing Program, tulis perintah-perintahnya seperti gambar 1 dan 2  dibawah ini

gambar 1

gambar 2

hasil Running Program

Pada hasil running program disamping pada gambar no-1 menunjukkan awal tampilan, pada gambar no-2 menunjukkan tampilan diisi dengan angka 6 setelah itu klik tombol/button 'PROSES' dan gambar no-3 menunjukkan hasil proses program.

_________________________________________________________________________________

Pada Tugas kali ini saya akan mengubah Listing program ini menghasilkan deret angka dengan pola -1, 3, -5, 7, -9 . . .

tampilan/interface tidak berubah yang berubah hanya hasil proses program karena perintah program akan saya ubah sehingga menghasilkan pola seperti diatas

berikut Listing programnya.

gambar a

gambar b

           Pada gambar a tidak mengalami perubahan, yang mengalami perubahan adalah gambar b yaitu pada bagian 'var dan begin 1 & 2'. rumus yang semula :
begin
a:=strtoint(Edit1.Text);
Memo1.Clear;  ----------------> Untuk membersihkan kotak memo saat nilai 
i:=1;                           dimasukkan
while i<=a do
begin
b:=i;
Memo1.Lines.Add(inttostr(b)); ------> Untuk mencetak isi variabel (b) [tipe string] 
i:=i+1;                               dan hasilnya terletak pada kotak memo
menjadi 
begin
a:=strtoint(Edit1.Text); ----> variabel 'a' yang bernilai string akan diubah menjadi  
Memo1.Clear;                   integer pada kotak edit1 dan berbasis text
i:=-1;
c:=-2;
while i<=a do
begin
b:=i;
Memo1.Lines.Add(inttostr(b));
i:=(b+c)*-1;
c:=c*-1;

hasil running setelah mengalami perubahan perintah

           Pada gambar no-1 adalah awal interface, gambar no-2 diisi angka 6, dan gambar no-3 hasil 'PROSES' dan menghasilkan pola angka deret -1, 3, -5 karena angka 6 tidak termasuk angka deret maka yang muncul adalah angka sebelum 6 yaitu -5 bukan 7.