Segitiga Pascal

Nopember 17, 2007 at 12:54 am (Programming)

Soal 2 Olimpiade Sains Mahasiswa 2007, Yogyakarta.

Deskripsi Soal :

Buatlah program yang meminta input bilangan asli n dan mengoutputkan segitiga pascal dari baris 0 hingga baris n

Contoh Input :

7

Contoh Output :

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

Solusi :

Ada berbagai algoritma untuk membuat program segitiga pascal, seperti menggunakan flying table dll. Berikut ini listing program saya untuk membuat segitiga pascal

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

i,j,n,batas:integer;

begin

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.

10 Tanggapan

  1. jaka berkata,

    Januari 9, 2008 pada 11:59 am

    tolong dong,program segitig pascal-nya dalam bahasa C(turbo C)…..!Thanks…..

  2. Riza berkata,

    Januari 9, 2008 pada 4:02 pm

    Jujur, saya belum pernah coding pakai bahasa C, tapi seharusnya algoritma dari listing program Pascal diatas tidak terlalu sulit dimengerti. Mungkin yang sedikit tampak susah karena saya cuma mencari setengah bagian dari setiap baris (karena setengahnya yang lain pasti sama kan? Cuma urutannya yang terbalik). Jadi kalau mau simple, proses saja seluruh baris dengan menggunakan flying table.

  3. fandi berkata,

    Januari 17, 2008 pada 11:23 pm

    Tolong dong untuk program piramida..
    Makasih yaaak…

  4. fandi berkata,

    Januari 17, 2008 pada 11:24 pm

    o iya lupa, aku masih belajar pake “for do”
    minta tolong untuk yg pake for do aja yaa

  5. Riza berkata,

    Januari 19, 2008 pada 12:22 am

    Deskripsi soalnya kaya gimana ya?

  6. Hendriko berkata,

    Maret 1, 2008 pada 10:54 am

    kk boleh tidak jika aku kesulitan dalam buat program trus minta bantuannya?

  7. Riza berkata,

    Maret 3, 2008 pada 2:39 pm

    Insya Allah saya coba bantu sebatas kemampuan saya.

  8. ipin berkata,

    Mei 8, 2008 pada 8:01 am

    bia nga’ kalu apabila masukannya pangkat(a+b)^n=yang keluar rumus dari paskal itu sendiri

  9. Riza berkata,

    Mei 8, 2008 pada 8:19 am

    Misalnya?

  10. Neyza berkata,

    Juli 29, 2008 pada 12:26 pm

    cukup jelas dan dapat dimengerti. Jadi, kapan-kapan boleh mnt bantuannya untk soal yang sulit g? Thnx,,,

Tulis sebuah Komentar