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

 

Sumber : http://anislinuwih.blogspot.com/2017/02/perulangan-while-do.html