Segitiga Pascal

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