Cara Membuat Kotak Bintang (Turbo Pascal)

Pada postingan tentang turbo pascal kali ini saya akan membahas tentang cara membuat kotak bintang , berikut sintaknya:

program ulang_kotak;
var x : integer;
begin
writeln('PROGRAM MEMBUAT KOTAK');

for x:= 1 to 20 do
  begin
  gotoxy(2+x,3);
  write('*');
  end;
for x:= 1 to 10 do
  begin
  gotoxy(3,2+x);
  write('*')
  end;
for x:= 1 to 10 do
  begin
  gotoxy(22,2+x);
  write('*')
  end;
for x:= 1 to 20 do
  begin
  gotoxy(2+x,12);
  write('*');
  end;

end.

Berikut Tampilan programnya:

Untuk download file .Pas nya silahkan klik [Disini].

Terimakasih sudah berkunjung & semoga bermanfaat.