PERULANGAN REPEAT UNTIL

REPEAT biasanya digunakan untuk menangani perulangan yang jumlahnya tidak pasti, tetapi paling tidak sudah dikerjakan sekali (Pada WHILE, ada kemungkinan bagian yang tidak dikerjakan sama sekali).

Bentuk pernyataan REPEAT adalah sebagai berikut ya sobat:

Bentuk pernyataan REPEAT:

REPEAT

     Pernyataan_1;

     Pernyataan_2;

     ...

     Pernyataan_selanjutnya;

UNTIL kondisi

contoh programnya sebagai berikut ya kawan:

program perulangan_repeat;

uses crt;

var perulangan : integer;

Begin

clrscr;

perulangan := 1;

REPEAT

   writeln(perulangan);

   perulangan := perulangan + 1;

UNTIL perulangan > 5;

readln;

end.

gimana kawan-kawan semua gampang kan...

Perulangan While Do

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