While-Do

While-do adalah looping yang berlangsung selama kondisi dari suatu ekspresi bernilai benar (TRUE) yang dieksekusi (diproses) sebelum statement dilakukan. While-do itu sendiri diberi nama berdasarkan kata selama-lakukan, jadi selama bernilai benar – lakukan statement berikut. Looping while-do akan berhenti jika ekspresi bernilai salah. Dan jika ekspresi menghasilkan nilai salah saat pengeksekusian first looping (looping pertama), maka looping tidak akan berlangsung sama sekali. Berikut adalah algoritmanya:

While (kondisi) do

<statement>;

atau

While (kondisi) do

begin

  <statement 1>;

  <statement 2>;

   ...

  <statement N>;

end;

atau pun dengan nested while

While (kondisi1) do

   While (kondisi2) do

      <statement>;

While (kondisi1) do

begin

  While (kondisi2) do

  begin

    <statement 2-1>;

    <statement 2-2>;

    ...

    <statement 2-N>;

  end;

  <statement 1-1>;

  <statement 1-2>;

  ...

  <statement 1-N>;

end;

Contoh penggunaan While-Do :

program deret1sampai10;

var

  i:=integer;

begin

  while i<=10 do

  begin

     i:=i+1;    {inisiasi >> i sebelumnya ditambah dengan 1}

     writeln(i);

  end;

end.

Program segitigawhile;

var

  i,j,n:longint;

begin

  readln(n);

  while i<n do

  begin

     j:=0;    {agar j kembali ke nilai 0 setelah looping dibawah}

     i:=i+1;

     while j<i do

     begin

        j:=j+1;

        write('x');

     end;

     writeln;

  end;

end.

Program While yang gak bakal jalan

Program While_gak_jalan;

var

  uang:string;

begin

  uang:='sedikit';

  while uang='banyak' do  {sayangnya uang ane sedikit :)) }

  begin

     writeln('beli mac book!');

  end;

end.

//bagian dibawah jgn dimasukin ke program. huahahaha

{while nya tidak berjalan karena pengeksekusian pertama saja sudah bernilai salah, ditambah lagi oleh fakta bahwa KuraKura memang gak punya uang banyak, jadinya string 'beli mac book!' tidak dapat ditulis (prinsip nya sama dengan if-then, namun dilakukan secara berulang-ulang), oleh karena itu KuraKura juga gak bisa beli mac book :((  }

Program While yang gak bakal berhenti

program whileinfinite;

begin

  while 'dunia'='kiamat' do

  begin

    writeln('dunia belum kiamat,shit');

  end;

end.

//string 'dunia' dgn string 'kiamat' gak bakal sama, jadi program berikut cuman bisa berhenti kalau dunia beneran kiamat. swt

Semuanya udah KuraKura jelasin didalam post ini, menurut kurakura, ini sudah cukup untuk membuat kalian mengerti tentang while-do. Namun jika ada pertanyaan,saran,komentar maupun kritik terhadap post ataupun program (tolong dicek ya programmnya ya), tolong dicomment di post ini juga. Thanks ya udah baca KuraKura Programmer, tanpa support kalian, apalagi request kalian terhadap post yang akan KuraKura buat, saya kira KuraKura akan pensiun. huahahaha. Jadi, tetap lah me-request post di KuraKura dan support KuraKura Programmer.

Jangan Lupa Follow ya!!

Bye! Salam KuraKura :)