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.

Saat ini anda sedang membaca artikel tentang Program Pascal Untuk Membuat Segitiga Angka Dengan Array dan anda juga bisa menemukan artikel Program Pascal Untuk Membuat Segitiga Angka Dengan Array ini dengan url http://www.jintoples.blogspot.com/2012/03/program-pascal-untuk-membuat-segitiga.html. Anda boleh menyebarluaskan atau mengcopy artikel Program Pascal Untuk Membuat Segitiga Angka Dengan Array ini jika memang bermanfaat bagi anda atau teman-teman anda, namun dengan catatan jangan lupa untuk mencantumkan link sumbernya. apa bila anda mengalami atau kurang mengerti mengenai postingan di atas anda dapat bertanya kepada penulis melalui kotak komentar atau guest book.

Baca Juga Artikel Ini :