Program Pascal Untuk Membuat Segitiga Angka Dengan Array

Ini adalah soal dari olimpiade sience 2007, Yogyakarta. Para peserta diminta membuat sebuah program deret angka segitiga dengan pascal menggunakan array, sehingga outputnya seperti ini :

Masukan Batas Nilai : 7

1

1 1

1 2 1

1 3 3 1

1 4 6 4 1

1 5 10 10 5 1

1 6 15 20 15 6 1

1 7 21 35 35 21 7 1

Memang sekilas terlihat mudah namun ternyata scritpnya lumayan sulit di mengerti juga, lihat di bawah :

Program Deret_Array; var num : array[1..100] of longint; i, j, n, batas : integer; begin Write('Masukan Batas Nilai : '); 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; end.

Jika anda ketikan script di atas pada pascal Lalu Menjalankannya maka outpunya akan terlihat seperti  di awal.