Ini dia Looping atau perulangan pada pascal

Secara  sederhana  looping  diartikan  sebagai  proses  berulang  terhadap  statement

maupun serangkaian statement lebih dari satu kali.

Beberapa  struktur  perintah  perulangan  pada  pascal  adalah  yang  menggunakan

Counter, jadi variabel  counter  harus  berupa  salah  satu type  seperti  Byte,  Shortint,

Integer, Longint, Char, Boolean.

-          For variabel := nilai awal To nilai akhir Do Statement;

-          For variabel := nilai awal DownTo nilai akhir Do Statement;

Ada juga perulangan yang bekerja menggunakan condition atau kondisi

-          While condition Do Statement;

-          Repeat Statement; … Until condition;

1.        “FOR..TO..DO“

adalah bentuk perulangan positif , yaitu perulangan yang perhitungannya di mulai dari kecil ke besar.

Contoh :

program harry;

uses crt;

var a,b,c,d : integer;

begin

clrscr;

a:=2;

for b:=2 to 10 do

begin

write(' ',a);

a:=a+2;

end;

readln;

end.

2.       “FOR..DownTO..DO“

adalah bentuk perulangan negatif , yaitu perulangan yang perhitungannya di mulai dari besar ke kecil.

Contoh :

program hkfor;

uses crt;

var i,bil:integer;

begin

clrscr;

bil:=2;

for i:=20 downto 10 do

begin

writeln(' ',bil);

bil:=bil+2;

end;

readln;

end.

3.       While-Do

digunakan untuk melakukan proses perulangan suatu pernyataan atau blok pernyataan terus-menerus selama kondis ungkapan logika pada While masih bernilai logika benar.

Contoh :

program bilgan;

var i: integer;

begin

i:=1;

while i<10 do

begin

write(i,' ');

i:=i+2;

end;

readln;

end.

4.       Repeat...Until

digunakan untuk mengulang pernyataan-pernyataan atau blok pernyataan sampai kondisi yang disleksi di  Until tidak terpenuhi. Bentuk umumnya adalah

Repeat (pernyataan) Until (nilai yang di tuju).

Contoh : 

PROGRAM HK;

USES CRT;

VAR I:INTEGER;

BEGIN

I:=2;

REPEAT

BEGIN

WRITE(I,' ');

I:=I+2;

END;

READLN;

END.