Menampilkan output Segitiga pascal

Pada artikel ini saya akan membahas tentang tugas kuliah saya ,dimana harus membuat sebuah segitiga pascal di Turbo pascal, mungkin anda yang pake kacamata ,^_^ maaf .anda yang lagi membaca artikel saya ini, diberikan tugas kuliah yang sama maka anda beruntung.

mari kita pelajari dan belajar bersama, pertama kita kenal terlebih dahulu apa itu segitiga pascal.

langsung saja berikut bahasa program pascalnya sihlakan anda copy.

Program Segitiga_pascal;

uses crt;

var i,j,n : Integer;

p   : array [1..50,1..50] of integer;

Begin

Clrscr;

writeln('mencetak segitiga pascal');

write  ('banyaknya baris yang di inginkan = ');readln(n);

writeln;

for i:= 1 to n do

Begin

for j:=1 to i do

Begin

if(j=1) or (j=i) then

p[i,j]:=1

else

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

write(p[i,j],'    ');

End;

writeln;

End;

readln;

End.

Jika anda Running codenya ,dan masukkan sebuah angka Maka penampakannya seperti beriku ini.

Dalam matematika, segitiga Pascal adalah suatu aturan geometri pada koefisien binomial dalam sebuah segitiga. dia dinamakan sempena Blaise Pascal dalam kebanyakan dunia barat, meskipun ahli matematika lain telah mengkajinya berabad-abad sebelum dia di India, Persia, Cina, dan Italia.

Barisan segitiga Pascal umumnya dihitung dimulai dengan baris kosong, dan nomor-nomor dalam barisan ganjil biasanya diatur terkait dengan nomor-nomor dalam barisan genap. Konstruksi sederhana pada segitiga dilakukan dengan cara berikut. Di barisan nol, hanya tulis nomor 1. 

Kemudian, untuk membangun unsur-unsur barisan berikutnya, tambahkan nomor di atas dan di kiri dengan nomor secara langsung di atas dan di kanan untuk menemukan nilai baru. Jika nomor di kanan atau kiri tidak ada, gantikan suatu kosong pada tempatnya. Misalnya, nomor satu di barisan pertama adalah 0 + 1 = 1, di mana nomor 1 dan 3 dalam barisan ketiga ditambahkan untuk menghasilkan nomor 4 dalam barisan keempat.

bagaimana !. jika anda berhasil anda luar biasa ^_^ . semoga bermanfaat .