Program Pascal Untuk Membuat Segitiga Angka Dengan Array

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.

Baca juga : Program Penjumlahan Matriks 3x2 Dengan Pascal

Program Pascal Untuk Membuat Segitiga Angka Dengan Array anda sekarang sudah selesai, baca juga tutorial program pascal lainnya.