Program menentukan angka ganjil dari 1 hingga 50

Berikut merupakan Program untuk menentukan angka ganjil dari 1 hingga 50 menggunakan bahasa Pascal dengan menggunakan statement WHILE.

• SOURCE CODE

Program menentukan_angka_ganjil_dari_1_hingga_50;
uses crt;
var
   x, i : integer;
begin
clrscr;
     write('Masukkan angka   : '); readln(x);
     while(i <= x) do
     begin
         if (i mod 2 = 1) and (x <= 50) then
         write(i, ' ');
         i := i+1;
     end;
readkey;
end.

• PENJELASAN SOURCE CODE

Program menentukan_angka_ganjil_1_hingga_50;     {Judul Program}
uses crt;     {Deklarasi unit CRT}
var     {Variabel}
   x, i : integer;     {Inisiasi variabel}
begin     {Awal instruksi program}
clrscr;     {Membersihkan layar}
     write('Masukkan angka   : ');     {Cetak Masukkan angka :}
     readln(x);     {Baca variabel x}
     while(i <= x) do     {Pengecekan statement while apakah i <= x jika ya kerjakan statement di bawah}
     begin     {Awal instruksi program}
         if (i mod 2 = 1) and (x <= 50) then     {Jika i sisa hasil bagi 2 = 1 dan x <= 50 kemudian}
         write(i, ' ');     {Cetak variabel i, ...}
         i := i + 1;     {Counter penjumlahan 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           : Menentukan angka ganjil dari 1 hingga 50
• 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.