Perulangan menggunakan for

Perulangan  dengan  statemen FOR  digunakan  untuk  mengulang statemen atau suatu blok statemen berulang kali. Perulangan dengan statemen FOR dapat berupa perunlangan positif dan perulangan negatif.
 
 
PADA PASCAL :
Listing programnya sebagai berikut :

uses crt;
var x,y:integer;
begin
clrscr;
x:= 1 ; y:=1;
while x<4 do
      begin
      x:= x+1;
      while y<3 do
          begin
          write (x:3,y:2);
          y:= y+1;
          end;
      end;
readln;
end.

Output program sebagai berikut:

PADA VISUAL BASIC :

Private sub command1_click()
Nilai = val(text1.text)
For a = 1 to nilai
For b = 1 to a
Print b;
Next b
Print
Next a
End Sub 

Output programnya sebagai berikut :