Perulangan While DO
Pernyataan WHILE biasa digunakan untuk melakukan
perulangan yang banyaknya tidak diketahui di depan. Berikut ini adalah bentuk
pernyataan WHILE
WHILE kondisi DO
Pernyataan
Contoh
program di bawah ini adalah salah satu contoh pemakaian WHILE untuk menggantikan perintah:
FOR perulangan := 1 TO 5 DO (baca : Perulangan FOR TO DO)
Writeln(perulangan);
PROGRAM contoh_while;
{ contoh program while untuk menampilkan
bilangan 1 sampai dengan 5}
Uses Crt;
Var
Perulangan
: integer;
Begin
Clrscr;
Perulangan := 1; { ini untuk menentukan
nilai awal ya sobat }
WHILE perulangan <= 5 DO
Begin
Writeln(perulangan);
Perulangan := perulangan + 1; { yang
ini untuk menaikkan nilai perulangan ya sobat }
End;
Readln;
End.
Saya kasih
sedikit penjelasan ya Sobat:
Pada contoh
program di atas:
Perulangan := 1;
WHILE perulangan <= 5 DO
Begin
Writeln(perulangan);
Perulangan := perulangan + 1; { yang
ini untuk menaikkan nilai perulangan ya sobat }
End;
Menggantikan
:
FOR perulangan := 1 TO 5 DO
Tampak bahwa
perintah di atas:
·
Pemberian nilai mula-mula terhadap variabel
pengendali pengulangan, berupa :
·
Upaya untuk menaikkan nilai variabel pengontrol
pengulangan, berupa;
·
Kondisi pengulangan berupa: perulangan <= 5.
Kondisi
ini yang menentukan terjadinya pemrosesan bagian pernyataan jika bernilai True
Ketiga hal
di atas perlu diperhatikan dengan baik. Kesalahan seperti kealpaan terhadap
kenaikan variabel pengontrol perulangan berakibat fatal.
WHILE juga dapat digunakan untuk
menggantikan FOR DOWNTO. Contohnya sebagai berikut ya....
PROGRAM contoh_while_menurun;
{ contoh program while untuk menampilkan
bilangan 5 sampai dengan 1}
Uses Crt;
Var
Perulangan
: integer;
Begin
Clrscr;
Perulangan := 10;
WHILE perulangan > 0 DO
Begin
Writeln(perulangan);
Perulangan := perulangan - 1;
End;
Readln;
End.
Program di
atas merupakan pengganti dari:
FOR perulangan := 10 DOWNTO 1
Writeln(perulangan);
Pernyataan
WHILE juga dapat dimanfaatkan untuk mengatur selang kenaikan pada variabel
pengontrol pengulangan. Misalnya dapat menampilkan bilangan 1 sampai dengan 10
dengan kenaikan sebesar 0,5. Dalam hal ini menggunakan variabel perulangan bertipe real. Contohnya sebagai berikut ya sobat:
PROGRAM contoh_while_kenaikan;
{ contoh program while untuk menampilkan
bilangan 1 sampai dengan 5 dengan kenaikan 0,5}
Uses Crt;
Var
Perulangan
: real;
Begin
Clrscr;
Perulangan := 1;
WHILE perulangan <= 5 DO
Begin
Writeln(perulangan:0:2);
Perulangan := perulangan + 0,5;
End;
Readln;
End.
Hasil dari
program di atas adalah:
0,1
1
1,5
2
2,5
3
3,5
4
4,5
5
EmoticonEmoticon