Dalam
bahasa pascal, proses Looping dapat dinyatakan baik dengan While-Do atau dengan pernyataan Repeat-Until atau pernyataan kombinasi For-to-Do ataupun For-Downto-Do.
Tiga dasar logika diatas dapat dikembangkan untuk pembuatan program yang lebih
kompleks dan rumit. Kombinasi dari ke-3 unsur tersebut umumya disebut nesting(jaringan). Bagi seorang
pemrogram yang sudah berpengalaman, manipulasi ke-3 unsur dasar ini dalam
penulisan bagan alir merupakan usaha untuk menyajikan program yang jelas, mudah
dalam modifikasi serta terbaca hierarki prosedur logikanya.
Contoh:
(repeat-until)
Program_la1;
Uses
wincrt;
Var
Jumlah, i:= integer;
Begin
clrscr;
Jumlah:= 0 ;
I := 350;
Repeat
Begin
Jumlah:= jumlah + i;
i:= i+1;
end;
until
(i=0);
writeln(‘jumlah
(350+349+...+2+1)=’ , jumlah : 4);
End.