[Pascal] Pernyataan While (while statements)

Pada pertemuan sebelumnya kita sudah membahas mengenai apa itu Prulangan (Looping) dan juga mengenai Pernyataan Perulangan For (For Statements). Nah pada kesempatan ini kita akan belajar mengenai Pernyataan while (while statements), sebagai lanjutan mengenai  Postingan mengenai Perulangan (Looping).

Pernyataan while (while statements)
Pernyataan while (while statements) hampir sama dengan pernyataan repeat, dengan sedikit perbedaan bahwa pernyataan while melakukan pengujian syarat pada awal proses berulang (pernyataan repeat melakukannya di akhir proses).

Pengujian awal digunakan untuk agar program dapat menyeleksi kondisi, sehingga program dapat menentukan tindakan apa yang harus dikerjakan, tergantung dari kondisi yang diseleksi tersebut. Pada pernyataan-pernyataan yang ada pada while tidak akan dijalankan jika kondisi tidak terpenuhi.

WHILE - DO
Dalam pernyataan WHILE – DO, sebuah proses akan terus diulang selama syarat yang ditentukan masih terpenuhi. Bisa dikatakan bahwa perintah WHILE – DO adalah kebalikan dari perintah REPEAT- UNTIL

Bentuk umum :
WHILE <syarat yang ditentukan> DO
BEGIN
            <proses yang akan diulang>;
END;
Sama halnya dengan struktur kendali yang telah dibahas sebelumnya, pada struktur perulangan dapat terjadi kasus dimana di dalam struktur perulangan tertentu terdapat struktur perulangan yang lain dan seterusnya. Program berikut akan menerapkan struktur perulangan dengan menggunakan while.

Contoh Programnya :
var
     i, j: Integer;
     M: Char;
begin
     Write('Masukkan sembarang karakter : ');Readln(M);
     i := 1;
     while i <= 10 do
     begin
             j := 1;
             while j <= i do
             begin
                     Write(M);
                     Inc(j);
             end;
             Writeln;
             Inc(i);
      end;
Readln;
end.
Output Program :
Pernyataan While (while statements) WHILE DO
Sekian dulu pertemuan kali ini, semoga semua tulisan ini bisa bermanfaat untuk sahabat semuanya.

3 Responses to "[Pascal] Pernyataan While (while statements)"

  1. gan, minta algoritma jika input 3, outputnya :
    33333
    32223
    32123
    32223
    3333

    ReplyDelete
  2. gan saya mau mnt tlng nih,, saya dpt tgs outputnya seperti ni,,:
    *11*3333*555555*3333*555555*7

    ReplyDelete
  3. gan saya mau mnt tlng nih mnta algoritmanya,, jika ouptnya seperti ni,, :
    *11*3333*555555*3333*555555*7

    ReplyDelete