Delphi : Looping menggunakan Repeat Until

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 For To Do pada kesempatan ini saya akan membahas looping atau perulangan di delphi menggunakan Repeat until disini saya akan memberikan 4 contoh berbeda agar dapat lebih memahami. check this out 

Perulangan adalah suatu cara untuk mengulang satu atau sekumpulan perintah sampai mencapai kondisi tertentu.
Perulangan Repeat Until  adalah perulangan ini bekerja sampai kondisi  yang diinginkan tercapai. Perulangan ini bisa digunakan sebagai perulangan yang menggunakan banyak kondisi keluar (multi condition loop).

Saya akan memberi 4 contoh 

1. Looping kata 'YADIKA' menggunakan Repeat Until

2. Looping Bilangan Ganjil menggunakan Repeat Until

3. Looping penjumlahan 1-10 menggunakan Repeat Until

4. Looping hasil pemangkatan 2 di kurangi 1 menggunakan Repeat Until

Contoh ke 1. Looping kata 'YADIKA' menggunakan Repeat Until

Ini dia Screenshotnya :

Script programnya :

program satu_sampai_10;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
I:INTEGER;
begin
writeln ('Nama      : Andi Khoirudin');
writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln('>>> Pengulangan kata " YADIKA " <<<');
writeln;
I:=1;
REPEAT
WRITELN(I, '.YADIKA');
I:=I+1;
UNTIL I>10;
writeln;
writeln;
writeln;
writeln('>>>----->  Visit : http://indonetizensia.blogspot.com/  <-----<<<');
READLN;
end.

Contoh  2. Looping Bilangan Ganjil menggunakan Repeat Until
Ini dia Screenshotnya :

Script programnya :

program bil_ganjil;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
I,A:INTEGER;
begin
writeln ('Nama      : Andi Khoirudin');
writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln('>>> Pengulangan atau looping bilangan ganjil <<<');
writeln;
I:=1;
REPEAT
A:=2*I-1;
WRITELN(A);
I:=I+1;
UNTIL I>10;
writeln;
writeln;
writeln;
writeln('>>>----->  Visit : http://indonetizensia.blogspot.com/  <-----<<<');
READLN;
end.

Contoh 3. Looping penjumlahan 1-10 menggunakan Repeat Until
Ini dia Screenshotnya :

Script programnya :

program jumlah_deret;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
I,A,JUM:INTEGER;
begin
writeln ('Nama      : Andi Khoirudin');
writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln('>>> Pengulangan Penjumlahan 1-10 <<<');
writeln;
I:=1;
JUM:=0;
REPEAT
A:=I;
  JUM:=JUM+A;
  WRITELN(A);
I:=I+1;
UNTIL I>10;
WRITELN('HASIL PENJUMLAHAN DERET 1+2+3+...+10 = ',JUM);
writeln;
writeln;
writeln;
writeln('>>>----->  Visit : http://indonetizensia.blogspot.com/  <-----<<<');
READLN;
end.

Contoh 4. Looping hasil pemangkatan 2 di kurangi 1 menggunakan Repeat Until

Ini dia Screenshotnya :

Script programnya :

program pangkat_2_minus_1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
I,A:INTEGER;
begin
writeln ('Nama      : Andi Khoirudin');
writeln ('Kelas/NIM : 1B/114224042');
writeln;
writeln('>>> Hasil Pemangkatan 2 di kurangi 1 <<<');
writeln;
I:=1;
REPEAT
A:=SQR(I)-1;
WRITELN(A);
I:=I+1;
UNTIL I>10;
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