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 –...

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.

(*
	Yudi Setiawan
	MaksMin
*)
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.

 


About Author

Yudi Setiawan

Saat ini aktif sebagai Mahasiswa di salah satu Universitas di kota Medan dengan mengambil bidang Fakultas Teknik dan Ilmu Komputer. Sangat senang dengan bahasa pemrograman Java dan Android.


Comment & Discussions

    Please LOGIN before if you want to give the comment.