Program Segitiga Angka Bahasa Pascal

Hai, hari ini akan saya posting contoh bahasa pemrograman Pascal mengenai Program segitiga bilangan berdasarkan inputan bilangan...
Pada program kali ini kita akan membuat sebuah susunan bilangan berbentuk segitiga, selamat menikmati ya
:D

 Program Segitiga_Pascal;
Uses crt;
Var
  i,j,n:integer;
  x: array[1..100, 1..100] of integer;
Begin
  Write('Masukkan Jumlah Baris: ');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-1]+x[i-1,j];
      End;     
  For i:= 1 to n do
    Begin
      Gotoxy(40-3*i,2+i);
      For j:= 1 to i do
        write(x[i,j]:6);
    End;
readln;
End.

kemudian Run, tekan Ctrl+F9
input bilangan kedalam program...
dan hasilnya : 

 

 jika terjadi kesalahan dalam program, mohon di komen agar bisa kami perbaiki, oce kawan :D 

Silahkan dikembangkan lebih jauh lagi, karna kami hanya menyediakan program-program sederhana untuk dikembangkan oleh para pembaca sekalian...

mohon maaf apabila ada salah-salah kata dari kami ya!!
Terima Kasih  :D

Sudah Baca Yang Ini..?