Analisa Program:
1.
Pertama-tama
buat lebih dulu form seperti gambar diatas
2.
Pada
gambar 1.1 saya merubah nama form menjadi DiahFP_Perulangan dengan cara merubah
pada caption form nya di properties.
3.
From
DiahFP_Perulangan mempunyai atribut seperti; 3 buah Label, 2 Edit, 5 button,
dan 1 memo
---------------------------------------------------------------------------------------------------------------------
Koding Pada Button For To Do:
Pada button For To Do ketika di double
klik setelah memasukan angka awal dan akhir maka akan keluar kodingan seperti
gambar diatas.
4.
Pertama-tama
kita harus memberi variabel beserta tipe datanya. Disini saya menggunakan
variabel a,b, dan x yang bertipe data integer
5.
Setelah
itu a:=strtoint(edit1.Text); maksudnya adalah menjelaskan bahwa variabel a itu
merupakan edit1.text jadi nanti jika edit1.text diisi maka isi tersebut
merupakan nilai a. sedangkan strtoint artinya nilai yang kita masukan ke
masing-masing kotak pada awal dan akhir akan diubah nilainya menjadi integer.
Karna diawal tadi a dan b memakai tipe data integer maka ya seperti itu
merubahnya dengan strtoint. Jika diawal var tersebut memakai tipe data real
berarti penulisannya strtofloat.
6.
for
x:=a to b do
begin
if
x mod 2=1 then
memo1.lines.Add(inttostr(x)+'
Adalah Bilangan Ganjil')
else
memo1.lines.Add(inttostr(x)+'
Adalah Bilangan Genap');
end;
artinya untuk nilai
var x merupakan var a ke var b. dan jika nilai x tersebut dibagi dua hasilnya
satu maka pada memo akan tercetak x adalah bilangan ganjil. Jika nilai x
dibagi dua hasilnya tidak satu maka pada
memo tercetaknya x adalah bilangan genap. Dan jika program dijalankan hasilnya
akan seperti gambar dibawah ini.
---------------------------------------------------------------------------------------------------------------------
Koding Pada Button
Repeat Until:
Pada button Repeat Until ketika di
double klik setelah memasukan angka awal dan akhir maka akan keluar kodingan
seperti gambar diatas.
7.
Pertama-tama
kita harus memberi variabel beserta tipe datanya. Disini saya menggunakan
variabel i yang bertipe data integer
8.
Setelah
itu program akan berjalan. Memo1.clear artinya memo dalam keadaan kosong
kembali.
9.
Nilai
I yaitu 0 yang berarti I dimulai dari nol. kemudian i:=strtoint(edit1.Text);
maksudnya adalah menjelaskan bahwa variabel i itu merupakan edit1.text jadi
nanti jika edit1.text diisi maka isi tersebut merupakan nilai i. sedangkan
strtoint artinya nilai yang kita masukan ke kotak akan diubah nilainya menjadi
integer. Karna diawal i memakai tipe data integer maka ya seperti itu
merubahnya dengan strtoint. Jika diawal var tersebut memakai tipe data real
berarti penulisannya strtofloat.
10.
Repeat
memo1.lines.Add(inttostr(i));
i:=i+1;
until
i=strtoint(edit2.Text);
lalu
akan berjalan dan akan mencetak nilai dari i tersebut kedalam memo. I akan
bertambah dengan kelipatan satu sampai nilai I sama dengan nilai yang dimasukan
di kotak edit2.
11.
Maka
hasil yang keluar pada memo yaitu angka di kotak awal sampai 19. 20 tidak masuk
karena pada saat I 20 proses berhrnti sehingga 20 tidak tercetak. Dan jika
program dijalankan hasilnya akan seperti gambar dibawah ini.
Koding Pada Button
While Do:
Pada button Repeat Until ketika di
double klik setelah memasukan angka awal dan akhir maka akan keluar kodingan
seperti gambar diatas.
1.
Pertama-tama
kita harus memberi variabel beserta tipe datanya. Disini saya menggunakan
variabel x yang bertipe data integer
2.
Setelah
itu program akan berjalan. X nilainya1. Memo1.clear artinya memo dalam keadaan
kosong kembali.
3.
while
x<=strtoint(edit2.text) do
begin
if
x mod 2=1 then
memo1.lines.add(inttostr(x)+
' pangkat tiganya: ' + inttostr(x*x*x))
else
memo1.lines.add(inttostr(x)+
' pangkat duanya: ' + inttostr(x*x));
x:=x+1
end;
Ketika
x nilainya kurang dari nilai yang anda masukkan di kotak 2 maka profram itu
akan berjalan dan menyeleksi. Jika nilai x dibagi 2 sama dengan 1 maka di memo
akan tercetak nilai x pangkat tiganya serta hasil dari pangkat tiga bilangan x.
atau jika nilai x dibagi 2 tidak sama dengan 1 maka di memo akan tercetak nilai
x pangkat duanya serta hasil dari pangkat dua bilangan x tersebut.
---------------------------------------------------------------------------------------------------------------------
gambar
diatas merupakan kodingan pada button reset yang artinya mengkosongkan kembali
memo, edit1 serta edit2
