Program menyusun bintang

Berikut merupakan Program menyusun bintang menggunakan bahasa Pascal dengan menggunakan statement FOR.

• SOURCE CODE

Program menyusun_bintang;
uses crt;
var
   i, j, n : integer;
begin
clrscr;
     write('Masukkan Jumlah baris  : ');readln(n);
     for i := 1 to n do
     begin
     gotoxy(40-3*i,1+i);
     for j := 1 to i do
     write('*':6);
     end;
readkey;
end.

• PENJELASAN SOURCE CODE

Program menyusun_bintang;     {Judul Program}
uses crt;     {Deklarasi unit CRT}
var     {Variabel}
   i, j, n : integer;     {Inisiasi variabel}
begin     {Awal instruksi program}
clrscr;     {Membersihkan layar}
     write('Masukkan Jumlah baris   : ');     {Cetak Masukkan Jumlah baris :}
     readln(n);     {Baca variabel n}
     for i := 1 to n do     {Memulai pengulangan sesuai dengan jumlah nilai yang di input di variabel n}
     begin     {Awal instruksi program}
     gotoxy(40-3*i,1+i);     { Pergi ke}
     for j := 1 to i do     {Memulai pengulangan sesuai dengan jumlah nilai yang di input di variabel i}
     write('*':6);     {Cetak *}
     end;     {Akhir instruksi kondisi}
readkey;     {Instruksi untuk menunggu}
end.     {Akhir instruksi program}

• PRINT SCREEN OUTPUT

Untuk mempermuda anda dalam mempelajari pemograman dengan menggunakan bahasa Pascal, admin telah menyediakan file Source code, Penjelasan source code, Output program, Flowchart dari source code, serta file pascalnya. Anda dapat mendownloadnya secara gratis di link download di bawah ini.

• Title Program            : Menyusun bintang
• Source Code .pdf       : .:_Download_:.
• Flowchart .png          :  .:_Download_:.
• Program .pas             : .:_Download_:.
• Password                   : kamuspascal.blogspot.com

Jika anda tidak tahu bagaimana cara mendownload file-file di atas klik Disini, untuk mempelajarinya.