Delphi : Looping Menggunakan For To 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 percabangan logika pada kesempatan ini saya akan membahas looping atau perulangan di delphi.Sejauh ini saya hanya mengenal 3 perintah untuk melakukan perulangan dan saya akan membahasnya salah satu kali ini. Langsung saja ke KTP eh salah maksudnya TKP hehehe

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

Perulangan menggunakan For To Do : Perulangan ini berjalan dengan menggunakan suatu variabelcounter yang akan bertambah secara otomatis ketika perintah yang diulang telah selesai dikerjakan.Bentuk umum dari perulangan ini adalah

Bentuk Umum :

For variabel := nilai awal to nilai akhir statement

Catatan : semua variabel yang berhubungan dengan perulangan harus mempunyai tipe data sama.

Contoh : Perulangan For To Do
Ini Screenshot programnya :

Script Programnya :

program for_to_do;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
i:integer;
begin
writeln ('Nama      : Andi Khoirudin');
writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln('>>> Pengulangan atau looping kata "SUKSES" <<<');
writeln;
for i := 1 to 10 do
writeln (I ,'.SUKSES');
  writeln;
  writeln;
  writeln;
  writeln('>>>----->  Visit : http://indonetizensia.blogspot.com/  <-----<<<');
READLN ;
end.

Pada contoh yang kedua kata yang ditampilkan 2 kata dan berbeda baris juga terdapat perbedaan sedikit pada scriptnya. 

Contoh : Perulangan For To Do 2
Ini Screenshot programnya : 

Script Programnya :

program for_to_do2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
i:integer;
begin
writeln ('Nama      : Andi Khoirudin');
writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln('>>> Pengulangan atau looping kata "TAHUN BARU" <<<');
writeln;
for i := 1 to 10 do
begin
writeln (I ,'.TAHUN');
writeln ('BARU');
writeln;
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