Program pengulangan angka terbesar hingga terkecil

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

• SOURCE CODE

Program pengulangan_angka_terbesar_hingga_terkecil;
uses crt;
var
   i : integer;
   n : integer;
begin
clrscr;
     write('Input angka = ');readln(n);
     for i := n downto 0 do
     writeln(i);
readkey;
end.

• PENJELASAN SOURCE CODE

Program pengulangan_angka_terbesar_hingga_terkecil;     {Judul program}
uses crt;     {Deklarasi unit CRT}
var     {Variabel}
   i : integer;     {Inisiasi variabel}
   n : integer;     {Inisiasi variabel}
begin     {Awal instruksi program}
clrscr;     {Membersihkan layar}
     write('Input angka = ');     {Cetak Input angka =}
     readln(n);     {Baca bariabel n}
     for i := n downto 0 do     {Memulai pengulangan sesuai dengan banyaknya jumlah nilai yang di input pada variabel n, nilainya akan muncul dari yang terbesar hingga yang terkecil}
     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 terbesar hingga terkecil
• 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.