Membuat Piramida Bintang Dengan Perulangan di Turbo Pascal

Kali ini saya akan memposting tentang Membuat Piramida Bintang Dengan Perulangan di Turbo Pascal 

Karena untuk Membuat Piramida Bintang Dengan Perulangan di Turbo Pascal  kita perlu menggunakan perulangan ada baiknya anda membaca postingan saya sebelumnya yaitu Perulangan For Do di Turbo Pascal 

Langkah-langkah Membuat Piramida Bintang Dengan Perulangan di Turbo Pascal 

1. Buka program turbo pascal yang anda punya

2. Ketikan script dibawah ini

program priamid;
var
 i,j,k,bil:integer;
begin
 clrscr;

        writeln('===============');

        writeln('Tutorial Koding');

        writeln('===============');

 write('Masukan Tinggi Piramida : ');readln(bil);
 for i:=1 to bil do {Perulangan dari 1 sampai tinggi piramida}
 begin
  for j:=bil down to i do {Perulangan untuk membuat jarak/spasi}
  begin
   write(' ');
  end;

  for k:=1 to i+i-1 do {Perulangan untuk menampilkan bintang}
  begin
   write('*');
  end;
 writeln;
 end;
 readln;
end;

3. Jalankan program tersebut dengan menekan CTRL+F5

Semoga bermanfaat, terima kasih atas kunjungannya