Segitiga pascal dapat disusun seperti bentuk dibawah ini:
1 121 1331 14641 15101051 ................
Untuk memudahkan pemahaman tiap-tiap elemen di atas dapat kita masukkan dalam matrik seperti berikut:
– angka 1 di baris 1 kolom 1
– angka 1 di baris 2 kolom 1, angka 2 di baris 2 kolom 2, angka 1 baris 2 kolom 3
– angka 1 di baris 3 kolom 1, angka 3 di baris 3 kolom 2, angka 3 di baris 3 kolom 3, angka 1 di baris tiga kolom 4
dan seterusnya
Kita perhatikan bahwa tiap baris memiliki banyak cacah elemen seperti berikut:
-baris pertama terdapat 1 elemen
-baris kedua terdapat 3 elemen
-baris ketiga terdapat 4 elemen
-baris keempat terdapat 5 elemen
-dan seterusnya
Baris kedua, ketiga, keempat dan seterusnya elemenya tambah-tambah dua.
Misalkan terdapat matrik A(N,M), maka nilai-nilai tersebut dapat kita masukkan seperti berikut:
A(1,1)=1
A(2,1)=1
A(2,2)=2
A(2,3)=1
A(3,1)=1
A(3,2)=3
A(3,3)=3
A(3,4)=1
dan seterusnya
Untuk memudhakan pengerjaan kita akan menginisalisasi 2 buah elemen array
Kira-kira cara pengerjaannya seperti berikut:
0. Mulai
1. Tentukan banyak tingkat, misalkan N, Tentukan matrik A(10,10)
Tentukan A(1,1)=1, A(1,2)=1
2. Cetak baris dan kolom pertama
3. Mulai I dari 2 Ke N
4. Cetak 1
5. Mulai dari 2 ke I
Tentukan nilai berikutnya
Nilai = A(I-1,J-1) + A(I-1,J)
Nilai = Matrik baris saat ini dikurangi satu, kolom saat ini dikurangi satu + Matrik baris saat ini dikurangi satu, kolom saat ini.
Cetak Nilai
6. Ulangi ke 5
7. Cetak 1
8. Turun Baris
9. Ulangi ke 3
10. selesai
Private Sub Form_Activate() Dim A(10,10) As Byte A(1,1)=1 'Inisialisasi A(1,2)=1 'Inisialisasi print A(1,1) 'cetak baris pertama For I = 2 To 10 Step 1 'Nilai 10 dianggap sebagai tingkat hingga ke 10 print "1" For J = 2 To I Step 1 Nilai=A(I-1,J-1) + A(I-1,J) print Nilai; Next J Print "1"; Print 'Turun Baris Next I End Sub