Monday, May 14, 2012
Melanjutkan postingan kemarin, Looping Pada Delphi Bagian 1 yang di dalamnya membahas fungsi Looping Continue dan Goto. Postingan kali ini memuat materi lebih lanjut dan masih bertemakan Looping. Namun pembahasannya membahas dua fungsi yaitu Repeat dan While, yang nota benenya merupakan fungsi lanjutan dari posting terdahulu. Sebagai penyempurnaan maksudnya sob. Hoho...
Tanpa pikir panjang, silahkan masuk ke Te Ka Pe..
Fungsi Looping ini dimaksudkan agar perulangan dari sebuah angka dengan menghasilkan perpangkatan angka yang dikalikan dengan angka itu sendiri, gampangnya kayak 2 pangkat 2.
- Looping "Repeat"Fungsi Repeat dimaksudkan agar perulangan akan diulangi sampai pada keadaan atau kondisi tertentu. Fungsi standarnya adalah:
Repeat
Statement1;Until Expression;
Contoh listing programnya adalah:
procedure TForm1.Button1Click(Sender:TObject)
var
num, sqrNum : integer;
begin
num := 1;
sqrNum := num * num;
//Menampilkan perpangkatan integer sampai nilai mencapai 81
Repeat
//Menampilkan perpangkatan integer
ShowMessage(IntToStr(num)+' Squared = 'IntToStr(sqrNum));
//Menambahkan nilai
inc(num);
//Memberikan pangkat terhadap num
sqrNum := num * num;
until sqrNum > 81;end;
Hasilnya :
1 Squared = 1
2 Squared = 4
3 Squared = 9
4 Squared = 16
5 Squared = 25
6 Squared = 36
7 Squared = 49
8 Squared = 64
9 Squared = 81Fungsi inc(num) dimaksudkan agar num bertambah 1 nilainya pada saat Looping berlangsung (fungsi Increment). - Looping "While"
Bermaksud sama seperti fungsi di atas, fungsi While kali ini akan memberikan perpangkatan pada nilai tertentu. Listing kode programnya adalah :
procedure TForm1.Button1Click(Sender:TObject)
var
num, sqrNum : integer;
begin
num := 1;
sqrNum := num * num;
While sqrNum <= 36 do
begin
//Memunculkan perpangkatan numShowMessage(IntToStr(num)+' Squared = '+IntToStr(sqrNum));
//Menambahkan nilai num+1
inc(num);
//Memberikan pangkat kepada num
sqrNum := num * num;
end;
end;
Hasilnya :
1 Squared = 1
2 Squared = 4
3 Squared = 9
4 Squared = 16
5 Squared = 25
6 Squared = 36
Kurang lebih seperti itulah ceritanya..
Semoga bermanfaat.
Semoga bermanfaat.
Baca Juga :
{ 2 comments... read them below or Comment }
You can leave a comment to request any article(s), software(s), ebook(s) or report the dead link.
Then I will reply as soon as I can :)
Gan ane mo tanya, kan ktika kita membuat program di dlphi agar komponen2nya bisa menyesuaikan form delphi saat di maximize gmn gan? soalnya ane belum nemu caranya. Klu pas di maximize kan jadi amburadul gan ga sesuai dengan formnya.
ReplyDeleteUntuk menyesuaikan layar ane udh bisa pake form1.Width:=screen.Width; form1.Height:=screen.Height;
tolong di jawab ya gan
Nanti akan saya posting tutorialnya,, tapi kalo agan udah gag sabar,,
ReplyDeletesilahkan masuk link ini..
delphi about