Menampilkan bilangan ganjil

Berikut ini contoh bahasa Pascal untuk kasus pengulangan menggunakan: repeat .. until

Program pengulangan;

{program pengulangan menggunakan Repeat - Until
menampilkan bilangan ganjil
kerjakan aksi SAMPAI kondisi terpenuhi yaitu i>50
proses akan berhenti ketika nilai akhir i=51
}

Baca juga Mencari akar dengan Bolzano

uses wincrt; {ganti dengan uses crt; jika menggunakan compiler free pascal}

var
i:integer;

Begin

Baca juga Program Lokalisasi Akar

clrscr;
i:=1;
repeat
write(’ ‘,i);
i:=i+2;
until(i>50);
readln;
end.