Posted by : Rhyf Ahmad 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 = 81


    Fungsi 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 num
         ShowMessage(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.


Baca Juga :

{ 2 comments... read them below or Comment }

  1. 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.
    Untuk menyesuaikan layar ane udh bisa pake form1.Width:=screen.Width; form1.Height:=screen.Height;
    tolong di jawab ya gan

    ReplyDelete
  2. Nanti akan saya posting tutorialnya,, tapi kalo agan udah gag sabar,,
    silahkan masuk link ini..
    delphi about

    ReplyDelete

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 :)

Welcome to My Blog

Recent Post

Recent Posts Widget
Instagram

- Copyright © Madriva -Robotic Notes- Powered by Blogger - Designed by Johanes Djogan -