Penjelasan : Berati statemen STMIK DUMAI akan diulang sebanyak 5 kali yaitu dengan menghitung nilai i dari i ke 1 sampai nilai i terakhir yaitu i ke 5.
Contoh dengan menggunakan blok statement:
Cara penulisannya dengan pada awal blok diawali dengan BEGIN dan pada akhir blok diakhiri dengan END;
USES CRT;
VAR
i : INTEGER;
BEGIN
FOR i:= 1 TO 10 DO
BEGIN
WRITELN('STMIK DUMAI'); { blok statement }
END;
END.
Hasil yang akan didapat akan sama dengan contoh yang pertama, tapi yang harus diingat disini untuk penggunaan blok pada perulangan FOR biasanya mempunyai banyak statement (lebih dari 1 statement)
Contoh 3 :
Peggunaan perulangan FOR dalam blok statement
USES CRT;
VAR
a,b,c : INTEGER;
bagi : REAL;
BEGIN
WRITELN('---------------------------------------------');
WRITELN(' a a*a a*a*a 1/a ');
WRITELN('---------------------------------------------');
FOR a:= 1 TO 10 DO
BEGIN
b:= a*a;
c:=a*a*a;
bagi := 1/a;
WRITELN(a:4,c:10,d:10,bagi:12:3);
END;
paWRITELN('---------------------------------------------');
END.
