Pascal Bab : 7 Pernyataan Perulangan Repeat…Until

Repeat….Until digunakan untuk mengulang (repeat) pernytaan sampai (until) kondisi diseleksi di Until tidak terpenuhi. Persamaan dengan while adalah dipakai untuk menangani pengulangan yang jumlahnya belum pasti.

Perbedaan antara Repeat….Until dengan While adalah

a ) Paling sedikitnya pernyataan didalam perulangan Repeat…Until diproses sekali, karena seleksi kondisi ada pada pernyataan Until yang terletak di bawah. Sedang pada struktur While paling sedikit dikerjakan nol kali, karena kondisi ada pada pernyataan while yang terletak di atas, sehingga kalau kondisi sudah tidak terpenuhi maka tidak akan masuk ke dalam lingkungan perulangan.

b ) pada Repeat….Until pada pernyataan boleh tidak menggunakan Begin End untuk menunjukan batas perulangan sudah ditunjukan oleh Repeat sampai dengan Until.

Contoh program menggunakan Repeat..Until adalah sebagai berikut :

              Program contoh_repeat1;

              Uses crt;

              Var ulang : Integer;

              Begin

                 Ulang:=0;

              Repeat

                Ulang:=ulang+1;

              Writeln(ulang);

              Until ulang=5;readln;

      End.

Contoh program repeat menggunakan operator or

             Program contoh_repeat2;

             Uses crt;

             Var ulang : char;

             Begin

             Repeat

             Writeln(‘Pascal’);

             Writeln(Diulang sampai ditekan huruf t’);

             Readln(ulang);

             Until (ulang=’T’)OR(ulang=’t’);

   End.