Program Menampilkan Gambar Bintang

Postingan kali ini tentang Program Pascal untuk Menampilkan Gambar Bintang. Namun kali ini saya tidak akan menjelaskan lebih merinci, hanya akan menyediakan source code pembuatan program tersebut. Program ini hanya dibuat dengan menggunakan statement looping For to Do.

Tampilan program tersebut kira-kira kaya gini lah ....

berikut source code nya...


Program Bintang;

uses crt;
var
  i, j, k, l, m, n : integer;
begin
clrscr;
k := 1;
  write('Masukkan n : '); readln(n);
  for i := 1 to n do
    begin
      writeln;
      for j := i to n+n+2 do
        write('_');
      for k := 1 to i do
        write('*_');
    end;
  for i := 1 to n do
    begin
      writeln;
      for j := 1 to i do
        write('_');
      for k := i to n + n+2 do
        write('*_');
    end;
  for i := 1 to n do
    begin
      writeln;
      for j := i to n-2 do
        write('_');
      for k := i to n-1 do
        write('_*');
      for m := 1 to 3 do
        begin
      for j :=2 to i do
        write('_');
      for k := 1 to i do
        write('');
        end;
      for m := 1 to 3 do
        begin
      for j := 1 to i do
        write('');
      for k := 2 to i do
        write('_');
        end;
      for j := i to n - 1 do
        write('_*');
    end;
  readln;
end.

Langsung copas aja ke pascalnya.

Selamat mencoba dan Suses Selalu.