Program menentukan bilangan terbesar dari 3 data

Berikut merupakan Program untuk menentukan  bilangan terbesar dari 3 data menggunakan bahasa Pascal dengan menggunakan statemen IF.

• SOURCE CODE

Program menentukan_bilangan_terbesar_dari_3_data;
uses crt;
var
   a, b, c : integer;
begin
clrscr;
     write('Masukkan bilangan pertama    : ');readln(a);
     write('Masukkan bilangan kedua        : ');readln(b);
     write('Masukkan bilangan ketiga        : ');readln(c);
     writeln;
     if (a > b) and (a > c) then
         writeln('Bilangan yang terbesar adalah : ',a)
         else
     if (b > c) and (b > a) then
         writeln('Bilangan yang terbesar adalah : ',b)
         else
     if (c > a) and (c > b) then
         writeln('Bilangan yang terbesar adalah : ',c);
readkey;
end.

• PENJELASAN SOURCE CODE

Program menentukan_bilangan _terbesar_dari_3_data;     {Judul Program}
uses crt;     {Deklarasi unit CRT}
var     {Variabel}
   a, b, c : integer;     {Inisiasi variabel}    {
begin     {Awal instruksi program}
clrscr;     {Membersihkan layar}
     write('Masukkan bilangan pertama     : ');     {Cetak Masukkan bilangan pertama   :}
     readln(a);     {Baca variabel a}
     write('Masukkan bilangan kedua         : ');     {Cetak Masukkan bilangan kedia    :}
     readln(b);     {Baca variabel b}
     write('Masukkan bilangan ketiga         : ');     {Cetak Masukkan bilangan ketiga   :}
     readln(c);     {Cetak variabel c}
     writeln;     {Cetak baris}
     if (a > b) and (a > c) then     {Jika a > b dan a > c kemudian}
        writeln('Bilangan yang terbesar adalah : ',a)     {Cetak Bilangan yang terbedar adalah :, variabel a}
        else     {Kalau tidak}
     if (b > c) and (b > a) then     {Jika b > c dan b > a kemudian}
        writeln('Bilangan yang terbesar adalah : ',b)     {Cetak Bilangan yang terbedar adalah, variabel b}
        else     {Kalau tidak}
     if (c > a) and (c > b) then     {Jika c > a dan c> b kemudian}
        writeln('Bilangan yang terbesar adalah : ',c);     {Cetak Bilangan yang terbesar adalah, variabel c}
readkey;     {Instruksi untuk menunggu}
end.     {Akhir instruki program}

• PRINT SCREEN OUTPUT

Untuk mempermuda anda dalam mempelajari pemograman dengan menggunakan bahaca 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 3 data
• 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.