Program menentukan bilangan terbesar dari dua data

Berikut merupakan Program untuk menentukan bilangan terbesar dari dua data menggunakan bahasa Pascal dengan menggunakan statement IF.

• SOURCE CODE

Program menentukan_bilangan_terbesar_dari_dua_data;
uses crt;
var
   n, i : integer;
begin
clrscr;
     write('masukkan nilai A : ');
     readln(n);
     write('masukkan nilai B : ');
     readln(i);
     if n > i then
        writeln('bilangan terbesar A : ',n)
            else
        writeln('bilangan terbesar B : ',i);
readkey;
end.

• PENJELASAN SOURCE CODE

Program menentukan_bilangan_terbesar_dari_dua_data;     {Judul Program}
uses crt;     {Deklarasi unit CRT}
var     {Variabel}
   n, i : integer;     {Inisiasi variabel}
begin     {Awal instruksi program}
clrscr;     {Membersihkan layar}
     write('masukkan nilai A : ');     {Cetak masukkan nilai A :}
     readln(n);     {Baca variabel n}
     write('masukkan nilai B : ');     {Cetak masukkan nilai B :}
     readln(i);     {Baca variabel i}
     if n > i then     {Jika n > i kemudian}
          writeln('bilangan terbesar A : ',n)     {Cetak bilangan terbesar A : baca variabel n}
              else     {Kalau tidak}
          writeln('bilangan terbesar B : ',i);     {Cetak bilangan terbesar B : baca 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          : Menentukan bilangan terbesar dari dua data
• 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.