Program menyusun angka

Berikut merupakan Program menyusun angka menggunakan bahasa Pascal, dengan menggunakan statement FOR.

• SOURCE CODE

Program menyusun_angka;
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(i:6);
     end;
readkey;
end.

• PENJELASAN SOURCE CODE

Program menyusun_angka;     {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 n}
        write(i:6);     {Cetak i}
     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 angka
• 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.