Perulangan (loop)
Pada postingan sebelumnya (postingan yang berjudul Program Menggunakan Looping, Program Konversi, Program Yes/No Question ^-^, dan Program Mean & Modus) saya memberikan contoh-contoh program yang menggunakan looping. Kali ini saya akan menebus janji saya beberapa waktu yang lalu untuk membuat postingan tentang perulangan (loop) pada Turbo Pascal. So, let’s check it out!
PENGULANGAN (LOOPING)
APA ITU LOOPING?
Perulangan (looping) adalah sebuah perintah yang menjalankan suatu perintah tertentu berulang-ulang sampai suatu kondisi terpenuhi. Looping pada Pascal menggunakan beberapa keyword seperti FOR...DO, WHILE...DO dan REPEAT...UNTIL.
FOR...DO
Perulanga FOR…DO dipergunakan ketika nilai yang akan digunakan sudah diketahui dengan nilai yang ada di dalamnya selalu ditambah atau dikurangi satu ketika mengalami perulangan. Sintaks:
FOR variable := startindex (TO/DOWNTO) endindex DO
BEGIN
statement;
END;
Dari sintaks di atas, terdapat dua jenis perubahan yang dapat digunakan, yaitu TO dan DOWNTO. TO akan menghasilkan nilai incremental atau penambahan satu setiap kali terjadi perulangan. Sedangkan DOWNTO akan menghasilkan nilai decremental atau pengurangan satu setiap kali terjadi perulangan.
Contoh program yang menggunakan FOR...DO adalah sebagai berikut:
Program yang pertama menggunakan For To Do
Program pengulangan;
uses wincrt;
var
a,i:longint;
begin
for i := 1 to 10 do
begin
write (i);
end;
end.
Sedangkan program yang kedua ini menggunakan For Downto Do
Program pengulangan;
uses wincrt;
var
a,i:longint;
begin
for i := 10 to downto do
begin
write (i);
end;
end.
WHILE. ..DO
Perulangan WHILE…DO dapat digunakan tanpa harus ada perubahan pada nilai kondisi. Selama kondisi masih bernilai TRUE, maka perulangan akan dilakukan terus. Sintaks:
WHILE (condition) DO BEGIN
statement;
END;
Contoh penggunaan WHILE...DO:
Program pengulangan_angka_dari_1_sampai_13;
uses wincrt;
var
i:integer;
begin
i:=1;
while i<=16 do
begin
write (i, ' ');
i:= i+3;
end;
end.
REPEAT...UNTIL
Pengulangan REPEAT…UNTIL berfungsi hampir sama dengan WHILE...DO. Namun pada REPEAT...UNTIL, looping akan berhenti justru ketika kondisi bernilai TRUE. Selain itu kondisi akan diuji pada akhir perulangan sehingga blok di dalam perulangan akan dijalankan minimal satu kali walaupun kondisi yang ada masih FALSE. Sintaks:
REPEAT
statement;
UNTIL (condition);
Contoh penggunaan REPEAT...UNTIL:
Program pengulangan_angka_dari_24_sampai_109;
uses wincrt;
var
i:longint;
hasil : integer;
begin
i:=24;
repeat
write (i, ' ');
i:= i+1;
until i>109;
end.
Dari penggalan program di atas, dapat dilihat bahwa REPEAT...UNTIL tidak memerlukan BEGIN dan END untuk menjalankan suatu blok statement.
TIPS!!!!!
Gunakan variabel i, j, k, dan seterusnya untuk menandai indeks perulangan atau looping.
Sumber:
http://kuliahkusayang.blogspot.com/2011/02/perulangan-pada pascal.html#ixzz1hnRFBfGW
Pengantar dalam Bahasa Pemrograman Turbo Pascal oleh William (www.etersoul.com)
0 komentar:
Posting Komentar