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.
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
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 😀
Thanks bro, tutor nya pas banget perlangn buat menghemat baris kode ane.. hehe
Terimakasih.. tulisannya sangat bermanfaat..
My blog
My Campus
Saya agak binggung tpi infonya bermanfaat