Program pengulangan angka terkecil hingga terbesar

Berikut merupakan Program untuk Pengulangan angka terkecil hingga terbesar menggunakan bahasa Pascal dengan menggunakan statement FOR.

• SOURCE CODE

Program pengulangan_angka_terkecil_hingga_terbesar;
uses crt;
var
   n : integer;
   i : integer;
begin
clrscr;
     write('Tulis angka 1 sampai dengan ');readln(n);
     for i := 1 to n do
     writeln(i);
readkey;
end.

• PENJELASAN SOURCE CODE

Program pengulangan_angka_terkecil_hingga_terbesar;     {Judul program}
uses crt;     {Deklarasi unit CRT}
var     {Variabel}
   n : integer;     {Inisiasi variabel}
   i : integer;     {Inisiasi variabel}
begin     {Awal instruksi program}
clrscr;     {Membersihkan layar}
     write('Tulis angka 1 sampai dengan ');     {Cetak Tulis angka 1 sampai dengan}
     readln(n);     {Baca variabel n}
     for i := 1 to n do     {Memulai pengulangan sesuai dengan banyaknya jumlah nilai yang di input pada variabel i}
     writeln(i);     {Cetak variabel i}
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           : Pengulangan angka terkecil hingga terbesar
• Source Code .pdf      : .:_Download_:.
• Flowchart .png         : .:_Download_:.
• Program .pas            : .:_Download_:.
• Password                  : kamuspascal.blogspot.com

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