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:
LANJUTKAN GAN
Posting Komentar