Kode Pascal 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
}

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

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

Leave a Reply

Please log in using one of these methods to post your comment:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s