Program bintang Diamond dengan Pascal

Posted on Updated on


pada artikel sebelumnya,, ssya pernah membahas program bintang rata kanan dan kiri dengan menggunakan java,, nah di artikel ini akan dijelaskan listing program bintang dengan bentuk diamond,,

Listing program:

uses crt;

var i,j,jum :integer;

begin

clrscr;

write(‘masukkan banyak data: ‘);

readln(jum);

for i:=1 to jum do

begin

for j:=1 to jum-i do

begin

write(‘ ‘);

end;

for j:=1 to i do

begin

write(‘* ‘);

end;

writeln;

end;

for i:=jum-1 downto 1 do

begin

for j:=1 to jum-i do

begin

write(‘ ‘);

end;

for j:=1 to i do

begin

write(‘* ‘);

end;

writeln;

end;

readln;

end.

Output program:

nahh, demikian output programnya,, sebenarnya ga rumit logikanya,, itu sama aja dengan penggabungan 2 segitiga (yang ke atas sama ke bawah),, nah cara buat segitiganya,, sebenarnya itu sama aja kaya progam segitiga rata kanan,, hanya saja yang di print bukan ‘*’ saja tapi ditambahkan spasi setelahnya ‘*  ‘..



Web development jakarta

semoga bermanfaat^_^

One thought on “Program bintang Diamond dengan Pascal

    ARIS said:
    November 4, 2011 pukul 7:26 am

    kang,, tapi kalo di execute tampilnya setengah segitiga permata ?

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s