Home /
bahasa /
delphi /
komputer /
looping /
perulangan /
program /
while do /
Perulangan dengan While DO
Perulangan dengan While DO
Fungsi While Do mirip dengan fungsi Repeat Until. Perbedaannya, Repeat Until memeriksa kode keluar looping di akhir baris, sedangkan While Do di awal baris. Jika syarat berhenti suatu looping sudah pasti, maka While-Do terasa lebih singkat dalam hal source code. Selebihnya, kedua fungsi ini sama saja.
sintak while do.
while do syarat begin
kode_program
end;
Contoh berikut akan membandingkan kedua fungsi tersebut, while-do dan repeat until, untuk menyelesaikan masalah yang sama, yaitu mencetak bilangan dari 1 sampai dengan 10.
Penyelesaian cara Repeat Until:
var
i : integer;
keluar : boolean;
begin
i := 1;
keluar := false;
repeat
writeln(i);
inc(i);
if i > 10 then keluar := not keluar;
until keluar = true;
end;
Penyelesaian cara While-Do:
var
i : integer;
begin
i := 1;
keluar := false;
While i < 11 do begin
writeln(i);
inc(i);
end;
end;
Related Articles :
Hemat Memori dengan Menampilkan Form Memakai SHOWSaya pernah membuat aplikasi MDI dengan ratusan form. Program saya langsung hang. Kenapa? Alasannya begini. Secara default, manakala A ...
Perulangan Batas Tertentu dengan FORFungsi perulangan sering digunakan untuk menggandakan eksekusi baris program dalam batas tertentu. Sintaknya adalah sebagai beri ...
Pemutar MP3 Sederhana: TrackbarArtikel ini adalah lanjutan dari artikel berjudul Membuat Pemutar MP3 Sederhana. Pada artikel ini, saya akan menambahkan trackbar yang ...
Membuat Elips dengan EllipseElips adalah kurva yang membatasi suatu daerah. Di Delphi, kita memanfaatkan fungsi Ellipse yang merupakan property dari Canvas untuk ...
Perulangan dengan Repeat UntilDalam pemrograman, tak jarang kita membutuhkan suatu cara agar program berulangkali melakukan sesuatu yang sama. Sebagai contoh, mence ...
Langganan:
Posting Komentar (Atom)
Diberdayakan oleh Blogger.
0 comments:
Posting Komentar