Selasa, 04 Desember 2012

PERULANGAN WHILE DO







Bentuk umum pernyataan while adalah :


While kondisi  do
Begin
Pernyataan_1;
Pernyataan_2;
.
.
Pernyataan_N;
End;

Keterangan  :

Pernyataan akan dilaksanakan berulangkali selama kondisi bernilai true. Jika kondisi bernilai false, badan pengulangan tidak akan dimasuki, yang berarti pengulangan selesai.
Yang harus diperhatikan adalah pengulangan harus berhenti. Pengulangan yang tidak pernah berhenti menundakan bahwa logika algoritma tersebut salah.  Pengulangan  berhenti  apabila  kondisi  bernilai  false.  Agar  kondisi suatu saat bernilai false, maka di dalam badan pengulangan harus ada instruksi yang mengubah nilai kondisi.

1.     Contoh 1, Menuliskan Hello Cirebon

PROGRAM
 Hello_Cirebon;
USES
 wincrt;
VAR
 i : integer;
BEGIN
 i := 1;
 while i <= 5 do
 Begin
  writeln('Hello, Cirebon')   ;
  i := i + 1;
 End;

END.




2.     Contoh 2, Mencetak Deret Bilangan

PROGRAM
 Cetak_Deret;
USES
 wincrt;
VAR
 i : integer;
BEGIN

 i := 1 ;
 while i <= 5 do
 Begin
  write(i,' ')   ;
  i := i + 1;
 End;

END.




3.     Contoh 3, Mencetak deret bilangan Genap

PROGRAM
 Cetak_Deret;
USES
 wincrt;
VAR
 i : integer;
BEGIN

 i := 2 ;
 while i <= 10 do
 Begin
 
  write(i,' ')   ;
 
  i := i + 2;
 End;

END.


4.     Contoh 4, Cara Lain Mencetak deret bilangan genap

PROGRAM
 Cetak_Deret;
USES
 wincrt;
VAR
 i : integer;
BEGIN

 i := 2 ;
 while i <= 10 do
 Begin
   write(i,' ')   ;
   i := i + 2;
 End;

END.



5.     Contoh 5, Program Perpangkatan dengan While Do

PROGRAM
 Perpangkatan ;
USES
 Wincrt;
VAR
 i, Bilangan, Pangkat : integer ;
 Hasil : LongInt;
BEGIN
 Repeat
 clrscr;

 write('Inputkan Bilangan : ');
 readln(Bilangan);
 write('Inputkan Pangkat : ');
 readln(pangkat);

 Hasil := 1;
 i := 1;

 while i <= pangkat  do
 Begin
  hasil := hasil * Bilangan;
  i := i + 1;
 End;

 write('Hasil = ', Hasil);

 readln;
 Until Keypressed;
END.




























6.    Contoh 6, Program Tebak Angka

PROGRAM
  Tebak_Angka;
USES
  wincrt;
VAR
  angka_random : integer;
  angka_input : integer;
  tebakan : boolean;
BEGIN
  randomize;
  angka_random := random(100);
  tebakan := false;

  while tebakan = false do
  Begin
   write('Tebakan Anda : ');
   readln(angka_input);

   if angka_input > angka_random then
     writeln('Tebakan Terlalu Besar')
   else if angka_input < angka_random then
     writeln('Tebakan Terlalu Kecil')
   else
   Begin
     writeln('Tebakan Benar');
     tebakan := true;
   End;
  End;

END.
7.    

1 komentar:

Unknown mengatakan...

LANJUTKAN GAN

Posting Komentar

 
;