Program belah ketupat dengan Pascal

Setelah lama g buka-buka lagi pelajaran lama kangen jga. ni salah satu tugas saya dulu. untuk membuat belah ketupat dengan pascal. coba perhatikan deh programnya. g rumit kok, cma perlu sedikit logika. di sini saya berikan 2 contoh yang sama2 belah ketupat. tapi dengan tampilan yang berbeda. sedikit tugas untuk an
da. Coba tebak Bagian mana yang harus di ubah untuk membuat tampilan menjadi bintang (*) bukan angka????

Program Belah_Ketupat;

uses crt;

var batas,x: Integer;

a,b,c,d,e,f:integer;

begin

clrscr;

write ('Masukkan Bilangan Ganjil 1-9 : ');

readln (batas);

if batas mod 2 = 1 then

begin

a:=batas div 2;

for b:=a downto 0 do

begin

x:=x+1;

for c:=1 to b do

write(' ');

begin

for e:=1 to batas do

begin

if e+b=a+x then

for f:=1 to e do

write(f,' ');

end;

end;

writeln;

end;

if b=0 then

begin

for b:=1 to a do

begin

for d:=1 to b do

write(' ');

begin

x:=x-1;

for e:=batas downto 1 do

begin

if e+b=a+x then

for f:=1 to e do

write(f,' ');

end;

end;

writeln;

end;

end;

end;

readln;

end.

Ini contoh kedua:

program for_asc_desc;

uses crt;

var a,b,c,d,n:integer;

begin

clrscr;

write ('Masukkan Angka 1-9 : '); readln(n);

writeln;

d:=0;

for a:=n downto 1 do

begin

d:=d+1;

for b:=1 to a do

write(' ');

begin

if n+1=d+b then

for c:=1 to 2*d-1 do

write (d,' ');

writeln;

end;

end;

if a=1 then

begin

for a:=2 to n do

begin

for b:=1 to a do

write (' ');

begin

d:=d-1;

if n+1=d+b then

for c:=1 to (2*d-1) do

write(d,' ');

end;

writeln;

end;

end;

readkey;

exit;

end.

Selamat mencoba.. Semoga berhasil. kalau ada tampilan error, jangan menyerah, coba perhatikan lagi penulisannya ada yang salah atau tidak..