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;
Langganan:
Posting Komentar (Atom)
Diberdayakan oleh Blogger.
0 comments:
Posting Komentar