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;