STATEMENT REPEAT ... UNTIL

A.    STATEMENT REPEAT...UNTIL

Statemen kedua untuk operasi kalang adalah statemen repeat...until. Cara kerja dari statemen ini merupakan kebalikan dari statemen while. Dikatakan demikian karena pertama, untuk statemen while test untuk penghentian kalang ada di awal kalang, tetapi untuk statemen repeat ini test penghentian kalang ada di akhir kalang. Yang kedua, dalam statemen repeat ini proses berulang akan dilaksanakan terus selama kondisi belum dipenuhi.

Bentuk umum statemen repeat adalah:

repeat

          ...

statemen

          ...

until kondisi

Dengan statemen : adalah statemen tunggal atau statemen majemuk yang akan diproses ulang.

kondisi     : adalah ungkapan boolean sebagai syarat supaya statemen diproses ulang.

Dalam bentuk umum diatas statemen akan dikerjakan terus selama kondisi bernilai false (dan proses berulang akan berhenti jika kondisi sudah bernilai true). Berdasarkan hal ini struktur statemen repeat bisa digambarkan seperti terliahat dalam gambar dibawah ini

 

                                salah

                                                      benar

Contoh program statemen repet...until

program JUMLAHAN;

uses winCrt;

var

batas,jumlah,I:integer;

begin

clrscr

writeln(‘MENJUMLAH BILANGAN:1+2+3+...’);

writeln;

write(‘AKAN MENJUMLAH SAMPAI BILANGAN BERAPA?’);

readln(batas);

jumlah:=0;

I:=1;

repeat

                             jumlah:=jumlah+I;

                             I:=I+1;

until I>=batas;

writeln(‘JUMLAH BILANGAN 1 SAMPAI’,batas:1,’=’,jumlah:1);

end.