Menggunakan Rumus While Do Pada Turbo Pascal

Sesudah kalian mampu menggunakan rumus Case dan IF pada Turbo Pascal maka pembelajaran selanjutnya yaitu menggunakan rumus While....Do.  Dengan menggunakan while .. do, kondisi yang diberikan akan terlebih dahulu diperiksa, jika memenuhi syarat, maka barulah statement-statement yang ada akan dikerjakan. While...Do hampir sama dengan rumus IF. Pada intinya semua rumus-rumus yang kita gunakan dalam turbo pascal harus dilogikan. Tidaklah dibuat dengan segamblang seperti tinggal mengcopy kode saja. Sekali lagi veniuszero memotivasi kalian bahwa menggunakan Turbo Pascal tidaklah sulit. Selamat mencoba guys

While .. do dengan satu statement :

while <KondisiBenar> do <statement>;

While .. do dengan banyak statement :

 while <KondisiBenar> do
    begin
        <statement1>;
         <statement2>;
         <statement3>;
            ..
         <statementN>;
    end;

KODENYA :

Program looping2;
Uses WinCrt;
Var i:integer;
Begin
Write('Masukkan angka : ');
Readln(i);

while i<10 do
 Begin
      write(i);
      i:=i+1;
 End;
End.

Hasilnya silakan selediki sendiri ya hehehe