Perulangan FOR positif

Contoh :

Perulangan positif untuk satu statement :

USES CRT;
VAR
    i : INTEGER;
BEGIN
    FOR i := 1 TO 5 DO WRITELN('STMIK DUMAI'); 
END.

Maka bila program diatas dicompile.

hasilnya :

STMIK DUMAI
STMIK DUMAI
STMIK DUMAI
STMIK DUMAI
STMIK DUMAI

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.

maka hasilnya :

----------------------------------------------
            a a*a a*a*a 1/a
----------------------------------------------
            1 1 1 1.000
            2 4 8 0.500
            3 9 27 0.333
            4 16 64 0.250
            5 25 125 0.200
            6 36 216 0.167
            7 49 343 0.143
            8 64 512 0.125
            9 81 729 0.111
            10 100 1000 0.100
----------------------------------------------