Perulangan FOR, WHILE, REPEAT UNTIL Pada Delphi

Pada kali ini saya akan menjelaskan mengenai perulangan (looping) for do, for downto do, while do, repeat until pada delphi. Disini saya menggunakan program IDE Lazarus. Namun juga dapat di terapkan pada semua program delphi karena menggunakan bahasa pemograman yang sama yaitu Pascal.

FOR DO dan For Downto Do

For adalah perulangan dasar yang terdapat pada semua bahasa pemograman. Pada bahasa pemograman pascal. For ditulis dengan For (kondisi statment) do (jika memenuhi kondisi statment). For akan melakukan perulangan sampai kondisi statment tidak terpenuhi. Disini saya juga memberikan contoh program yang saya buat yang sebagai tugas kuliah.

Perintah dasar For pada delphi adalah

 
for kondisi do jika kondisi terpenuhi
for kondisi do
begin
jika kondisi terpenuhi
end

Untuk cara ke-2 yang menggunakan begin dan end untuk melakukan eksekusi perintah lebih dari 1 jika kondisi terpenuhi

Untuk melakukan perulangan for sebagai sorting sebuah huruf atau angka, bisa langsung di terapkan pada program sederhana sebagai berikut.

looping for do, down to

Buat desain form sesuai gambar diatas atau sesuai yang kalian inginkan. Diatas terdiri dari 2 Tbutton dan 1 Tmemo bukan Tedit. Ganti caption pada button sesuai yang ada inginkan. Lalu masukan kode berikut pada source code

Kode pada Button1 //Button1 adalah nama pada object button yang bercaption To

procedure TForm1.Button1Click(Sender: TObject);
var
 c : char;
begin
 Memo1.Lines.clear(); //untuk menghapus text yang terdapat pada memo
 for c:= 'A' to 'J' do //perulangan for, c akan berisi huruf A sampai J
 Memo1.Lines.add(c); //untuk menampilkan variabel C
end;

Kode pada Button2 //Button2 adalah nama pada object button yang becaption down To

procedure TForm1.btnDowntoClick(Sender: TObject);
var
 c : char; //deklarasi variabel C sebagai character
begin
 Memo1.Lines.clear(); //untuk membersihkan text yang terdapat pada memo1
 for c:= 'J' downto 'A' do //perulangan downto, c akan berisi huruf J sampai A
 Memo1.Lines.add(c); //untuk menampilkan isi variabel c

end;

While Do dan Repeat Until

While do adalah perulangan yang tidak beda jauh dengan perulangan For. Dimana While (kondisi) do (jika kondisi terpenuhi). Sedangkan Repeat (perintah yang akan dijalankan / ditampilkan) until (kondisi akhir untuk menghentingkan perintah yang di jalankan setelah repeat)

Perintah dasar Do While dan Repeat Until

while (kondisi) do
begin
perintah jika kondisi terpenuhi
end;
begin
 repeat
 perintah yang akan ditampilkan
 until kondisi terakhir
end;

 

Contoh program sederhana sorting sebuah angka menggunakan perulangan While do dan Repeat Until

perulangan while do, repeat until

Buatlah desain form seperti gambar diatas atau sesuai yang anda inginkan

Kode pada button1 //Button1 adalah nama button yang bercaption while dengan menggunakan perulangan while do

procedure TForm1.Button1Click(Sender: TObject);
var
  x : integer;
begin
  Memo1.lines.clear();
  Memo1.lines.add('Menggunakan While');
  x := 1;
  while (x<10) do
  begin
   Memo1.lines.add('Perulangan ke-'+inttostr(x));
   inc(x);
  end;
end;

Kode pada button2 //button2 adalah kode pada button yang bercaption Repeat dengan menggunakan perulangan perulangan repeat until

procedure TForm1.Button2Click(Sender: TObject);
var
  x : integer;
begin
  Memo1.lines.clear();
  Memo1.lines.add('Menggunakan Repeat');
  x:=10;
  begin
   repeat
   Memo1.lines.add('Data ke-'+inttostr(x));
   dec(x);
  until(x<1);
  end;
end;

Setelah itu coba Compile dan jalankan program yang kalian buat.

Pada intinya bahasa pemograman pascal pada umumnya sama halnya dengan bahasa pemograman lainnya. hanya beda dalam penulisannya saja. Semoga bermanfaat.

Salam 😀

bagikan di jejaring sosial
Share on FacebookShare on Google+Tweet about this on TwitterShare on LinkedInEmail this to someonePrint this page