Segitiga Pascal

uses

wincrt;

var num:array[1..100] of longint;

i,j,n,batas:integer;

begin

clrscr;

writeln('===========================');

writeln('= Program Segitiga Pascal =');

writeln('===========================');

writeln('');

write(' Masukan Nilai N :');

readln(n);

num[1]:=1;

writeln(1);

for i:=1 to n do

begin

batas:=(i+1) div 2;

if not odd(i)then

num[batas+1]:=num[batas]*2;

for j:=batas downto 2 do

num[j]:=num[j]+num[j-1];

for j:=1 to batas do

write(num[j],' ');

if not odd(i)then write (num[batas+1],' ');

for j:=batas downto 1 do

write(num[j],' ');

writeln;

end;

writeln;

writeln('NIM : 0806012791');

writeln('');

writeln('Nama : Gerry Tandean');

writeln;

readln;

end.

Hasil :