Program menampilkan bintang

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

• SOURCE CODE

Program menampilkan_bintang;
uses crt;
var
   i, j, n : integer;
begin
clrscr;
     writeln('Program menampilkan Bintang');
     writeln('====================');
     writeln;
     write('Masukkan Jumlah Baris : ');readln(n);
     for i := 1 to  n do
     begin
     for j := 1 to i do
     write('*');
     writeln;
     end;
readkey;
end.

• PENJELASAN SOURCE CODE

Program menampilkan_bintang;     {Judul Program}
uses crt;     {Deklarasi unit CRT}
var     {Variabel}
   i, j, n : integer;     {Inisiasi variabel}
begin     {Awal instruksi program}
clrscr;     {Membersihkan layar}
     writeln('Program menampilkan Bintang');     {Cetak Program menampilkan Bintang}
     writeln('====================');     {Cetak =======================}
     writeln;     {Cetak baris}
     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}
     for j := 1 to i do     {Memelai pengulangan sesuai dengan jumlah nilai yang di input di variabel i}
     write('*');     {Cetak *}
     writeln;     {Cetak baris}
     end;     {Akhir instruksi program}
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            : Menampilkan 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.