Pola2 Fungsi For Pascal

Salah satu fungsi dalam Pascal adalah fungsi For. Fungsi pengulangan yang banyak memiliki pola2. Hmm... Check it out aja deh,
1. Pola Segitiga Memanjang Ke Bawah

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

Pada Struktur Program ini, akan menghasilkan :
1
12
123
1234
12345

Dan seterusnya...
Analisis dari struktur ini, digunakan For Bercabang "For di dalam For". Pada Pernyataan For Baris:=1 to 10 do
Begin
For Kolom :=1 to Baris do
Write (Kolom);
Writeln;
Memiliki arti, Baris akan mengulang dari 1 sampai 10 kali, dan Kolom akan tampil sesuai banyaknya baris tersebut. Jika baris pertama, jumlah angka yang tampil juga 1. Dan, angka awalan dari kolom maupun baris ini adalah 1 ( karena For Kolom:=1 dan For Baris:=1).
Nah, berikutnya ke struktur program For lainnya :
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;
End.

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

Arti dari struktur program ini,
dari Pernyataan : For Kolom:=Baris to 10 do
Berarti, bahwa Kolom akan dimulai dengan angka dimana Baris itu berada. Misalkan pada Baris pertama, Kolom akan menunjuk angka 1, baris kedua angka 2, dan kolom akan memanjang sampai dicapai nilai 10. Misal pada Baris 1, dimulai dengan angka 1 sampai 10, Baris 2 dimulai dengan angka 2 sampai angka 10, dan setersunya.. sehingga terbentuk pola segitiga terbalik..
hmmh... sekedar catatan untuk mengingatkan di Blog saja. Hehe, sekalian sharing pengalaman menggunakan Pascal ( maklum Newbie ).. hehe..