REPEAT ....UNTIL

Perintah Repeat..... Until adalah perintah untuk membuat pengulangan (loop).

 Contoh

Uses crt;

Begin

Clrscr;

Writeln(‘Tekan sembarang tombol untuk selesai’);

Writeln(‘Sekarang tekan Enter untuk memulai);

Readln;

Repeat

Writeln(‘Aku’);

Until keypressed;

End.

Catatan

Karena program menggunakan perintah unit crt,yaitu clrscr dan keypressed. Maka pada awal program harus diberikan perintah uses crt.

Contoh

Uses crt;

Var  b:byte;

Begin

Clrscr;

B:=1;

Repeat

Writeln(b);

Inc(b);

Delay(50);

Until keypressed;

End.

Kembali ke Contoh Program Turbo Pacal