Tutorial Belajar Pemrograman, membuat game, membuat aplikasi, membuat program, android, game maker, yii, php, CSS, HTML, java, javascript, codeigniter, jquery, Pascal, c++

Wednesday, March 14, 2012

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.

Terima Kasih Telah Mengunjungi Blog Sederhana Ini.

Di Mohon Apabila Anda Ingin Mengcopas Artikel Pada Blog ini Cantumkan URL Sumber.

Sebagai Pengunjung Yang Baik Anda Dapat Meninggalkan Komentar di Blog Sederhana Ini.

Share this post

3 komentar

  1. terimakasih atas petunjuknya, tapi saya mau tanya jika output yang dihasilkan adalah seperti dibawah ini:
    *
    **
    ***
    ****
    *****

    itu dapat menggunakan algoritma ini dan bagaimana caranya?

    terimakasih sebelumnya

    ReplyDelete
  2. klo outputnya kyak gini:
    1
    23
    345
    4567
    56789
    Listingnya gimana?

    ReplyDelete
  3. kalau outputnya kaya gini
    55555
    4444
    333
    22
    1

    ReplyDelete

:) :) :-) :-) :)) :)) =)) =)) :( :( :-( :-( :(( :(( :d :d :-d :-d @-) @-) :p :p :o :o :>) :>) (o) (o) [-( [-( :-? :-? (p) (p) :-s :-s (m) (m) 8-) 8-) :-t :-t :-b :-b b-( b-( :-# :-# =p~ =p~ :-$ :-$ (b) (b) (f) (f) x-) x-) (k) (k) (h) (h) (c) (c) cheer cheer

 
© Jin Toples Programming
Designed by BlogThietKe Cooperated with Duy Pham
Released under Creative Commons 3.0 CC BY-NC 3.0