Algoritma dan Program Pascal Untuk Menentukan Interval Data

Misalkan ada data. Jika kita diminta untuk menentukan intervalnya, maka yang harus kita lakukan adalah mencari data terkecil dan terbesarnya terlebih dahulu. Misalkan data terkecilnya ternyata adalah a dan data terbesarnya adalah b. Maka intervalnya adalah [a b].

Bagaimana algoritma untuk menentukan data terkecil dan terbesarnya?

Misalkan data-data yang dimasukkan adalah data[1], data[2], data[3],...., data[n].
Algoritma untuk menentukan data terkecil dan terbesar-nya adalah sebagai berikut:
Misal, K: data terkecil dan B: data terbesar
K dan B keduanya kita beri nilai awal data[1]
K = data[1], B = data[1]

1. langkah ke - 1: Bandingkan data[2] dengan K dan B
   Jika data[2] < K maka K = data[2]
   Jika data[2] > B maka B = data[2]
2. langkah ke-2: Bandingkan data[3] dengan K dan B
   Jika data[3] < K maka K = data[3]
   Jika data[3] > B maka B = data[3]
3. langkah ke-3: Bandingkan data[4] dengan K dan B
   Jika data[4] < K maka K = data[4]
   Jika data[4] > B maka B = data[4]
   .
   .
   .
   .
   langkah ke-i: Bandingkan data[i+1] dengan K dan B
   Jika data[i + 1] < K maka K = data[i + 1]
   Jika data[i + 1] > B maka B = data[i + 1]
   .
   .
   .
   .
   langkah ke-(n-1): Bandingkan data[n] dengan K dan B
   Jika data[n] < K maka K = data[n]
   Jika data[n] > B maka B = data[n]
   

Contoh konkretnya, jika kita mempunyai data: 5, 6, 3, 4, 7
Kita akan mencari data terkecil dan terbesarnya dengan algoritma di atas.
Berarti, pertama kita misalkan K = 5 dan B = 5. Proses setiap langkahnya:

1. 6 > 5 maka K = 5
   6 > 5 maka B = 6
2. 3 < 5 maka K = 3
   3 > 6 maka B = 6
3. 4 > 3 maka K = 3
   4 < b =" 6
4. 7 > 3 maka K = 3
   7 > 6 maka B = 7

Hasil akhirnya, data terkecilnya adalah K = 3, dan data terbesarnya adalah B = 7.
Maka intervalnya adalah [3 7]
Bagaimana? Mudah bukan?

Anda menginginkan contoh program pascalnya yang sederhana? Silakan download via link di bawah ini:
http://www.ziddu.com/download/3271455/IntervalData.doc.html

Programnya saya sajikan di Word. Silakan dikopikan ke Turbo Pascal for Window untuk mencoba ataupun memodifikasinya.

Selamat Belajar. Salam sukses untuk anda.

***