PENGULANGAN PADA BAHASA PASCAL MENGGUNAKAN WHILE DO

Hai sobat... Kita berjumpa lagi, disini saya akan berbagi kode perulangan WHILE DO . Langsung saja ke TKP (Tempat Kursi Praktek ) lagi hehe..

WHILE DO biasanya di pakai Untuk situasi dimana jumlah perulangan belum bisa dipastikan.

Cara kerja dari perulangan WHILE DO terdapat pada kondisi dan kode program untuk mengubah kondisi . Kondisi  bisa dikatakan sebagai syarat agar perulangan bisa dijalankan. Selama syarat kondisi terpenuhi (TRUE), perulangan akan terus dijalankan. Jika syarat ini tidak terpenuhi (FALSE), perulangan tidak akan berjalan.

Berikut contoph program sederhananya :

program while_do;

uses crt;

var

  n,i: integer;

begin

  clrscr;

  i:= 0;

  write('Masukkan sebuah bilangan bulat positif : '); readln (n);

  while i < n do

    begin

      writeln('Hello Panca Kreatif‘,i);

      i:= i + 1;

    end;

  readln;

end.

Berikut ini kita bisa membuat perulangan yang “lompat”, yakni tidak berurutan dari 1, 2, 3, dst. Kita bisa membuat variabel engan perhitungan naik misalnya dari 2, 4, 6, 8, dst.

Perhatikan kode program berikut :

program while_do;

uses crt;

var

  n,i: integer;

begin

  clrscr;

  i:= 0;

  write('Masukkan sebuah bilangan bulat positif : '); readln (n);

  writeln('Berikut kelipatan dari 2 : ');

  while i <= n do

    begin

      write(i,' ');

      i:= i + 2;

    end;

  readln;

end.

Selamat berkreasi… :)