Mencari Nilai Maksimum dan Minimum di Pascal

Mencari nilai Maksimum dan Minimum adalah hal yang sering Anda jumpai dalam melakukan pencarian Data misalnya, seperti mencari nilai terbaik dari Fakultas tertentu atau mencari siswa dengan nilai terbaik dan lain sebagainya. Dan untuk nilai minimum ini juga sering Anda gunakan dalam kehidupan sehari – hari seperti, mencari barang termurah di sebuah toko ataupun membeli bahan pokok utama dengan harga yang murah. Pada tutorial ini, kita akan membahas bagaimana cara membuatnya dalam bahasa pemrograman Pascal.

Algoritma Pencarian Nilai Maksimum dan Minimum:

• Sediakan 2 variabel untuk menampung nilai Maksimum dan Minimum.
• Di luar statement perulangan, isi nilai 2 variabel tadi dengan nilai awal. Hal ini dilakukan agar Anda bisa melakukan proses perbandinga untuk mencari nilai Maksimum dan Minimum.
• Buatlah sebuah perulangan untuk melakukan pencarian nilai Maksimum dan Minimum.
• Di dalam perulangan tadi, buatlah sebuah pengkondisian jika variabel Max < Data-N maka, ganti nilai Max dengan Data-N. Begitu juga untuk mencari nilai Minimum. Buat 1 pengkondisian lagi dimana, jika Min > Data-N maka, ganti nilai Min dengan nilai Data-N.

Dan berikut ialah source code programnya.

program MaksMin;

uses crt;

var

   data         :array[1..100] of integer;

   jlh_data     :integer;

   max, min     :integer;

   a, b, c      :integer;

begin

     (*Membersihkan Layar Console*)

     clrscr;



     (*Input jumlah Data*)

     writeln("PROGRAM MENCARI NILAI MAXIMUM DAN MINIMUM");

     writeln("=========================================");

     write("Masukkan jumlah Data : ");  readln(jlh_data);

     writeln;



     (*Input nilai tiap Data*)

     for a := 1 to jlh_data do

     begin

          write("Data ke-",a," : ");    readln(data[a]);

     end;



     (*Proses pencarian nilai Maximum dan Minimum*)

     max := data[1];    (*Sementara*)

     min := data[1];    (*Sementara*)

     for a := 1 to jlh_data do

     begin

          if(max < data[a]) then

             max := data[a];



          if(min > data[a]) then

             min := data[a];

     end;



     (*Cetak Output*)

     writeln;

     writeln("Nilai Maksimum : ", max);

     writeln("Nilai Minimum  : ", min);



     readln;

end.

Keyword: nilai maksimum pascal, nilai minimum pascal