Program Segitiga Pascal

Segitiga Pascal ini merupakan susunan koefisien binomal yang berbentuk segitiga yang dikembangkan oleh matematikawan Prancis yang bernama Blaise Pascal. Puncak segitiganya merupakan angka 1 (baris ke 0), kemudian baris pertama adalah 1 dan 1. Baris selanjutnya didapat dengan menjumlahkan 2 bilangan di atasnya, dengan angka pertama dan angka terakhir tetap angka 1.

Selanjutnya berikut ini Algoritma, Program dan Output segitiga pascal :

A. Algoritma Segitiga Pascal

1. Mulai.
2. Deklarasi variabel j, n, i dan array p.
3. Tentukan banyak baris data n.
4. Tentukan data baris 1 dan 2 sama dengan 1. P[1,1]=1, P[2,1]=1, P[2,2]=1.
5. Buat loop baris dari i=3 s/d N. Jika i<=n, lanjut ke langkah 6, Jika tidak, ke langkah 11.
6. Buat loop kolom dari j=1 s/d I, Jika j<= I, lanjut ke langkah 7, jika tidak  mk ulangi langkah 5.
7. Jika j=1 atau j=I, maka p[I,j]=1.
8. Jika tidak, maka p[I,j]= p[i-1,j]+p[i-1,j-1].
9. Cetak  p[I,j].
10. Ulangi langkah 5.
11. Selesai.

B. Program Segitiga Pascal

Program Segitiga_Pascal;

Uses Wincrt;

Var

        x    :    Array [1..100,1..100] Of Integer;

    i, j, n  :   Integer; 

Begin

Clrscr; 

Write('Jumlah Baris Data (Maks 20) : '); Readln(n);

 For i := 1 To n Do

   For j := 1 To i Do

     Begin

         If j = 1 Then x[i,j] := 1

       Else

         If j = i Then x[i,j] := 1

       Else

        x[i,j] := x[i-1,j] + x[i-1,j-1];

     End;

   For i := 1 To n Do

   Begin

   Gotoxy(40-3*i,3+i);

    For j := 1 To i Do

    Write (x[i,j]:6);

   End;

End.

C. Output Program

Sekian dari artikel ini saya buat, semoga dapat bermanfaat dan bisa menambah ilmu kalian dalam membuat program-program. Terima Kasih telah berkunjung dan tunggu artikel-artikel lainnya.