Pascal‎ > ‎

Wajik

Wajik atau diamond adalah pengembangan lopis, dimana terdapat dua lopis yang saling tumpang tindih. Perhatikan contoh tampilan wajik di bawah ini:


C:\>diamond 5
     *
    ***
   *****
  *******
 *********
  *******
   *****
    ***
     *

Prosedur

bandingkan prosedur diamond a.k.a wajik di bawah ini dengan prosedur lopis

procedure diamond(tinggi:integer);
var
i,j,k:integer;
begin
{lopis bagian atas}
for i:= 1 to tinggi do
begin
for j:=i to tinggi do
write(' ');
for k:=1 to 2*i-1 do
write('*');
writeln;
end;
{tambahan : lopis bagian bawah}
for i:= tinggi-1 downto 1 do
begin
for j:=i to tinggi do
write(' ');
for k:=1 to 2*i-1 do
write('*');
writeln;
end;
end;






Comments