FUNGSI PERULANGAN

            Sebuah program fungsi perulangan digunakan untuk mengulang suatu perintah tanpa menuliskan scriptnya kembali, fungsi perulangan yang di pelajari disini adalah for to do, for down to do, while do dan repeat until. Fungsi pengulangan ini digunakan untuk melakukan perulangan pada suatu baris perintah tertentu dan diulang sejumlah tertentu sesuai kondisi yang diberikan. Salah satu aplikasi fungsi ini adalah untuk menampilkan data dari suatu tabel database.

- Fungsi while

kondisi adalah syarat pengulangan yang akan dijalankan. perintah1, perintah2 dan seterusnya adalah baris-baris program yang akan diulang.

- Fungsi for()
Fungsi for merupakan fungsi pengulangan yang sama dengan while, namun for bersifat lebih rumit atau kompleks.

-Fungsi while …..do()
Fungsi do…while hampir sama dengan fungsi while, perbedaan dengan fungsi while adalah bahwa
 pengujian dilakukan pada akhir pengulangan.

Berikut adalah contoh dari fungsi perulangan :
Pertama buat form seperti gambar di bawah ini

 

Setelah kita selesai membuat formnya klik button dan tulis scripnya:

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    ForToDo: TButton;

    ForDowntoDo: TButton;

    WhileDo: TButton;

    RepeatUntil: TButton;

    btkeluar: TButton;

    btpangkat: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    procedure btkeluarClick(Sender: TObject);

    procedure ForToDoClick(Sender: TObject);

    procedure ForDowntoDoClick(Sender: TObject);

    procedure WhileDoClick(Sender: TObject);

    procedure RepeatUntilClick(Sender: TObject);

    procedure btpangkatClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btkeluarClick(Sender: TObject);

begin

 close;

end;

procedure TForm1.ForToDoClick(Sender: TObject);

var

i,j:integer; b:string;

begin

 b:=''; j:=2;

 for i:=1 to 10 do

 begin

  b:=b+inttostr(j)+'';

  j:=j+2;

 end;

 label1.Caption:=b;

end;

procedure TForm1.ForDowntoDoClick(Sender: TObject);

var

 i,j:integer; b:string;

begin

 b:=''; j:=2;

 for i:=10 downto 1 do

 begin

  b:=b+inttostr(i)+'';

  j:=j+2;

 end;

 label2.Caption:=b;

end;

procedure TForm1.WhileDoClick(Sender: TObject);

var

 i,j:integer; b:string;

begin

 i:=1;

 b:='';

 while i<=10 do

 begin

  b:=b+inttostr(i)+'';

  i:=i+1;

 end;

 label3.Caption:=b;

end;

procedure TForm1.RepeatUntilClick(Sender: TObject);

var

 i,j:integer; b:string;

begin

 i:=1;

 b:='';

 repeat

  b:=b+inttostr(i)+'';

  i:=i+1;

 until i>10;

 label4.Caption:=b;

end;

procedure TForm1.btpangkatClick(Sender: TObject);

var

 bil,hasil,pangkat,a:integer;

begin

 bil:=strtoint(edit1.Text);

 hasil:=bil;

 pangkat:=strtoint(edit2.Text);

 if edit2.Text='0' then edit3.Text:='1' else

 if edit2.Text='1' then edit3.Text:=edit1.Text

 else

  begin

   for a:=2 to pangkat do

    hasil:=hasil*bil;

    edit3.Text:=inttostr(hasil);

  end;

end;

end.

Dan selesai, program siap di running muncullah hasil seperti gambar berikut:

 

ini sebenarnya adalah project ke-2 dan telah selesai akan dilanjutkan pada project selanjutnya!!