Fungsi FOR dalam Perulangan (Looping)

1. Pola Segitiga Memanjang Ke Bawah

Program Segitiga;
Uses crt;
Var
Baris,
Kolom : Integer;
Begin
Clrscr;
For Baris:=1 To 10 Do
Begin
For Kolom:=1 To Baris Do
End;
Readln;
End.

Pada Struktur Program ini, hasil outputnya :
1
12
123
1234
12345

Struktur program For lainnya :

Program Segitiga;
Uses crt;
Var
Baris,
Kolom : Integer;
Begin
Clrscr;
For Baris:=1 to 10 do
Begin
For Kolom:=Baris to 10 do
Write (Kolom);
Writeln;
End;
Readln;
End.

Akan menghasilkan Pola :
12345678910
2345678910
345678910
45678910
5678910
678910
78910
8910
910
10