Program bintang Diamond dengan Pascal

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 '*  '..

semoga bermanfaat^_^