Cara menggunakan repeat until pada pascal

Pertama tama kita buka aplikasi pascal pada desktop

Dan ketikkan codingan seperti pada gambar dibawah ini

Uses crt; yaitu untuk menampilkan library agar clrscr bisa dimasukkan ke dalam layar

Var yaitu menamakan nama variabel

I : integer; adalah nilai I yang bertipe data integer

Begin yaitu untuk memulai program yang akan kita buat

Clrscr; yaitu untuk membersihkan output program yang sudah ada sebelumnya

I:=3; yaitu nilai I yang berisi 3

Writeln(‘berikut deret untuk kelipatan 3 kurang dari 10: ‘); yaitu untuk menampilkan nama “berikut deret untuk kelipatan 3 kurang dari 10” dilayar

Repeat untuk mengulangi apa yang di diperintahkan sampai until tercapai

Writeln(I, ‘ ‘ ); yaitu hanya berfungsi untuk spasi

I:= I + 3; adalah nilai I = I yang berisi nilai 3 ditambah 3

End; yaitu untuk mengakhiri sub program

Until i<10; yaitu akan dilakukan pengulangan sampai nilai I kurang dari 10

Readln; yaitu untuk menampilkan output pada layar

End. Adalah untuk mengakhiri dari program yang telah selesai kita buat