Program menentukan bilangan terbesar dari 3 data

Berikut merupakan Program untuk menentukan bilangan terbesar dari 3 data menggunakan bahasa Pascal dengan menggunakan statement CASE OF.

• 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     {Varabel}
   a, b, c : integer;     {Inisiasi varabel}
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 kedua : }
     readln(b);     {Baca variabel b}
     write('Masukkan bilangan ketiga      : ');     {Cetak Masukkan bilangan ketiga}
     readln(c);     {Baca 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 terbesar adalah : baca 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 terbesar adalah : baca 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 : baca variabel c}
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 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.