Delphi : Looping menggunakan While Do

Nama        : ANDI KHOIRUDIN
Kelas        : I-B SMT 1
Jurusan     : Teknik Informatika
STIMIK YADIKA BANGIL 2014

Assamualaikum Wr. Wb.

           Pada kesempatan yang lalu saya membahas perulangan dengan menggunakan Repeat until pada kesempatan ini saya akan membahas looping atau perulangan di delphi menggunakan While Do. 

Perulangan adalah suatu cara untuk mengulang satu atau sekumpulan perintah sampai mencapai kondisi tertentu.

Perulangan While Do adalah Perulangan ini mirip dengan perulangan Repeat Until tetapi pengecekannya berada di awal sebelum melakukan proses yang berulang. Perulangan ini berjalan selama kondisi pengecekan bernilai true. Jika kondisi telah mempunyai nilai false maka perulangan tidak dilakukan lagi.Bentuk umum dari While Do adalah seperti berikut :

While kondisi do Begin     Perintah;     Perintah; End;

Contoh Looping bilangan cacah atau asli menggunakan While Do

Screenshotnya :

Script Programnya :

program while_do;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
I,A,JUM:INTEGER;
begin
writeln ('Nama      : Andi Khoirudin');
writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln('>>> Pengulangan atau looping bilangan cacah/asli <<<');
writeln;
I:=1;
JUM:=0;
while I<=10 do
BEGIN
A:=I;
WRITELN(A);
I:=I+1;
end;
writeln;
writeln;
writeln;
writeln('>>>----->  Visit : http://indonetizensia.blogspot.com/  <-----<<<');
READLN;
end.

Silahkan dikembangkan sendiri programnya. Semoga bermanfaat & Selamat Mencoba
Kurang lebihnya mohon maaf dan terima kasih sudah berkunjung 

Wassalamualaikum Wr. Wb