Materi Pertemuan 6 (Perulangan)

Perintah perulangan merupakan perintah yang dilakukan secara berulang-ulang dengan terbatas/ terkendali sesuai dengan nilai  yang telah ditentukan. Perulangan tersebut diulang dengan sampai batas tertentu yang kita inginkan. Setelah memenuhi sejumlah yang kita tentukan maka akan keluar dari perulangan atau selesai. 
UnduhSaja Materi Perulangan atau bisa baca file pertemuan pertama Judul " Aturan penulisan pascal " oleh Heriyanto

Flowchart Perulangan:

A. Perulangan menggunakan For.. To.. DO:
FOR variabel := 1     To   n     Do  (untuk perulangan positif :  variabel +1 s/d  variabel = n)
FOR variabel := n     DownTo   1     Do   (untuk perulangan Negatif :  variabel -1 s/d  variabel = 1)
{variabel = nama variabel berupa integer}

Contoh:
Mengulang penulisan "Belajar Perulangan" sebanyak 5 x

Var
i:integer; //var i digunakan untuk variabel perulangan
begin
    For i:=1 to 5 Do
    begin
           writeln('Belajar Perulangan');
    end;
readln;
end.

Setelah di jalankan akan tampil:

B. While Do:
Perintah mengulang akan dilakukan selama kondisi benar /True dan akan berhenti ketika bernilai salah/False

uses
  SysUtils,windows;
Var
input:string; //var i digunakan untuk variabel perulangan
begin
//input:='Ulang';
writeln('Ketik Ulang jika ingin mengulang');
Readln(input);
while input='Ulang' do
    begin
       writeln('Proses telah diulangi, Ketikan lagi');
       Readln(input);
    end;
end.

Setelah di jalankan akan tampil:

C. Repeat Until:
Perintah mengulang akan dilakukan selama kondisi Salah/False dan akan berhenti ketika bernilai Benar/true

uses
  SysUtils,windows;
Var
input:string; //var i digunakan untuk variabel perulangan
begin
//input:='Ulang';
writeln('Ketik "stop" jika ingin mengulang');

Repeat
       writeln('Proses telah diulangi, Ketikan lagi');
       Readln(input);
Until input='stop';
end.