looping

1.Perulangan ( Looping )

Jenis Perulangan

 Perulangan dengan perhitungan (counter)
 Perulangan dengan kondisi terpenuhi
 Perulangan dengan kodisi tidak terpenuhi

2.Perulangan Counter

 Perintah For…To …Do …
 Perintah For… DownTo…Do …
Perintah For…To …Do…
Digunakan untuk perulangan dengan jumlah
yang ditentukan terlebih dahulu dari nilai
kecil ke besar ( Increasing )
Bentuk Umum : For  variabel_kontrol : =
nilai_awal To nilai_akhir Do Statement ;
Contoh : For index:=1 to 10 do
writeln(‘Ulang’);
Contoh : For i := 1 to n do a := 3*i {
dengan n > 1 }

3.Perintah For… DownTo…Do…

Digunakan untuk perulangan dengan jumlah yang
ditentukan terlebih dahulu dari nilai besar ke
kecil ( Decreasing )
Bentuk Umum : For variabel_kontrol:= nilai_awal
DownTo nilai_akhir Do Statement ;
Contoh : For index:=10 downto 1 do
writeln(‘Ulang’);
Contoh : For i := 100 downto n do a := I
{dengan n < 100}
Perulangan dengan kondisi terpenuhi
 While … do …

4.While … Do …
Digunakan untuk perulangan sebanyak sampai
sudah terpenuhi kriteria yang ditentukan.
Bentuk Umum : While ungkapan_logika Do
Statement ;
While i<= 5 Do
begin
writeln(I);
i: = i +1 ;
end ;
Perulangan dengan kondisi tidak
terpenuhi
 Repeat … until …
5
Repeat … Until …
Digunakan untuk perulangan sebanyak sampai
sudah terpenuhi kriteria yang tidak ditentukan.
Bentuk Umum :
Repeat Statement ;
Until ungkapan_logika ;
Repeat
writeln ( I ) ;
I : = I +1; Until I >= 5;
Contoh program perulangan biasa
 program perkalian;
 uses crt;
 var x,x2,x3:integer; seperx:real;
 begin
 clrscr;
 writeln('........................');
 writeln(' x x*x x*x*x 1/x');
 writeln('........................');
 for x:=1 to 10 do
 begin
 x2:=x*x;
 x3:=x*x*x;
 seperx:=1/x;
 writeln(x:3,x2:5,x3:7,seperx:10:3);
 end;
 readln;end.
6
Contoh Perulangan Tersarang
 program ulangsarang;
 uses crt;
 var i,j:integer;
 begin
 clrscr;
 for i:=1 to 5 do
 begin
 for j:=1 to 3 do
 write(i:8,j:3);
 writeln;
 end;
 readln;
Contoh program rekursif
 program pangkat;
 uses crt;
 var A,x,i,hasil:integer;
 begin
 writeln('masukkan bilangan yang akan di
pangkatkan');readln(A);
 

 writeln('masukkan bilangan pangkat');readln(x);
 hasil:=1;
 for i:=1 to x do
 hasil:=hasil*A;
 writeln('hasil dari ',A,' pangkat ',x,' adalah ',hasil);
 readln;

end.