PERULANGAN (LOOPING)
Perulangan (looping) merupakan bentuk yang sering ditemui dalam suatu program aplikasi. Di dalam bahasa Pascal, dikenal tiga macam perulangan, yaitu dengan menggunakan statemen For, While-Do danRepeat-Until. Perulangan while - do dapat berbentuk perulangan while - do dan while - do tersarang.
Pernyataan perulangan ini memiliki bentuk sebagai berikut : Perulangan dengan statemen While-Do digunakan untuk melakukan perulangan suatu statemen atau blok statemen terus-menerus selama kondisi ungkapan_logika pada while masih bernilai logika benar. Bentuk umum pernyataan perulangan wile do adalah sebagai berikut.
while kondisi do
begin
pernyataan - pernyatan yang akan di ulang)
end;
kondisi sendiri merupakan suatu ekspresi bertipe boelan, artinya hanya dapat bernailai benar (true) atau salah (false). Contoh sederhananya :
while (x > 0) do
begin
x := x - 1;
y := y - 1;
end;
Program akan megnulang dua pernyataan : (x := x -1) dan (y := - 1) selama nilai x masih positif.
Contoh :
Program Perulangan_While_Do;
uses crt;
Var i : byte;
Begin
i := 1;
While i <= 5 Do
Begin
Write ('No ');
Writeln (i);
i := i + 1;
End;
Readln;
End.
Hasilnya :
No 1
No 2
No 3
No 4
No 5
PERNYATAAN WHILE - DO BERSARANG
While Bersarang adalah bagian yang akan diulang oleh WHILE juga bisa mengandung WHILE yang lainnya. Jadi bisa juga di artikan while dalam while.
Contoh :
uses crt;
var
a, b:integer;
begin
clrscr;
a:=1;
b:=1;
while a < 4 do
begin
a:= a + 1;
while b < 3 do
begin
write (a:3, b:2);
b :=b+1;
end;
end;
readln;
end.
Hasilnya :
2 1 2 2
0 komentar:
Posting Komentar