Kode Pascal Menampilkan Bilangan Genap

Berikut ini adalah contoh pengulangan while .. do dalam bahasa pascal.
Program Pengulangan;
{program pengulangan menggunakan (while – do)
tampilkan Bilangan GENAP
kerjakan aksi SELAMA kondisi terpenuhi yaitu i<50
proses akan berhenti ketika nilai akhir i=49
}            
uses wincrt; {ganti dengan uses crt; jika menggunakan compiler free pascal}
var
     i : integer;
 
Begin                               
     clrscr;
     i := 0;
     while ( i<50 )
     do
       begin
         i [...]

Read Full Post »

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.

Read Full Post »